Xbase++ Requires Chilkat v11.0.0+

Xero Get Accounts

See more Xero Examples

Download Xero accounts information Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJsonToken
LOCAL oResp
LOCAL oJsonResponse
LOCAL cAccountID
LOCAL cCode
LOCAL cName
LOCAL cType
LOCAL cTaxType
LOCAL nEnablePaymentsToAccount
LOCAL cBankAccountNumber
LOCAL cBankAccountType
LOCAL cCurrencyCode
LOCAL cDescription
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/xero-access-token.json")
IF (nSuccess == 0)
    ? oJsonToken:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    RETURN
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 := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpNoBody("GET", "https://api.xero.com/api.xro/2.0/Accounts", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response Status Code: " + Str(oResp:StatusCode)

oJsonResponse := CreateObject("Chilkat.JsonObject")
oJsonResponse:Load(oResp:BodyStr)
oJsonResponse:EmitCompact := 0
? oJsonResponse:Emit()

IF (oResp:StatusCode != 200)
    ? "Failed."
    oHttp:destroy()
    oJsonToken:destroy()
    oResp:destroy()
    oJsonResponse:destroy()
    RETURN
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
//      }
//    ]
//  }
//  

i := 0
nCount_i := oJsonResponse:SizeOfArray("Accounts")
DO WHILE i < nCount_i
    oJsonResponse:I := i
    cAccountID := oJsonResponse:StringOf("Accounts[i].AccountID")
    cCode := oJsonResponse:StringOf("Accounts[i].Code")
    cName := oJsonResponse:StringOf("Accounts[i].Name")
    cType := oJsonResponse:StringOf("Accounts[i].Type")
    cTaxType := oJsonResponse:StringOf("Accounts[i].TaxType")
    nEnablePaymentsToAccount := oJsonResponse:BoolOf("Accounts[i].EnablePaymentsToAccount")
    cBankAccountNumber := oJsonResponse:StringOf("Accounts[i].BankAccountNumber")
    cBankAccountType := oJsonResponse:StringOf("Accounts[i].BankAccountType")
    cCurrencyCode := oJsonResponse:StringOf("Accounts[i].CurrencyCode")
    cDescription := oJsonResponse:StringOf("Accounts[i].Description")
    i := i + 1
ENDDO

oHttp:destroy()
oJsonToken:destroy()
oResp:destroy()
oJsonResponse:destroy()