(Visual FoxPro) Xero Get Accounts

See more Xero Examples

Download Xero accounts information

For more information, see https://developer.xero.com/documentation/api/accounts

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

LOCAL loHttp
LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loResp
LOCAL loJsonResponse
LOCAL lcAccountID
LOCAL lcCode
LOCAL lcName
LOCAL lcType
LOCAL lcTaxType
LOCAL lnEnablePaymentsToAccount
LOCAL lcBankAccountNumber
LOCAL lcBankAccountType
LOCAL lcCurrencyCode
LOCAL lcDescription
LOCAL i
LOCAL lnCount_i

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/xero-access-token.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp.AuthToken = loJsonToken.StringOf("access_token")

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

loHttp.Accept = "application/json"

loResp = loHttp.QuickRequest("GET","https://api.xero.com/api.xro/2.0/Accounts")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
    RELEASE loResp
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJsonResponse
    CANCEL
ENDIF

RELEASE loResp

* 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
lnCount_i = loJsonResponse.SizeOfArray("Accounts")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcAccountID = loJsonResponse.StringOf("Accounts[i].AccountID")
    lcCode = loJsonResponse.StringOf("Accounts[i].Code")
    lcName = loJsonResponse.StringOf("Accounts[i].Name")
    lcType = loJsonResponse.StringOf("Accounts[i].Type")
    lcTaxType = loJsonResponse.StringOf("Accounts[i].TaxType")
    lnEnablePaymentsToAccount = loJsonResponse.BoolOf("Accounts[i].EnablePaymentsToAccount")
    lcBankAccountNumber = loJsonResponse.StringOf("Accounts[i].BankAccountNumber")
    lcBankAccountType = loJsonResponse.StringOf("Accounts[i].BankAccountType")
    lcCurrencyCode = loJsonResponse.StringOf("Accounts[i].CurrencyCode")
    lcDescription = loJsonResponse.StringOf("Accounts[i].Description")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loJsonToken
RELEASE loJsonResponse