(VB.NET UWP/WinRT) 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 Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' 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 = Await http.QuickGetStrAsync("https://ar1.api.myob.com/accountright")
If (http.LastMethodSuccess <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Response Status Code: " & http.LastStatus)

Dim jsonResponse As New Chilkat.JsonObject
jsonResponse.Load(strResp)
jsonResponse.EmitCompact = False
Debug.WriteLine(jsonResponse.Emit())

If (http.LastStatus <> 200) Then
    Debug.WriteLine("Failed.")
    Exit Sub
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 Integer
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")