(AutoIt) 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

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

$oHttp = ObjCreate("Chilkat.Http")

$oJsonToken = ObjCreate("Chilkat.JsonObject")
Local $bSuccess = $oJsonToken.LoadFile("qa_data/tokens/xero-access-token.json")
If ($bSuccess = False) Then
    ConsoleWrite($oJsonToken.LastErrorText & @CRLF)
    Exit
EndIf

$oHttp.AuthToken = $oJsonToken.StringOf("access_token")

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

$oHttp.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

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

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

Local $oResp = $oHttp.PText("POST",$sUrl,$oJsonRequestBody.Emit(),"utf-8","application/json",False,False)
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response Status Code: " & $oResp.StatusCode & @CRLF)

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.Load($oResp.BodyStr)
$oJsonResponse.EmitCompact = False
ConsoleWrite($oJsonResponse.Emit() & @CRLF)

If ($oResp.StatusCode >= 300) Then
    ConsoleWrite("Failed." & @CRLF)

    Exit
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
;     }
;   ]
; }
; 

Local $sAccountID
Local $sCode
Local $sName
Local $sType
Local $sTaxType
Local $sDescription
Local $sClass
Local $bEnablePaymentsToAccount
Local $bShowInExpenseClaims
Local $sReportingCode
Local $sReportingCodeName
Local $sUpdatedDateUTC
Local $bAddToWatchlist

Local $sId = $oJsonResponse.StringOf("Id")
Local $sStatus = $oJsonResponse.StringOf("Status")
Local $sProviderName = $oJsonResponse.StringOf("ProviderName")
Local $sDateTimeUTC = $oJsonResponse.StringOf("DateTimeUTC")
Local $i = 0
Local $iCount_i = $oJsonResponse.SizeOfArray("Accounts")
While $i < $iCount_i
    $oJsonResponse.I = $i
    $sAccountID = $oJsonResponse.StringOf("Accounts[i].AccountID")
    $sCode = $oJsonResponse.StringOf("Accounts[i].Code")
    $sName = $oJsonResponse.StringOf("Accounts[i].Name")
    $sStatus = $oJsonResponse.StringOf("Accounts[i].Status")
    $sType = $oJsonResponse.StringOf("Accounts[i].Type")
    $sTaxType = $oJsonResponse.StringOf("Accounts[i].TaxType")
    $sDescription = $oJsonResponse.StringOf("Accounts[i].Description")
    $sClass = $oJsonResponse.StringOf("Accounts[i].Class")
    $bEnablePaymentsToAccount = $oJsonResponse.BoolOf("Accounts[i].EnablePaymentsToAccount")
    $bShowInExpenseClaims = $oJsonResponse.BoolOf("Accounts[i].ShowInExpenseClaims")
    $sReportingCode = $oJsonResponse.StringOf("Accounts[i].ReportingCode")
    $sReportingCodeName = $oJsonResponse.StringOf("Accounts[i].ReportingCodeName")
    $sUpdatedDateUTC = $oJsonResponse.StringOf("Accounts[i].UpdatedDateUTC")
    $bAddToWatchlist = $oJsonResponse.BoolOf("Accounts[i].AddToWatchlist")
    $i = $i + 1
Wend