(PowerBuilder) JSON FindRecord Example

Demonstrates the FindRecord method for searching an array of JSON records. The data used in this example is available at JSON sample data for FindRecord.

Note: This example requires Chilkat v9.5.0.63 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Json
integer li_Success
string ls_ArrayPath
string ls_RelativePath
string ls_Value
integer li_CaseSensitive
oleobject loo_AccountRec

// Note: This example requires Chilkat v9.5.0.63 or later.
loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Json.LoadFile("qa_data/json/qb_accounts.json")

// A sample of the content of qb_accounts.json is shown at the bottom of this example.
// The goal is to search the array of Account records to return the 1st match

// Find the account with the name "Advertising"
ls_ArrayPath = "QueryResponse.Account"
ls_RelativePath = "Name"
ls_Value = "Advertising"
li_CaseSensitive = 1

loo_AccountRec = loo_Json.FindRecord(ls_ArrayPath,ls_RelativePath,ls_Value,li_CaseSensitive)
if loo_Json.LastMethodSuccess <> 1 then
    Write-Debug "Record not found."
    destroy loo_Json
    return
end if

// The accountRec should contain this:

//       {
//         "Name": "Advertising",
//         "SubAccount": false,
//         "FullyQualifiedName": "Advertising",
//         "Active": true,
//         "Classification": "Expense",
//         "AccountType": "Expense",
//         "AccountSubType": "AdvertisingPromotional",
//         "CurrentBalance": 0,
//         "CurrentBalanceWithSubAccounts": 0,
//         "CurrencyRef": {
//           "value": "USD",
//           "name": "United States Dollar"
//         },
//         "domain": "QBO",
//         "sparse": false,
//         "Id": "7",
//         "SyncToken": "0",
//         "MetaData": {
//           "CreateTime": "2016-09-09T14:42:07-07:00",
//           "LastUpdatedTime": "2016-09-09T14:42:07-07:00"
//         }
//       }

Write-Debug "FullyQualifiedName: " + loo_AccountRec.StringOf("FullyQualifiedName")
Write-Debug "AccountType: " + loo_AccountRec.StringOf("AccountType")
Write-Debug "AccountSubType: " + loo_AccountRec.StringOf("AccountSubType")
Write-Debug "----"
destroy loo_AccountRec

// ------------------------------------------------------------------
// Find the first account where the currency is USD
ls_RelativePath = "CurrencyRef.value"
ls_Value = "USD"
li_CaseSensitive = 1

loo_AccountRec = loo_Json.FindRecord(ls_ArrayPath,ls_RelativePath,ls_Value,li_CaseSensitive)
if loo_Json.LastMethodSuccess <> 1 then
    Write-Debug "Record not found."
    destroy loo_Json
    return
end if

Write-Debug "Name: " + loo_AccountRec.StringOf("Name")
Write-Debug "CurrencyRef.name: " + loo_AccountRec.StringOf("CurrencyRef.name")
Write-Debug "----"
destroy loo_AccountRec

// ------------------------------------------------------------------
// Find the first account with "receivable" in the name (case insensitive)
ls_RelativePath = "Name"
ls_Value = "*receivable*"
li_CaseSensitive = 0

loo_AccountRec = loo_Json.FindRecord(ls_ArrayPath,ls_RelativePath,ls_Value,li_CaseSensitive)
if loo_Json.LastMethodSuccess <> 1 then
    Write-Debug "Record not found."
    destroy loo_Json
    return
end if

Write-Debug "Name: " + loo_AccountRec.StringOf("Name")
Write-Debug "----"
destroy loo_AccountRec

