Visual FoxPro

Xero Create Account

See more Xero Examples

Create new accounts in a Xero company. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
LOCAL loJsonRequestBody
LOCAL lcUrl
LOCAL loResp
LOCAL loJsonResponse
LOCAL lcAccountID
LOCAL lcCode
LOCAL lcName
LOCAL lcType
LOCAL lcTaxType
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

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

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:

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

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

loJsonRequestBody = CreateObject('Chilkat.JsonObject')
loJsonRequestBody.UpdateString("Code","201")
loJsonRequestBody.UpdateString("Name","Sales - clearance lines")
loJsonRequestBody.UpdateString("Type","SALES")

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

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("PUT",lcUrl,loJsonRequestBody,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJsonRequestBody
    RELEASE loResp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

IF (loResp.StatusCode >= 300) THEN
    ? "Failed."
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJsonRequestBody
    RELEASE loResp
    RELEASE loJsonResponse
    CANCEL
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
*     }
*   ]
* }
* 

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")
    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 loResp
RELEASE loJsonResponse