(Delphi DLL) MYOB: Fetch the Category Register

Return transactions grouped with categories A register of all transactions grouped with categories

For more information, see https://accountrightapi.myob.cloud/?version=latest#57d83b80-5dcb-4286-882e-5a1f6c2dc41a

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
NextPageLink: PWideChar;
Count: Integer;
i: Integer;
count_i: Integer;
CategoryUID: PWideChar;
CategoryName: PWideChar;
CategoryDisplayID: PWideChar;
CategoryURI: PWideChar;
AccountUID: PWideChar;
AccountName: PWideChar;
AccountDisplayID: PWideChar;
AccountURI: PWideChar;
Year: Integer;
Month: Integer;
Activity: Integer;
YearEndActivity: Integer;
RowVersion: PWideChar;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := CkHttp_Create();

// Implements the following CURL command:

// curl --request GET "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/CategoryRegister" \
//   --header "Authorization: Bearer ACCESS_TOKEN" \
//   --header "x-myobapi-key: {{myob_api_key}}" \
//   --header "x-myobapi-version: v2" \
//   --header "Accept-Encoding: gzip,deflate"

CkHttp_SetRequestHeader(http,'Authorization','Bearer ACCESS_TOKEN');
CkHttp_SetRequestHeader(http,'x-myobapi-key','{{myob_api_key}}');
CkHttp_SetRequestHeader(http,'Accept-Encoding','gzip,deflate');
CkHttp_SetRequestHeader(http,'x-myobapi-version','v2');

sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/CategoryRegister',sbResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkJsonObject__emit(jResp));

