Permet de créer un bon de commande électronique Order-X.
Basé sur Factur-X, Order-X est un standard franco-allemand de bon de commande électronique mixte, basé sur un fichier PDF (norme PDF/A3) représentant le bon de commande original et embarquant un fichier de données structuré (XML).
Syntaxe
|
CHGVAR |
VAR(&CMD) VALUE('PDFORDERX') |
|
CHGVAR |
VAR(&PARM1) VALUE(' ;XMP="Chemin complet du fichier XMP" ;RelationShip="constante"; ;Description="description Order-X"; ;OrderX="Chemin
complet du fichier Order-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.
Description : Description Order-X.
OrderX : Chemin complet du fichier Order-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(order.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\Doc.pdf";Forma+
t=PDF;PdfA=true')
LNCCMD CMD(WORDCLOSE) PARM1('SAVE=FALSE')
LNCCMD CMD(PDFORDERX)
+
PARM1('PDF="C:\temp\5\Doc+
.pdf";Xml="C:\temp\5\or+
der-x.xml";OrderX="C:\temp+
\5\res.PDF";DESCRIPTION="AURA +
ORDER-X";RELATIONSHIP="Data";XMP="C:\temp+
\5\metadata_2024.xml+
"')
LNCCLOSE
ENDPGM