Aloaha ZUGFeRD

Sie koennen ein neues ZUGFeRD Objekt mit nur einer Codezeile erstellen. Dazu benoetigen Sie nur den Befehl: Create_Invoice (in VB.net kann man auch CreateInvoice benutzen)

Hier ein kleines Codebeispiel:

Dim key As String
Dim InvoiceID As String                    'BT-1
Dim InvoiceNote As String                  'BT-22, BG-1
Dim InvoiceDate As String                  'BT-2
Dim InvoiceDateFormat As String
Dim InvoiceName_FreeText
Dim InvoiceLanguageID_2Letter_ISO As String
Dim CurrencyID As String                  'BT-5

Dim alo As Aloaha_ZUGFeRD.XML

‘Sollte die Erstellung fehlschlagen bedeutet das das Objekt noch nicht im System registriert ist. Das machen Sie mit RegASM.exe:
‘regasm Aloaha_ZUGFeRD.dll /codebase

'bitte neuen Testkey von info@aloaha.com anfordern
key = "6UTDJCG757DWEWXK4TE22UXMWI"  

InvoiceID = "08157411"                'BT-1
InvoiceLanguageID_2Letter_ISO = "DE"
CurrencyID = "EUR"                    'BT-5
InvoiceDateFormat = "102"
InvoiceDate = "20160131"              'BT-2

Set alo = New Aloaha_ZUGFeRd.XML

If alo.Licensed(key) = True Then

     Call alo.Create_Invoice(InvoiceID, InvoiceNote, InvoiceDate, InvoiceDateFormat, "", InvoiceLanguageID_2Letter_ISO, CurrencyID)

     alo.SaveXML ("c:\temp\test.xml")
     MsgBox alo.LastError

end if

Wenn Sie nun das Dokument als XML speichern (alo.SaveXML) werden Sie sehen das noch nichts gespeichert wird.

Sie koennen mit MsgBox alo.LastError abfragen weshalb das so ist. In diesem Fall ist der Grund einfach. Wir machen beim Speichern immer einen Check ob auch alle mindestens erforderlichen Variablen gefuellt wurden. Bei einem leeren Dokument ist das natuerlich der Fall.

Ein komplettes VB6/VBA Codebeispiel finden Sie auf: https://www.zugferdpro.com/erstellung-einer-zugferd-x-rechnung-xml-datei-via-com-schnittstelle-vb6-vba/