(Xojo Plugin) SugarCRM Create a Record List

Create a record list in Sugar consisting of a set of ids.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim rest As New Chilkat.Rest
Dim success As Boolean

success = rest.Connect("your.site.domain",443,True,True)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

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

// The following code creates the JSON request body.
// The JSON created by this code is shown below.
Dim jsonReq As New Chilkat.JsonObject
success = jsonReq.UpdateString("records[0]","f16760a4-3a52-f77d-1522-5703ca28925f")
success = jsonReq.UpdateString("records[1]","ec409fbb-2b22-4f32-7fa1-5703caf78dc3")

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

// {
//   "records": [
//     "f16760a4-3a52-f77d-1522-5703ca28925f",
//     "ec409fbb-2b22-4f32-7fa1-5703caf78dc3"
//   ]
// }

Dim sbReq As New Chilkat.StringBuilder
success = jsonReq.EmitSb(sbReq)

success = rest.AddHeader("Content-Type","application/json")

Dim sbJson As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST","/rest/v10/Accounts/record_list",sbReq,sbJson)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

If (rest.ResponseStatusCode <> 200) Then
    System.DebugLog("Received error response code: " + Str(rest.ResponseStatusCode))
    System.DebugLog("Response body:")
    System.DebugLog(sbJson.GetAsString())
    Return
End If

Dim json As New Chilkat.JsonObject
success = json.LoadSb(sbJson)

// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.
Dim id As String
Dim assigned_user_id As String
Dim module_name As String
Dim date_modified As String
Dim i As Int32
Dim count_i As Int32
Dim strVal As String

id = json.StringOf("id")
assigned_user_id = json.StringOf("assigned_user_id")
module_name = json.StringOf("module_name")
date_modified = json.StringOf("date_modified")
i = 0
count_i = json.SizeOfArray("records")
While i < count_i
    json.I = i
    strVal = json.StringOf("records[i]")
    i = i + 1
Wend

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

// {
//   "id": "ef963176-4845-bc55-b03e-570430b4173c",
//   "assigned_user_id": "1",
//   "module_name": "Accounts",
//   "records": [
//     "f16760a4-3a52-f77d-1522-5703ca28925f",
//     "ec409fbb-2b22-4f32-7fa1-5703caf78dc3"
//   ],
//   "date_modified": "2016-04-05 21:39:19"
// }

System.DebugLog("Example Completed.")