Si vous voulez utiliser PDFL avec XFRX pour mélanger des rapports de VFP avec des pages produites par votre code PDFL, employez la méthode AttachToPDFDocument() de l'objet XFRXSession pour rattacher au document existant.
Passez l'objet XFRXSession comme paramètre :

loDocument.attachToPDFDocument(loXFRXSession)

Si vous voulez utiliser PDFL indépendamment, appelez la méthode createDocument avec en paramètre :  le nom du fichier PDF à créer :

loDocument.createDocument("output.pdf")

Appelez la méthode newPage() au départ et la méthode endPage() à la fin de chaque page.
La méthode NewPage() doit être appelée avant d'ajouter n'importe quel objet.
Si vous utilisez PDFL indépendamment, appeler la méthode finishDocument() pour fermer le document :

loDocument.finishDocument()

Ne jamais appeler la méthode finishDocument() quand vous utilisez PDFL avec XFRX.

 createDocument(tcFileName)

 newPage(tnWidth, tnHeight)

 newPage(tcPaperSize)

 endPage()

 finishDocument()

Contenu du Document

   Réglage des couleurs

 setForeColor(tnRed, tnGreen, tnBlue)

 setBackColor(tnRed, tnGreen, tnBlue)

 setColor(tnForeRed, tnForeGreen, tnForeBlue, tnBackRed, tnBackGreen, tnBackBlue)

   Ajouter du texte

 setFont(tcFontName, tnFontSize, tlBold, tlItalic)

 setPos(tnXpos, tnYpos)

 outText(tcText)

 newLine()

   Formes de Bases

 addLine(tnXPos1, tnYPos1, tnXPos2, tnYPos2, tnLineWidth, lnPattern)

 addBox(tnXPos, tnYPos, tnWidth, tnHeight, tnLineWidth, tnFill, tnPenPattern, tnRoundFactor)

   Utilisation de dessin en tracé

 startPath(tnXPos, tnYpos)

 appendLine(tnXpos, tnYpos)

 appendBezier(tnXpos1, tnYpos1, tnXpos2, tnYpos2, tnXpos3, tnYpos3)

 closePath()

 stroke()

 fill()

 strokeandfill()

Ajouter des images

 addPicture(tcFileName, tnXpos, tnYpos, tnWidth, tnHeight, tnAdjType)

1. Créer un objet PDFL loDocument=evaluate([XFRX("PDFL#INIT")])
2. L'attacher à une session existante de XFRX : loDocument.attachToPDFDocument(loXFRXSession)
3. Créer une instance de classe de PDFLScripts. Employer l'objet PDFL comme paramètre de la méthode init.
   Le reste des méthodes de la classe sont les scripts PDFL.

   loScr = createobject("PDFLScripts",loDocument)

   La définition d'une classe avec un script simple ressemble à cela :

   define class PDFLScripts as custom oPDFLDocument = null procedure init lpara toPDFLDocument this.oPDFLDocument = toPDFLDocument endproc procedure script1 this.oPDFLDocument.addPicture("xfrx.jpg",10,673,300,500,2) endproc enddef

4. Maintenant nous devons dire à XFRX quand (à quelles pages) il doit appeler le script.
   Pour chaque script, appeler la méthode loXFRXSession.registerPDFLScript() :
   loXFRXSession.registerPDFLScript(toScriptObject, tcMethodName, tnZIndex, tcScope, tnPageNumberingType)

   toScriptObject	La référence à l'objet PDFLScripts
   tcMethodName	Le nom de la méthode contenant le script
   tnZIndex	0 ... imprimer avant la page du rapport, 1 ... imprimer après la page du rapport
   tcScope	Définit quelles pages activent le script. Peut contenir : "ALL" (toutes), "ODD" (page impaire), "EVEN" (page paire) ou des numéros de pages délimités par des virgules, on peut même utiliser des plages de pages délimitées avec un trait d'union. Exemples: "ODD", "1,5-19", "ODD,4,8"
   tnPageNumberingType	Comment XFRX doit déterminer le numéro de page : 0 ... absolu - le numéro de page du document, 1 ... relatif - le numéro de page du rapport courant, 2 ... la valeur de _PAGENO

   Exemple:

   loXFRXSession.registerPDFLScript(loScr,"script1",0,"ALL",0)

5. Toutes les fois que vous ajoutez du texte depuis un script, appelez la méthode oPDFLDocument.manageText() à la fin du script.
6. Vous pouvez ajouter autant de scripts que vous en avez besoin. Pour supprimer tout les scripts enregistrés appelez : loXFRXSession.unregisterAllPDFLScripts()

Veuillez vous reporter à l'application livrée avec XFRX pour un exemple complet.

«EQEUS»