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
(VBScript) Xero Update AccountDemonstrates how to update an account in Xero. Note: Requires Chilkat v9.5.0.64 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' 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. set rest = CreateObject("Chilkat_9_5_0.Rest") ' 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 set xml = CreateObject("Chilkat_9_5_0.Xml") xml.Tag = "Account" xml.NewChild2 "AccountID","afe53f21-1221-451c-a8c4-08457e129d84" xml.NewChild2 "Description","Computer equipment owned by the business." xml.EmitCompact = 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"?> xml.EmitXmlDecl = 0 success = rest.AddQueryParam("xml",xml.GetXml()) ' Use a POST to update (a PUT is to create) responseXml = rest.FullRequestFormUrlEncoded("POST","/api.xro/2.0/Accounts") If (rest.LastMethodSuccess <> 1) Then outFile.WriteLine(rest.LastErrorText) WScript.Quit End If ' A 200 response is expected for actual success. If (rest.ResponseStatusCode <> 200) Then outFile.WriteLine(responseXml) WScript.Quit End If ' Examine the XML response outFile.WriteLine(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> outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.