(Lianja) SugarCRM Filtering Records

Export records and filter.

Chilkat Lianja Extension Download Chilkat Lianja Extension

loRest = createobject("CkRest")

llSuccess = loRest.Connect("your.site.domain",443,.T.,.T.)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    return
endif

loRest.AddHeader("Cache-Control","no-cache")
loRest.AddHeader("OAuth-Token","<access_token>")

// The following code creates the JSON request body.
// The JSON created by this code is shown below.
loJsonReq = createobject("CkJsonObject")
loJsonReq.UpdateString("filter[0].$or[0].name.$starts","A")
loJsonReq.UpdateString("filter[0].$or[1].name.$starts","b")
loJsonReq.UpdateNumber("max_num","2")
loJsonReq.UpdateNumber("offset","0")
loJsonReq.UpdateString("fields","id")
loJsonReq.UpdateString("order_by","date_entered")
loJsonReq.UpdateBool("favorites",.F.)
loJsonReq.UpdateBool("my_items",.F.)

// The JSON request body created by the above code:

// {
//   "filter": [
//     {
//       "$or": [
//         {
//           "name": {
//             "$starts": "A"
//           }
//         },
//         {
//           "name": {
//             "$starts": "b"
//           }
//         }
//       ]
//     }
//   ],
//   "max_num": 2,
//   "offset": 0,
//   "fields": "id",
//   "order_by": "date_entered",
//   "favorites": false,
//   "my_items": false
// }

loSbReq = createobject("CkStringBuilder")
loJsonReq.EmitSb(loSbReq)

loRest.AddHeader("Content-Type","application/json")

loSbJson = createobject("CkStringBuilder")
llSuccess = loRest.FullRequestSb("POST","/rest/v10/Accounts/filter",loSbReq,loSbJson)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    release loJsonReq
    release loSbReq
    release loSbJson
    return
endif

if (loRest.ResponseStatusCode <> 200) then
    ? "Received error response code: " + str(loRest.ResponseStatusCode)
    ? "Response body:"
    ? loSbJson.GetAsString()
    release loRest
    release loJsonReq
    release loSbReq
    release loSbJson
    return
endif

loJson = createobject("CkJsonObject")
loJson.LoadSb(loSbJson)

// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.

lnNext_offset = loJson.IntOf("next_offset")
i = 0
lnCount_i = loJson.SizeOfArray("records")
do while i < lnCount_i
    loJson.I = i
    lcId = loJson.StringOf("records[i].id")
    lcDate_modified = loJson.StringOf("records[i].date_modified")
    lcV_module = loJson.StringOf("records[i]._module")
    i = i + 1
enddo

// A sample JSON response body that is parsed by the above code:

// {
//   "next_offset": 2,
//   "records": [
//     {
//       "id": "f16760a4-3a52-f77d-1522-5703ca28925f",
//       "date_modified": "2016-04-05T10:23:28-04:00",
//       "_acl": {
//         "fields": {}
//       },
//       "_module": "Accounts"
//     },
//     {
//       "id": "ec409fbb-2b22-4f32-7fa1-5703caf78dc3",
//       "date_modified": "2016-04-05T10:23:28-04:00",
//       "_acl": {
//         "fields": {}
//       },
//       "_module": "Accounts"
//     }
//   ]
// }

? "Example Completed."


release loRest
release loJsonReq
release loSbReq
release loSbJson
release loJson