AutoIt Requires Chilkat v11.0.0+

Xero Create Account

See more Xero Examples

Create new accounts in a Xero company. AutoIt

Local $bSuccess = False

;  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")
$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"

$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpJson("PUT",$sUrl,$oJsonRequestBody,"application/json",$oResp)
If ($bSuccess = False) 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