B4X

MYOB: Get List of Company Files

See more MYOB Examples

Gets a list of company files. B4X

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

Dim http As ChilkatHttp
http.Initialize("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 = http.QuickGetStr("https://ar1.api.myob.com/accountright")
If http.LastMethodSuccess <> True Then
    Log(http.LastErrorText)
    Return
End If


Log("Response Status Code: " & http.LastStatus)

Dim jsonResponse As ChilkatJsonObject
jsonResponse.Initialize
jsonResponse.Load(strResp)
jsonResponse.EmitCompact = False
Log(jsonResponse.Emit)

If http.LastStatus <> 200 Then
    Log("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 Int
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")