PDF/A konforme ZUGFeRD Rechnungen erfordern die Aufnahme von einigen Metadaten. Wenn solch eine Rechnung archiviert wird sollte man testen ob diese Metadaten exisiteren. Das geht natuerlich ganz einfach:
Const License As String = “Q7Z6GRHW23F7RWJIGDZ4AX6FZM”
Dim alo As New Aloaha_ZUGFeRD.XML
Dim Attachments() As Aloaha_ZUGFeRD.iXML.PDFAttachment = {}
Dim InputPDF As String = “d:\invoice.pdf”
Dim xmlDoc As System.Xml.XmlDocument = Nothing
Dim ZUGFeRD_Level As String = “”
Dim ZUGFeRD_FileName As String = “”
Dim ZUGFeRD_Version As String = “”
If alo.Licensed(License) = True Then
If alo.PDFAMetaProperties(InputPDF, ZUGFeRD_Version, ZUGFeRD_Level, ZUGFeRD_FileName, License) = True Then
msgbox “OK”
End If
End If
ZUGFeRD_Level, ZUGFeRD_FileName und ZUGFeRD_Version enthalten nach einem OK die entsprechenden Daten.
Bitte nehmen Sie zur Kenntnis das der Beispielcode eine zeitlich limitierte Testlizenz enthaelt. Sie koennen Ihre Lizenz von info@zugferdpro.com anfordern.