(AutoIt) Xero Create Account

Create new accounts in a Xero company.

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

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:

; {
;   "Code": "201",
;   "Name": "Sales - clearance lines",
;   "Type": "SALES"
; }

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

$oJsonRequestBody = ObjCreate("Chilkat.JsonObject")
$oJsonRequestBody.UpdateString("Code","201")
$oJsonRequestBody.UpdateString("Name","Sales - clearance lines")
$oJsonRequestBody.UpdateString("Type","SALES")

Local $sUrl = "https://api.xero.com/api.xro/2.0/Accounts"

Local $oResp = $oHttp.PText("PUT",$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": "705036aa-771d-4c0a-9d66-28904022858c",
;   "Status": "OK",
;   "ProviderName": "Chilkat2222",
;   "DateTimeUTC": "\/Date(1587161712234)\/",
;   "Accounts": [
;     {
;       "AccountID": "54ddab14-4a8d-45cf-86be-076c99a0cea0",
;       "Code": "201",
;       "Name": "Sales - clearance lines",
;       "Status": "ACTIVE",
;       "Type": "SALES",
;       "TaxType": "OUTPUT",
;       "Class": "REVENUE",
;       "EnablePaymentsToAccount": false,
;       "ShowInExpenseClaims": false,
;       "ReportingCode": "REV",
;       "ReportingCodeName": "Revenue",
;       "UpdatedDateUTC": "\/Date(1587161712283+0000)\/",
;       "AddToWatchlist": false
;     }
;   ]
; }
; 

Local $sAccountID
Local $sCode
Local $sName
Local $sType
Local $sTaxType
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")
    $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