AutoIt

MYOB: Get List of Company Files

See more MYOB Examples

Gets a list of company files. AutoIt

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

$oHttp = ObjCreate("Chilkat.Http")

$oHttp.AuthToken = "ACCESS_TOKEN"

$oHttp.Accept = "application/json"

$oHttp.SetRequestHeader "x-myobapi-key","MYOB_API_KEY"
$oHttp.SetRequestHeader "x-myobapi-version","v2"

Local $strResp = $oHttp.QuickGetStr("https://ar1.api.myob.com/accountright")
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response Status Code: " & $oHttp.LastStatus & @CRLF)

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.Load($strResp)
$oJsonResponse.EmitCompact = False
ConsoleWrite($oJsonResponse.Emit() & @CRLF)

If ($oHttp.LastStatus <> 200) Then
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

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

Local $sId
Local $sName
Local $sLibraryPath
Local $sProductVersion
Local $iProductLevelCode
Local $sProductLevelName
Local $sCheckedOutDate
Local $sCheckedOutBy
Local $sUri
Local $sCountry

$sId = $oJsonResponse.StringOf("Id")
$sName = $oJsonResponse.StringOf("Name")
$sLibraryPath = $oJsonResponse.StringOf("LibraryPath")
$sProductVersion = $oJsonResponse.StringOf("ProductVersion")
$iProductLevelCode = $oJsonResponse.IntOf("ProductLevel.Code")
$sProductLevelName = $oJsonResponse.StringOf("ProductLevel.Name")
$sCheckedOutDate = $oJsonResponse.StringOf("CheckedOutDate")
$sCheckedOutBy = $oJsonResponse.StringOf("CheckedOutBy")
$sUri = $oJsonResponse.StringOf("Uri")
$sCountry = $oJsonResponse.StringOf("Country")