<\/p>\n
lexoffice ist ein Online-Buchhaltungsdienst, der es Unternehmen ermöglicht, Rechnungen, Bestellungen und Bankkonten zu verwalten und Berichte zu erstellen. Der Service bietet ein einfaches Dashboard, mit dem Benutzer Geschäftsinformationen leicht auffinden und mit wenigen Klicks auswerten können. Rechnungen lassen sich online oder über die mobile App erstellen, Umsätze auf Bank- oder Paypalkonten liest lexoffice automatisch ein und es ermöglicht die Zuordnung von Ein- und Ausgangsrechnungen zu den Umsätzen. Aber das Beste ist: lexoffice bietet eine REST-API-Schnittstelle, die wir von einer Access-Datenbank aus per VBA ansteuern können. Grund genug, diese Schnittstelle einmal genauer anzusehen!<\/b><\/p>\nVon Access zu lexoffice<\/h2>\n
Die besten Beiträge schreibt das Leben, und so ist auch für die Entstehung dieses Beitrags ein Schritt des Autors für das aktuelle Thema verantwortlich. Die Buchhaltung soll umgezogen werden, um den aktuellen Randparametern gerecht zu werden – zum Beispiel den Grundsätzen ordnungsgemäßer Führung und Aufbewahrung von Büchern, Aufzeichnungen und Unterlagen in elektronischer Form sowie zum Datenzugriff (GoBD<\/b>). Als Werkzeug für diese Aufgaben haben wir lexoffice <\/b>ausgewählt.<\/p>\n
Damit entstehen einige Aufgaben:<\/p>\n
Wie bei den meisten API, auf die wir von außerhalb zugreifen wollen, benötigen wir auch hier eine Möglichkeit zur Authentifizierung.<\/p>\n
Dazu legen wir in lexoffice<\/b> zunächst einen persönlichen Schlüssel an. Um das zu erledigen, rufen wir nach dem Einloggen in unseren Account bei lexware den folgenden Link auf:<\/p>\n Damit landen wir auf einer Seite, wo wir per Mausklick einen passenden Schlüssel erstellen können (siehe Bild 1). Anschließend stimmen wir den Nutzungsbedingungen zu und erstellen den Schlüssel.<\/p>\n Bild 1: Anfordern eines persönlichen Schlüssels für die REST-Api<\/span><\/b><\/p>\n Im nächsten Schritt zeigt lexoffice<\/b> den Schlüssel bereits an und bietet die Möglichkeit, diesen per Schaltfläche in die Zwischenablage zu kopieren (siehe Bild 2).<\/p>\n Bild 2: Kopieren des Schlüssels in die Zwischenablage<\/span><\/b><\/p>\n Um diesen dauerhaft zu sichern, legen wir in einem neuen VBA-Modul eine Konstante mit diesem Schlüssel an:<\/p>\n Anschließend schließen wir den Dialog.<\/p>\n Für die nachfolgend vorgestellten VBA-Routinen benötigen wir im VBA-Projekt zusätzliche Verweise. Diese legen wir über den Verweise<\/b>-Dialog an, den wir nach dem Aktivieren des VBA-Editors mit Extras|Verweise <\/b>öffnen (siehe Bild 3).<\/p>\n Bild 3: Verweise im VBA-Projekt<\/span><\/b><\/p>\n Wir benötigen die folgenden zusätzlichen Verweise:<\/p>\n Wir verwenden eine Basisfunktion für den Zugriff auf die REST-API von lexoffice. Diese erwartet die folgenden Parameter:<\/p>\n Die Funktion Request aus Listing 1 erstellt ein neues Objekt des Typs XMLHTTP60<\/b>, mit dem wir auf die REST-API zugreifen. Dabei rufen wir als Erstes die Open<\/b>-Methode auf, der wir die Werte der Parameter strMethod <\/b>und strURL <\/b>übergeben sowie für den dritten Parameter den Wert False<\/b>. Damit geben wir an, dass der Aufruf asynchron erfolgen soll. Die folgenden Anweisungen stellen die Header für den Aufruf ein, unter anderem das Format für die hin- und herzuschickenden Daten (JSON) sowie für die Autorisierung für den Zugriff auf die Daten unseres Kontos bei lexoffice<\/b>. Hier übergeben wir einen Ausdruck, der aus dem Text Bearer <\/b>und dem zuvor ermittelten API-Schlüssel besteht. Die send<\/b>-Methode schickt die Anfrage schließlich an die REST-API. Sie erhält noch die in strRequest<\/b> angegebenen zusätzlichen Daten für die Anfrage.<\/p>\n Listing 1: Basisfunktion für den Zugriff auf die REST-API von lexware<\/span><\/b><\/p>\n Liefert die Anfrage mit der Eigenschaft status den Wert 200 zurück, war die Anfrage erfolgreich. Dann erhält die Request<\/b>-Funktion als Rückgabewert den Wert True <\/b>und wir füllen den Parameter strResponse <\/b>mit der in der Eigenschaft responseText <\/b>enthaltenen JSON-Antwort.<\/p>\n Anderenfalls gibt die Funktion die Fehlernummer und den Statustext in einem Meldungsfenster aus.<\/p>\n Als Fingerübung fragen wir als Erstes alle Kundendaten ab. Dazu verwenden wir einen Aufruf der Funktion Request <\/b>mit der folgenden URL:<\/p>\n Nach dem Aufruf der Funktion Request <\/b>geben wir den Inhalt von strResponse <\/b>im Direktbereich des VBA-Editors aus und speichern das Ergebnis einer Funktion namens GetJSONDOM <\/b>mit der Hilfsfunktion Zwischenablage <\/b>aus dem Modul mdlZwischenablage <\/b>in der Zwischenablage:<\/p>\n Mit der Response allein können wir nicht viel anfangen. Diese sieht in gekürzter Form wie folgt aus:<\/p>\n Die Funktion GetJSONDOM <\/b>haben wir im Rahmen des Beitrags JSON-Daten auslesen <\/b>(www.access-im-unternehmen.de\/1403<\/b>) entwickelt. Sie gibt die im JSON-Dokument enthaltenen Daten wie in Listing 2 aus.<\/p>\n Listing 2: Ausgabe für den Zugriff auf die Daten einer JSON-Antwort<\/span><\/b><\/p>\n Diese Ausgabe dient als Vorlage für das systematische Durchlaufen der Daten, die zu diesem Zweck in ein Objektmodell bestehend aus Collections und Dictionaries überführt wurde – mehr dazu im oben genannten Beitrag. Um beispielsweise die E-Mail-Adressen aller Kunden im Direktbereich auszugeben, benötigen wir damit nur noch die folgenden Zeilen zur Prozedur FilteringContacts_All <\/b>hinzuzufügen – und zwar als letzte Zeile innerhalb der If…Then<\/b>-Bedingung:<\/p>\n Die Ausgabe der Nachnamen aller Personen würde dann wie folgt geschehen:<\/p>\n Die Prozedur speichert das Objektmodell des JSON-Dokuments als Struktur aus Dictionaries und Collections, auf die wir über die entsprechenden Auflistungen zugreifen können. Jedes content<\/b>-Element enthält einen der Kontakte. Diese durchlaufen wir in einer For Each<\/b>-Schleife und referenzieren das content<\/b>-Element dabei mit der Variablen objContact<\/b>.<\/p>\n Über dieses können wir dann beispielsweise mit dem Ausdruck objContact.Item(„person“).Item(„lastName“) <\/b>auf den Nachnamen der Person zugreifen. Da nicht sichergestellt ist, dass diese Eigenschaft für jeden Kontakt existiert, haben wir für den Zugriff die eingebaute Fehlerbehandlung deaktiviert. Damit können wir nun alle Kontakte und die vorhandenen Eigenschaften durchlaufen und diese beispielsweise in einer Tabelle der Datenbank speichern.<\/p>\n Wenn Sie nicht alle Kontakte auslesen wollen, sondern nur einen bestimmten, können Sie verschiedene Kriterien verwenden. Eines davon ist die E-Mail-Adresse. In der Prozedur FilteringContacts_ByEMail<\/b>, die Sie im Modul mdlLexOffice <\/b>finden, fügen wir dazu an die URL noch einen Filterparameter an:<\/p>\n Dies liefert alle Kunden mit der E-Mail-Adresse andre@minhorst.com<\/b>. Wir können die folgenden Vergleichsfelder nutzen:<\/p>\n Die Dokumentation des passenden API-Befehls finden Sie unter folgender URL:<\/p>\n Wenn wir beispielsweise nach dem Namen filtern wollen und dieser Sonderzeichen enthält wie in André, dann müssen wir diesen zuvor enkodieren. Funktionen dazu stellen wir im Beitrag URLs kodieren per VBA <\/b>(www.access-im-unternehmen.de\/1423<\/b>) vor.<\/p>\n Zur Verwendung der dortigen Funktion URLEncode_UTF8 <\/b>benötigen wir noch einen Verweis auf die Bibliothek Microsoft ActiveX Data Objects 6.1 Library<\/b>.<\/p>\n Die URL stellen wir dann wie folgt zusammen:<\/p>\n Wir können auch nach der ID eines Kontakts filtern, der in der Eigenschaft id <\/b>gespeichert ist. Diesen übergeben wir ohne Feldname, also beispielsweise wie folgt:<\/p>\n Hier ist jedoch zu beachten, dass keine Liste von Kontakten zurückgeliefert wird, sondern nur das Kontakt-Objekt selbst. Wir würden also nicht wie zuvor auf den Kontakt zugreifen:<\/p>\n Stattdessen greifen wir so darauf zu:<\/p>\n Das JSON-Dokument ist in diesem Fall anders strukturiert, als wenn wir auf alle Kontakte zugreifen oder gefiltert nach der E-Mail-Adresse. Um die Daten aus dem JSON-Dokument auszulesen, kann man sich die Struktur für den Zugriff mit der Funktion GetJSONDOM <\/b>ansehen.<\/p>\n Die Dokumentation des passenden API-Befehls finden Sie unter folgender URL:<\/p>\n Damit nähern wir uns der eigentlichen Aufgabe: Wir wollen die Kundendaten aus unserer Bestellverwaltung nach lexoffice <\/b>übertragen. Dazu nutzen wir wieder die gleiche URL, diesmal allerdings mit der Methode POST<\/b>. Außerdem müssen wir mit dem Parameter strRequest <\/b>ein JSON-Dokument übergeben, welches die Daten des anzulegenden Kontakts enthält.<\/p>\n Hinzu kommt, dass wir eine Verbindung zwischen dem Kundendatensatz in unserer Rechnungsverwaltung und dem Kontakt in lexoffice <\/b>herstellen wollen. lexoffice <\/b>erlaubt leider keine Übermittlung der Kundennummer und erstellt eine eigene Kundennummer. Also bleibt als einzige Möglichkeit, eine Verbindung zwischen dem Kontakt in lexoffice <\/b>und dem Kundendatensatz in der Datenbank herzustellen, das Auslesen der ID des Kontakts beim Anlegen und das Speichern dieser ID in der Kundentabelle. Dazu hinterlegen wir in der Kundentabelle ein Feld namens LexOfficeID<\/b>. Nun gibt es verschiedene Möglichkeiten, einen Kontakt anzulegen – und zwar als Person oder als Firma. Wir haben dafür jeweils eine eigene Funktion entwickelt, damit die Funktionen nicht zu aufgebläht werden.<\/p>\n Die erste Funktion heißt AddOrUpdateContact_Person<\/b> (erster Teil in Listing 3). Sie erwartet die Daten der Person (Anrede, Vorname, Nachname), die Daten einer Zahlungs- und einer Lieferadresse (wenn identisch, geben wir einfach zwei Mal die gleichen Parameter an) sowie E-Mail, Telefon und Kundennummer aus der Datenbank. Die Funktion prüft nicht, ob leere Zeichenketten für Parameter übergeben wurden, aber die meisten Parameter sind Pflichtparameter. Wenn regelmäßig verschiedene Daten nicht vorhanden sind, sollten Sie abfragen, ob die jeweiligen Parameter leer sind und gegebenenfalls die betroffenen Elemente weglassen, wenn möglich.<\/p>\n [<\/p>\n Listing 3: Anlegen oder Aktualisieren eines Kontakts, Teil 1<\/span><\/b><\/p>\n Die Funktion schreibt zunächst die URL in die Variable strURL <\/b>und prüft dann, ob der Parameter strID <\/b>einen Wert enthält oder eine leere Zeichenkette. strID <\/b>soll, wenn der Kontakt bereits einmal angelegt wurde, im Feld LexOfficeID <\/b>der Kundentabelle gespeichert werden.<\/p>\n Dieser wird dann statt einer leeren Zeichenkette für den letzten Parameter strID <\/b>übergeben und bewirkt, dass in diesem Fall in lexoffice <\/b>der entsprechende Kontakt mit neuen Daten überschrieben werden soll. Dafür gibt es einige Einschränkungen, die Sie der entsprechenden Stelle der Dokumentation entnehmen können:<\/p>\n Ist strID <\/b>nicht gefüllt, verwenden wir als Methode POST <\/b>– dies legt ein neues Element an – oder PUT <\/b>zum Aktualisieren des vorhandenen Elements. Ist strID <\/b>vorhanden, wird es außerdem an strURL <\/b>angehängt, sodass der Link beispielsweise wie folgt aussieht:<\/p>\n Danach beginnt, wie in Listing 4 abgebildet, das Zusammenstellen des als Body übergebenen JSON-Dokuments mit dem Request in der Variablen strRequest<\/b>. Hier fügen wir zuerst die Version hinzu, die für ein neues Element auf 0 <\/b>eingestellt wird. Für ein vorhandenes Element müssen wir zuvor mit einer weiteren Funktion die aktuelle Version für dieses Element ermitteln, die bei jeder Änderung um 1 <\/b>erhöht wird. Die Version holen wir mit der Funktion GetContactVersion<\/b>, der wir ebenfalls die ID aus strID <\/b>übergeben.<\/p>\n Listing 4: Anlegen oder Aktualisieren eines Kontakts, Teil 2<\/span><\/b><\/p>\n Diese Funktion sieht wie folgt aus. Sie übergibt der URL https:\/\/api.lexoffice.io\/v1\/contacts\/ <\/b>die ID und liest aus dem JSON-Dokument den Wert des Feldes version <\/b>aus:<\/p>\nhttps:\/\/app.lexoffice.de\/addons\/public-api<\/pre>\n
![\"Anfordern](\"..\/fileadmin\/_temp_\/2023_02\/pic_1422_001.png\")
<\/p>\n![\"Kopieren](\"..\/fileadmin\/_temp_\/2023_02\/pic_1422_002.png\")
<\/p>\nPublic <\/span>Const cstrAPIKey As String<\/span> = \"xxxxxxxxxxx-xxxxxxxx-xxxx\"<\/pre>\nDatenbank vorbereiten<\/h2>\n
![\"Verweise](\"..\/fileadmin\/_temp_\/2023_02\/pic_1422_003.png\")
<\/p>\n\n
Basisfunktion zum Senden von Anfragen an lexoffice<\/h2>\n
\n
Public Function <\/span>Request(strRequest As String<\/span>, strURL As String<\/span>, strMethod As String<\/span>, strResponse As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>objXMLHTTP As <\/span>MSXML2.XMLHTTP60\r\n Set<\/span> objXMLHTTP = New<\/span> MSXML2.XMLHTTP60\r\n With<\/span> objXMLHTTP\r\n .Open strMethod, strURL, False<\/span>\r\n .setRequestHeader \"Content-Type\", \"application\/json\"\r\n .setRequestHeader \"Accept\", \"application\/json\"\r\n .setRequestHeader \"Authorization\", \"Bearer \" + cstrAPIKey\r\n .send strRequest\r\n Select Case <\/span>.status\r\n Case <\/span>200\r\n Request = True<\/span>\r\n strResponse = .responseText\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler beim Request:\" & vbCrLf<\/span> & .statusText & vbCrLf<\/span> & .responseText\r\n End Select<\/span>\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\nKundendaten abfragen<\/h2>\n
https:\/\/api.lexoffice.io\/v1\/contacts<\/pre>\n
Public Sub <\/span>FilteringContacts_All()\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 strURL = \"https:\/\/api.lexoffice.io\/v1\/contacts\"\r\n If Request(strURL, \"GET\", strRequest, _\r\n strResponse) = True<\/span> Then\r\n Debug.Print<\/span> strResponse\r\n InZwischenablage GetJSONDOM(strResponse, _\r\n True, True<\/span>)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n{\"content\":[{\"id\":\"3a856a88-ee3a-421a-9850-1fce2d01c8f0\",\"organizationId\":\"dd8bf92c-43e5-41bf-a57a-ba7b33eb980f\",\"version\":4,\"roles\":{\"customer\":{\"number\":10001}},\"person\":{\"salutation\":\"Herr\",\"firstName\":\"André\",\"lastName\":\"Minhorst\"},\"addresses\":{\"billing\":[{\"supplement\":\"\",\"street\":\"Borkhofer Str. 17\",\"zip\":\"47137\",\"city\":\"Duisburg\",\"countryCode\":\"DE\"}],\"shippin\r\ng\":[{\"supplement\":\"\",\"street\":\"Borkhofer Str., 17\",\"zip\":\"47137\",\"city\":\"Duisburg\",\"countryCode\":\"DE\"}]},\"emailAddresses\":{\"other\":[\"andre@minhorst.com\"]},\"phoneNumbers\":{\"other\":[\"98989898\"]},\"note\":\"24284\",\"archived\":false},...}<\/pre>\nobjJson.Item(\"content\").Item(3).Item(\"id\"): 3a856a88-ee3a-421a-9850-1fce2d01c8f0\r\nobjJson.Item(\"content\").Item(3).Item(\"organizationId\"): dd8bf92c-43e5-41bf-a57a-ba7b33eb980f\r\nobjJson.Item(\"content\").Item(3).Item(\"version\"): 4\r\nobjJson.Item(\"content\").Item(3).Item(\"roles\").Item(\"customer\").Item(\"number\"): 10001\r\nobjJson.Item(\"content\").Item(3).Item(\"person\").Item(\"salutation\"): Herr\r\nobjJson.Item(\"content\").Item(3).Item(\"person\").Item(\"firstName\"): André\r\nobjJson.Item(\"content\").Item(3).Item(\"person\").Item(\"lastName\"): Minhorst\r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"billing\").Item(1).Item(\"supplement\"): \r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"billing\").Item(1).Item(\"street\"): Borkhofer Str. 17\r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"billing\").Item(1).Item(\"zip\"): 47137\r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"billing\").Item(1).Item(\"city\"): Duisburg\r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"billing\").Item(1).Item(\"countryCode\"): DE\r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"shipping\").Item(1).Item(\"supplement\"): \r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"shipping\").Item(1).Item(\"street\"): Borkhofer Str., 17\r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"shipping\").Item(1).Item(\"zip\"): 47137\r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"shipping\").Item(1).Item(\"city\"): Duisburg\r\nobjJson.Item(\"content\").Item(3).Item(\"addresses\").Item(\"shipping\").Item(1).Item(\"countryCode\"): DE\r\nobjJson.Item(\"content\").Item(3).Item(\"emailAddresses\").Item(\"other\").Item(1): andre@minhorst.com\r\nobjJson.Item(\"content\").Item(3).Item(\"phoneNumbers\").Item(\"other\").Item(1): 98989898\r\nobjJson.Item(\"content\").Item(3).Item(\"note\"): 24284\r\nobjJson.Item(\"content\").Item(3).Item(\"archived\"): Falsch<\/pre>\n
AusgabeKontakte strResponse<\/pre>\n
Public Sub <\/span>AusgabeKontakte(strJSON As String<\/span>)\r\n Dim <\/span>objJSON As Object<\/span>\r\n Dim <\/span>objContact As Object<\/span>\r\n Set<\/span> objJSON = ParseJson(strJSON)\r\n For Each objContact In objJSON.Item(\"content\")\r\n On Error Resume Next<\/span>\r\n Debug.Print<\/span> objContact.Item(\"person\").Item(\"lastName\")\r\n On Error GoTo<\/span> 0\r\n Next<\/span> objContact\r\nEnd Sub<\/span><\/pre>\nEinen bestimmten Kontakt auslesen<\/h2>\n
strURL = \"https:\/\/api.lexoffice.io\/v1\/contacts?email=andre@minhorst.com\"<\/pre>\n
\n
https:\/\/developers.lexoffice.io\/docs\/#contacts-endpoint-filtering-contacts<\/pre>\n
strURL = \"https:\/\/api.lexoffice.io\/v1\/contacts?name=\" & URLEncode_UTF8(\"André\")<\/pre>\n
Kontakt nach der ID in lexoffice ermitteln<\/h2>\n
strURL = \"https:\/\/api.lexoffice.io\/v1\/contacts\/xxxxxxxx-ee3a-421a-9850-1fce2d01c8f0\"<\/pre>\n
objJson.Item(\"content\").Item(3).Item(\"person\").Item(\"lastName\")<\/pre>\n
objJSON.Item(\"lastName\")<\/pre>\n
https:\/\/developers.lexoffice.io\/docs\/#contacts-endpoint-retrieve-a-contact<\/pre>\n
Kundendaten aus der Datenbank nach lexoffice übertragen<\/h2>\n
Public Function <\/span>AddOrUpdateContact_Person(strSalutation As String<\/span>, strFirstname As String<\/span>, strLastname As String<\/span>, _\r\n strStreetBilling As String<\/span>, strZipBilling As String<\/span>, strCityBilling As String<\/span>, strCountryCodeBilling As <\/span>_\r\n String, strStreetShipping As String<\/span>, strZipShipping As String<\/span>, strCityShipping As String<\/span>, _\r\n strCountryCodeShipping As String<\/span>, strEMail As String<\/span>, strPhone As String<\/span>, strCustomerID As String<\/span>, _\r\n strID As String<\/span>)\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>strMethod As String<\/span>\r\n Dim <\/span>intVersion As Integer<\/span>\r\n Dim <\/span>objJSON As Object<\/span>\r\n strURL = \"https:\/\/api.lexoffice.io\/v1\/contacts\"\r\n If <\/span>Len<\/span>(strID) = 0 Then<\/span>\r\n strMethod = \"POST\"\r\n Else<\/span>\r\n strMethod = \"PUT\"\r\n strURL = strURL & \"\/\" & strID\r\n End If<\/span>\r\n ...<\/pre>\nKontakt überschreiben<\/h2>\n
https:\/\/developers.lexoffice.io\/docs\/#contacts-endpoint-create-a-contact<\/pre>\n
https:\/\/api.lexoffice.io\/v1\/contacts\/7d64ec31-4ebb-4f1c-9a68-b50718f82efc<\/pre>\n
strRequest = \"{\" & vbCrLf<\/span>\r\n If <\/span>Len<\/span>(strID) = 0 Then<\/span>\r\n strRequest = strRequest & \" \"\"version\"\": 0,\" & vbCrLf<\/span>\r\n Else<\/span>\r\n intVersion = GetContactVersion(strID)\r\n strRequest = strRequest & \" \"\"version\"\": \" & intVersion & \",\" & vbCrLf<\/span>\r\n End If<\/span>\r\n strRequest = strRequest & \" \"\"roles\"\": {\"\"customer\"\": {}},\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"person\"\": {\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"salutation\"\": \"\"\" & strSalutation & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"firstName\"\": \"\"\" & strFirstname & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"lastName\"\": \"\"\" & strLastname & \"\"\"\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" },\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"addresses\"\": {\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"billing\"\": [{\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"supplement\"\": \"\"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"street\"\": \"\"\" & strStreetBilling & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"zip\"\": \"\"\" & strZipBilling & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"city\"\": \"\"\" & strCityBilling & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"countryCode\"\": \"\"\" & strCountryCodeBilling & \"\"\"\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" }],\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"shipping\"\": [{\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"supplement\"\": \"\"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"street\"\": \"\"\" & strStreetShipping & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"zip\"\": \"\"\" & strZipShipping & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"city\"\": \"\"\" & strCityShipping & \"\"\",\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"countryCode\"\": \"\"\" & strCountryCodeShipping & \"\"\"\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" }]\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" },\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"emailAddresses\"\":{\"\"other\"\":[\"\"\" & strEMail & \"\"\"]},\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"phoneNumbers\"\":{\"\"other\"\":[\"\"\" & strPhone & \"\"\"]},\" & vbCrLf<\/span>\r\n strRequest = strRequest & \" \"\"note\"\":\"\"\" & strCustomerID & \"\"\"\" & vbCrLf<\/span>\r\n strRequest = strRequest & \"}\"\r\n If <\/span>Request(strURL, strMethod, strRequest, strResponse) Then<\/span>\r\n Set<\/span> objJSON = mdlJSON.ParseJson(strResponse)\r\n AddOrUpdateContact_Person = True<\/span>\r\n strID = objJSON.Item(\"id\")\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>GetContactVersion(strID As String<\/span>) As Integer<\/span>\r\n Dim <\/span>strRequest As String<\/span>\r\n