Xojo Plugin

MYOB: Get List of Company Files

See more MYOB Examples

Gets a list of company files. Xojo Plugin

// 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
Dim success As Boolean
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")