(Visual FoxPro) MYOB: Get List of Company Files

Gets a list of company files.

For more information, see https://developer.myob.com/api/accountright/v2/company-files/

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL lcStrResp
LOCAL loJsonResponse
LOCAL lcId
LOCAL lcName
LOCAL lcLibraryPath
LOCAL lcProductVersion
LOCAL lnProductLevelCode
LOCAL lcProductLevelName
LOCAL lcCheckedOutDate
LOCAL lcCheckedOutBy
LOCAL lcUri
LOCAL lcCountry

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

loHttp.AuthToken = "ACCESS_TOKEN"

loHttp.Accept = "application/json"

loHttp.SetRequestHeader("x-myobapi-key","MYOB_API_KEY")
loHttp.SetRequestHeader("x-myobapi-version","v2")

lcStrResp = loHttp.QuickGetStr("https://ar1.api.myob.com/accountright")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loHttp.LastStatus)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(lcStrResp)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

IF (loHttp.LastStatus <> 200) THEN
    ? "Failed."
    RELEASE loHttp
    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": "d2014f64-ffdf-487b-8d12-67a20976aca6",
*   "Name": "Internal Sandbox API",
*   "LibraryPath": "Internal Sandbox API",
*   "ProductVersion": "2013.0",
*   "ProductLevel": {
*     "Code": 20,
*     "Name": "Standard"
*   },
*   "CheckedOutDate": "2013-06-11T01:47:47.0065514",
*   "CheckedOutBy": "developers@myob.com",
*   "Uri": "{cf_uri}",
*   "Country": "AU"
* }
* 

lcId = loJsonResponse.StringOf("Id")
lcName = loJsonResponse.StringOf("Name")
lcLibraryPath = loJsonResponse.StringOf("LibraryPath")
lcProductVersion = loJsonResponse.StringOf("ProductVersion")
lnProductLevelCode = loJsonResponse.IntOf("ProductLevel.Code")
lcProductLevelName = loJsonResponse.StringOf("ProductLevel.Name")
lcCheckedOutDate = loJsonResponse.StringOf("CheckedOutDate")
lcCheckedOutBy = loJsonResponse.StringOf("CheckedOutBy")
lcUri = loJsonResponse.StringOf("Uri")
lcCountry = loJsonResponse.StringOf("Country")

RELEASE loHttp
RELEASE loJsonResponse