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 Update AccountDemonstrates how to update an account in Xero. Note: Requires Chilkat v9.5.0.64 or greater.
IncludeFile "CkRest.pb" IncludeFile "CkXml.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.. ; -------------------------------------------------------------- ; The Account to be updated already contains this data: ; <Account> ; <AccountID>afe53f21-1221-451c-a8c4-08457e129d84</AccountID> ; <Code>160</Code> ; <Name>Computer Equipment</Name> ; <Status>ACTIVE</Status> ; <Type>FIXED</Type> ; <TaxType>TAX002</TaxType> ; <Description>Computer equipment that is owned and controlled by the business</Description> ; <Class>ASSET</Class> ; <EnablePaymentsToAccount>false</EnablePaymentsToAccount> ; <ShowInExpenseClaims>true</ShowInExpenseClaims> ; <ReportingCode>ASS</ReportingCode> ; <ReportingCodeName>Assets</ReportingCodeName> ; <HasAttachments>false</HasAttachments> ; <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC> ; </Account> ; -------------------------------------------------------------- ; Build the XML to update the description xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(xml, "Account") CkXml::ckNewChild2(xml,"AccountID","afe53f21-1221-451c-a8c4-08457e129d84") CkXml::ckNewChild2(xml,"Description","Computer equipment owned by the business.") 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)) ; Use a POST to update (a PUT is to create) responseXml.s = CkRest::ckFullRequestFormUrlEncoded(rest,"POST","/api.xro/2.0/Accounts") If CkRest::ckLastMethodSuccess(rest) <> 1 Debug CkRest::ckLastErrorText(rest) CkRest::ckDispose(rest) CkXml::ckDispose(xml) ProcedureReturn EndIf ; A 200 response is expected for actual success. If CkRest::ckResponseStatusCode(rest) <> 200 Debug responseXml CkRest::ckDispose(rest) 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>8efc8fb9-1f78-438c-a2d3-46954bb82183</Id> ; <Status>OK</Status> ; <ProviderName>ChilkatPrivate</ProviderName> ; <DateTimeUTC>2016-11-11T02:24:01.1692715Z</DateTimeUTC> ; <Accounts> ; <Account> ; <AccountID>afe53f21-1221-451c-a8c4-08457e129d84</AccountID> ; <Code>160</Code> ; <Name>Computer Equipment</Name> ; <Status>ACTIVE</Status> ; <Type>FIXED</Type> ; <TaxType>TAX002</TaxType> ; <Description>Computer equipment owned by the business.</Description> ; <Class>ASSET</Class> ; <EnablePaymentsToAccount>false</EnablePaymentsToAccount> ; <ShowInExpenseClaims>false</ShowInExpenseClaims> ; <ReportingCode>ASS</ReportingCode> ; <ReportingCodeName>Assets</ReportingCodeName> ; <UpdatedDateUTC>2016-11-11T02:24:01.3</UpdatedDateUTC> ; </Account> ; </Accounts> ; </Response> CkRest::ckDispose(rest) CkXml::ckDispose(xml) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.