<\/p>\n
XRechnung ist ein Standard für das Einreichen von Rechnungen bei öffentlichen Aufträgen. Sinn und Zweck dieses Standards ist, das Übermitteln von Rechnungsdaten auf eine Weise zu erlauben, dass diese automatisiert eingelesen und verarbeitet werden können. Wie das X in XRechnung vermuten lässt, steckt dahinter ein Austausch der Daten im XML-Format. Die Vorlage für XRechnung liefert die europäische Norm EN 16931. Wie die Daten strukturiert werden müssen, haben wir dem Dokument „Spezifikation XRechnung Standard und Extension“ entnommen, das öffentlich einsehbar ist. Als Grundlage für die Zusammenstellung der XRechnung verwenden wir ein herkömmliches Datenmodell einer Bestell- oder Rechnungsverwaltung. In diesem ersten Teil zeigen wir, wie die Daten aus den Tabellen der Beispieldatenbank in ein XRechnung-kompatibles XML-Dokument umgewandelt werden und wie Sie dieses validieren können.<\/b><\/p>\n
Das Dokument Spezifikation XRechnung Standard und Extension <\/b>liefert alle für die Erstellung von XRechnungen erforderlichen Informationen. Dazu gehören die Struktur, die zu verwendenden Datentypen et cetera. Wir werden in diesem Beitrag nicht alle Aspekte umsetzen, daher hier der Link zu diesem Dokument für den Fall, dass Sie weitere Elemente hinzufügen möchten:<\/p>\n Sollte das Dokument nicht mehr unter diesem Link verfügbar sein, suchen Sie im Internet nach dem Titel des Dokuments XRechnung Standard und Extension<\/b>.<\/p>\n Validieren der XRechnung<\/b><\/p>\n Bevor wir beginnen, den Code zum Zusammenstellen der XRechnung zu programmieren, schauen wir uns an, wo wir die erstellen XRechnungen validieren können. Immerhin wollen wir wissen, ob das Ergebnis auch vom Rechnungsempfänger verarbeitet werden kann. Es gibt eine Reihe Online-Validatoren, zum Beispiel diesen hier:<\/p>\n Hier geben Sie das zu prüfende XML-Dokument in ein Textfeld ein und klicken auf die Schaltfläche Validieren<\/b>.<\/p>\n Praktischerweise stellt diese Webseite auch zwei Beispielrechnungen im XML-Format bereit, die Sie kopieren und validieren können.<\/p>\n Aufbau des Datenmodells<\/b><\/p>\n Das Datenmodell haben wir so aufgebaut, dass wir die Daten leicht für die Erstellung der XRechnung im XML-Format nutzen können. Es sieht in der Übersicht wie in Bild 1 aus.<\/p>\n Bild 1: Datenmodell der Beispieldatenbank<\/span><\/b><\/p>\n Die Tabelle tblKontakte <\/b>enthält die Daten der Rechnungssteller und der Rechnungsempfänger. Da in der XRechnung der Ansprechpartner in einem Feld angegeben wird, haben wir es uns hier einfach gemacht und auch nur ein Feld namens Ansprechpartner <\/b>statt Vorname <\/b>und Nachname <\/b>hinterlegt. In dieser Tabelle sind auch die Kontodaten des jeweiligen Kontakts hinterlegt.<\/p>\n Die Tabelle tblRechnungen <\/b>enthält die Basisdaten einer Rechnung. Dazu gehören das Rechnungsdatum, die Währung und ein Feld für die Kundenreferenz. Außerdem wählen wir einige Informationen aus Nachschlagefeldern für Fremdschlüsselfelder aus. Dazu gehört der Rechnungstyp. Die dafür verfügbaren Werte speichern wir in einer weiteren Tabelle namens tblRechnungstypen<\/b> (siehe Bild 2).<\/p>\n Bild 2: Tabelle mit den Rechnungstypen<\/span><\/b><\/p>\n Außerdem enthält die Tabelle tblRechnungen <\/b>zwei Fremdschlüsselfelder, mit denen Daten aus der Tabelle tblKontakte <\/b>ausgewählt werden können – und zwar Ver-kaeu-fer-ID <\/b>und KaeuferID<\/b>. Um dies im Beziehungen-Fenster abzubilden, haben wir die Tabelle tblKontakte <\/b>zwei Mal hinzugefügt, einmal unter dem Originalnamen und einmal unter tblKontakte_1<\/b>.<\/p>\n Die Tabelle tblPositionen <\/b>nimmt die Rechnungspositionen auf. Zum Zuordnen einer Position zu einer Rechnung enthält sie das Fremdschlüsselfeld RechnungID<\/b>. Außerdem speichert sie die Bezeichnung der Position, den Einzelpreis, den Mehrwertsteuersatz und die Menge. Den Mehrwertsteuersatz geben wir durch die Auswahl eines der Einträge der Tabelle tblMehrwertsteuersaetze <\/b>für das Fremdschlüsselfeld MehrwertsteuersatzID <\/b>an.<\/p>\n Aufbau einer XRechnung<\/b><\/p>\n Wie bei XML-Dokumenten üblich, ist die XRechnung hierarchisch aufgebaut. Das Root-Element heißt dabei Invoice <\/b>und definiert gleich noch die für das Dokument gültigen Namespaces:<\/p>\n Danach folgen einige Elemente, welche Basisdaten einer Rechnung abbilden. Da wir zunächst eine valide Rechnung erstellen und nicht direkt alle möglichen Elemente einbeziehen wollen, werfen wir zunächst einen Blick auf die notwendigen Elemente.<\/p>\n Das Dokument XRechnung Standard und Extension<\/b> liefert im Kapitel Detailbeschreibung<\/b> eine Übersicht der Elemente und vor allem der erwarteten Anzahl der Elemente. Diese wird dort in der Übersicht in eckigen Klammern angegeben. Die Rechnungsnummer zum Beispiel muss immer angegeben werden:<\/p>\n Die Angabe des Zahlungsziels hingegen ist nicht verpflichtend:<\/p>\n [0..1] <\/b>bedeutet, dass das Element gar nicht oder einmal vorkommen darf.<\/p>\n Auf diese Weise finden wir heraus, ob Elemente überhaupt angegeben werden müssen und stellen so unsere minimal benötigten Elemente zusammen. Der Hintergrund ist, dass wir die dort einzufügenden Informatinen auch in unserem Datenmodell finden müssen.<\/p>\n Gegebenfalls könnten wir die Daten der Rechnung, die immer gleich sind, weil es sich um die Daten des Rechnungsstellers handelt, einfach fest im Code verdrahten. Aber wir wollen nicht, dass wir für jede Änderung den Entwurf des Codes anpassen müssen.<\/p>\n Abweichungen zwischen Standard und Umsetzung<\/b><\/p>\n Wenn wir die Bezeichnungen der Felder im PDF-Dokument XRechnung Standard und Extension<\/b> anschauen und diese mit denen vergleichen, die als Beispieldokumente unter https:\/\/www.epoconsulting.com\/erechnung\/xrechnung-validator <\/b>bereitstehen, stellen wir einige Unterschiede fest. Diese sind zu erklären, da wohl das .xsl-Dokument unter folgendem Link zum Transformieren des einen in das andere Dokument verwendet wird:<\/p>\n Wir werden also per VBA direkt in das Format der Beispieldokumente exportieren.<\/p>\n Erster Test<\/b><\/p>\n Wir wollen uns an das finale Dokument herantasten und erstellen erstmal das Invoice<\/b>-Element mit einigen Unterelementen. Dazu erstellen wir ein provisorisches Formular mit einigen Rechnungsdaten aus dem Datenmodell (siehe Bild 3). Das Hauptformular zeigt die Daten der Tabelle –tblRechnungen <\/b>an und erlaubt die Auswahl der verknüpften Daten für die Felder RechnungstypID<\/b>, VerkaeuferID <\/b>und KaeuferID <\/b>per Kombinationsfeld.<\/p>\n Bild 3: Formular zum Zusammenstellen einer Rechnung<\/span><\/b><\/p>\n Das Unterformular zeigt die Daten der verknüpften Tabelle tblPositionen <\/b>an.<\/p>\n Ein weiteres Formular, das wir hier nicht abgebildet haben, heißt frmKontakt <\/b>und erlaubt die einfache Eingabe neuer Kontakte.<\/p>\n Auf Komfort wie das Anzeigen dieses Formulars vom Formular frmRechnung <\/b>haben wir an dieser Stelle verzichtet.<\/p>\n Für die Schaltfläche cmdXRechnungErstellen <\/b>hinterlegen wir die Prozedur aus Listing 1. Diese verwendet zwei Hilfsfunktionen:<\/p>\n Listing 1: Erster Test zum Zusammenstellung der XRechnung<\/span><\/b><\/p>\n Die Prozedur cmdXRechnungErstellen_Click <\/b>erstellt ein neues XML-Dokument des Typs DOMDocument60<\/b>. Damit dies gelingt, müssen wir noch einen Verweis auf die Bibliothek Microsoft XML, v6.0<\/b> hinzufügen. Das erledigen Sie mit dem Verweise<\/b>-Dialog, den Sie mit dem Menüeintrag Extras|Verweise <\/b>des VBA-Editors öffnen (siehe Bild 4).<\/p>\n Bild 4: Verweis auf die XML-Bibliothek<\/span><\/b><\/p>\n Danach fügt die Prozedur mit der Funktion CreateSubElement <\/b>ein neues Element des Typs ubl:Invoice <\/b>hinzu und referenziert dieses mit der Variablen objInvoice<\/b>.<\/p>\n Die Referenz benötigen wir, damit wir unter dem ubl:Invoice<\/b>-Element noch weitere Attribute und Elemente hinzufügen können.<\/p>\n Das erledigen wir mit den folgenden Aufrufen der CreateAttribute<\/b>-Funktion. Anschließend fügen wir die Elemente CustomizationID <\/b>mit dem Wert hinzu, den wir in der Beispielrechnung gefunden haben.<\/p>\n Außerdem fügen wir aus der Tabelle tblRechnungen <\/b>die Werte der Felder RechnungID<\/b>, Rechnungsdatum <\/b>und RechnungstypID <\/b>hinzu. Das Datum formatieren wir noch entsprechend auf yyyy-mm-dd<\/b>.<\/p>\n Danach speichern wir das neue XML-Dokument mit der Save<\/b>-Methode von objXML <\/b>im Verzeichnis der aktuellen Datenbank. Die so gespeicherte Datei laden wir dann zum Validieren auf die Seite aus Bild 5 hoch (oder die Seite eines anderen Anbieters, falls gewünscht).<\/p>\n Bild 5: Validieren der Rechnung<\/span><\/b><\/p>\n Die Validierung dauert einige Sekunden länger, als man erwarten würde – vermutlich möchte der Anbieter verhindern, dass die Validierung automatisiert genutzt wird.<\/p>\n Das Ergebnis liefert uns eine Liste der Elemente, die noch fehlen beziehungsweise die ungültige Werte enthalten. Hieran wollen wir uns nun orientieren und die fehlenden Informationen hinzufügen beziehungsweise die falschen Daten korrigieren.<\/p>\n Allerdings zeigt sich schon nach dem Hinzufügen eines der fehlenden Elemente, dass die Meldung wohl immer angezeigt wird, wenn auch nur ein Element der aufgelisteten Elemente fehlt. Außerdem finden wir im Dokument XRechnung Standard und Extension <\/b>heraus, dass das Note<\/b>-Element beispielsweise gar kein Pflichtelement ist.<\/p>\n Das macht die Korrektur auf Basis des Validierungsergebnisses nicht leichter. Also arbeiten wir uns lieber anhand des Beispieldokuments, das erfolgreich validiert werden konnte, durch die geforderten Daten.<\/p>\n Wir fügen nun zunächst alle noch fehlenden Elemente hinzu, die im Dokument XRechnung Standard und Extension <\/b>als Pflichtelement angegeben werden.<\/p>\n Erweiterung um die fehlenden Elemente<\/b><\/p>\n Bevor wir die Funktionalität erweitern, gliedern wir die Anweisungen zum Erstellen der XRechnung in eine eigene Prozedur namens XRechnungErstellen <\/b>aus, der wir lediglich den Primärschlüssel für die Rechnung übergeben. Den Aufruf dieser Funktion fügen wir dann in der Ereignisprozedur ein:<\/p>\n Wir erweitern die Prozedur, die durch die Schaltfläche cmdXRechnungErstellen_Click <\/b>aufgerufen wird, zunächst um einige Variablen.<\/p>\n Die meisten davon sollen Elemente des Typs IXMLDomNode <\/b>aufnehmen – entweder, weil wir noch weitere Unterelemente anlegen wollen, für die wir das übergeordnete Element referenzieren müssen und\/oder weil wir Attribute zu dem referenzierten Element hinzufügen wollen:<\/p>\n <\/p>\n rstPositionen <\/b>schließlich soll die Rechnungspositionen aufnehmen, die wir in einem Unterformular anzeigen. Diese durchlaufen wir, weil wir auch die Rechnungspositionen in Form geeigneter Elemente zum XML-Dokument hinzufügen wollen.<\/p>\n rstVerkaeufer <\/b>nimmt die Daten des Eintrags der Tabelle tblKontakte <\/b>auf, dessen Primärschlüsselfeld mit dem Wert des Feldes VerkaeuferID <\/b>des aktuellen Datensatzes aus rstRechnung <\/b>übereinstimmt.<\/p>\n Ähnlich sieht es beim Recordset rstKaeufer <\/b>aus, der den passenden Datensatz zum Feld KaeuferID <\/b>aus rstRechnung <\/b>aufweist. Mit rstMehrwertsteuersaetze <\/b>durchlaufen wir später beim Summieren der Mehrwertsteuer die Positionen verschiedener Mehrwertsteuersätze.<\/p>\n Zu diesem Zweck benötigen wir auch noch die folgenden drei Variablen. curMwStGesamt <\/b>nimmt die Summe der Mehrwertsteuer für die Rechnung auf und mit curBetragJeSatz <\/b>und curMwStJeSatz <\/b>nehmen wir die Summe des steuerbaren Betrags und der Mehrwertsteuer je Mehrwertsteuersatz auf. curNettoGesamt <\/b>enthält die Nettosumme aller Positionen:<\/p>\n Recordsets mit Daten füllen<\/b><\/p>\n Anschließend füllt die Prozedur die Recordsets mit den Daten aus den entsprechenden Tabellen. Die benötigten Anweisungen finden Sie in Listing 2.<\/p>\n Listing 2: Füllen der Recordsets<\/span><\/b><\/p>\n Hier füllen wir als Erstes rstRechnung <\/b>und rstPositionen<\/b>. Mit den Feldern VerkaeuferID <\/b>und KaeuferID <\/b>aus rstRechnung <\/b>können wir dann die Recordsets rstVer-kaeufer <\/b>und rstKaeufer <\/b>füllen.<\/p>\n Dokument erstellen<\/b><\/p>\n Danach erstellen wir das neue Dokument, das wir mit objXML <\/b>referenzieren, und legen das Root-Element an (objInvoice<\/b>).<\/p>\n Außerdem fügen wir die bereits bekannten Namespace-Angaben hinzu (siehe Listing 3).<\/p>\n Listing 3: Erstellen des Dokuments und Hinzufügen der Namespace-Angaben<\/span><\/b><\/p>\n Basisdaten der Rechnung<\/b><\/p>\n Im folgenden Block fügen wir die allgemeinen Rechnungsdaten ein sowie einige weitere benötigte Elemente, die wir hier noch nicht füllen (siehe Listing 4).<\/p>\n Listing 4: Hinzufügen von Basisdaten für die Rechnung<\/span><\/b><\/p>\n Die allgemeinen Rechnungsdaten beziehen wir aus den Feldern des Recordsets rstRechnung<\/b>, zum Beispiel:<\/p>\n Die übrigen hier angegebenen Elemente wie cac:Order-Reference<\/b>, cac:ContractDocumentReference <\/b>oder cac:ProjectReference <\/b>können Sie nachträglich mit Daten aus einer der vorhandenen oder neuen Tabellen füllen, indem Sie jeweils den dritten Parameter der CreateSubElement<\/b>-Prozedur mit einem Verweis auf den zu verwendenden Wert füllen. Für einen Beispieldatensatz sieht dieser Abschnitt nach dem Erstellen wie folgt aus:<\/p>\n Angabe der Verkäuferdaten<\/b><\/p>\n Die Angaben zum Verkäufer, also zum Rechnungssteller, fügen wir mit den Anweisungen aus Listing 5 zusammen. Das übergeordnete Element heißt cac:AccountingSupplierParty<\/b>. Darunter werden die übrigen Elemente teils in mehreren Verschachtelungen angelegt, sodass das Ergebnis für diesen Bereich wie folgt aussieht:<\/p>\n Listing 5: Hinzufügen der Daten des Käufers\/Rechnungsempfängers<\/span><\/b><\/p>\n In diesem Abschnitt arbeiten wir verstärkt mit verschachtelten Elementen. Wir legen zum Beispiel die Objekte obj-AccountingSupplierParty<\/b>, objParty <\/b>und objPostalAddress <\/b>als Unterobjekte anderer Objekte an, bevor wir überhaupt Daten eingeben. Diese stammen dann aus dem Recordset rstVerkaeufer<\/b>. Beim Element cbc:IdentificationCode <\/b>müssen wir einen Ländercode wie DE <\/b>für Deutschland angeben. Diesen haben wir in der Tabelle tblLaender <\/b>gespeichert. Die Tabelle tblKontakte <\/b>beziehungsweise auch das Recordset rstVerkaeufer <\/b>enthalten ein Fremdschlüsselfeld namens LandID <\/b>zu dieser Tabelle. Die Prozedur liest per DLookup <\/b>den Wert des Feldes LandKuerzel <\/b>zu dem Datensatz mit dem Wert im Feld LandID <\/b>aus.<\/p>\n Angabe der Käuferdaten<\/b><\/p>\n Die Angabe der Käuferdaten stellen wir mit den Zeilen aus Listing 6 zusammen. Der Aufbau dieser Zeilen ist praktisch identisch mit denen für das Zusammenstellen der Verkäuferdaten. Das Ergebnis sieht für unseren Beispieldatensatz wie folgt aus:<\/p>\n Listing 6: Hinzufügen der Daten des Verkäufers\/Rechnungsstellers<\/span><\/b><\/p>\n Angabe der Zahlungsdaten<\/b><\/p>\n Die Zahlungsdaten beinhalten verschiedene Informationen. Welche dies sind, hängt davon ab, welche Zahlungsart gewählt wird. Wir wollen dies hier etwas vereinfachen und stellen den Fall für eine Überweisung durch den Käufer vor. Dazu müssen wir als Erstes diese Zahlungsart festlegen. Dazu benötigen wir einen Zahlencode, welcher den Angaben aus der Norm unter dem folgenden Link entspricht:<\/p>\n Hier finden wir für den Eintrag Debit transfer <\/b>den Zahlenwert 31<\/b>. Die Bezahlmethode sowie den Text Debit transfer tragen wir fest in den Code zum Erstellen des folgenden Abschnitts ein. Danach folgen aus dem Recordset rstVerkaeufer <\/b>die IBAN und der Kontoinhaber für das Ziel der Überweisung (siehe Listing 7).<\/p>\n Listing 7: Hinzufügen der Daten zur Bezahlmethode und Bezahlung <\/span><\/b><\/p>\n Das Ergebnis dieses Abschnitts liest sich so:<\/p>\n Angabe der Steuern<\/b><\/p>\n Danach stellen wir die steuerrelevanten Informationen zusammen. Hier ist etwas Rechenaufwand erforderlich, denn wir müssen ermitteln, welche Beträge mit welchen Steuersätzen in den Positionen der Rechnung auftauchen und diese nach Steuersätzen gruppieren und summieren.<\/p>\n Insgesamt benötigen wir die folgenden Informationen:<\/p>\n Dazu formulieren wir den Teil der Prozedur aus Listing 8. Hier erstellen wir zuerst die zwei Elemente cac:TaxTotal <\/b>und cbc:TaxAmount<\/b>, wobei wir den Wert für cbc:TaxAmount <\/b>zunächst mit 0.00 <\/b>füllen. Die Summe ergänzen wir nach der Berechnung der Steuern. Außerdem legen wir als Währung für cbc:TaxAmount <\/b>mit dem Attribut currencyID <\/b>den Wert EUR <\/b>fest.<\/p>\nhttps:\/\/www.xoev.de\/sixcms\/media.php\/13\/200-XRechnung-2020-06-30.pdf<\/pre>\n
https:\/\/www.epoconsulting.com\/erechnung\/xrechnung-validator<\/pre>\n
![\"Datenmodell](\"..\/fileadmin\/_temp_\/2020_06\/pic_1277_004.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2020_06\/pic_1277_005.png\")
<\/p>\n<ubl:Invoice xmlns:ubl=\"urn:oasis:names:specification:ubl:schema:xsd:Invoice-2\" xmlns:cac=\"urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2\" xmlns:cbc=\"urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2\" xmlns:xsi=\"http:\/\/www.w3.org\/2001\/XMLSchema-instance\" xsi:schemaLocation=\"urn:oasis:names:specification:ubl:schema:xsd:Invoice-2 http:\/\/docs.oasis-open.org\/ubl\/os-UBL-2.1\/xsd\/maindoc\/UBL-Invoice-2.1.xsd\"><\/pre>\n
-Invoice number : Identifier <\/pre>\n
-Payment due date : Date [0..1]<\/pre>\n
https:\/\/github.com\/itplr-kosit\/xrechnung-visualization\/blob\/master\/src\/xsl\/ubl-invoice-xr.xsl<\/pre>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2020_06\/pic_1277_001.png\")
<\/p>\nPrivate Sub <\/span>cmdXRechnungErstellen_Click()\r\n Dim <\/span>objXML As <\/span>DOMDocument60\r\n Dim <\/span>objInvoice As <\/span>IXMLDOMNode\r\n Set<\/span> objXML = New<\/span> DOMDocument60\r\n Set<\/span> objInvoice = CreateSubElement(objXML, \"ubl:Invoice\")\r\n CreateAttribute objInvoice, \"xmlns:ubl\", \"urn:oasis:names:specification:ubl:schema:xsd:Invoice-2\"\r\n CreateAttribute objInvoice, \"xmlns:cac\", \"urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2\"\r\n CreateAttribute objInvoice, \"xmlns:cbc\", \"urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2\"\r\n CreateAttribute objInvoice, \"xmlns:xsi\", \"http:\/\/www.w3.org\/2001\/XMLSchema-instance\"\r\n CreateAttribute objInvoice, \"xsi:schemaLocation\", \"urn:oasis:names:specification:ubl:schema:xsd:Invoice-2 \" _\r\n & \"http:\/\/docs.oasis-open.org\/ubl\/os-UBL-2.1\/xsd\/maindoc\/UBL-Invoice-2.1.xsd\"\r\n CreateSubElement objInvoice, \"cbc:CustomizationID\", \"urn:cen.eu:en16931:2017#compliant#urn:\" _\r\n & \"xoev-de:kosit:standard:xrechnung_1.2\"\r\n CreateSubElement objInvoice, \"cbc:ID\", Me!RechnungID\r\n CreateSubElement objInvoice, \"cbc:IssueDate\", Format(Me!Rechnungsdatum, \"yyyy-mm-dd\")\r\n CreateSubElement objInvoice, \"cbc:InvoiceTypeCode\", Me!RechnungstypID\r\n objXML.Save CurrentProject.Path & \"XRechnung.xml\"\r\nEnd Sub<\/span><\/pre>\n\n
![\"Verweis](\"..\/fileadmin\/_temp_\/2020_06\/pic_1277_002.png\")
<\/p>\n![\"Validieren](\"..\/fileadmin\/_temp_\/2020_06\/pic_1277_003.png\")
<\/p>\nPrivate Sub <\/span>cmdXRechnungErstellen_Click()\r\n XRechnungErstellen Me!RechnungID\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>XRechnungErstellen(lngRechnungID As Long<\/span>)\r\n Dim <\/span>objXML As <\/span>DOMDocument60\r\n Dim <\/span>objInvoice As <\/span>IXMLDOMNode\r\n Dim <\/span>objOrderreference As <\/span>IXMLDOMNode\r\n Dim <\/span>objContractDocumentReference As <\/span>IXMLDOMNode\r\n Dim <\/span>objProjectReference As <\/span>IXMLDOMNode\r\n Dim <\/span>objAccountingSupplierParty As <\/span>IXMLDOMNode\r\n Dim <\/span>objParty As <\/span>IXMLDOMNode\r\n Dim <\/span>objPostalAddress As <\/span>IXMLDOMNode\r\n Dim <\/span>objCountry As <\/span>IXMLDOMNode\r\n Dim <\/span>objPartyTaxScheme As <\/span>IXMLDOMNode\r\n Dim <\/span>objTaxScheme As <\/span>IXMLDOMNode\r\n Dim <\/span>objPartyLegalEntity As <\/span>IXMLDOMNode\r\n Dim <\/span>objContact As <\/span>IXMLDOMNode\r\n Dim <\/span>objAccountingCustomerParty As <\/span>IXMLDOMNode\r\n Dim <\/span>objPaymentMeans As <\/span>IXMLDOMNode\r\n Dim <\/span>objPayeeFinancialAccount As <\/span>IXMLDOMNode\r\n Dim <\/span>objPaymentTerms As <\/span>IXMLDOMNode\r\n Dim <\/span>objFinancialInstitutionBranch As <\/span>IXMLDOMNode\r\n Dim <\/span>objTaxTotal As <\/span>IXMLDOMNode\r\n Dim <\/span>objTaxAmount As <\/span>IXMLDOMNode\r\n Dim <\/span>objTaxSubtotal As <\/span>IXMLDOMNode\r\n Dim <\/span>objTaxableAmount As <\/span>IXMLDOMNode\r\n Dim <\/span>objTaxCategory As <\/span>IXMLDOMNode\r\n Dim <\/span>objLegalMonetaryTotal As <\/span>IXMLDOMNode\r\n Dim <\/span>objLineExtensionAmount As <\/span>IXMLDOMNode\r\n Dim <\/span>objTaxExclusiveAmount As <\/span>IXMLDOMNode\r\n Dim <\/span>objTaxInclusiveAmount As <\/span>IXMLDOMNode\r\n Dim <\/span>objPayableAmount As <\/span>IXMLDOMNode\r\n Dim <\/span>objInvoiceLine As <\/span>IXMLDOMNode\r\n Dim <\/span>objInvoicedQuantity As <\/span>IXMLDOMNode\r\n Dim <\/span>objItem As <\/span>IXMLDOMNode\r\n Dim <\/span>objSellersItemIdentification As <\/span>IXMLDOMNode\r\n Dim <\/span>objClassifiedTaxCategory As <\/span>IXMLDOMNode\r\n Dim <\/span>objPrice As <\/span>IXMLDOMNode\r\n Dim <\/span>objPriceAmount As <\/span>IXMLDOMNode\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstRechnung As <\/span>DAO.Recordset\r\n Dim <\/span>rstPositionen As <\/span>DAO.Recordset\r\n Dim <\/span>rstVerkaeufer As <\/span>DAO.Recordset\r\n Dim <\/span>rstKaeufer As <\/span>DAO.Recordset\r\n Dim <\/span>rstMehrwertsteuersaetze As <\/span>DAO.Recordset<\/pre>\n Dim <\/span>curMwStGesamt As Currency<\/span>\r\n Dim <\/span>curBetragJeSatz As Currency<\/span>\r\n Dim <\/span>curMwStJeSatz As Currency<\/span>\r\n Dim <\/span>curNettoGesamt As Currency<\/span><\/pre>\n...\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstRechnung = db.OpenRecordset(\"SELECT * FROM tblRechnung WHERE RechnungID = \" & lngRechnungID, dbOpenDynaset)\r\n Set<\/span> rstPositionen = db.OpenRecordset(\"SELECT * FROM tblPositionen WHERE RechnungID = \" & lngRechnungID, dbOpenDynaset)\r\n Set<\/span> rstVerkaeufer = db.OpenRecordset(\"SELECT * FROM tblKontakte WHERE KontaktID = \" & rstRechnung!VerkaeuferID, _\r\n dbOpenDynaset)\r\n Set<\/span> rstKaeufer = db.OpenRecordset(\"SELECT * FROM tblKontakte WHERE KontaktID = \" & rstRechnung!KaeuferID, _\r\n dbOpenDynaset)\r\n...<\/pre>\n...\r\n Set<\/span> objXML = New<\/span> DOMDocument60\r\n Set<\/span> objInvoice = CreateSubElement(objXML, \"ubl:Invoice\")\r\n CreateAttribute objInvoice, \"xmlns:ubl\", \"urn:oasis:names:specification:ubl:schema:xsd:Invoice-2\"\r\n CreateAttribute objInvoice, \"xmlns:cac\", \"urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2\"\r\n CreateAttribute objInvoice, \"xmlns:cbc\", \"urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2\"\r\n CreateAttribute objInvoice, \"xmlns:xsi\", \"http:\/\/www.w3.org\/2001\/XMLSchema-instance\"\r\n CreateAttribute objInvoice, \"xsi:schemaLocation\", \"urn:oasis:names:specification:ubl:schema:xsd:Invoice-2 \" _\r\n & \"http:\/\/docs.oasis-open.org\/ubl\/os-UBL-2.1\/xsd\/maindoc\/UBL-Invoice-2.1.xsd\"\r\n CreateSubElement objInvoice, \"cbc:CustomizationID\", \"urn:cen.eu:en16931:2017#compliant#urn:xoev-de:\" _\r\n & \"kosit:standard:xrechnung_1.2\"\r\n...<\/pre>\n...\r\n CreateSubElement objInvoice, \"cbc:ID\", rstRechnung!RechnungID\r\n CreateSubElement objInvoice, \"cbc:IssueDate\", Format(rstRechnung!Rechnungsdatum, \"yyyy-mm-dd\")\r\n CreateSubElement objInvoice, \"cbc:InvoiceTypeCode\", rstRechnung!RechnungstypID\r\n CreateSubElement objInvoice, \"cbc:DocumentCurrencyCode\", \"EUR\"\r\n CreateSubElement objInvoice, \"cbc:BuyerReference\", rstRechnung!Kundenreferenz\r\n Set<\/span> objOrderreference = CreateSubElement(objInvoice, \"cac:OrderReference\")\r\n CreateSubElement objOrderreference, \"cbc:ID\"\r\n Set<\/span> objContractDocumentReference = CreateSubElement(objInvoice, \"cac:ContractDocumentReference\")\r\n CreateSubElement objContractDocumentReference, \"cbc:ID\"\r\n Set<\/span> objProjectReference = CreateSubElement(objInvoice, \"cac:ProjectReference\")\r\n CreateSubElement objProjectReference, \"cbc:ID\"\r\n...<\/pre>\n\n
<cbc:ID>1234<\/cbc:ID>\r\n<cbc:IssueDate>2020-09-24<\/cbc:IssueDate>\r\n<cbc:InvoiceTypeCode>380<\/cbc:InvoiceTypeCode>\r\n<cbc:DocumentCurrencyCode>EUR<\/cbc:DocumentCurrencyCode>\r\n<cbc:BuyerReference>1234<\/cbc:BuyerReference>\r\n<cac:OrderReference>\r\n <cbc:ID\/>\r\n<\/cac:OrderReference>\r\n<cac:ContractDocumentReference>\r\n <cbc:ID\/>\r\n<\/cac:ContractDocumentReference>\r\n<cac:ProjectReference>\r\n <cbc:ID\/>\r\n<\/cac:ProjectReference><\/pre>\n
...\r\n Set<\/span> objAccountingSupplierParty = CreateSubElement(objInvoice, \"cac:AccountingSupplierParty\")\r\n Set<\/span> objParty = CreateSubElement(objAccountingSupplierParty, \"cac:Party\")\r\n Set<\/span> objPostalAddress = CreateSubElement(objParty, \"cac:PostalAddress\")\r\n CreateSubElement objPostalAddress, \"cbc:StreetName\", rstVerkaeufer!Strasse\r\n CreateSubElement objPostalAddress, \"cbc:AdditionalStreetName\"\r\n CreateSubElement objPostalAddress, \"cbc:CityName\", rstVerkaeufer!Ort\r\n CreateSubElement objPostalAddress, \"cbc:PostalZone\", rstVerkaeufer!PLZ\r\n Set<\/span> objCountry = CreateSubElement(objPostalAddress, \"cac:Country\")\r\n CreateSubElement objCountry, \"cbc:IdentificationCode\", DLookup(\"LandKuerzel\", \"tblLaender\", \"LandID = \" _\r\n & rstVerkaeufer!LandID)\r\n Set<\/span> objPartyTaxScheme = CreateSubElement(objParty, \"cac:PartyTaxScheme\")\r\n CreateSubElement objPartyTaxScheme, \"cbc:CompanyID\", rstVerkaeufer!UStIdNr\r\n Set<\/span> objTaxScheme = CreateSubElement(objPartyTaxScheme, \"cac:TaxScheme\")\r\n CreateSubElement objTaxScheme, \"cbc:ID\", \"VAT\"\r\n Set<\/span> objPartyLegalEntity = CreateSubElement(objParty, \"cac:PartyLegalEntity\")\r\n CreateSubElement objPartyLegalEntity, \"cbc:RegistrationName\", rstVerkaeufer!Firma\r\n Set<\/span> objContact = CreateSubElement(objParty, \"cac:Contact\")\r\n CreateSubElement objContact, \"cbc:Name\", rstVerkaeufer!Ansprechpartner\r\n CreateSubElement objContact, \"cbc:Telephone\", rstVerkaeufer!Telefon\r\n CreateSubElement objContact, \"cbc:ElectronicMail\", rstVerkaeufer!EMail\r\n...<\/pre>\n<cac:AccountingSupplierParty>\r\n <cac:Party>\r\n <cac:PostalAddress>\r\n <cbc:StreetName>Borkhofer Str. 17<\/cbc:StreetName>\r\n <cbc:AdditionalStreetName\/>\r\n <cbc:CityName>Duisburg<\/cbc:CityName>\r\n <cbc:PostalZone>47137<\/cbc:PostalZone>\r\n <cac:Country>\r\n <cbc:IdentificationCode>DE<\/cbc:IdentificationCode>\r\n <\/cac:Country>\r\n <\/cac:PostalAddress>\r\n <cac:PartyTaxScheme>\r\n <cbc:CompanyID>DE121212121<\/cbc:CompanyID>\r\n <cac:TaxScheme>\r\n <cbc:ID>VAT<\/cbc:ID>\r\n <\/cac:TaxScheme>\r\n <\/cac:PartyTaxScheme>\r\n <cac:PartyLegalEntity>\r\n <cbc:RegistrationName>André Minhorst Verlagµ <\/cbc:RegistrationName>\r\n <\/cac:PartyLegalEntity>\r\n <cac:Contact>\r\n <cbc:Name>André Minhorst<\/cbc:Name>\r\n <cbc:Telephone>0203-123123<\/cbc:Telephone>\r\n <cbc:ElectronicMail>andre@minhorst.com<\/cbc:ElectronicMail>\r\n <\/cac:Contact>\r\n <\/cac:Party>\r\n<\/cac:AccountingSupplierParty><\/pre>\n
...\r\n Set<\/span> objAccountingCustomerParty = CreateSubElement(objInvoice, \"cac:AccountingCustomerParty\")\r\n Set<\/span> objParty = CreateSubElement(objAccountingCustomerParty, \"cac:Party\")\r\n Set<\/span> objPostalAddress = CreateSubElement(objParty, \"cac:PostalAddress\")\r\n CreateSubElement objPostalAddress, \"cbc:StreetName\", rstKaeufer!Strasse\r\n CreateSubElement objPostalAddress, \"cbc:AdditionalStreetName\"\r\n CreateSubElement objPostalAddress, \"cbc:CityName\", rstKaeufer!Ort\r\n CreateSubElement objPostalAddress, \"cbc:PostalZone\", rstKaeufer!PLZ\r\n Set<\/span> objCountry = CreateSubElement(objPostalAddress, \"cac:Country\")\r\n CreateSubElement objCountry, \"cbc:IdentificationCode\", DLookup(\"LandKuerzel\", \"tblLaender\", \"LandID = \" _\r\n & rstVerkaeufer!LandID)\r\n Set<\/span> objPartyTaxScheme = CreateSubElement(objParty, \"cac:PartyTaxScheme\")\r\n CreateSubElement objPartyTaxScheme, \"cbc:CompanyID\", rstKaeufer!UStIdNr\r\n Set<\/span> objTaxScheme = CreateSubElement(objPartyTaxScheme, \"cac:TaxScheme\")\r\n CreateSubElement objTaxScheme, \"cbc:ID\", \"VAT\"\r\n Set<\/span> objPartyLegalEntity = CreateSubElement(objParty, \"cac:PartyLegalEntity\")\r\n CreateSubElement objPartyLegalEntity, \"cbc:RegistrationName\", rstKaeufer!Firma\r\n Set<\/span> objContact = CreateSubElement(objParty, \"cac:Contact\")\r\n CreateSubElement objContact, \"cbc:Name\", rstKaeufer!Ansprechpartner\r\n CreateSubElement objContact, \"cbc:Telephone\", rstKaeufer!Telefon\r\n CreateSubElement objContact, \"cbc:ElectronicMail\", rstKaeufer!EMail\r\n...<\/pre>\n<cac:AccountingCustomerParty>\r\n <cac:Party>\r\n <cac:PostalAddress>\r\n <cbc:StreetName>Teststr. 1<\/cbc:StreetName>\r\n <cbc:AdditionalStreetName\/>\r\n <cbc:CityName>Berlin<\/cbc:CityName>\r\n <cbc:PostalZone>12121<\/cbc:PostalZone>\r\n <cac:Country>\r\n <cbc:IdentificationCode>DE<\/cbc:IdentificationCode>\r\n <\/cac:Country>\r\n <\/cac:PostalAddress>\r\n <cac:PartyTaxScheme>\r\n <cbc:CompanyID>DE232323232<\/cbc:CompanyID>\r\n <cac:TaxScheme>\r\n <cbc:ID>VAT<\/cbc:ID>\r\n <\/cac:TaxScheme>\r\n <\/cac:PartyTaxScheme>\r\n <cac:PartyLegalEntity>\r\n <cbc:RegistrationName>Müller AG <\/cbc:RegistrationName>\r\n <\/cac:PartyLegalEntity>\r\n <cac:Contact>\r\n <cbc:Name>Klaus Müller<\/cbc:Name>\r\n <cbc:Telephone>0123-2121212<\/cbc:Telephone>\r\n <cbc:ElectronicMail>klaus@mueller.de <\/cbc:ElectronicMail>\r\n <\/cac:Contact>\r\n <\/cac:Party>\r\n<\/cac:AccountingCustomerParty><\/pre>\n
https:\/\/www.unece.org\/trade\/untdid\/d10a\/tred\/tred4461.htm<\/pre>\n
...\r\n Set<\/span> objPaymentMeans = CreateSubElement(objInvoice, \"cac:PaymentMeans\")\r\n CreateSubElement objPaymentMeans, \"cbc:PaymentMeansCode\", \"31\"\r\n CreateSubElement objPaymentMeans, \"cbc:PaymentID\", \"Debit transfer\"\r\n Set<\/span> objPayeeFinancialAccount = CreateSubElement(objPaymentMeans, \"cac:PayeeFinancialAccount\")\r\n CreateSubElement objPayeeFinancialAccount, \"cbc:ID\", rstVerkaeufer!IBAN\r\n CreateSubElement objPayeeFinancialAccount, \"cbc:Name\", rstVerkaeufer!Kontoinhaber\r\n Set<\/span> objFinancialInstitutionBranch = CreateSubElement(objPayeeFinancialAccount, \"cac:FinancialInstitutionBranch\")\r\n CreateSubElement objFinancialInstitutionBranch, \"cbc:ID\"\r\n Set<\/span> objPaymentTerms = CreateSubElement(objInvoice, \"cac:PaymentTerms\")\r\n CreateSubElement objPaymentTerms, \"cbc:Note\"\r\n...<\/pre>\n<cac:PaymentMeans>\r\n <cbc:PaymentMeansCode>31<\/cbc:PaymentMeansCode>\r\n <cbc:PaymentID>Debit transfer<\/cbc:PaymentID>\r\n <cac:PayeeFinancialAccount>\r\n <cbc:ID>DE23232323232323232323<\/cbc:ID>\r\n <cbc:Name>Klaus Müller<\/cbc:Name>\r\n <cac:FinancialInstitutionBranch>\r\n <cbc:ID\/>\r\n <\/cac:FinancialInstitutionBranch>\r\n <\/cac:PayeeFinancialAccount>\r\n<\/cac:PaymentMeans>\r\n<cac:PaymentTerms>\r\n <cbc:Note\/>\r\n<\/cac:PaymentTerms><\/pre>\n
\n
...\r\n Set<\/span> objTaxTotal = CreateSubElement(objInvoice, \"cac:TaxTotal\")\r\n Set<\/span> objTaxAmount = CreateSubElement(objTaxTotal, \"cbc:TaxAmount\", \"0.0\")\r\n CreateAttribute objTaxAmount, \"currencyID\", \"EUR\"\r\n Set<\/span> rstMehrwertsteuersaetze = db.OpenRecordset(\"SELECT * FROM tblMehrwertsteuersaetze\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstMehrwertsteuersaetze.EOF\r\n curBetragJeSatz = Nz(DSum(\"Einzelpreis * Menge\", \"tblPositionen\", \"RechnungID = \" & rstRechnung!RechnungID _\r\n & \" AND MehrwertsteuersatzID = \" & rstMehrwertsteuersaetze!MehrwertsteuersatzID), 0)\r\n If <\/span>Not<\/span> curBetragJeSatz = 0 Then<\/span>\r\n curMwStJeSatz = curBetragJeSatz * rstMehrwertsteuersaetze!Mehrwertsteuersatz\r\n curMwStGesamt = curMwStGesamt + curMwStJeSatz\r\n Set<\/span> objTaxSubtotal = CreateSubElement(objTaxTotal, \"cac:TaxSubtotal\")\r\n