(Visual FoxPro) Xero Update Account Details

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

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

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

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

* 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"

* 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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
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 = loHttp.PText("POST",lcUrl,loJsonRequestBody.Emit(),"utf-8","application/json",0,0)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJsonRequestBody
    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 >= 300) THEN
    ? "Failed."
    RELEASE loResp
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJsonRequestBody
    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

* {
*   "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 loJsonResponse