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 Create New AccountsDemonstrates how to create a new account in Xero. Note: Requires Chilkat v9.5.0.64 or greater.
IncludeFile "CkXml.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkHashtable.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.. ; -------------------------------------------------------------- ; To add certain accounts, we need a unique Code that hasn't yet been used. ; Chilkat provided an example to download and save the Accounts data. ; We can load this data into a hashtable to help us find an unused Code. ; See Hash Xero Account Codes to see how this file was created. sbAccounts.i = CkStringBuilder::ckCreate() If sbAccounts.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkStringBuilder::ckLoadFile(sbAccounts,"qa_cache/xero_accounts_by_code.xml","utf-8") If Not success Debug "failed to load xero_accounts_by_code.xml" CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbAccounts) ProcedureReturn EndIf htAccounts.i = CkHashtable::ckCreate() If htAccounts.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkHashtable::ckAddFromXmlSb(htAccounts,sbAccounts) ; -------------------------------------------------------------- ; Build the request XML to create a Xero sales account. ; Find an unused Code... code.i = 600 While CkHashtable::ckContainsIntKey(htAccounts,code) = 1 code = code + 1 Wend xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(xml, "Account") CkXml::ckNewChildInt2(xml,"Code",code) CkXml::ckNewChild2(xml,"Name","Sales - clearance lines") CkXml::ckNewChild2(xml,"Type","SALES") CkXml::setCkEmitCompact(xml, 1) ; Do not emit the XML declarator. Xero does not accept the XML if it ; has the initial line: <?xml version="1.0" encoding="utf-8"?> CkXml::setCkEmitXmlDecl(xml, 0) CkRest::ckAddQueryParam(rest,"xml",CkXml::ckGetXml(xml)) CkRest::setCkVerboseLogging(rest, 1) responseXml.s = CkRest::ckFullRequestFormUrlEncoded(rest,"PUT","/api.xro/2.0/Accounts") If CkRest::ckLastMethodSuccess(rest) <> 1 Debug CkRest::ckLastErrorText(rest) CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbAccounts) CkHashtable::ckDispose(htAccounts) CkXml::ckDispose(xml) ProcedureReturn EndIf ; A 200 response is expected for actual success. If CkRest::ckResponseStatusCode(rest) <> 200 Debug responseXml CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbAccounts) CkHashtable::ckDispose(htAccounts) CkXml::ckDispose(xml) ProcedureReturn EndIf ; Examine the XML response Debug responseXml ; A successful XML response is as follows: ; <Response xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> ; <Id>dac71f1b-7afb-49a7-8a57-719b91f2088e</Id> ; <Status>OK</Status> ; <ProviderName>ChilkatPrivate</ProviderName> ; <DateTimeUTC>2016-11-10T23:53:43.487791Z</DateTimeUTC> ; <Accounts> ; <Account> ; <AccountID>cb8c94cf-57d4-41ee-b866-4c27632fe838</AccountID> ; <Code>601</Code> ; <Name>Sales - clearance lines</Name> ; <Status>ACTIVE</Status> ; <Type>SALES</Type> ; <TaxType>OUTPUT</TaxType> ; <Class>REVENUE</Class> ; <EnablePaymentsToAccount>false</EnablePaymentsToAccount> ; <ShowInExpenseClaims>false</ShowInExpenseClaims> ; <ReportingCode>REV</ReportingCode> ; <ReportingCodeName>Revenue</ReportingCodeName> ; <UpdatedDateUTC>2016-11-10T23:53:43.94</UpdatedDateUTC> ; </Account> ; </Accounts> ; </Response> ; To access the information: CkXml::ckLoadXml(xml,responseXml) Debug "AccountID: " + CkXml::ckGetChildContent(xml,"Accounts|Account|AccountID") Debug "TaxType: " + CkXml::ckGetChildContent(xml,"Accounts|Account|TaxType") ; .. CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbAccounts) CkHashtable::ckDispose(htAccounts) CkXml::ckDispose(xml) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.