Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Xojo Plugin) Xero Get AccountsSee more Xero ExamplesDownload Xero accounts information For more information, see https://developer.xero.com/documentation/api/accounts
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim jsonToken As New Chilkat.JsonObject Dim success As Boolean success = jsonToken.LoadFile("qa_data/tokens/xero-access-token.json") If (success = False) Then System.DebugLog(jsonToken.LastErrorText) Return End If http.AuthToken = jsonToken.StringOf("access_token") // Replace the value here with an actual tenant ID obtained from this example: // Get Xero Tenant IDs http.SetRequestHeader "Xero-tenant-id","83299b9e-5747-4a14-a18a-a6c94f824eb7" http.Accept = "application/json" Dim resp As Chilkat.HttpResponse resp = http.QuickRequest("GET","https://api.xero.com/api.xro/2.0/Accounts") If (http.LastMethodSuccess <> True) Then System.DebugLog(http.LastErrorText) Return End If System.DebugLog("Response Status Code: " + Str(resp.StatusCode)) Dim jsonResponse As New Chilkat.JsonObject success = jsonResponse.Load(resp.BodyStr) jsonResponse.EmitCompact = False System.DebugLog(jsonResponse.Emit()) If (resp.StatusCode <> 200) Then System.DebugLog("Failed.") Return End If // Sample output... // (See the parsing code below..) // // Use the this online tool to generate parsing code from sample JSON: // Generate Parsing Code from JSON // { // "Accounts": [ // { // "AccountID": "ebd06280-af70-4bed-97c6-7451a454ad85", // "Code": "091", // "Name": "Business Savings Account", // "Type": "BANK", // "TaxType": "NONE", // "EnablePaymentsToAccount": false, // "BankAccountNumber": "0209087654321050", // "BankAccountType": "BANK", // "CurrencyCode": "NZD" // }, // { // "AccountID": "7d05a53d-613d-4eb2-a2fc-dcb6adb80b80", // "Code": "200", // "Name": "Sales", // "Type": "REVENUE", // "TaxType": "OUTPUT2", // "Description": "Income from any normal business activity", // "EnablePaymentsToAccount": false // } // ] // } // Dim AccountID As String Dim Code As String Dim Name As String Dim Type As String Dim TaxType As String Dim EnablePaymentsToAccount As Boolean Dim BankAccountNumber As String Dim BankAccountType As String Dim CurrencyCode As String Dim Description As String Dim i As Int32 i = 0 Dim count_i As Int32 count_i = jsonResponse.SizeOfArray("Accounts") While i < count_i jsonResponse.I = i AccountID = jsonResponse.StringOf("Accounts[i].AccountID") Code = jsonResponse.StringOf("Accounts[i].Code") Name = jsonResponse.StringOf("Accounts[i].Name") Type = jsonResponse.StringOf("Accounts[i].Type") TaxType = jsonResponse.StringOf("Accounts[i].TaxType") EnablePaymentsToAccount = jsonResponse.BoolOf("Accounts[i].EnablePaymentsToAccount") BankAccountNumber = jsonResponse.StringOf("Accounts[i].BankAccountNumber") BankAccountType = jsonResponse.StringOf("Accounts[i].BankAccountType") CurrencyCode = jsonResponse.StringOf("Accounts[i].CurrencyCode") Description = jsonResponse.StringOf("Accounts[i].Description") i = i + 1 Wend |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.