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(' ;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 |
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