AutoIt Requires Chilkat v11.0.0+

Xero Get Accounts

See more Xero Examples

Download Xero accounts information AutoIt

Local $bSuccess = False

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

$oHttp = ObjCreate("Chilkat.Http")

$oJsonToken = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJsonToken.LoadFile("qa_data/tokens/xero-access-token.json")
If ($bSuccess = False) Then
    ConsoleWrite($oJsonToken.LastErrorText & @CRLF)
    Exit
EndIf

$oHttp.AuthToken = $oJsonToken.StringOf("access_token")

;  Replace the value here with an actual tenant ID obtained from this example:
;  Get Xero Tenant IDs
$oHttp.SetRequestHeader "Xero-tenant-id","83299b9e-5747-4a14-a18a-a6c94f824eb7"

$oHttp.Accept = "application/json"

$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpNoBody("GET","https://api.xero.com/api.xro/2.0/Accounts",$oResp)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response Status Code: " & $oResp.StatusCode & @CRLF)

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.Load($oResp.BodyStr)
$oJsonResponse.EmitCompact = False
ConsoleWrite($oJsonResponse.Emit() & @CRLF)

If ($oResp.StatusCode <> 200) Then
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

;  Sample output...
;  (See the parsing code below..)
;  
;  Use the this online tool to generate parsing code from sample JSON: 
;  Generate Parsing Code from JSON

;  {
;    "Accounts": [
;      {
;        "AccountID": "ebd06280-af70-4bed-97c6-7451a454ad85",
;        "Code": "091",
;        "Name": "Business Savings Account",
;        "Type": "BANK",
;        "TaxType": "NONE",
;        "EnablePaymentsToAccount": false,
;        "BankAccountNumber": "0209087654321050",
;        "BankAccountType": "BANK",
;        "CurrencyCode": "NZD"
;      },
;      {
;        "AccountID": "7d05a53d-613d-4eb2-a2fc-dcb6adb80b80",
;        "Code": "200",
;        "Name": "Sales",
;        "Type": "REVENUE",
;        "TaxType": "OUTPUT2",
;        "Description": "Income from any normal business activity",
;        "EnablePaymentsToAccount": false
;      }
;    ]
;  }
;  

Local $sAccountID
Local $sCode
Local $sName
Local $sType
Local $sTaxType
Local $bEnablePaymentsToAccount
Local $sBankAccountNumber
Local $sBankAccountType
Local $sCurrencyCode
Local $sDescription

Local $i = 0
Local $iCount_i = $oJsonResponse.SizeOfArray("Accounts")
While $i < $iCount_i
    $oJsonResponse.I = $i
    $sAccountID = $oJsonResponse.StringOf("Accounts[i].AccountID")
    $sCode = $oJsonResponse.StringOf("Accounts[i].Code")
    $sName = $oJsonResponse.StringOf("Accounts[i].Name")
    $sType = $oJsonResponse.StringOf("Accounts[i].Type")
    $sTaxType = $oJsonResponse.StringOf("Accounts[i].TaxType")
    $bEnablePaymentsToAccount = $oJsonResponse.BoolOf("Accounts[i].EnablePaymentsToAccount")
    $sBankAccountNumber = $oJsonResponse.StringOf("Accounts[i].BankAccountNumber")
    $sBankAccountType = $oJsonResponse.StringOf("Accounts[i].BankAccountType")
    $sCurrencyCode = $oJsonResponse.StringOf("Accounts[i].CurrencyCode")
    $sDescription = $oJsonResponse.StringOf("Accounts[i].Description")
    $i = $i + 1
Wend