(Visual FoxPro) Xero Update Account Details

Update some details of an account in a Xero company (Accounting API)

Note: This example requires Chilkat v11.0.0 or greater.

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

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

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
LOCAL loJsonRequestBody
LOCAL lcUrl
LOCAL loResp
LOCAL loJsonResponse
LOCAL lcAccountID
LOCAL lcCode
LOCAL lcName
LOCAL lcType
LOCAL lcTaxType
LOCAL lcDescription
LOCAL lcClass
LOCAL lnEnablePaymentsToAccount
LOCAL lnShowInExpenseClaims
LOCAL lcReportingCode
LOCAL lcReportingCodeName
LOCAL lcUpdatedDateUTC
LOCAL lnAddToWatchlist
LOCAL lcId
LOCAL lcStatus
LOCAL lcProviderName
LOCAL lcDateTimeUTC
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"

* The following JSON is sent in the request body:

* {
*   "AccountID": "54ddab14-4a8d-45cf-86be-076c99a0cea0",
*   "Name": "Sales account",
*   "Type": "REVENUE",
*   "TaxType": "OUTPUT",
*   "Description": "Income from any normal business trading activity",
*   "EnablePaymentsToAccount": "false",
*   "ShowInExpenseClaims": "false"
* }

* Use this online tool to generate the code from sample JSON: 
* Generate Code to Create JSON

loJsonRequestBody = CreateObject('Chilkat.JsonObject')
loJsonRequestBody.UpdateString("AccountID","54ddab14-4a8d-45cf-86be-076c99a0cea0")
loJsonRequestBody.UpdateString("Name","Sales account")
loJsonRequestBody.UpdateString("Type","REVENUE")
loJsonRequestBody.UpdateString("TaxType","OUTPUT")
loJsonRequestBody.UpdateString("Description","Income from any normal business trading activity")
loJsonRequestBody.UpdateString("EnablePaymentsToAccount","false")
loJsonRequestBody.UpdateString("ShowInExpenseClaims","false")

lcUrl = "https://api.xero.com/api.xro/2.0/Accounts/54ddab14-4a8d-45cf-86be-076c99a0cea0"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST",lcUrl,loJsonRequestBody,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJsonRequestBody
    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 >= 300) THEN
    ? "Failed."
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJsonRequestBody
    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

* {
*   "Id": "430e92a8-de02-41d5-a00e-3ef899188aea",
*   "Status": "OK",
*   "ProviderName": "Chilkat2222",
*   "DateTimeUTC": "\/Date(1587162517005)\/",
*   "Accounts": [
*     {
*       "AccountID": "54ddab14-4a8d-45cf-86be-076c99a0cea0",
*       "Code": "201",
*       "Name": "Sales account",
*       "Status": "ACTIVE",
*       "Type": "REVENUE",
*       "TaxType": "OUTPUT",
*       "Description": "Income from any normal business trading activity",
*       "Class": "REVENUE",
*       "EnablePaymentsToAccount": false,
*       "ShowInExpenseClaims": false,
*       "ReportingCode": "REV",
*       "ReportingCodeName": "Revenue",
*       "UpdatedDateUTC": "\/Date(1587162517090+0000)\/",
*       "AddToWatchlist": false
*     }
*   ]
* }
* 

lcId = loJsonResponse.StringOf("Id")
lcStatus = loJsonResponse.StringOf("Status")
lcProviderName = loJsonResponse.StringOf("ProviderName")
lcDateTimeUTC = loJsonResponse.StringOf("DateTimeUTC")
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")
    lcStatus = loJsonResponse.StringOf("Accounts[i].Status")
    lcType = loJsonResponse.StringOf("Accounts[i].Type")
    lcTaxType = loJsonResponse.StringOf("Accounts[i].TaxType")
    lcDescription = loJsonResponse.StringOf("Accounts[i].Description")
    lcClass = loJsonResponse.StringOf("Accounts[i].Class")
    lnEnablePaymentsToAccount = loJsonResponse.BoolOf("Accounts[i].EnablePaymentsToAccount")
    lnShowInExpenseClaims = loJsonResponse.BoolOf("Accounts[i].ShowInExpenseClaims")
    lcReportingCode = loJsonResponse.StringOf("Accounts[i].ReportingCode")
    lcReportingCodeName = loJsonResponse.StringOf("Accounts[i].ReportingCodeName")
    lcUpdatedDateUTC = loJsonResponse.StringOf("Accounts[i].UpdatedDateUTC")
    lnAddToWatchlist = loJsonResponse.BoolOf("Accounts[i].AddToWatchlist")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loJsonToken
RELEASE loJsonRequestBody
RELEASE loResp
RELEASE loJsonResponse