PureBasic Dynamics CRM: Get All Incidents (Cases) for an Account

Back to Index

Returns selected data for all cases (incidents) specific to the Fourth Coffee account (b6a19cdd-88df-e311-b8e5-6c3be5a8b200)

Documentation: https://docs.microsoft.com/en-us/dynamics365/customer-engagement/web-api/incident?view=dynamics-ce-odata-9

CURL Command

curl -X GET https://my-dynamics-domain.api.crm.dynamics.com/api/data/v9.0/incidents \
  -H "Accept: application/json" \
  -H "OData-MaxVersion: 4.0"  \
  -H "OData-Version: 4.0" \
  -d "$select=title,prioritycode,severitycode,ticketnumber,createdon,followupby,resolveby" \
  -d "$expand=customerid_account($select=accountid,name)" \
  -d "$filter=customerid_account/accountid eq b6a19cdd-88df-e311-b8e5-6c3be5a8b200" \
  -H "Authorization: Bearer DYNAMICS_CRM_ACCESS_TOKEN"

PureBasic Example

IncludeFile "CkJsonObject.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkRest.pb"

Procedure ChilkatExample()

    rest.i = CkRest::ckCreate()
    If rest.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ;  URL: https://my-dynamics-domain.api.crm.dynamics.com/api/data/v9.0/incidents
    bTls.i = 1
    port.i = 443
    bAutoReconnect.i = 1
    success = CkRest::ckConnect(rest,"my-dynamics-domain.api.crm.dynamics.com",port,bTls,bAutoReconnect)
    If success <> 1
        Debug "ConnectFailReason: " + Str(CkRest::ckConnectFailReason(rest))
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    CkRest::ckAddQueryParam(rest,"$select","title,prioritycode,severitycode,ticketnumber,createdon,followupby,resolveby")
    CkRest::ckAddQueryParam(rest,"$expand","customerid_account($select=accountid,name)")
    CkRest::ckAddQueryParam(rest,"$filter","customerid_account/accountid eq b6a19cdd-88df-e311-b8e5-6c3be5a8b200")

    CkRest::ckAddHeader(rest,"OData-MaxVersion","4.0")
    CkRest::ckAddHeader(rest,"Accept","application/json")
    CkRest::ckAddHeader(rest,"OData-Version","4.0")
    CkRest::ckAddHeader(rest,"Authorization","Bearer DYNAMICS_CRM_ACCESS_TOKEN")

    sbResponseBody.i = CkStringBuilder::ckCreate()
    If sbResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkRest::ckFullRequestNoBodySb(rest,"GET","/api/data/v9.0/incidents",sbResponseBody)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkStringBuilder::ckDispose(sbResponseBody)
        ProcedureReturn
    EndIf

    respStatusCode.i = CkRest::ckResponseStatusCode(rest)
    If respStatusCode >= 400
        Debug "Response Status Code = " + Str(respStatusCode)
        Debug "Response Header:"
        Debug CkRest::ckResponseHeader(rest)
        Debug "Response Body:"
        Debug CkStringBuilder::ckGetAsString(sbResponseBody)
        CkRest::ckDispose(rest)
        CkStringBuilder::ckDispose(sbResponseBody)
        ProcedureReturn
    EndIf

    jsonResponse.i = CkJsonObject::ckCreate()
    If jsonResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadSb(jsonResponse,sbResponseBody)

    i.i
    count_i.i

    odataContext.s = CkJsonObject::ckStringOf(jsonResponse,Chr(34) + "@odata.context" + Chr(34))
    i = 0
    count_i = CkJsonObject::ckSizeOfArray(jsonResponse,"value")
    While i < count_i
        CkJsonObject::setCkI(jsonResponse, i)
        odataEtag.s = CkJsonObject::ckStringOf(jsonResponse,"value[i]." + Chr(34) + "@odata.etag" + Chr(34))
        title.s = CkJsonObject::ckStringOf(jsonResponse,"value[i].title")
        prioritycode.i = CkJsonObject::ckIntOf(jsonResponse,"value[i].prioritycode")
        severitycode.i = CkJsonObject::ckIntOf(jsonResponse,"value[i].severitycode")
        ticketnumber.s = CkJsonObject::ckStringOf(jsonResponse,"value[i].ticketnumber")
        createdon.s = CkJsonObject::ckStringOf(jsonResponse,"value[i].createdon")
        followupby.s = CkJsonObject::ckStringOf(jsonResponse,"value[i].followupby")
        resolveby.s = CkJsonObject::ckStringOf(jsonResponse,"value[i].resolveby")
        incidentid.s = CkJsonObject::ckStringOf(jsonResponse,"value[i].incidentid")
        customerid_accountAccountid.s = CkJsonObject::ckStringOf(jsonResponse,"value[i].customerid_account.accountid")
        customerid_accountName.s = CkJsonObject::ckStringOf(jsonResponse,"value[i].customerid_account.name")
        i = i + 1
    Wend


    CkRest::ckDispose(rest)
    CkStringBuilder::ckDispose(sbResponseBody)
    CkJsonObject::ckDispose(jsonResponse)


    ProcedureReturn
