AutoIt

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