Aloaha ZUGFeRD

Wenn Sie schon die XML und PDF Dateien haben ist es ganz einfach diese zu einer ZUGFeRD PDF Rechnung zusammenzusetzen. Optional kann sogar ein zusaetzlicher Anhang in das PDF eingebettet werden. Zum Beispiel die Geschaeftsbedingungen.

Fehlende PDF/A Attribute werden selbstverstaendlich von Aloaha ergaenzt!

Const License As String = "QxxxxZM"
Dim alo As New Aloaha_ZUGFeRD.XML
Dim PDFPath As String = "d:\rechnung.pdf"
Dim XMLPath As String = "d:\rechnung.xml"
Dim InvoicePath As String = "d:\invoice.pdf"
Dim AdditionalAttachment As String = "d:\Geschaeftsbedingungen.doc"
Dim DoOverWrite As Boolean = True

If alo.Licensed(License) = True Then

   If PDFPath <> "" And XMLPath <> "" And InvoicePath <> "" Then

      If System.IO.File.Exists(PDFPath) = True And System.IO.File.Exists(XMLPath) = True Then

         If AdditionalAttachment <> "" Then

            If System.IO.File.Exists(AdditionalAttachment) = False Then AdditionalAttachment = ""
            End If

            If alo.MergeXMLIntoPDF(XMLPath, PDFPath, InvoicePath, DoOverWrite, AdditionalAttachment, License) = True Then

            Else
            End If
         End If
      End If
End If

Bitte beachten Sie das der Lizenschluessel des Beispieles ein Testkey ist!

Aber es geht auch in VBS

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/