Aloaha ZUGFeRD

Wenn Sie mit MergeXMLIntoPDF ein ZUGFeRD PDF/A erstellen koennen Sie auch gleichzeitig eine Dateiliste mit Files2Attach spezifizieren. Diese Dateien werden zusaetzlich in das PDF als Anhaenge eingebaut. Diese Funktion ist ab Version 7.0.30 (05.04.2016) verfuegbar.

Const License As String = "7DXVFC3YKWHDIOBXL2PWRX5ALY"  'Bitte kontakieren Sie info@aloaha.com fuer eine Testlizenz

Dim alo As New Aloaha_ZUGFeRD.XML
Dim InputPDF As String = "d:\input.pdf"
Dim OutPutPDF As String = "d:\output.pdf"
Dim AttachmentFileList() As String = {}
Dim DoOverWrite As Boolean = True
Dim XMLPath As String = "d:\ZUGFeRD-invoice.xml"

If alo.Licensed(License) = True Then
   Array.Resize(AttachmentFileList, 3)
   AttachmentFileList(0) = "d:\hello.pdf"
   AttachmentFileList(1) = "d:\input.pdf"
   AttachmentFileList(2) = "d:\caravanticket.tif"
   alo.Files2Attach = AttachmentFileList
   If alo.MergeXMLIntoPDF(XMLPath, InputPDF, OutPutPDF, DoOverWrite, "", License) = True Then
      MsgBox("ok")
   Else
      MsgBox("not ok")
   End If
End If

Falls Ihre Programmierumgebung Probleme mit String Arrays haben sollte gibt es natuerlich auch noch einen zweiten Weg:

Const License As String = "7DXVFC3YKWHDIOBXL2PWRX5ALY"  'Bitte kontakieren Sie info@aloaha.com fuer eine Testlizenz

Dim alo As New Aloaha_ZUGFeRD.XML
Dim InputPDF As String = "d:\input.pdf"
Dim OutPutPDF As String = "d:\output.pdf"
Dim DoOverWrite As Boolean = True
Dim XMLPath As String = "d:\ZUGFeRD-invoice.xml"

If alo.Licensed(License) = True Then
   alo.AddFile2Attach("d:\hello.pdf")
   alo.AddFile2Attach("d:\input.pdf")
   alo.AddFile2Attach("d:\caravanticket.tif")
   If alo.MergeXMLIntoPDF(XMLPath, InputPDF, OutPutPDF, DoOverWrite, "", License) = True Then
      MsgBox("ok")
   Else
      MsgBox("not ok")
   End If
End If

Natuerlich koennen Sie auch VBS benutzen:

Set alo = CreateObject("Aloaha_ZUGFeRD.xml")

ZUGFeRD_License = "MZBZO5xxxx4GF4GIZE7UQ"
PDFInvoice = "c:\PDF\Rechnung\RE_xxx.pdf"
XMLFile = "c:\XML\ddd4.xml"
OutputPDF = "c:\XML\RExxxE.pdf"
OptionalAttachment = "c:\PDF\AN_AGB.pdf"   ' optional - kann leer bleiben

WScript.echo "alo.MergeXMLIntoPDF()" & " - " & alo.MergeXMLIntoPDF(XMLFile, PDFInvoice, OutputPDF, True, OptionalAttachment, ZUGFeRD_License)

ZUGFeRD-XML und PDF-Rechnung per Webservice zu einer PDF-ZUGFeRD-Rechnung zusammenführen: https://www.zugferdpro.com/zugferd-xml-und-pdf-rechnung-per-webservice-zu-einer-pdf-zugferd-rechnung-zusammenfuhren/