Back to Collection Items
Use ChilkatAx-win32.pkg
Procedure Test
Handle hoHttp
Boolean iSuccess
Variant vJson
Handle hoJson
Variant vResp
Handle hoResp
String sTemp1
Integer iTemp1
Boolean bTemp1
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
// Use this online tool to generate code from sample JSON: Generate Code to Create JSON
// The following JSON is sent in the request body.
// {
// "ratePlanScheduleList": [
// {
// "roomTypeList": [
// "DLXK",
// "DLXQ"
// ],
// "sunday": true,
// "monday": true,
// "tuesday": true,
// "wednesday": true,
// "thursday": true,
// "friday": true,
// "saturday": true,
// "rateAmounts": {
// "onePersonRate": "220",
// "twoPersonRate": "250",
// "threePersonRate": "280",
// "fourPersonRate": "300",
// "rateByAgeBuckets": [
// {
// "minimumAge": "1",
// "maximumAge": "17"
// }
// ],
// "overrideFloorAmount": true
// },
// "classifications": {},
// "rateSchedulePackages": {
// "packages": [
// {
// "header": {},
// "schedules": [
// ],
// "code": "PKG2",
// "description": "Chocolates Package"
// }
// ],
// "packageGroups": [
// ]
// },
// "tierID": "1",
// "start": "2020-12-01",
// "end": "2020-12-31"
// }
// ],
// "hotelId": "{{HotelId}}",
// "ratePlanCode": "{{RatePlanCode}}"
// }
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].roomTypeList[0]" "DLXK" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].roomTypeList[1]" "DLXQ" To iSuccess
Get ComUpdateBool Of hoJson "ratePlanScheduleList[0].sunday" True To iSuccess
Get ComUpdateBool Of hoJson "ratePlanScheduleList[0].monday" True To iSuccess
Get ComUpdateBool Of hoJson "ratePlanScheduleList[0].tuesday" True To iSuccess
Get ComUpdateBool Of hoJson "ratePlanScheduleList[0].wednesday" True To iSuccess
Get ComUpdateBool Of hoJson "ratePlanScheduleList[0].thursday" True To iSuccess
Get ComUpdateBool Of hoJson "ratePlanScheduleList[0].friday" True To iSuccess
Get ComUpdateBool Of hoJson "ratePlanScheduleList[0].saturday" True To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].rateAmounts.onePersonRate" "220" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].rateAmounts.twoPersonRate" "250" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].rateAmounts.threePersonRate" "280" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].rateAmounts.fourPersonRate" "300" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].rateAmounts.rateByAgeBuckets[0].minimumAge" "1" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].rateAmounts.rateByAgeBuckets[0].maximumAge" "17" To iSuccess
Get ComUpdateBool Of hoJson "ratePlanScheduleList[0].rateAmounts.overrideFloorAmount" True To iSuccess
Get ComUpdateNewObject Of hoJson "ratePlanScheduleList[0].classifications" To iSuccess
Get ComUpdateNewObject Of hoJson "ratePlanScheduleList[0].rateSchedulePackages.packages[0].header" To iSuccess
Get ComUpdateNewArray Of hoJson "ratePlanScheduleList[0].rateSchedulePackages.packages[0].schedules" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].rateSchedulePackages.packages[0].code" "PKG2" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].rateSchedulePackages.packages[0].description" "Chocolates Package" To iSuccess
Get ComUpdateNewArray Of hoJson "ratePlanScheduleList[0].rateSchedulePackages.packageGroups" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].tierID" "1" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].start" "2020-12-01" To iSuccess
Get ComUpdateString Of hoJson "ratePlanScheduleList[0].end" "2020-12-31" To iSuccess
Get ComUpdateString Of hoJson "hotelId" "{{HotelId}}" To iSuccess
Get ComUpdateString Of hoJson "ratePlanCode" "{{RatePlanCode}}" To iSuccess
Send ComSetRequestHeader To hoHttp "Content-Type" "application/json;charset=UTF-8"
Send ComSetRequestHeader To hoHttp "x-hotelid" "{{HotelId}}"
// Adds the "Authorization: Bearer <access_token>" header.
Set ComAuthToken Of hoHttp To "<access_token>"
Send ComSetRequestHeader To hoHttp "Accept" "application/json;charset=UTF-8"
Send ComSetRequestHeader To hoHttp "x-app-key" "{{AppKey}}"
Get pvComObject of hoJson to vJson
Get ComPostJson3 Of hoHttp "https://domain.com/rtp/v0/hotels/{{HotelId}}/ratePlans/{{RatePlanCode}}/schedules" "application/json;charset=UTF-8" vJson To vResp
If (IsComObject(vResp)) Begin
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
Set pvComObject Of hoResp To vResp
End
Get ComLastMethodSuccess Of hoHttp To bTemp1
If (bTemp1 = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComStatusCode Of hoResp To iTemp1
Showln iTemp1
Get ComBodyStr Of hoResp To sTemp1
Showln sTemp1
Send Destroy of hoResp
End_Procedure
Curl Command
curl -X POST
-H "Authorization: Bearer <access_token>"
-H "Content-Type: application/json;charset=UTF-8"
-H "Accept: application/json;charset=UTF-8"
-H "x-hotelid: {{HotelId}}"
-H "x-app-key: {{AppKey}}"
-d '{
"ratePlanScheduleList": [
{
"roomTypeList": [
"DLXK",
"DLXQ"
],
"sunday": true,
"monday": true,
"tuesday": true,
"wednesday": true,
"thursday": true,
"friday": true,
"saturday": true,
"rateAmounts": {
"onePersonRate": "220",
"twoPersonRate": "250",
"threePersonRate": "280",
"fourPersonRate": "300",
"rateByAgeBuckets": [
{
"minimumAge": "1",
"maximumAge": "17"
}
],
"overrideFloorAmount": true
},
"classifications": {},
"rateSchedulePackages": {
"packages": [
{
"header": {},
"schedules": [],
"code": "PKG2",
"description": "Chocolates Package"
}
],
"packageGroups": []
},
"tierID": "1",
"start": "2020-12-01",
"end": "2020-12-31"
}
],
"hotelId": "{{HotelId}}",
"ratePlanCode": "{{RatePlanCode}}"
}'
https://domain.com/rtp/v0/hotels/{{HotelId}}/ratePlans/{{RatePlanCode}}/schedules
Postman Collection Item JSON
{
"name": "Create Rate Plan Schedules with a package",
"request": {
"auth": {
"type": "bearer",
"bearer": [
{
"key": "token",
"value": "{{Token}}",
"type": "string"
}
]
},
"method": "POST",
"header": [
{
"key": "Content-Type",
"type": "text",
"value": "application/json;charset=UTF-8"
},
{
"key": "Accept",
"type": "text",
"value": "application/json;charset=UTF-8"
},
{
"key": "x-hotelid",
"type": "text",
"value": "{{HotelId}}"
},
{
"key": "x-app-key",
"type": "text",
"value": "{{AppKey}}"
}
],
"body": {
"mode": "raw",
"raw": "{\r\n \"ratePlanScheduleList\": [\r\n {\r\n \"roomTypeList\": [\r\n \"DLXK\",\r\n \"DLXQ\"\r\n ],\r\n \"sunday\": true,\r\n \"monday\": true,\r\n \"tuesday\": true,\r\n \"wednesday\": true,\r\n \"thursday\": true,\r\n \"friday\": true,\r\n \"saturday\": true,\r\n \"rateAmounts\": {\r\n \"onePersonRate\": \"220\",\r\n \"twoPersonRate\": \"250\",\r\n \"threePersonRate\": \"280\",\r\n \"fourPersonRate\": \"300\",\r\n \"rateByAgeBuckets\": [\r\n {\r\n \"minimumAge\": \"1\",\r\n \"maximumAge\": \"17\"\r\n }\r\n ],\r\n \"overrideFloorAmount\": true\r\n },\r\n \"classifications\": {},\r\n \"rateSchedulePackages\": {\r\n \"packages\": [\r\n {\r\n \"header\": {},\r\n \"schedules\": [],\r\n \"code\": \"PKG2\",\r\n \"description\": \"Chocolates Package\"\r\n }\r\n ],\r\n \"packageGroups\": []\r\n },\r\n \"tierID\": \"1\",\r\n \"start\": \"2020-12-01\",\r\n \"end\": \"2020-12-31\"\r\n }\r\n ],\r\n \"hotelId\": \"{{HotelId}}\",\r\n \"ratePlanCode\": \"{{RatePlanCode}}\"\r\n}"
},
"url": {
"raw": "{{HostName}}/rtp/v0/hotels/{{HotelId}}/ratePlans/{{RatePlanCode}}/schedules",
"host": [
"{{HostName}}"
],
"path": [
"rtp",
"v0",
"hotels",
"{{HotelId}}",
"ratePlans",
"{{RatePlanCode}}",
"schedules"
]
},
"description": "Use this operation to add a package (such as Breakfast, or box of chocolated) to a rate plan."
},
"response": [
]
}