respStatusCode := CkHttp_getLastStatus(http);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttp__lastHeader(http));
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "Items": [
//     {
//       "Category": {
//         "UID": "80b6a90d-e22a-47e3-a5e7-a2ee9126f153",
//         "Name": "Craigs Category",
//         "DisplayID": "Craigs",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/80b6a90d-e22a-47e3-a5e7-a2ee9126f153"
//       },
//       "Account": {
//         "UID": "40ecbafd-51c0-40f3-9a28-d6a2b6d7422a",
//         "Name": "Produce Income",
//         "DisplayID": "4-1000",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/40ecbafd-51c0-40f3-9a28-d6a2b6d7422a"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": -1050,
//       "YearEndActivity": 0,
//       "RowVersion": "1093536881590665216"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "9541300c-edee-4e0b-82c0-9bc0d1917b2f",
//         "Name": "Grain Income",
//         "DisplayID": "4-2000",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/9541300c-edee-4e0b-82c0-9bc0d1917b2f"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": -135.23,
//       "YearEndActivity": 0,
//       "RowVersion": "7736911480938823680"
//     },
//     {
//       "Category": {
//         "UID": "80b6a90d-e22a-47e3-a5e7-a2ee9126f153",
//         "Name": "Craigs Category",
//         "DisplayID": "Craigs",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/80b6a90d-e22a-47e3-a5e7-a2ee9126f153"
//       },
//       "Account": {
//         "UID": "80b97a33-a650-4f6c-9e40-d466d92e4bcb",
//         "Name": "GST Paid",
//         "DisplayID": "2-1220",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/80b97a33-a650-4f6c-9e40-d466d92e4bcb"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": -105,
//       "YearEndActivity": 0,
//       "RowVersion": "1165594475628593152"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "80b97a33-a650-4f6c-9e40-d466d92e4bcb",
//         "Name": "GST Paid",
//         "DisplayID": "2-1220",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/80b97a33-a650-4f6c-9e40-d466d92e4bcb"
//       },
//       "Year": 2013,
//       "Month": 9,
//       "Activity": -62.5,
//       "YearEndActivity": 0,
//       "RowVersion": "4407341782405218304"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "80b97a33-a650-4f6c-9e40-d466d92e4bcb",
//         "Name": "GST Paid",
//         "DisplayID": "2-1220",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/80b97a33-a650-4f6c-9e40-d466d92e4bcb"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": -29.15,
//       "YearEndActivity": 0,
//       "RowVersion": "7881026669014679552"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "9904f3e0-0ec1-4fee-be1c-477a8624d515",
//         "Name": "Inventory",
//         "DisplayID": "1-1320",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/9904f3e0-0ec1-4fee-be1c-477a8624d515"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": -18.33,
//       "YearEndActivity": 0,
//       "RowVersion": "-1284645196637667328"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "180a940e-714d-4ebb-88db-3f6044294cad",
//         "Name": "Voluntary Withholdings Payable",
//         "DisplayID": "2-1310",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/180a940e-714d-4ebb-88db-3f6044294cad"
//       },
//       "Year": 2013,
//       "Month": 9,
//       "Activity": 3,
//       "YearEndActivity": 0,
//       "RowVersion": "4479399376443146240"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "44c2047b-5b16-43cf-82ee-d8a174ebec09",
//         "Name": "Voluntary Withholding Credits",
//         "DisplayID": "1-1340",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/44c2047b-5b16-43cf-82ee-d8a174ebec09"
//       },
//       "Year": 2013,
//       "Month": 9,
//       "Activity": 14,
//       "YearEndActivity": 0,
//       "RowVersion": "4335284188367290368"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "b2ff345a-2de6-4160-b319-66d01334a5ad",
//         "Name": "GST Collected",
//         "DisplayID": "2-1210",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/b2ff345a-2de6-4160-b319-66d01334a5ad"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": 24.72,
//       "YearEndActivity": 0,
//       "RowVersion": "-1428760384713523200"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "40ecbafd-51c0-40f3-9a28-d6a2b6d7422a",
//         "Name": "Produce Income",
//         "DisplayID": "4-1000",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/40ecbafd-51c0-40f3-9a28-d6a2b6d7422a"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": 90.91,
//       "YearEndActivity": 0,
//       "RowVersion": "-1572875572789379072"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "737c0032-a48a-48fa-930e-07da50005d0b",
//         "Name": "Cost Of Sales",
//         "DisplayID": "5-1000",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/737c0032-a48a-48fa-930e-07da50005d0b"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": 91.66,
//       "YearEndActivity": 0,
//       "RowVersion": "-1212587602599739392"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "bb628b6e-b113-46df-bb22-cc73ebb33449",
//         "Name": "Trade Debtors",
//         "DisplayID": "1-1310",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/bb628b6e-b113-46df-bb22-cc73ebb33449"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": 198.62,
//       "YearEndActivity": 0,
//       "RowVersion": "-1140530008561811456"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "72bec1c2-49a6-4b02-96d0-5ee79fefdefa",
//         "Name": "Trade Creditors",
//         "DisplayID": "2-1510",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/72bec1c2-49a6-4b02-96d0-5ee79fefdefa"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": 320.7,
//       "YearEndActivity": 0,
//       "RowVersion": "7592796292862967808"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "6ef5febd-4027-4f87-9bb3-2f1d904eb948",
//         "Name": "Accum. Depr. Buildings",
//         "DisplayID": "1-2420",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/6ef5febd-4027-4f87-9bb3-2f1d904eb948"
//       },
//       "Year": 2013,
//       "Month": 9,
//       "Activity": 625,
//       "YearEndActivity": 0,
//       "RowVersion": "4263226594329362432"
//     },
//     {
//       "Category": {
//         "UID": "20b483b2-9a89-4793-b8c3-2da1a6284e1f",
//         "Name": "Postman sample",
//         "DisplayID": "Postman001",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/20b483b2-9a89-4793-b8c3-2da1a6284e1f"
//       },
//       "Account": {
//         "UID": "72bec1c2-49a6-4b02-96d0-5ee79fefdefa",
//         "Name": "Trade Creditors",
//         "DisplayID": "2-1510",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/72bec1c2-49a6-4b02-96d0-5ee79fefdefa"
//       },
//       "Year": 2013,
//       "Month": 9,
//       "Activity": 698.5,
//       "YearEndActivity": 0,
//       "RowVersion": "4191169000291434496"
//     },
//     {
//       "Category": {
//         "UID": "80b6a90d-e22a-47e3-a5e7-a2ee9126f153",
//         "Name": "Craigs Category",
//         "DisplayID": "Craigs",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/80b6a90d-e22a-47e3-a5e7-a2ee9126f153"
//       },
//       "Account": {
//         "UID": "b2ff345a-2de6-4160-b319-66d01334a5ad",
//         "Name": "GST Collected",
//         "DisplayID": "2-1210",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/b2ff345a-2de6-4160-b319-66d01334a5ad"
//       },
//       "Year": 2014,
//       "Month": 1,
//       "Activity": 909.09,
//       "YearEndActivity": 0,
//       "RowVersion": "-7193649382724468736"
//     },
//     {
//       "Category": {
//         "UID": "80b6a90d-e22a-47e3-a5e7-a2ee9126f153",
//         "Name": "Craigs Category",
//         "DisplayID": "Craigs",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/80b6a90d-e22a-47e3-a5e7-a2ee9126f153"
//       },
//       "Account": {
//         "UID": "72bec1c2-49a6-4b02-96d0-5ee79fefdefa",
//         "Name": "Trade Creditors",
//         "DisplayID": "2-1510",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/72bec1c2-49a6-4b02-96d0-5ee79fefdefa"
//       },
//       "Year": 2015,
//       "Month": 8,
//       "Activity": 1155,
//       "YearEndActivity": 0,
//       "RowVersion": "1021479287552737280"
//     },
//     {
//       "Category": {
//         "UID": "80b6a90d-e22a-47e3-a5e7-a2ee9126f153",
//         "Name": "Craigs Category",
//         "DisplayID": "Craigs",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/80b6a90d-e22a-47e3-a5e7-a2ee9126f153"
//       },
//       "Account": {
//         "UID": "40ecbafd-51c0-40f3-9a28-d6a2b6d7422a",
//         "Name": "Produce Income",
//         "DisplayID": "4-1000",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/40ecbafd-51c0-40f3-9a28-d6a2b6d7422a"
//       },
//       "Year": 2014,
//       "Month": 1,
//       "Activity": 9090.91,
//       "YearEndActivity": 0,
//       "RowVersion": "-7265706976762396672"
//     },
//     {
//       "Category": {
//         "UID": "80b6a90d-e22a-47e3-a5e7-a2ee9126f153",
//         "Name": "Craigs Category",
//         "DisplayID": "Craigs",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/80b6a90d-e22a-47e3-a5e7-a2ee9126f153"
//       },
//       "Account": {
//         "UID": "bb628b6e-b113-46df-bb22-cc73ebb33449",
//         "Name": "Trade Debtors",
//         "DisplayID": "1-1310",
//         "URI": "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Account/bb628b6e-b113-46df-bb22-cc73ebb33449"
//       },
//       "Year": 2014,
//       "Month": 1,
//       "Activity": 10000,
//       "YearEndActivity": 0,
//       "RowVersion": "-7337764570800324608"
//     }
//   ],
//   "NextPageLink": null,
//   "Count": 19
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

NextPageLink := CkJsonObject__stringOf(jResp,'NextPageLink');
Count := CkJsonObject_IntOf(jResp,'Count');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Items');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    CategoryUID := CkJsonObject__stringOf(jResp,'Items[i].Category.UID');
    CategoryName := CkJsonObject__stringOf(jResp,'Items[i].Category.Name');
    CategoryDisplayID := CkJsonObject__stringOf(jResp,'Items[i].Category.DisplayID');
    CategoryURI := CkJsonObject__stringOf(jResp,'Items[i].Category.URI');
    AccountUID := CkJsonObject__stringOf(jResp,'Items[i].Account.UID');
    AccountName := CkJsonObject__stringOf(jResp,'Items[i].Account.Name');
    AccountDisplayID := CkJsonObject__stringOf(jResp,'Items[i].Account.DisplayID');
    AccountURI := CkJsonObject__stringOf(jResp,'Items[i].Account.URI');
    Year := CkJsonObject_IntOf(jResp,'Items[i].Year');
    Month := CkJsonObject_IntOf(jResp,'Items[i].Month');
    Activity := CkJsonObject_IntOf(jResp,'Items[i].Activity');
    YearEndActivity := CkJsonObject_IntOf(jResp,'Items[i].YearEndActivity');
    RowVersion := CkJsonObject__stringOf(jResp,'Items[i].RowVersion');
    i := i + 1;
  end;

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);

end;