<\/p>\n
![\"Erfassen](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_001.png\")
<\/p>\n
Bild 1: Erfassen eines Belegs in lexoffice<\/span><\/b><\/p>\n Im Beitrag „Zugriff auf lexoffice per REST-API und VBA“ (www.access-im-unternehmen.de\/1422) haben wir bereits gezeigt, wie wir in lexoffice Rechnungen auf Basis von Rechnungsdaten aus einer Access-Datenbank erstellen können. In manchen Fällen reichen die Möglichkeiten von lexoffice nicht aus, um die gewünschten Rechnungen zu erstellen. Dann kann man lexoffice aber immer noch für die Buchhaltung nutzen. Die Rechnung erstellt man dann in Access statt direkt in lexoffice und überträgt dann ein PDF-Dokument mit der Rechnung sowie die begleitenden Daten wie den Umsatz, die enthaltenen Steuern und weitere Informationen per Rest API nach lexoffice. Dieser Beitrag zeigt, wie wir dies bewerkstelligen können.<\/b><\/p>\n Mit dem Ziel für diesen Beitrag automatisieren wir einen Vorgang, den wir sonst manuell erledigen könnten. Dazu startet man in lexoffice das Erfassen eines neuen Belegs (siehe Bild 1). Hier kann man einen Beleg hochladen. lexoffice versucht dann, die benötigten Informationen für den rechten Bereich automatisch zu ermitteln. Gelingt dies nicht oder nur teilweise, arbeiten wir von Hand nach.<\/p>\n Bild 1: Erfassen eines Belegs in lexoffice<\/span><\/b><\/p>\n Mit der nachfolgend vorgestellten Lösung wollen wir solche Unwägbarkeiten verhindern und gleichzeitig die benötigte Zeit minimieren. Statt das PDF manuell in das Formular zu ziehen und abzuwarten, bis lexoffice das Dokument analysiert hat, übergeben wir das Dokument samt den benötigten Daten per Webservice. Wir man diesen bedient, haben wir schon ausführlich in dem oben genannten Beitrag beschrieben.<\/p>\n Wir brauchen also nur auf den dort erwähnten Techniken aufzubauen und diese an die neue Aufgabe anzupassen. Wer schon einmal in der Dokumentation der Rest API stöbern möchte: Während wir im ersten Beitrag Elemente des Typs Invoice <\/b>erstellt haben (Rechnung), geht es nun um das Hochladen von Elementen des Typs Voucher <\/b>(Beleg). Beide verwenden ein Contact<\/b>-Element, das je nach Anwendungszweck als Debitor oder Kreditor verwendet wird. Da wir im ersten Teil bereits die Techniken zum Hochladen von Kundendaten in Form eines Contact<\/b>-Elements erledigt haben, brauchen wir uns auch darauf nicht mehr zu konzentrieren, sondern können uns dem Upload von Elementen des Typs Voucher <\/b>kümmern.<\/p>\n Für das Erfassen eines Belegs benötigen wir mehr Daten als für das Erstellen von Rechnungen. In Bild 2 sehen wir alle benötigten Tabellen. Die Tabelle tblContacts <\/b>kennen wir bereits aus dem oben genannten Beitrag. Jedem Voucher aus der Tabelle tblVouchers <\/b>weisen wir genau einen Kontakt zu, der je nach der Art der Positionen des Belegs Kreditor oder Debitor ist. Damit kommen wir gleich zur Tabelle tblVouchers<\/b>, welche die grundlegenden Informationen zum Beleg enthält.<\/p>\n Bild 2: Datenmodell der Beispieldatenbank<\/span><\/b><\/p>\n Dazu gehört der Typ des Belegs. Diese haben wir in einer eigenen Lookuptabelle namens tblVoucherTypes <\/b>abgelegt (siehe Bild 3). Diese enthält neben dem Primärschlüsselfeld ein Feld namens VoucherType<\/b>, das die Beschreibung enthält, die wir in die JSON-Datei mit den Informationen zum Erfassen des Belegs schreiben. Ein weiteres Feld namens VoucherTypeGerman <\/b>enthält den Wert, den wir im Formular zur Auswahl des Belegtyps anbieten wollen.<\/p>\n Bild 3: Belegtypen<\/span><\/b><\/p>\n Ein weiteres Feld namens VoucherStatusID <\/b>dient dazu, den Status des Belegs zu übermitteln. Auch dafür haben wir eine Lookuptabelle angelegt. Diese heißt tblVoucherStatus <\/b>und enthält ebenfalls ein Feld für die Angabe des Wertes für die JSON-Datei und eines für die deutsche Version des Wertes. Diese Tabelle enthält die Werte aus Bild 4.<\/p>\n Bild 4: Tabelle mit den verschiedenen Belegstatus<\/span><\/b><\/p>\n Die nächste Lookuptabelle namens tblTaxTypes <\/b>liefert die Werte für das Feld TaxTypeID<\/b>. Hier legen wir fest, ob wir in den Belegpositionen die Netto- oder die Bruttowerte angeben (siehe Bild 5).<\/p>\n Bild 5: Tabelle mit den Steuertypen<\/span><\/b><\/p>\n Die Felder VoucherTypeID<\/b>, VoucherStatusID <\/b>und TaxTypeID <\/b>der Tabelle tblVoucher <\/b>richten wir jeweils als Nachschlagefelder mit den zuvor vorgestellten Tabellen als Datensatzherkunft ein. Dabei geben wir als anzuzeigendes Feld jeweils das Feld mit der deutschen Bezeichnung der jeweiligen Werte an.<\/p>\n Außerdem enthält die Tabelle noch Felder zum Speichern der Rechnungsnummer (VoucherID<\/b>), das Rechnungsdatum (VoucherDate<\/b>), das Versanddatum (ShippingDate<\/b>) und das Fälligkeitsdatum (DueDate<\/b>). Außerdem enthält die Tabelle die Bruttosumme (TotalGrossAmount<\/b>) und die Summe der Mehrwertsteuer (TotalTaxAmount<\/b>).<\/p>\n Die nächsten beiden Felder UseCollectiveContact <\/b>und ContactID <\/b>geben an, ob wir als Lieferant oder Kunde den Wert Sammelkunde <\/b>angeben wollen oder einen bereits gespeicherten Kontakt. Mit Remark <\/b>geben wir einen Bemerkungstext an und mit Filename <\/b>den Namen des Belegs, beispielsweise in Form einer PDF-Datei. <\/p>\n Die übrigen Felder haben folgenden Nutzen:<\/p>\n Im Gegensatz zu einer Rechnung, die verschiedene Positionen mit den zu bezahlenden Produkten oder Leistungen enthält, tragen wir für einen Beleg Zusammenfassungen von Beträgen mit bestimmten Mehrwertsteuersätzen und Buchungskategorien ein. Diese werden jedoch ähnlich wie die Rechnungspositionen in einer eigenen Tabelle gespeichert, wobei jede Belegposition ebenfalls mit einem Datensatz aus der Belegtabelle, hier tblVouchers<\/b>, verknüpft.<\/p>\n Die Tabelle zum Speichern dieser Daten heißt tblVoucherItems <\/b>und sieht mit einigen Beispieldaten wie in Bild 6 aus. Neben dem Primärschlüsselfeld enthält sie ein Fremdschlüsselfeld, über das die Positionen mit einem der Belege aus der Tabelle tblVouchers <\/b>verknüpft werden. In dieser Tabelle speichern wir den Betrag der Position (Amount<\/b>), die Mehrwertsteuer zu dieser Position (TaxAmount<\/b>) und den Steuersatz (TaxRatePercentage<\/b>).<\/p>\n Bild 6: Tabelle mit den Positionen eines Belegs<\/span><\/b><\/p>\n Hier ist anzumerken, dass das Feld Amount<\/b> sowohl den Netto- als auch den Bruttobetrag enthalten kann. Welcher eingetragen werden muss, hängt davon ab, welchen Wert das Feld TaxTypeID <\/b>der Tabelle tblVouchers <\/b>für diesen Beleg aufweist – mehr dazu weiter unten in der Beschreibung der Formulare.<\/p>\n lexoffice bietet eine ganze Reihe von Kategorien an, welche im Grunde Vereinfachungen für die üblicherweise verwendeten Buchungskonten sind (zum Beispiel 8300 für Erlöse mit 7% Mehrwertsteuer). Diese weisen wir einer Belegposition über das Fremdschlüsselfeld CategoryID <\/b>zu, das wir als Nachschlagefeld auslegen. Dieses Feld ist mit der Tabelle tblCategories <\/b>verknüpft. Diese Tabelle sieht wie in Bild 7 aus.<\/p>\n Bild 7: Einträge der Tabelle tblCategories<\/span><\/b><\/p>\n Diese Tabelle haben wir nicht von Hand gefüllt, sondern wir haben die Daten per Rest API von lexoffice eingelesen. Und das wird auch unsere Programmierübung zum Aufwärmen.<\/p>\n Die Kategorien können wir automatisiert von lexoffice einlesen. Dazu nutzen wir die Prozedur aus Listing 1. Die Prozedur heißt GetCategories <\/b>und sie verwendet den folgenden Endpunkt der Rest API von lexoffice:<\/p>\n Listing 1: Diese Prozedur liest die Kategorien von lexoffice ein.<\/span><\/b><\/p>\n Dies liefert ohne weitere Angaben alle Kategorien zurück. Dazu rufen wir die Funktion Request <\/b>auf, die wir bereits im oben erwähnten Beitrag ausführlich beschrieben haben Diese Funktion führt den eigentliche Request aus und liefert mit dem Parameter strResponse <\/b>das Ergebnis zurück. Mit der Funktion ParseJson<\/b>, die wir im Beitrag JSON-Daten auslesen <\/b>(www.access-im-unternehmen.de\/1403<\/b>) beschrieben haben, übertragen wir die Inhalte des JSON-Dokuments in eine für uns besser verarbeitbare Form.<\/p>\n Bevor wir diese verarbeiten, löschen wir alle vorhandenen Einträge der Tabelle tblCategories<\/b>. Anschließend durchlaufen wir bereits in einer For…Next<\/b>-Schleife alle Elemente des Objekts objJSON<\/b>. Darin legen wir jeweils einen neuen Datensatz in der Tabelle tblCategories<\/b> an, wobei wir die Informationen zuvor über das in objJSON <\/b>geschaffene Objektmodell auslesen.<\/p>\n Die Grundlagen dafür beschreiben wir ebenfalls im Beitrag JSON-Daten auslesen <\/b>(www.access-im-unternehmen.de\/1403<\/b>).<\/p>\n Bevor wir die Prozeduren zum Übertragen von Belegen an lexoffice erstellen, wollen wir ein Formular schaffen, mit dem wir die zu übertragenden Daten komfortabel eingeben können. Dazu erstellen wir zunächst ein Unterformular namens sfmVouchers<\/b>. Diesem weisen wir über die Eigenschaft Datensatzquelle <\/b>die Tabelle tblVoucherItems <\/b>zu und ziehen die Felder CategoryID<\/b>, Amount<\/b>, TaxAmount <\/b>und TaxRatePercent <\/b>in den Detailbereich. Außerdem stellen wir die Eigenschaft Standardansicht <\/b>auf Datenblatt <\/b>ein (siehe Bild 8).<\/p>\n Bild 8: Das Unterformular sfmVouchers<\/span><\/b><\/p>\n Das Hauptformular frmVouchers <\/b>soll die Tabelle tblVouchers <\/b>als Datensatzquelle verwenden. Aus dieser ziehen wir alle Felder in den oberen Bereich des Formulars und ordnen diese wie in Bild 9 an.<\/p>\n [<\/p>\n Bild 9: Das Formular frmVouchers<\/span><\/b><\/p>\n Darunter ziehen wir das Unterformular sfmVouchers <\/b>hinein. Für das Unterformular-Steuerelemente sollte Access nun automatisch die beiden Eigenschaften Verknüpfen von und Verknüpfen nach mit dem Feld VoucherID <\/b>füllen.<\/p>\n Auf diese Weise zeigt das Unterformular nur die zu dem jeweiligen Beleg angelegten Belegpositionen an.<\/p>\n Die beiden Felder TotalGrossAmount <\/b>und TotalTaxAmount <\/b>verschieben wir unter das Unterformular. Außerdem fügen wir zwei Schaltflächen mit der Beschriftung Beleg nach Lexoffice <\/b>und Beleg in Lexoffice anzeigen <\/b>hinzu.<\/p>\n Mit dem Kombinationsfeld cboTaxTypeID <\/b>können wir auswählen, ob die Belegpositionen den Betrag netto oder brutto aufnehmen sollen. Damit dies deutlicher wird, haben wir ein Textfeld namens txtTaxTypeRemark <\/b>angelegt, in dem wir je nach der Auswahl einen entsprechenden Hinweistext anzeigen.<\/p>\n Dieser wird jeweils nach der Auswahl des Eintrags im Kombinationsfeld cboTaxTypeID <\/b>aktualisiert:<\/p>\n Damit diese Anzeige auch beim Wechseln des Beleg-Datensatzes aktualisiert wird, rufen wir die entsprechende Prozedur im Ereignis für die Eigenschaft Beim Anzeigen <\/b>auf:<\/p>\n Das Feld Filename<\/b> enthält den Pfad zu der Datei, die als Belegdokument hochgeladen werden soll. Um dem Benutzer die Eingabe zu erleichtern, haben wir rechts daneben eine Schaltfläche hinzugefügt, welche die folgende Prozedur aufruft:<\/p>\n Die hier für die Anzeige eines Dateiauswahl-Dialogs verwendete Funktion haben wir im Modul mdlTools <\/b>hinterlegt. Sie verwendet die FileDialog<\/b>-Klasse der Office-Bibliothek, sodass wir noch einen Verweis auf die Bibliothek Microsoft Office 16.0 Object Library <\/b>hinzufügen müssen. Die Funktion zeigt einen Dateiauswahl-Dialog an, der einen Filter für PDF-Dateien enthält und beim Öffnen das Verzeichnis der aktuellen Datenbank anzeigt:<\/p>\n Damit kommen wir zu der Prozedur, die durch einen Klick auf die Schaltfläche cmdBelegNachLexoffice<\/b> ausgelöst wird. Den ersten Teil dieser Prozedur finden wir in Listing 2. Hier prüfen wir zuerst, ob der Kontakt, den wir diesem Beleg zugeordnet haben, bereits in lexoffice angelegt ist. Die Grundlagen dazu finden Sie im Beitrag Zugriff auf lexoffice per REST-API und VBA<\/b> (www.access-im-unternehmen.de\/1422<\/b>). Dort haben wir einen Aufruf der Rest API beschrieben, mit dem wir einen Kontakt nach lexoffice hochladen können. In der aktuellen Prozedur prüfen wir lediglich, ob für den Kontakt in der Tabelle tblContacts <\/b>das Feld ContactID <\/b>gefüllt ist. Dieses enthält nach dem Hochladen des Kontakts die GUID des Kontakts bei lexoffice, die wir auch beim Hochladen eines Belegs angeben können. Ist diese nicht vorhanden, wird die Prozedur abgebrochen und eine entsprechende Meldung erscheint.<\/p>\n Listing 2: Übertragen eines Belegs nach lexoffice, Teil 1<\/span><\/b><\/p>\n Die folgenden beiden Zeilen tragen die URL der Methode, hier mit der Endung vouchers <\/b>und der Methode POST<\/b>, in die entsprechenden Variablen ein, die wir später an die Request<\/b>-Funktion übergeben.<\/p>\n Außerdem prüft die Prozedur hier, ob für das Feld Filename <\/b>der Dateiname des hochzuladenden Belegs angegeben wurde. Dieser wurde beispielsweise zuvor als Bericht in Access erstellt und unter dem gewünschten Dateinamen als PDF gespeichert.<\/p>\n Ist das Feld Filename <\/b>gefüllt, wird die Datei durch den Aufruf der Funktion UploadPDF <\/b>nach lexoffice hochgeladen. Diese Funktion beschreiben wir weiter unten. Lautet das Funktionsergebnis auf True<\/b>, liefert strResponse <\/b>die Antwort im JSON-Format. Diese enthält wiederum im Feld id <\/b>eine GUID, die wir in der Variablen strFileID <\/b>speichern. Wir geben diese später in dem JSON-Dokument an, das wir beim Request beim Anlegen des Belegs in lexoffice übergeben.<\/p>\n Damit starten wir in den Prozess, der das JSON-Dokument mit den Daten des Belegs zusammenstellt. Das sind die Daten, die lexoffice beim manuellen Hochladen eines Beleg teilweise automatisch per OCR erkennt. Die folgende Methode stellt die Daten jedoch vollständig zusammen.<\/p>\n Dabei füllt sie zuerst ein Recordset mit der RecordsetClone<\/b>-Eigenschaft des Unterformulars mit den Belegpositionen. Nach der ersten Zeile mit der öffnenden geschweiften Klammer folgt die Angabe des Belegtyps, den wir zunächst aus dem Feld cboVoucherType<\/b> entnehmen und dafür aus der Tabelle tblVoucherTypes <\/b>den Typ entnehmen, der in das JSON-Dokument eingetragen werden soll.<\/p>\n Danach fügen wir eine weitere Zeile mit der Belegnummer hinzu, die im Feld voucherNumber <\/b>landet. Das Belegdatum formatieren wir noch um in das Format YYYY-MM-DD<\/b>, bevor wir es dem Attribut voucherDate <\/b>zuweisen. Auf die gleiche Weise gehen wir mit den Werten für die Attribute shippingDate <\/b>und dueDate <\/b>um.<\/p>\n Die Bruttosumme landet im Attribut totalGrossAmount<\/b>, die Steuersumme in totalTaxAmount<\/b>. Bei beiden ersetzen wir zuvor noch ein eventuell als Dezimaltrennzeichen verwendetes Komma durch einen Punkt.<\/p>\n Danach geben wir den Steuertyp an, also Netto oder Brutto. Diesen Wert ermitteln wir per DLookup <\/b>aus dem Feld TaxType <\/b>der Tabelle tblTaxTypes <\/b>und schreiben ihn in das Feld taxType<\/b>.<\/p>\n Anschließend geben wir an, ob es sich um einen Sammelkunden handelt oder hinterlegen für das Attribut contactId <\/b>den Wert der Feldes LexOfficeID <\/b>für den angegebenen Kontakt. Schließlich tragen wir noch eine eventuelle Bemerkung für das Attribut remark <\/b>ein sowie die GUID für die zuvor hochgeladene Datei aus der Variablen strFileID <\/b>in die Liste files<\/b>. Hier können wir theoretisch auch mehrere Dateien angeben.<\/p>\n Im zweiten Teil der Prozedur aus Listing 3 sehen wir, wie wir die Belegpositionen in einer Do While<\/b>-Schleife über alle Elemente des Recordsets aus rstVoucherItems <\/b>anlegen. Diese landen jeweils in einem durch geschweifte Klammern eingefassten Satz von Attributen in einer neuen Variablen namens strVoucherItems<\/b>, in der wir zunächst die Daten aller Belegpositionen sammeln. Wir starten mit dem Betrag, der vom Steuerbetrag, dem Steuersatz und der GUID der Kategorie der Position gefolgt wird. Das Element wird durch eine schließende geschweifte Klammer geschlossen und der Inhalt der Klammern noch mit einem abschließenden Komma versehen.<\/p>\n Listing 3: Übertragen eines Belegs nach lexoffice, Teil 2<\/span><\/b><\/p>\n Nachdem alle Elemente durchlaufen wurden, prüfen wir, ob strVoucherItems <\/b>mindestens ein Zeichen enthält und entfernen dann das letzte Komma der Auflistung. Den verbleibenden Inhalt von strVoucherItems <\/b>hängen wir nun an strVoucher <\/b>an und schließen die noch offenen eckigen und geschweiften Klammern.<\/p>\n Zu Zwecken der Untersuchung eventuell fehlerhafter Requests schreiben wir den Inhalt von strRequest <\/b>in die Zwischenablage, damit wir diesen in eine Anwendung zur Darstellung von JSON-Dateien einfügen und dort analysieren können.<\/p>\n Schließlich rufen wir die bereits im oben genannten Beitrag genannte Funktion Request <\/b>auf, der wir die URL des Endpunktes der API, die Methode (POST<\/b>) und den Request aus strRequest <\/b>übergeben.<\/p>\n Außerdem übergeben wir den Namen der Tabelle mit den Belegdaten (tblVouchers<\/b>) und das Primärschlüsselfeld und den Wert des zu übertragenden Belegs. Dies dient dazu, dass wir das Ergebnis direkt in der Request<\/b>-Funktion in die Tabelle tblVouchers <\/b>eintragen können.<\/p>\n War der Aufruf erfolgreich, parsen wir die zurückgelieferte Antwort aus strResponse <\/b>und lesen die ID des neu erstellten Belegs in lexoffice aus. Diesen geben wir per Meldung aus. War der Aufruf nicht erfolgreich, erscheint eine Meldung, dass die Antwort mit einer eventuellen Fehlermeldung zur weiteren Untersuchung in die Zwischenablage geschrieben wurde.<\/p>\n Neben den Belegdaten haben wir auch noch ein Belegdokument hochgeladen. Die dazu notwendigen Prozeduren beschreiben wir im Folgenden.<\/p>\n Den Start machen wir mit der Funktion UploadPDF<\/b> (siehe Listing 4). Diese nimmt den Pfad der hochzuladenden Datei sowie die bereits von der Funktion Request <\/b>bekannten Parameter entgegen. Als Erstes definieren wir mit strBoundary <\/b>eine Zeichenkette, die wir zur Markierung der Daten der hochzuladenden Datei im Request verwenden. Dann erzeugen wir ein Objekt auf Basis der Klasse XMLHTTP60<\/b> und rufen seine Open<\/b>-Methode auf, der wir die URL und die Methode übergeben (hier POST<\/b>).<\/p>\n<\/p>\nDatenmodell für Belege<\/h2>\n
![\"Datenmodell](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_002.png\")
<\/p>\nBelegtyp<\/h2>\n
![\"Belegtypen\"](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_003.png\")
<\/p>\nBelegstatus<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_004.png\")
<\/p>\nSteuertyp<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_005.png\")
<\/p>\nFremdschlüsselfelder der Tabelle tblVoucher<\/h2>\n
Weitere Felder der Tabelle tblVoucher<\/h2>\n
\n
Belegpositionen<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_006.png\")
<\/p>\nBelegkategorien<\/h2>\n
![\"Einträge](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_007.png\")
<\/p>\nKategorien von lexoffice einlesen<\/h2>\n
Public Sub <\/span>GetCategories()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strRequest As String<\/span>\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n Dim <\/span>objJSON As Object<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>strCategoryGUID As String<\/span>\r\n Dim <\/span>strCategory As String<\/span>\r\n Dim <\/span>strType As String<\/span>\r\n Dim <\/span>strContactRequired As String<\/span>\r\n Dim <\/span>strSplitAllowed As String<\/span>\r\n Dim <\/span>strGroupName As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strURL = \"https:\/\/api.lexoffice.io\/v1\/posting-categories\"\r\n If <\/span>Request(strURL, \"GET\", strRequest, strResponse, \"\", \"\", 0) = True<\/span> Then<\/span>\r\n Set<\/span> objJSON = ParseJson(strResponse)\r\n db.Execute \"DELETE FROM tblCategories\", dbFailOnError\r\n For i = 1 To objJSON.Count\r\n strCategoryGUID = objJSON.Item(i).Item(\"id\")\r\n strCategory = objJSON.Item(i).Item(\"name\")\r\n strType = objJSON.Item(i).Item(\"type\")\r\n strContactRequired = IIf(objJSON.Item(i).Item(\"contactRequired\") = \"Wahr\", -1, 0)\r\n strSplitAllowed = IIf(objJSON.Item(i).Item(\"splitAllowed\") = \"Wahr\", -1, 0)\r\n strGroupName = objJSON.Item(i).Item(\"groupName\")\r\n db.Execute \"INSERT INTO tblCategories(CategoryGUID, Category, Type, ContactRequired, SplitAllowed, \" _\r\n & \"GroupName) VALUES(''\" & strCategoryGUID & \"'', ''\" & strCategory & \"'', ''\" & strType & \"'', \" _\r\n & strContactRequired & \", \" & strSplitAllowed & \", ''\" & strGroupName & \"'')\", dbFailOnError\r\n Next<\/span> i\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nhttps:\/\/api.lexoffice.io\/v1\/posting-categories<\/pre>\n
Formulare zur Eingabe der Belege und Belegpositionen<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_008.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2023_04\/pic_1447_009.png\")
<\/p>\nHinweis auf die Steuerart<\/h2>\n
Private Sub <\/span>cboTaxTypeID_AfterUpdate()\r\n If <\/span>Me!TaxTypeID = 1 Then<\/span>\r\n Me!txtTaxTypeRemark = _\r\n \"TaxType Netto: Amount ist der Netto-Betrag.\"\r\n Else<\/span>\r\n Me!txtTaxTypeRemark = _\r\n \"TaxType Brutto: Amount ist der Brutto-Betrag.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n cboTaxTypeID_AfterUpdate\r\nEnd Sub<\/span><\/pre>\nDatei auswählen<\/h2>\n
Private Sub <\/span>cmdDateiauswahl_Click()\r\n Me!Filename = mdlTools.DateiOeffnen()\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>DateiOeffnen() As String<\/span>\r\n Dim <\/span>objFiledialog As <\/span>Office.FileDialog\r\n Set<\/span> objFiledialog = _\r\n Application.FileDialog(msoFileDialogFilePicker)\r\n objFiledialog.InitialFileName = _\r\n CurrentProject.Path & \"\\\"\r\n objFiledialog.Filters.Clear\r\n objFiledialog.Filters.Add \"PDF\", \"*.pdf\"\r\n If <\/span>objFiledialog.Show = True<\/span> Then<\/span>\r\n DateiOeffnen = objFiledialog.SelectedItems(1)\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nBeleg nach lexoffice übertragen<\/h2>\n
Private Sub <\/span>cmdBelegNachLexoffice_Click()\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strMethod As String<\/span>\r\n Dim <\/span>strRequest As String<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n Dim <\/span>objJSON As Object<\/span>\r\n Dim <\/span>strID As String<\/span>\r\n Dim <\/span>rstVoucherItems As <\/span>DAO.Recordset\r\n Dim <\/span>strVoucherItems As String<\/span>\r\n Dim <\/span>strFileID As String<\/span>\r\n If <\/span>Nz(DLookup(\"LexofficeID\", \"tblContacts\", \"ContactID = \" & Me!ContactID), \"\") = \"\" Then<\/span>\r\n MsgBox<\/span> \"Der Kontakt muss erst noch nach Lexoffice übertragen werden.\"\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n strURL = \"https:\/\/api.lexoffice.io\/v1\/vouchers\"\r\n strMethod = \"POST\"\r\n If <\/span>Not<\/span> Len<\/span>(Nz(Me!Filename, \"\")) = 0 Then<\/span>\r\n If <\/span>UploadPDF(Me!Filename, \"\", strResponse) Then<\/span>\r\n Set<\/span> objJSON = ParseJson(strResponse)\r\n strFileID = objJSON.Item(\"id\")\r\n End If<\/span>\r\n End If Set<\/span> rstVoucherItems = Me.sfmVouchers.Form.RecordsetClone\r\n strRequest = strRequest & \"{\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"type\"\": \"\"\" & DLookup(\"VoucherType\", \"tblVoucherTypes\", \"VoucherTypeID = \" _\r\n & Me!cboVoucherTypeID) & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"voucherNumber\"\": \"\"\" & Me!VoucherNumber & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"voucherDate\"\": \"\"\" & Format(Me!VoucherDate, \"YYYY-MM-DD\") & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"shippingDate\"\": \"\"\" & Format(Me!ShippingDate, \"YYYY-MM-DD\") & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"dueDate\"\": \"\"\" & Format(Me!DueDAte, \"YYYY-MM-DD\") & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"totalGrossAmount\"\": \"\"\" & Replace<\/span>(Me!TotalGrossAmount, \",\", \".\") & \"\"\",\" _\r\n & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"totalTaxAmount\"\": \"\"\" & Replace<\/span>(Me!TotalTaxAmount, \",\", \".\") & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"taxType\"\": \"\"\" & DLookup(\"TaxType\", \"tblTaxTypes\", \"TaxTypeID = \" & Me!TaxTypeID) _\r\n & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"useCollectiveContact\"\": \"\"\" & IIf(Me!UseCollectiveContact, \"true\", \"false\") _\r\n & \"\"\",\" & vbCrLf<\/span>\r\n If <\/span>Not<\/span> Me!UseCollectiveContact Then<\/span>\r\n strRequest = strRequest & \" \"\"contactId\"\": \"\"\" & DLookup(\"LexOfficeID\", \"tblContacts\", \"ContactID = \" _\r\n & Me!ContactID) & \"\"\",\" & vbCrLf<\/span>\r\n End If<\/span>\r\n strRequest = strRequest & \" \"\"remark\"\": \"\"\" & Me.Remark & \"\"\",\" & vbCrLf<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(strFileID) = 0 Then<\/span>\r\n strRequest = strRequest & \" \"\"files\"\": [\"\"\" & strFileID & \"\"\"],\" & vbCrLf<\/span>\r\n End If<\/span>\r\n ...<\/pre>\nURL, Methode und Upload des Belegs<\/h2>\n
Zusammenstellen des JSON-Dokuments für den Requests <\/h2>\n
Belegpositionen eintragen<\/h2>\n
...\r\n strRequest = strRequest & \" \"\"voucherItems\"\": [\" & vbCrLf<\/span>\r\n rstVoucherItems.MoveFirst\r\n Do While<\/span> Not<\/span> rstVoucherItems.EOF\r\n strVoucherItems = strVoucherItems & \" {\" & vbCrLf<\/span>\r\n strVoucherItems = strVoucherItems & \" \"\"amount\"\": \"\"\" & Replace<\/span>(rstVoucherItems!Amount, \",\", \".\") _\r\n & \"\"\",\" & vbCrLf<\/span>\r\n strVoucherItems = strVoucherItems & \" \"\"taxAmount\"\": \"\"\" & Replace<\/span>(rstVoucherItems!TaxAmount, \",\", \".\") _\r\n & \"\"\",\" & vbCrLf<\/span>\r\n strVoucherItems = strVoucherItems & \" \"\"taxRatePercent\"\": \"\"\" & rstVoucherItems!TaxRatePercent * 100 _\r\n & \"\"\",\" & vbCrLf<\/span>\r\n strVoucherItems = strVoucherItems & \" \"\"categoryId\"\": \"\"\" & rstVoucherItems!CategoryID & \"\"\"\" & vbCrLf<\/span>\r\n strVoucherItems = strVoucherItems & \" },\" & vbCrLf<\/span>\r\n rstVoucherItems.MoveNext<\/span>\r\n Loop<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(strVoucherItems) = 0 Then<\/span>\r\n strVoucherItems = Left<\/span>(strVoucherItems, Len<\/span>(strVoucherItems) - 3) & vbCrLf<\/span>\r\n End If<\/span>\r\n strRequest = strRequest & strVoucherItems\r\n strRequest = strRequest & \" ]\" & vbCrLf<\/span>\r\n strRequest = strRequest & \"}\" & vbCrLf<\/span>\r\n Inzwischenablage strRequest\r\n If <\/span>Request(strURL, strMethod, strRequest, strResponse, \"tblVouchers\", \"VoucherID\", Me!VoucherID) = True<\/span> Then<\/span>\r\n Set<\/span> objJSON = ParseJson(strResponse)\r\n GetJSONDOM strResponse, False, False<\/span>\r\n strID = objJSON.Item(\"id\")\r\n Me!LexOfficeID = strID\r\n MsgBox<\/span> \"Rechnung angelegt.\" & vbCrLf<\/span> & \"ID: \" & strID\r\n Else<\/span>\r\n MsgBox<\/span> \"Rechnung nicht angelegt. Antwort in Zwischenablage .\"\r\n Inzwischenablage strResponse\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nHochladen des Belegdokuments<\/h2>\n
Function <\/span>UploadPDF(strPath As String<\/span>, strRequest As String<\/span>, strResponse As String<\/span>, Optional<\/span> strTabelle As String<\/span>, _\r\n Optional<\/span> strPK As String<\/span>, Optional<\/span> lngID As Long<\/span>) As Boolean<\/span>\r\n Dim <\/span>objXMLHTTP As <\/span>MSXML2.XMLHTTP60\r\n Dim <\/span>strBoundary As String<\/span>\r\n Dim <\/span>strMessage As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>objJSON As Object<\/span>\r\n strBoundary = \"--1234567890\"\r\n Set<\/span> objXMLHTTP = New<\/span> MSXML2.XMLHTTP60\r\n With<\/span> objXMLHTTP\r\n .Open \"POST\", \"https:\/\/api.lexoffice.io\/v1\/files\", False<\/span>\r\n .setRequestHeader \"Content-Type\", \"multipart\/form-data; boundary=\" & strBoundary\r\n .setRequestHeader \"Authorization\", \"Bearer \" + cstrAPIKey\r\n .setRequestHeader \"Accept\", \"application\/json\"\r\n .send CreateBody(strPath, strBoundary)\r\n Select Case <\/span>.status\r\n Case <\/span>200, 201, 202\r\n strResponse = .responseText\r\n UploadPDF =