Visual FoxPro

Xero Create New Accounts

Demonstrates how to create a new account in Xero. Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL loSbAccounts
LOCAL loHtAccounts
LOCAL lnCode
LOCAL loXml
LOCAL lcResponseXml

lnSuccess = 0

*  This requires the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

loRest = CreateObject('Chilkat.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.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.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.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 = 0) 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