Aloaha ZUGFeRD

Wie ueblich gibt es viele Wege, die nach Rom fuehren. Sie koennen diese Eigenschaften direkt am Anfang bei der Erstellung des Objektes definieren:

Dim ProfileType As Aloaha_ZUGFeRD.iXML.ZUGFeRDProfile = Aloaha_ZUGFeRD.iXML.ZUGFeRDProfile.comfort
Dim TestIndicator As Boolean = True
Dim LicenseKey As String = "XCRVSZVRN36QL2LWVN4NAUOSEI"   'bitte fordern Sie Ihren Testkey von info@aloaha.com an
Dim ZUGFeRDXML As Aloaha_ZUGFeRD.XML = New Aloaha_ZUGFeRD.XML(ProfileType, TestIndicator, LicenseKey)

Es kann jedoch vorkommen das diese Variablen von anderen Funkionen geaendert werden. Zum Beispiel von CreateInvoice. Auch wenn Sie einen Wert setzen, der nur in Comfort existiert aber Ihr Profil auf Basic steht wird intern automatisch auf Comfort hochgestuft.

Wenn Sie es nicht Aloaha ueberlassen moechten koennen Sie direkt vor den Speichern die Werte selbst setzen:

Zum Beispiel:

ZUGFeRDXML.ZUGFeRD_Profile = 0  '0 = basic, 1 = comfort und 2 = extendet
ZUGFeRDXML.ZUGFeRD_TestIndikator = false

Alternativ koennen Sie natuerlich auch die Properties direkt im Objekt aendern:

Dim zug As Aloaha_ZUGFeRD.iXML.ZUGFeRD = ZUGFeRDXML.ZUGFeRD_Structure

Nun koennen Sie im Objekt zug direkt jede beliebige Eigenschaft aendern:

zug.SpecifiedExchangedDocumentContext.TestIndicator = false
zug.SpecifiedExchangedDocumentContext.GuidelineSpecifiedDocumentContextParameter=Aloaha_ZUGFeRD.iXML.ZUGFeRDProfile.comfort

Nun muessen Sie noch die Aenderungen zurueckspeichern:

ZUGFeRDXML.ZUGFeRD_Structure = zug

Nun koennen Sie das XML erstellen: ZUGFeRDXML.SaveXML(“c:\test.xml”)

Bitte nehmen Sie zur Kenntnis das wir Gueltigkeitsueberpruefungen durchfuehren. Sollte kein XML geschrieben werden wird ein Wert fehlen. Sie finden das Problem dann in ZUGFeRDXML.LastError