EndProcedure

Sample JSON Response Body

{
  "@odata.context": "https://mydomain.api.crm.dynamics.com/api/data/v9.0/$metadata#incidents(title,prioritycode,severitycode,ticketnumber,createdon,followupby,resolveby,customerid_account(accountid,name))",
  "value": [
    {
      "@odata.etag": "W/\"1161596\"",
      "title": "Faulty product catalog",
      "prioritycode": 2,
      "severitycode": 1,
      "ticketnumber": "CAS-01220-S1K8F4",
      "createdon": "2017-01-20T22:50:47Z",
      "followupby": "2015-06-04T16:15:42Z",
      "resolveby": "2015-06-05T16:15:42Z",
      "incidentid": "c49e62a8-90df-e311-9565-a45d36fc5fe8",
      "customerid_account": {
        "accountid": "b6a19cdd-88df-e311-b8e5-6c3be5a8b200",
        "name": "Fourth Coffee"
      }
    },
    {
      "@odata.etag": "W/\"1161597\"",
      "title": "Maintenance information for Desktop PCs.",
      "prioritycode": 3,
      "severitycode": 1,
      "ticketnumber": "CAS-01226-D5F0K2",
      "createdon": "2017-01-20T22:50:54Z",
      "followupby": "2015-06-04T23:15:46Z",
      "resolveby": "2015-06-05T23:15:46Z",
      "incidentid": "d09e62a8-90df-e311-9565-a45d36fc5fe8",
      "customerid_account": {
        "accountid": "b6a19cdd-88df-e311-b8e5-6c3be5a8b200",
        "name": "Fourth Coffee"
      }
    },
    {
      "@odata.etag": "W/\"1161598\"",
      "title": "Need service feature question",
      "prioritycode": 1,
      "severitycode": 1,
      "ticketnumber": "CAS-01232-S7L0X4",
      "createdon": "2017-01-20T22:50:57Z",
      "followupby": "2015-06-04T16:15:49Z",
      "resolveby": "2015-06-05T16:15:49Z",
      "incidentid": "dc9e62a8-90df-e311-9565-a45d36fc5fe8",
      "customerid_account": {
        "accountid": "b6a19cdd-88df-e311-b8e5-6c3be5a8b200",
        "name": "Fourth Coffee"
      }
    },
    {
      "@odata.etag": "W/\"1161599\"",
      "title": "Product catalog requested",
      "prioritycode": 3,
      "severitycode": 1,
      "ticketnumber": "CAS-01237-H0T7F2",
      "createdon": "2017-01-20T22:50:58Z",
      "followupby": null,
      "resolveby": null,
      "incidentid": "e69e62a8-90df-e311-9565-a45d36fc5fe8",
      "customerid_account": {
        "accountid": "b6a19cdd-88df-e311-b8e5-6c3be5a8b200",
        "name": "Fourth Coffee"
      }
    },
    {
      "@odata.etag": "W/\"1161600\"",
      "title": "Product service time inquiry",
      "prioritycode": 1,
      "severitycode": 1,
      "ticketnumber": "CAS-01249-V5V2X3",
      "createdon": "2017-01-20T22:51:04Z",
      "followupby": null,
      "resolveby": null,
      "incidentid": "fe9e62a8-90df-e311-9565-a45d36fc5fe8",
      "customerid_account": {
        "accountid": "b6a19cdd-88df-e311-b8e5-6c3be5a8b200",
        "name": "Fourth Coffee"
      }
    },
    {
      "@odata.etag": "W/\"1161601\"",
      "title": "Service required",
      "prioritycode": 1,
      "severitycode": 1,
      "ticketnumber": "CAS-01256-G9B1B1",
      "createdon": "2017-01-20T22:51:06Z",
      "followupby": "2015-06-04T16:16:06Z",
      "resolveby": "2015-06-05T16:16:06Z",
      "incidentid": "0c9f62a8-90df-e311-9565-a45d36fc5fe8",
      "customerid_account": {
        "accountid": "b6a19cdd-88df-e311-b8e5-6c3be5a8b200",
        "name": "Fourth Coffee"
      }
    },
    {
      "@odata.etag": "W/\"1161602\"",
      "title": "Shipping time information resend",
      "prioritycode": 3,
      "severitycode": 1,
      "ticketnumber": "CAS-01261-N0C8H9",
      "createdon": "2017-01-20T22:51:13Z",
      "followupby": "2015-06-04T16:16:09Z",
      "resolveby": "2015-06-05T16:16:10Z",
      "incidentid": "169f62a8-90df-e311-9565-a45d36fc5fe8",
      "customerid_account": {
        "accountid": "b6a19cdd-88df-e311-b8e5-6c3be5a8b200",
        "name": "Fourth Coffee"
      }
    }
  ]
}