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
(VB.NET) Xero Get Accounts using REST APIDemonstrates how to get the Accounts using the Chilkat REST library. Note: Requires Chilkat v9.5.0.64 or greater.
' Note: Requires Chilkat v9.5.0.64 or greater. ' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim rest As New Chilkat.Rest Dim success As Boolean ' Before sending REST API calls, the REST object needs to be ' initialized for OAuth1. ' See Xero 2-Legged OAuth1 Setup for sample code. ' Assuming the REST object's OAuth1 authenticator is setup, and the initial ' connection was made, we may now send REST HTTP requests.. ' Get the full list of accounts. Dim sbXml As New Chilkat.StringBuilder success = rest.FullRequestNoBodySb("GET","/api.xro/2.0/Accounts",sbXml) If (success <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' A 200 response is expected for actual success. If (rest.ResponseStatusCode <> 200) Then Debug.WriteLine(sbXml.GetAsString()) Exit Sub End If ' Iterate over the accounts and get some information.. Dim bAutoTrim As Boolean = False Dim xml As New Chilkat.Xml xml.LoadSb(sbXml,bAutoTrim) xml.SaveXml("qa_cache/xero_accounts.xml") ' How many accounts exist? Dim numAccounts As Integer = xml.NumChildrenAt("Accounts") Debug.WriteLine("numAccounts = " & numAccounts) Dim i As Integer = 0 While i < numAccounts xml.I = i Debug.WriteLine("AccountID: " & xml.GetChildContent("Accounts|Account[i]|AccountID")) Debug.WriteLine("Name: " & xml.GetChildContent("Accounts|Account[i]|Name")) Debug.WriteLine("Code: " & xml.GetChildIntValue("Accounts|Account[i]|Code")) Debug.WriteLine("EnablePaymentsToAccount: " & xml.GetChildBoolValue("Accounts|Account[i]|EnablePaymentsToAccount")) Debug.WriteLine("----") i = i + 1 End While ' The output looks like this: ' numAccounts = 69 ' AccountID: ceef66a5-a545-413b-9312-78a53caadbc4 ' Name: Checking Account ' Code: 90 ' EnablePaymentsToAccount: False ' ---- ' AccountID: 3d09fd49-434d-4c18-a57b-831663ab70d2 ' Name: Savings Account ' Code: 91 ' EnablePaymentsToAccount: False ' ---- ' AccountID: 5f5e1b00-5331-4ee5-bc84-39dbd9a27db3 ' Name: Accounts Receivable ' Code: 120 ' EnablePaymentsToAccount: False ' ---- ' AccountID: b0a23f8d-1b6d-4209-96f9-8046f794e1f4 ' Name: Prepayments ' Code: 130 ' EnablePaymentsToAccount: False ' ---- ' ... ' The xero_accounts.xml file contains data that looks like this: ' <Response xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> ' <Id>409d062b-d3c2-4062-99a6-31b7c1c14662</Id> ' <Status>OK</Status> ' <ProviderName>ChilkatPrivate</ProviderName> ' <DateTimeUTC>2016-11-01T22:30:13.3606258Z</DateTimeUTC> ' <Accounts> ' <Account> ' <AccountID>ceef66a5-a545-413b-9312-78a53caadbc4</AccountID> ' <Code>090</Code> ' <Name>Checking Account</Name> ' <Status>ACTIVE</Status> ' <Type>BANK</Type> ' <TaxType>NONE</TaxType> ' <Class>ASSET</Class> ' <EnablePaymentsToAccount>false</EnablePaymentsToAccount> ' <ShowInExpenseClaims>false</ShowInExpenseClaims> ' <BankAccountNumber>132435465</BankAccountNumber> ' <BankAccountType>BANK</BankAccountType> ' <CurrencyCode>USD</CurrencyCode> ' <ReportingCode>ASS</ReportingCode> ' <ReportingCodeName>Assets</ReportingCodeName> ' <HasAttachments>false</HasAttachments> ' <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC> ' </Account> ' <Account> ' <AccountID>3d09fd49-434d-4c18-a57b-831663ab70d2</AccountID> ' <Code>091</Code> ' <Name>Savings Account</Name> ' <Status>ACTIVE</Status> ' <Type>BANK</Type> ' <TaxType>NONE</TaxType> ' <Class>ASSET</Class> ' <EnablePaymentsToAccount>false</EnablePaymentsToAccount> ' <ShowInExpenseClaims>false</ShowInExpenseClaims> ' <BankAccountNumber>987654321</BankAccountNumber> ' <BankAccountType>BANK</BankAccountType> ' <CurrencyCode>USD</CurrencyCode> ' <ReportingCode>ASS</ReportingCode> ' <HasAttachments>false</HasAttachments> ' <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC> ' </Account> ' ... ' |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.