(PowerBuilder) Xero Create New Accounts

Demonstrates how to create a new account in Xero.

Note: Requires Chilkat v9.5.0.64 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Rest
integer li_Success
oleobject loo_SbAccounts
oleobject loo_HtAccounts
integer li_Code
oleobject loo_Xml
string ls_ResponseXml

// 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.

loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.
loo_SbAccounts = create oleobject
li_rc = loo_SbAccounts.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")

li_Success = loo_SbAccounts.LoadFile("qa_cache/xero_accounts_by_code.xml","utf-8")
if not li_Success then
    Write-Debug "failed to load xero_accounts_by_code.xml"
    destroy loo_Rest
    destroy loo_SbAccounts
    return
end if

loo_HtAccounts = create oleobject
li_rc = loo_HtAccounts.ConnectToNewObject("Chilkat_9_5_0.Hashtable")

loo_HtAccounts.AddFromXmlSb(loo_SbAccounts)

// --------------------------------------------------------------
// Build the request XML to create a Xero sales account.
// Find an unused Code...
li_Code = 600
do while loo_HtAccounts.ContainsIntKey(li_Code) = 1
    li_Code = li_Code + 1
loop

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat_9_5_0.Xml")

loo_Xml.Tag = "Account"
loo_Xml.NewChildInt2("Code",li_Code)
loo_Xml.NewChild2("Name","Sales - clearance lines")
loo_Xml.NewChild2("Type","SALES")
loo_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"?>
loo_Xml.EmitXmlDecl = 0

loo_Rest.AddQueryParam("xml",loo_Xml.GetXml())

loo_Rest.VerboseLogging = 1
ls_ResponseXml = loo_Rest.FullRequestFormUrlEncoded("PUT","/api.xro/2.0/Accounts")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_SbAccounts
    destroy loo_HtAccounts
    destroy loo_Xml
    return
end if

// A 200 response is expected for actual success.
if loo_Rest.ResponseStatusCode <> 200 then
    Write-Debug ls_ResponseXml
    destroy loo_Rest
    destroy loo_SbAccounts
    destroy loo_HtAccounts
    destroy loo_Xml
    return
end if

// Examine the XML response
Write-Debug ls_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:
loo_Xml.LoadXml(ls_ResponseXml)

Write-Debug "AccountID: " + loo_Xml.GetChildContent("Accounts|Account|AccountID")
Write-Debug "TaxType: " + loo_Xml.GetChildContent("Accounts|Account|TaxType")
// ..


destroy loo_Rest
destroy loo_SbAccounts
destroy loo_HtAccounts
destroy loo_Xml