Xbase++ Requires Chilkat v11.0.0+

Xero Create Account

See more Xero Examples

Create new accounts in a Xero company. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJsonToken
LOCAL oJsonRequestBody
LOCAL cUrl
LOCAL oResp
LOCAL oJsonResponse
LOCAL cAccountID
LOCAL cCode
LOCAL cName
LOCAL cType
LOCAL cTaxType
LOCAL cClass
LOCAL nEnablePaymentsToAccount
LOCAL nShowInExpenseClaims
LOCAL cReportingCode
LOCAL cReportingCodeName
LOCAL cUpdatedDateUTC
LOCAL nAddToWatchlist
LOCAL cId
LOCAL cStatus
LOCAL cProviderName
LOCAL cDateTimeUTC
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/xero-access-token.json")
IF (nSuccess == 0)
    ? oJsonToken:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    RETURN
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 := CreateObject("Chilkat.JsonObject")
oJsonRequestBody:UpdateString("Code", "201")
oJsonRequestBody:UpdateString("Name", "Sales - clearance lines")
oJsonRequestBody:UpdateString("Type", "SALES")

cUrl := "https://api.xero.com/api.xro/2.0/Accounts"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("PUT", cUrl, oJsonRequestBody, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    oJsonRequestBody:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response Status Code: " + Str(oResp:StatusCode)

oJsonResponse := CreateObject("Chilkat.JsonObject")
oJsonResponse:Load(oResp:BodyStr)
oJsonResponse:EmitCompact := 0
? oJsonResponse:Emit()

IF (oResp:StatusCode >= 300)
    ? "Failed."
    oHttp:destroy()
    oJsonToken:destroy()
    oJsonRequestBody:destroy()
    oResp:destroy()
    oJsonResponse:destroy()
    RETURN
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
//      }
//    ]
//  }
//  

cId := oJsonResponse:StringOf("Id")
cStatus := oJsonResponse:StringOf("Status")
cProviderName := oJsonResponse:StringOf("ProviderName")
cDateTimeUTC := oJsonResponse:StringOf("DateTimeUTC")
i := 0
nCount_i := oJsonResponse:SizeOfArray("Accounts")
DO WHILE i < nCount_i
    oJsonResponse:I := i
    cAccountID := oJsonResponse:StringOf("Accounts[i].AccountID")
    cCode := oJsonResponse:StringOf("Accounts[i].Code")
    cName := oJsonResponse:StringOf("Accounts[i].Name")
    cStatus := oJsonResponse:StringOf("Accounts[i].Status")
    cType := oJsonResponse:StringOf("Accounts[i].Type")
    cTaxType := oJsonResponse:StringOf("Accounts[i].TaxType")
    cClass := oJsonResponse:StringOf("Accounts[i].Class")
    nEnablePaymentsToAccount := oJsonResponse:BoolOf("Accounts[i].EnablePaymentsToAccount")
    nShowInExpenseClaims := oJsonResponse:BoolOf("Accounts[i].ShowInExpenseClaims")
    cReportingCode := oJsonResponse:StringOf("Accounts[i].ReportingCode")
    cReportingCodeName := oJsonResponse:StringOf("Accounts[i].ReportingCodeName")
    cUpdatedDateUTC := oJsonResponse:StringOf("Accounts[i].UpdatedDateUTC")
    nAddToWatchlist := oJsonResponse:BoolOf("Accounts[i].AddToWatchlist")
    i := i + 1
ENDDO

oHttp:destroy()
oJsonToken:destroy()
oJsonRequestBody:destroy()
oResp:destroy()
oJsonResponse:destroy()