Chilkat Online Tools

VB6 / ORACLE Hospitality OPERA Cloud REST API Workflows / Update the guest profile with new contact details

Back to Collection Items

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

Dim http As New ChilkatHttp
Dim success As Long

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

' The following JSON is sent in the request body.

' {
'   "profileDetails": {
'     "addresses": {
'       "addressInfo": [
'         {
'           "address": {
'             "addressLine": [
'               "2640 Golden Gate Parkway",
'               "Suite 300",
'               "",
'               ""
'             ],
'             "cityName": "Naples",
'             "postalCode": "34105",
'             "state": "FL",
'             "language": "E",
'             "type": "HOME",
'             "typeDescription": "Home Address",
'             "primaryInd": true
'           }
'         }
'       ]
'     },
'     "telephones": {
'       "telephoneInfo": [
'         {
'           "telephone": {
'             "phoneTechType": "PHONE",
'             "phoneUseType": "MOBILE",
'             "phoneUseTypeDescription": "Mobile Phone Number",
'             "phoneNumber": "+1 415 555 0101",
'             "primaryInd": true,
'             "orderSequence": "1"
'           }
'         }
'       ]
'     },
'     "statusCode": "ACTIVE",
'     "markForHistory": false,
'     "hasCommission": false
'   }
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.addressLine[0]","2640 Golden Gate Parkway")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.addressLine[1]","Suite 300")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.addressLine[2]","")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.addressLine[3]","")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.cityName","Naples")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.postalCode","34105")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.state","FL")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.language","E")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.type","HOME")
success = json.UpdateString("profileDetails.addresses.addressInfo[0].address.typeDescription","Home Address")
success = json.UpdateBool("profileDetails.addresses.addressInfo[0].address.primaryInd",1)
success = json.UpdateString("profileDetails.telephones.telephoneInfo[0].telephone.phoneTechType","PHONE")
success = json.UpdateString("profileDetails.telephones.telephoneInfo[0].telephone.phoneUseType","MOBILE")
success = json.UpdateString("profileDetails.telephones.telephoneInfo[0].telephone.phoneUseTypeDescription","Mobile Phone Number")
success = json.UpdateString("profileDetails.telephones.telephoneInfo[0].telephone.phoneNumber","+1 415 555 0101")
success = json.UpdateBool("profileDetails.telephones.telephoneInfo[0].telephone.primaryInd",1)
success = json.UpdateString("profileDetails.telephones.telephoneInfo[0].telephone.orderSequence","1")
success = json.UpdateString("profileDetails.statusCode","ACTIVE")
success = json.UpdateBool("profileDetails.markForHistory",0)
success = json.UpdateBool("profileDetails.hasCommission",0)

http.SetRequestHeader "Content-Type","application/json"
http.SetRequestHeader "x-app-key","{{AppKey}}"
http.SetRequestHeader "x-hotelid","{{HotelId}}"
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"

Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)

Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("PUT","https://domain.com/crm/v1/profiles/{{ProfileId}}",sbRequestBody,"utf-8","application/json",0,0)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print resp.StatusCode
Debug.Print resp.BodyStr

Curl Command

curl -X PUT
	-H "Authorization: Bearer <access_token>"
	-H "Content-Type: application/json"
	-H "x-app-key: {{AppKey}}"
	-H "x-hotelid: {{HotelId}}"
	-d '{
  "profileDetails": {
    "addresses": {
      "addressInfo": [
        {
          "address": {
            "addressLine": [
              "2640 Golden Gate Parkway",
              "Suite 300",
              "",
              ""
            ],
            "cityName": "Naples",
            "postalCode": "34105",
            "state": "FL",
            "language": "E",
            "type": "HOME",
            "typeDescription": "Home Address",
            "primaryInd": true
          }
        }
      ]
    },
    "telephones": {
      "telephoneInfo": [
        {
          "telephone": {
            "phoneTechType": "PHONE",
            "phoneUseType": "MOBILE",
            "phoneUseTypeDescription": "Mobile Phone Number",
            "phoneNumber": "+1 415 555 0101",
            "primaryInd": true,
            "orderSequence": "1"
          }
        }
      ]
    },
    "statusCode": "ACTIVE",
    "markForHistory": false,
    "hasCommission": false
  }
}'
https://domain.com/crm/v1/profiles/{{ProfileId}}

Postman Collection Item JSON

{
  "name": "Update the guest profile with new contact details",
  "request": {
    "auth": {
      "type": "bearer",
      "bearer": [
        {
          "key": "token",
          "value": "{{Token}}",
          "type": "string"
        }
      ]
    },
    "method": "PUT",
    "header": [
      {
        "key": "Content-Type",
        "name": "Content-Type",
        "value": "application/json",
        "type": "text"
      },
      {
        "key": "x-app-key",
        "value": "{{AppKey}}",
        "type": "text"
      },
      {
        "key": "x-hotelid",
        "value": "{{HotelId}}",
        "type": "text"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{\n  \"profileDetails\": {\n    \"addresses\": {\n      \"addressInfo\": [\n        {\n          \"address\": {\n            \"addressLine\": [\n              \"2640 Golden Gate Parkway\",\n              \"Suite 300\",\n              \"\",\n              \"\"\n            ],\n            \"cityName\": \"Naples\",\n            \"postalCode\": \"34105\",\n            \"state\": \"FL\",\n            \"language\": \"E\",\n            \"type\": \"HOME\",\n            \"typeDescription\": \"Home Address\",\n            \"primaryInd\": true\n          }\n        }\n      ]\n    },\n    \"telephones\": {\n      \"telephoneInfo\": [\n        {\n          \"telephone\": {\n            \"phoneTechType\": \"PHONE\",\n            \"phoneUseType\": \"MOBILE\",\n            \"phoneUseTypeDescription\": \"Mobile Phone Number\",\n            \"phoneNumber\": \"+1 415 555 0101\",\n            \"primaryInd\": true,\n            \"orderSequence\": \"1\"\n          }\n        }\n      ]\n    },\n    \"statusCode\": \"ACTIVE\",\n    \"markForHistory\": false,\n    \"hasCommission\": false\n  }\n}",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "{{HostName}}/crm/v1/profiles/{{ProfileId}}",
      "host": [
        "{{HostName}}"
      ],
      "path": [
        "crm",
        "v1",
        "profiles",
        "{{ProfileId}}"
      ]
    }
  },
  "response": [
  ]
}