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
(PowerBuilder) 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.
integer li_rc oleobject loo_Rest integer li_Success oleobject loo_SbXml integer li_BAutoTrim oleobject loo_Xml integer li_NumAccounts integer i // 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. loo_Rest = create oleobject li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.Rest") if li_rc < 0 then destroy loo_Rest MessageBox("Error","Connecting to COM object failed") return end if // 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. loo_Rest.AddQueryParam("where","Type==\"SALES\"") // Get the full list of accounts. loo_SbXml = create oleobject li_rc = loo_SbXml.ConnectToNewObject("Chilkat_9_5_0.StringBuilder") li_Success = loo_Rest.FullRequestNoBodySb("GET","/api.xro/2.0/Accounts",loo_SbXml) if li_Success <> 1 then Write-Debug loo_Rest.LastErrorText destroy loo_Rest destroy loo_SbXml return end if // A 200 response is expected for actual success. if loo_Rest.ResponseStatusCode <> 200 then Write-Debug loo_SbXml.GetAsString() destroy loo_Rest destroy loo_SbXml return end if // Iterate over the accounts and get some information.. li_BAutoTrim = 0 loo_Xml = create oleobject li_rc = loo_Xml.ConnectToNewObject("Chilkat_9_5_0.Xml") loo_Xml.LoadSb(loo_SbXml,li_BAutoTrim) // How many accounts exist? li_NumAccounts = loo_Xml.NumChildrenAt("Accounts") Write-Debug "numAccounts = " + string(li_NumAccounts) i = 0 do while i < li_NumAccounts loo_Xml.I = i Write-Debug "AccountID: " + loo_Xml.GetChildContent("Accounts|Account[i]|AccountID") Write-Debug "Name: " + loo_Xml.GetChildContent("Accounts|Account[i]|Name") Write-Debug "Code: " + string(loo_Xml.GetChildIntValue("Accounts|Account[i]|Code")) Write-Debug "EnablePaymentsToAccount: " + string(loo_Xml.GetChildBoolValue("Accounts|Account[i]|EnablePaymentsToAccount")) Write-Debug "----" i = i + 1 loop destroy loo_Rest destroy loo_SbXml destroy loo_Xml |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.