(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim http As New Chilkat.Http

http.AuthToken = "ACCESS_TOKEN"

http.Accept = "application/json"

http.SetRequestHeader "x-myobapi-key","MYOB_API_KEY"
http.SetRequestHeader "x-myobapi-version","v2"

Dim strResp As String
strResp = http.QuickGetStr("https://ar1.api.myob.com/accountright")
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("Response Status Code: " + Str(http.LastStatus))

Dim jsonResponse As New Chilkat.JsonObject
success = jsonResponse.Load(strResp)
jsonResponse.EmitCompact = False
System.DebugLog(jsonResponse.Emit())

If (http.LastStatus <> 200) Then
    System.DebugLog("Failed.")
    Return
End If

// 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"
// }
// 

Dim Id As String
Dim Name As String
Dim LibraryPath As String
Dim ProductVersion As String
Dim ProductLevelCode As Int32
Dim ProductLevelName As String
Dim CheckedOutDate As String
Dim CheckedOutBy As String
Dim Uri As String
Dim Country As String

Id = jsonResponse.StringOf("Id")
Name = jsonResponse.StringOf("Name")
LibraryPath = jsonResponse.StringOf("LibraryPath")
ProductVersion = jsonResponse.StringOf("ProductVersion")
ProductLevelCode = jsonResponse.IntOf("ProductLevel.Code")
ProductLevelName = jsonResponse.StringOf("ProductLevel.Name")
CheckedOutDate = jsonResponse.StringOf("CheckedOutDate")
CheckedOutBy = jsonResponse.StringOf("CheckedOutBy")
Uri = jsonResponse.StringOf("Uri")
Country = jsonResponse.StringOf("Country")