PureBasic

Xero Get Accounts

See more Xero Examples

Download Xero accounts information PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 0

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/xero-access-token.json")
    If success = 0
        Debug CkJsonObject::ckLastErrorText(jsonToken)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token"))

    ; Replace the value here with an actual tenant ID obtained from this example:
    ; Get Xero Tenant IDs
    CkHttp::ckSetRequestHeader(http,"Xero-tenant-id","83299b9e-5747-4a14-a18a-a6c94f824eb7")

    CkHttp::setCkAccept(http, "application/json")

    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpNoBody(http,"GET","https://api.xero.com/api.xro/2.0/Accounts",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    Debug "Response Status Code: " + Str(CkHttpResponse::ckStatusCode(resp))

    jsonResponse.i = CkJsonObject::ckCreate()
    If jsonResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoad(jsonResponse,CkHttpResponse::ckBodyStr(resp))
    CkJsonObject::setCkEmitCompact(jsonResponse, 0)
    Debug CkJsonObject::ckEmit(jsonResponse)

    If CkHttpResponse::ckStatusCode(resp) <> 200
        Debug "Failed."
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkHttpResponse::ckDispose(resp)
        CkJsonObject::ckDispose(jsonResponse)
        ProcedureReturn
    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
    ;     }
    ;   ]
    ; }
    ; 

    AccountID.s
    Code.s
    Name.s
    Type.s
    TaxType.s
    EnablePaymentsToAccount.i
    BankAccountNumber.s
    BankAccountType.s
    CurrencyCode.s
    Description.s

    i.i = 0
    count_i.i = CkJsonObject::ckSizeOfArray(jsonResponse,"Accounts")
    While i < count_i
        CkJsonObject::setCkI(jsonResponse, i)
        AccountID = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].AccountID")
        Code = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].Code")
        Name = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].Name")
        Type = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].Type")
        TaxType = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].TaxType")
        EnablePaymentsToAccount = CkJsonObject::ckBoolOf(jsonResponse,"Accounts[i].EnablePaymentsToAccount")
        BankAccountNumber = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].BankAccountNumber")
        BankAccountType = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].BankAccountType")
        CurrencyCode = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].CurrencyCode")
        Description = CkJsonObject::ckStringOf(jsonResponse,"Accounts[i].Description")
        i = i + 1
    Wend


    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(jsonToken)
    CkHttpResponse::ckDispose(resp)
    CkJsonObject::ckDispose(jsonResponse)


    ProcedureReturn
EndProcedure