Zusammenführung von XML und PDF und optional Dokumente als Anhänge einfügen

Thema
Files2Attach
SDK-Mitglieder
AddFile2Attach() Files2Attach Licensed MergeXMLIntoPDF()
Codebeispiele
VB.NET, VB6 / VBScript (COM)
Veröffentlicht

Wenn Sie mit MergeXMLIntoPDF ein ZUGFeRD PDF/A erstellen können Sie auch gleichzeitig eine Dateiliste mit Files2Attach spezifizieren. Diese Dateien werden zusätzlich in das PDF als Anhänge eingebaut. Diese Funktion ist ab Version 7.0.30 (05.04.2016) verfügbar.

Const License As String = "IHR-LIZENZSCHLUESSEL"  'Bitte kontakieren Sie info@aloaha.com fuer eine Testlizenz

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

If alo.Licensed(License) = True Then
   Array.Resize(AttachmentFileList, 3)
   AttachmentFileList(0) = "c:\hello.pdf"
   AttachmentFileList(1) = "c:\input.pdf"
   AttachmentFileList(2) = "c:\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 natürlich auch noch einen zweiten Weg:

Const License As String = "IHR-LIZENZSCHLUESSEL"  'Bitte kontakieren Sie info@aloaha.com fuer eine Testlizenz

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

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

Natürlich können Sie auch VBS benutzen:

Set alo = CreateObject("Aloaha_ZUGFeRD.xml")

ZUGFeRD_License = "IHR-LIZENZSCHLUESSEL"
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/