![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Datev - Get a List of ClientsSee more Datev ExamplesDemonstrates how to get a list of clients in the accounting:clients Datev API.Note: This example requires Chilkat v10.1.3 or greater. For more information, see https://developer.datev.de/en/product-detail/accounting-clients/2.0/reference/reference-api-overview/accountingclients/clients-get
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = CreateObject("Chilkat.Http") ' Implements the following CURL command: ' curl --request GET \ ' --url "https://accounting-clients.api.datev.de/platform/v2/clients?filter=REPLACE_THIS_VALUE&skip=REPLACE_THIS_VALUE&top=REPLACE_THIS_VALUE" \ ' --header "Authorization: Bearer REPLACE_BEARER_TOKEN" \ ' --header "X-Datev-Client-ID: clientId" \ ' --header "accept: application/json;charset=utf-8" ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set queryParams = CreateObject("Chilkat.JsonObject") ' ignore = queryParams.UpdateString("filter","REPLACE_THIS_VALUE"); ' ignore = queryParams.UpdateString("skip","REPLACE_THIS_VALUE"); ' ignore = queryParams.UpdateString("top","REPLACE_THIS_VALUE"); ' Adds the "Authorization: Bearer REPLACE_BEARER_TOKEN" header. http.AuthToken = "REPLACE_BEARER_TOKEN" http.SetRequestHeader "accept","application/json;charset=utf-8" http.SetRequestHeader "X-Datev-Client-ID","DATEV_CLIENT_ID" ' resp is a Chilkat.HttpResponse Set resp = http.QuickRequestParams("GET","https://accounting-clients.api.datev.de/platform-sandbox/v2/clients",queryParams) If (http.LastMethodSuccess = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If outFile.WriteLine(resp.StatusCode) outFile.WriteLine(resp.BodyStr) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonArray") set jarr = CreateObject("Chilkat.JsonArray") ' Insert code here to load the above JSON array into the jarr object. success = jarr.Load(resp.BodyStr) i = 0 count_i = jarr.Size Do While i < count_i ' json is a Chilkat.JsonObject Set json = jarr.ObjectAt(i) client_number = json.IntOf("client_number") consultant_number = json.IntOf("consultant_number") id = json.StringOf("id") name = json.StringOf("name") j = 0 count_j = json.SizeOfArray("services") Do While j < count_j json.J = j name = json.StringOf("services[j].name") k = 0 count_k = json.SizeOfArray("services[j].scopes") Do While k < count_k json.K = k strVal = json.StringOf("services[j].scopes[k]") k = k + 1 Loop j = j + 1 Loop i = i + 1 Loop outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.