Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Xero Create New AccountsDemonstrates how to create a new account in Xero. Note: Requires Chilkat v9.5.0.64 or greater.
' 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. Dim rest As Chilkat.Rest Set rest = Chilkat.NewRest ' 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. Dim sbAccounts As Chilkat.StringBuilder Set sbAccounts = Chilkat.NewStringBuilder success = sbAccounts.LoadFile("qa_cache/xero_accounts_by_code.xml","utf-8") If (Not success) Then Debug.Print "failed to load xero_accounts_by_code.xml" Exit Sub End If Dim htAccounts As Chilkat.Hashtable Set htAccounts = Chilkat.NewHashtable success = htAccounts.AddFromXmlSb(sbAccounts) ' -------------------------------------------------------------- ' Build the request XML to create a Xero sales account. ' Find an unused Code... code = 600 Do While htAccounts.ContainsIntKey(code) = True code = code + 1 Loop Dim xml As Chilkat.Xml Set xml = Chilkat.NewXml xml.Tag = "Account" xml.NewChildInt2 "Code",code xml.NewChild2 "Name","Sales - clearance lines" xml.NewChild2 "Type","SALES" xml.EmitCompact = True ' 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 = False success = rest.AddQueryParam("xml",xml.GetXml()) rest.VerboseLogging = True responseXml = rest.FullRequestFormUrlEncoded("PUT","/api.xro/2.0/Accounts") If (rest.LastMethodSuccess <> True) Then Debug.Print rest.LastErrorText Exit Sub End If ' A 200 response is expected for actual success. If (rest.ResponseStatusCode <> 200) Then Debug.Print responseXml Exit Sub End If ' Examine the XML response Debug.Print 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: success = xml.LoadXml(responseXml) Debug.Print "AccountID: "; xml.GetChildContent("Accounts|Account|AccountID") Debug.Print "TaxType: "; xml.GetChildContent("Accounts|Account|TaxType") ' .. |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.