Visual FoxPro

Xero Get Accounts

See more Xero Examples

Download Xero accounts information Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
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

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

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 = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://api.xero.com/api.xro/2.0/Accounts",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loResp
    CANCEL
ENDIF

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

loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loResp
    RELEASE loJsonResponse
    CANCEL
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
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 loResp
RELEASE loJsonResponse