// -----------------------------------------------------------------
// qb_accounts.json contains this data
// 
// {
//   "QueryResponse": {
//     "Account": [
//       {
//         "Name": "Accounts Payable (A/P)",
//         "SubAccount": false,
//         "Description": "Description added during update.",
//         "FullyQualifiedName": "Accounts Payable (A/P)",
//         "Active": true,
//         "Classification": "Liability",
//         "AccountType": "Accounts Payable",
//         "AccountSubType": "AccountsPayable",
//         "CurrentBalance": -1602.67,
//         "CurrentBalanceWithSubAccounts": -1602.67,
//         "CurrencyRef": {
//           "value": "USD",
//           "name": "United States Dollar"
//         },
//         "domain": "QBO",
//         "sparse": false,
//         "Id": "33",
//         "SyncToken": "1",
//         "MetaData": {
//           "CreateTime": "2016-09-10T10:12:02-07:00",
//           "LastUpdatedTime": "2016-10-24T16:41:39-07:00"
//         }
//       },
//       {
//         "Name": "Accounts Receivable (A/R)",
//         "SubAccount": false,
//         "FullyQualifiedName": "Accounts Receivable (A/R)",
//         "Active": true,
//         "Classification": "Asset",
//         "AccountType": "Accounts Receivable",
//         "AccountSubType": "AccountsReceivable",
//         "CurrentBalance": 5281.52,
//         "CurrentBalanceWithSubAccounts": 5281.52,
//         "CurrencyRef": {
//           "value": "USD",
//           "name": "United States Dollar"
//         },
//         "domain": "QBO",
//         "sparse": false,
//         "Id": "84",
//         "SyncToken": "0",
//         "MetaData": {
//           "CreateTime": "2016-09-14T14:49:29-07:00",
//           "LastUpdatedTime": "2016-09-17T13:16:17-07:00"
//         }
//       },
//       {
//         "Name": "Advertising",
//         "SubAccount": false,
//         "FullyQualifiedName": "Advertising",
//         "Active": true,
//         "Classification": "Expense",
//         "AccountType": "Expense",
//         "AccountSubType": "AdvertisingPromotional",
//         "CurrentBalance": 0,
//         "CurrentBalanceWithSubAccounts": 0,
//         "CurrencyRef": {
//           "value": "USD",
//           "name": "United States Dollar"
//         },
//         "domain": "QBO",
//         "sparse": false,
//         "Id": "7",
//         "SyncToken": "0",
//         "MetaData": {
//           "CreateTime": "2016-09-09T14:42:07-07:00",
//           "LastUpdatedTime": "2016-09-09T14:42:07-07:00"
//         }
//       },
//       {
//         "Name": "Arizona Dept. of Revenue Payable",
//         "SubAccount": false,
//         "FullyQualifiedName": "Arizona Dept. of Revenue Payable",
//         "Active": true,
//         "Classification": "Liability",
//         "AccountType": "Other Current Liability",
//         "AccountSubType": "GlobalTaxPayable",
//         "CurrentBalance": 0,
//         "CurrentBalanceWithSubAccounts": 0,
//         "CurrencyRef": {
//           "value": "USD",
//           "name": "United States Dollar"
//         },
//         "domain": "QBO",
//         "sparse": false,
//         "Id": "89",
//         "SyncToken": "0",
//         "MetaData": {
//           "CreateTime": "2016-09-16T12:17:04-07:00",
//           "LastUpdatedTime": "2016-09-17T13:05:01-07:00"
//         }
//       },
//       {
//         "Name": "Automobile",
//         "SubAccount": false,
//         "FullyQualifiedName": "Automobile",
//         "Active": true,
//         "Classification": "Expense",
//         "AccountType": "Expense",
//         "AccountSubType": "Auto",
//         "CurrentBalance": 0,
//         "CurrentBalanceWithSubAccounts": 0,
//         "CurrencyRef": {
//           "value": "USD",
//           "name": "United States Dollar"
//         },
//         "domain": "QBO",
//         "sparse": false,
//         "Id": "55",
//         "SyncToken": "0",
//         "MetaData": {
//           "CreateTime": "2016-09-14T10:15:53-07:00",
//           "LastUpdatedTime": "2016-09-14T10:16:05-07:00"
//         }
//       },
// ...
// 


destroy loo_Json