Perl

MYOB: Get List of Company Files

See more MYOB Examples

Gets a list of company files. Perl

use chilkat();

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

$http = chilkat::CkHttp->new();

$http->put_AuthToken("ACCESS_TOKEN");

$http->put_Accept("application/json");

$http->SetRequestHeader("x-myobapi-key","MYOB_API_KEY");
$http->SetRequestHeader("x-myobapi-version","v2");

$strResp = $http->quickGetStr("https://ar1.api.myob.com/accountright");
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status Code: " . $http->get_LastStatus() . "\r\n";

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->Load($strResp);
$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";

if ($http->get_LastStatus() != 200) {
    print "Failed." . "\r\n";
    exit;
}

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

$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");