Xbase++ Requires Chilkat v11.0.0+

Activix CRM Create a Communication

See more Activix CRM Examples

Create a communication. Returns the created communication. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJsonRequestBody
LOCAL cUrl
LOCAL oResp
LOCAL oJsonResponse
LOCAL nDataId
LOCAL cDataCreated_at
LOCAL cDataUpdated_at
LOCAL nDataLead_id
LOCAL nDataUser_id
LOCAL cDataMethod
LOCAL cDataType
LOCAL cDataEmail_subject
LOCAL cDataEmail_body
LOCAL cDataEmail_client
LOCAL cDataEmail_user
LOCAL cDataCall_duration
LOCAL cDataCall_phone
LOCAL cDataCall_status

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

oHttp:AuthToken := "ACCESS_TOKEN"

oHttp:Accept := "application/json"

//  The following JSON is sent in the request body:

//  {
//    "lead_id": "LEAD_ID",
//    "method": "phone",
//    "type": "outgoing",
//    "call_status": "calling"
//  }

//  Use this online tool to generate the code from sample JSON: 
//  Generate Code to Create JSON

oJsonRequestBody := CreateObject("Chilkat.JsonObject")
oJsonRequestBody:UpdateString("lead_id", "LEAD_ID")
oJsonRequestBody:UpdateString("method", "phone")
oJsonRequestBody:UpdateString("type", "outgoing")
oJsonRequestBody:UpdateString("call_status", "calling")

cUrl := "https://crm.activix.ca/api/v2/communications"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", cUrl, oJsonRequestBody, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJsonRequestBody:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response Status Code: " + Str(oResp:StatusCode)

oJsonResponse := CreateObject("Chilkat.JsonObject")
oJsonResponse:Load(oResp:BodyStr)
oJsonResponse:EmitCompact := 0
? oJsonResponse:Emit()

IF (oResp:StatusCode >= 300)
    ? "Failed."
    oHttp:destroy()
    oJsonRequestBody:destroy()
    oResp:destroy()
    oJsonResponse:destroy()
    RETURN
ENDIF

//  Sample output...
//  (See the parsing code below..)
//  
//  Use the this online tool to generate parsing code from sample JSON: 
//  Generate Parsing Code from JSON

//  {
//    "data": {
//      "id": 5411998,
//      "created_at": "2019-06-10T13:01:40+00:00",
//      "updated_at": "2019-06-10T13:01:40+00:00",
//      "lead_id": 7135833,
//      "user_id": 13705,
//      "method": "phone",
//      "type": "outgoing",
//      "email_subject": null,
//      "email_body": null,
//      "email_client": null,
//      "email_user": null,
//      "call_duration": null,
//      "call_phone": null,
//      "call_status": "calling"
//    }
//  }
//  

nDataId := oJsonResponse:IntOf("data.id")
cDataCreated_at := oJsonResponse:StringOf("data.created_at")
cDataUpdated_at := oJsonResponse:StringOf("data.updated_at")
nDataLead_id := oJsonResponse:IntOf("data.lead_id")
nDataUser_id := oJsonResponse:IntOf("data.user_id")
cDataMethod := oJsonResponse:StringOf("data.method")
cDataType := oJsonResponse:StringOf("data.type")
cDataEmail_subject := oJsonResponse:StringOf("data.email_subject")
cDataEmail_body := oJsonResponse:StringOf("data.email_body")
cDataEmail_client := oJsonResponse:StringOf("data.email_client")
cDataEmail_user := oJsonResponse:StringOf("data.email_user")
cDataCall_duration := oJsonResponse:StringOf("data.call_duration")
cDataCall_phone := oJsonResponse:StringOf("data.call_phone")
cDataCall_status := oJsonResponse:StringOf("data.call_status")

oHttp:destroy()
oJsonRequestBody:destroy()
oResp:destroy()
oJsonResponse:destroy()