PreviousNext
Help > Programmation avec LAUNCHER Office > Les commandes LNCCMD > Liste des commandes > Commande PDFFACTX
Commande PDFFACTX

Permet de créer une facture électronique Factur-X.

Factur-X est un standard franco-allemand de facture électronique mixte, basé sur un fichier PDF (norme PDF/A3) représentant la facture originale et embarquant un fichier de données structuré (XML).

 

Syntaxe

 

CHGVAR

VAR(&CMD) VALUE('PDFFACTX')

CHGVAR

VAR(&PARM1) VALUE('
PDF="Chemin complet du PDF/A3"
;Xml="Chemin complet du fichier XML"

;XMP="Chemin complet du fichier XMP"

;RelationShip="constante";

;Description="description Factur-X";

;FacturX="Chemin complet du fichier Factur-X à sauvegarder"
')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +

&PARM2 &RESULT)

 

 

Paramètres

 

 

Paramètres

 

Parm1
ou
Parm2

PDF: Chemin complet du PDF/A3.

 

Xml: Chemin complet du fichier XML à insérer en pièce jointe.

 

XMP : Chemin du fichier XML contenant les Meta data XMP du PDF/A.

 

RelationShip : Relation des données entre le fichier XML en pièce jointe et le PDF/A. Peut prendre une des valeurs suivantes (attention à respecter la casse) : Data, Source, Alternative, Supplement ou Unspecified.

 

Description : Description Factur-X.

 

FacturX : Chemin complet du fichier Factur-X à sauvegarder.

 

 

Remarque

Si on veut créer le PDF/A3 à partir d’un document Word, on peut utiliser la commande WSAVEAS avec Format=PDF et PdfA=true.

Voir l’exemple qui suit.

 

 

Exemple

 

PGM                                                     

                                                         

 DCL        VAR(&FILE) TYPE(*CHAR) LEN(2000)             

 DCL        VAR(&PATH) TYPE(*CHAR) LEN(2000)             

                                                         

 CHGVAR     VAR(&PATH) VALUE('C:\temp\5')           

 CHGVAR     VAR(&FILE) VALUE('Doc2.docx')                

 LNCOPEN    SVRADDR('*DEV')                              

 LNCCMD     CMD(WORDOPEN)                                

                                                         

 LNCCMD     CMD(WOPENFILE) PARM1('File="' *TCAT &PATH +  

              *TCAT '\' *TCAT &FILE *TCAT '"')           

 LNCCMD     CMD(WSAVEAS) +                               

              PARM1('File="C:\temp\5\Doc3.pdf";Forma+

              t=PDF;PdfA=true')                          

 LNCCMD     CMD(WORDCLOSE) PARM1('SAVE=FALSE')           

  LNCCMD     CMD(PDFFACTX) +                                
              PARM1('PDF="C:\temp\5\Doc+ 
              3.pdf";Xml="C:\temp\5\fa+ 
              ctur-x.xml";FacturX="C:\temp+ 
              \5\res29.PDF";DESCRIPTION="AURA +     
              FACTUR-X";RELATIONSHIP="Data";XMP="C:\temp+ 
              \5\metadata_2023-22027.xml+ 
              "')                                                           

 LNCCLOSE                                                

 ENDPGM