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
(Visual FoxPro) Xero Create New AccountsDemonstrates how to create a new account in Xero. Note: Requires Chilkat v9.5.0.64 or greater.
LOCAL loRest LOCAL lnSuccess LOCAL loSbAccounts LOCAL loHtAccounts LOCAL lnCode LOCAL loXml LOCAL lcResponseXml * 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. loRest = 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.. * -------------------------------------------------------------- * 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. loSbAccounts = CreateObject('Chilkat_9_5_0.StringBuilder') lnSuccess = loSbAccounts.LoadFile("qa_cache/xero_accounts_by_code.xml","utf-8") IF (NOT lnSuccess) THEN ? "failed to load xero_accounts_by_code.xml" RELEASE loRest RELEASE loSbAccounts CANCEL ENDIF loHtAccounts = CreateObject('Chilkat_9_5_0.Hashtable') loHtAccounts.AddFromXmlSb(loSbAccounts) * -------------------------------------------------------------- * Build the request XML to create a Xero sales account. * Find an unused Code... lnCode = 600 DO WHILE loHtAccounts.ContainsIntKey(lnCode) = 1 lnCode = lnCode + 1 ENDDO loXml = CreateObject('Chilkat_9_5_0.Xml') loXml.Tag = "Account" loXml.NewChildInt2("Code",lnCode) loXml.NewChild2("Name","Sales - clearance lines") loXml.NewChild2("Type","SALES") loXml.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"?> loXml.EmitXmlDecl = 0 loRest.AddQueryParam("xml",loXml.GetXml()) loRest.VerboseLogging = 1 lcResponseXml = loRest.FullRequestFormUrlEncoded("PUT","/api.xro/2.0/Accounts") IF (loRest.LastMethodSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loRest RELEASE loSbAccounts RELEASE loHtAccounts RELEASE loXml CANCEL ENDIF * A 200 response is expected for actual success. IF (loRest.ResponseStatusCode <> 200) THEN ? lcResponseXml RELEASE loRest RELEASE loSbAccounts RELEASE loHtAccounts RELEASE loXml CANCEL ENDIF * Examine the XML response ? lcResponseXml * 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: loXml.LoadXml(lcResponseXml) ? "AccountID: " + loXml.GetChildContent("Accounts|Account|AccountID") ? "TaxType: " + loXml.GetChildContent("Accounts|Account|TaxType") * .. RELEASE loRest RELEASE loSbAccounts RELEASE loHtAccounts RELEASE loXml |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.