VB.NET

MYOB: Get List of Company Files

See more MYOB Examples

Gets a list of company files. VB.NET

' 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 = http.QuickGetStr("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")