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
(PureBasic) Xero Get a Filtered Set of Resources (Get all SALES Accounts)Demonstrates how to add the "where" parameter to get a filtered set of resources. See Get Filtered Resources. This example gets the accounts where the Type = "SALES". Note: Requires Chilkat v9.5.0.64 or greater.
IncludeFile "CkXml.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkRest.pb" Procedure ChilkatExample() ; 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. rest.i = CkRest::ckCreate() If rest.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success.i ; 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.. ; ------------------------------------------------------------ ; Add the "where" parameter. CkRest::ckAddQueryParam(rest,"where","Type==" + Chr(34) + "SALES" + Chr(34)) ; Get the full list of accounts. sbXml.i = CkStringBuilder::ckCreate() If sbXml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkRest::ckFullRequestNoBodySb(rest,"GET","/api.xro/2.0/Accounts",sbXml) If success <> 1 Debug CkRest::ckLastErrorText(rest) CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbXml) ProcedureReturn EndIf ; A 200 response is expected for actual success. If CkRest::ckResponseStatusCode(rest) <> 200 Debug CkStringBuilder::ckGetAsString(sbXml) CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbXml) ProcedureReturn EndIf ; Iterate over the accounts and get some information.. bAutoTrim.i = 0 xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::ckLoadSb(xml,sbXml,bAutoTrim) ; How many accounts exist? numAccounts.i = CkXml::ckNumChildrenAt(xml,"Accounts") Debug "numAccounts = " + Str(numAccounts) i.i = 0 While i < numAccounts CkXml::setCkI(xml, i) Debug "AccountID: " + CkXml::ckGetChildContent(xml,"Accounts|Account[i]|AccountID") Debug "Name: " + CkXml::ckGetChildContent(xml,"Accounts|Account[i]|Name") Debug "Code: " + Str(CkXml::ckGetChildIntValue(xml,"Accounts|Account[i]|Code")) Debug "EnablePaymentsToAccount: " + Str(CkXml::ckGetChildBoolValue(xml,"Accounts|Account[i]|EnablePaymentsToAccount")) Debug "----" i = i + 1 Wend CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbXml) CkXml::ckDispose(xml) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.