(Tcl) Activix CRM Update a Lead

Demonstrates how to update a lead and returns the updated lead.

For more information, see https://docs.crm.activix.ca/api/resources/lead

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_AuthToken $http "ACCESS_TOKEN"

CkHttp_put_Accept $http "application/json"

# The following JSON is sent in the request body:

# {
#   "first_name": "John",
#   "last_name": "Doe",
#   "advisor": {
#     "first_name": "Johan",
#     "last_name": "Strauss"
#   }
# }

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

set jsonRequestBody [new_CkJsonObject]

CkJsonObject_UpdateString $jsonRequestBody "first_name" "John"
CkJsonObject_UpdateString $jsonRequestBody "last_name" "Doe"
CkJsonObject_UpdateString $jsonRequestBody "advisor.first_name" "Johan"
CkJsonObject_UpdateString $jsonRequestBody "advisor.last_name" "Strauss"

set url "https://crm.activix.ca/api/v2/leads/LEAD_ID"

# resp is a CkHttpResponse
set resp [CkHttp_PText $http "PUT" $url [CkJsonObject_emit $jsonRequestBody] "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"

set jsonResponse [new_CkJsonObject]

CkJsonObject_Load $jsonResponse [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

if {[CkHttpResponse_get_StatusCode $resp] >= 300} then {
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    delete_CkJsonObject $jsonResponse
    exit
}

delete_CkHttpResponse $resp

# 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": 3387562,
#         "created_at": "2018-04-09T18:05:00+00:00",
#         "updated_at": "2018-04-09T18:07:00+00:00",
#         "first_name": "John",
#         "last_name": "Doe",
#         ...
#         "account": {
#             "id": 66,
#             ...
#         },
#         "advisor": {
#             "id": 51112,
#             ...
#         },
#         "emails": [
#             {
#                 "id": 3664451,
#                 ...
#             },
#             ...
#         ],
#         "phones": [
#             {
#                 "id": 9465546,
#                 ...
#             },
#             ...
#         ],
#         "vehicles": [
#             {
#                 "id": 4542214,
#                 ...
#             },
#             ...
#         ]
#     }
# }

set dataId [CkJsonObject_IntOf $jsonResponse "data.id"]
set dataCreated_at [CkJsonObject_stringOf $jsonResponse "data.created_at"]
set dataUpdated_at [CkJsonObject_stringOf $jsonResponse "data.updated_at"]
set dataAccount_id [CkJsonObject_IntOf $jsonResponse "data.account_id"]
set dataAddress_line1 [CkJsonObject_stringOf $jsonResponse "data.address_line1"]
set dataAddress_line2 [CkJsonObject_stringOf $jsonResponse "data.address_line2"]
set dataAppointment_date [CkJsonObject_stringOf $jsonResponse "data.appointment_date"]
set dataAppt_call [CkJsonObject_BoolOf $jsonResponse "data.appt_call"]
set dataAvailable_date [CkJsonObject_stringOf $jsonResponse "data.available_date"]
set dataAverage_spending [CkJsonObject_stringOf $jsonResponse "data.average_spending"]
set dataBe_back_date [CkJsonObject_stringOf $jsonResponse "data.be_back_date"]
set dataBirth_date [CkJsonObject_stringOf $jsonResponse "data.birth_date"]
set dataBusiness [CkJsonObject_stringOf $jsonResponse "data.business"]
set dataCall_date [CkJsonObject_stringOf $jsonResponse "data.call_date"]
set dataCity [CkJsonObject_stringOf $jsonResponse "data.city"]
set dataCivility [CkJsonObject_stringOf $jsonResponse "data.civility"]
set dataCode [CkJsonObject_stringOf $jsonResponse "data.code"]
set dataCountry [CkJsonObject_stringOf $jsonResponse "data.country"]
set dataCsi_date [CkJsonObject_stringOf $jsonResponse "data.csi_date"]
set dataDelivered_by_id [CkJsonObject_stringOf $jsonResponse "data.delivered_by_id"]
set dataDelivered_date [CkJsonObject_stringOf $jsonResponse "data.delivered_date"]
set dataDelivery_date [CkJsonObject_stringOf $jsonResponse "data.delivery_date"]
set dataDivision [CkJsonObject_stringOf $jsonResponse "data.division"]
set dataEnd_service_date [CkJsonObject_stringOf $jsonResponse "data.end_service_date"]
set dataFirst_name [CkJsonObject_stringOf $jsonResponse "data.first_name"]
set dataGas [CkJsonObject_stringOf $jsonResponse "data.gas"]
set dataGender [CkJsonObject_IntOf $jsonResponse "data.gender"]
set dataInvoiced [CkJsonObject_BoolOf $jsonResponse "data.invoiced"]
set dataLast_name [CkJsonObject_stringOf $jsonResponse "data.last_name"]
set dataLast_visit_date [CkJsonObject_stringOf $jsonResponse "data.last_visit_date"]
set dataLocale [CkJsonObject_stringOf $jsonResponse "data.locale"]
set dataLoyalty [CkJsonObject_stringOf $jsonResponse "data.loyalty"]
set dataNext_visit_date [CkJsonObject_stringOf $jsonResponse "data.next_visit_date"]
set dataOdometer_last_visit [CkJsonObject_stringOf $jsonResponse "data.odometer_last_visit"]
set dataOpen_work_order_date [CkJsonObject_stringOf $jsonResponse "data.open_work_order_date"]
set dataPlanned_pick_up_date [CkJsonObject_stringOf $jsonResponse "data.planned_pick_up_date"]
set dataPostal_code [CkJsonObject_stringOf $jsonResponse "data.postal_code"]
set dataPrepaid [CkJsonObject_stringOf $jsonResponse "data.prepaid"]
set dataPrepared [CkJsonObject_BoolOf $jsonResponse "data.prepared"]
set dataPresented_date [CkJsonObject_stringOf $jsonResponse "data.presented_date"]
set dataPromised_date [CkJsonObject_stringOf $jsonResponse "data.promised_date"]
set dataProvince [CkJsonObject_stringOf $jsonResponse "data.province"]
set dataRating [CkJsonObject_stringOf $jsonResponse "data.rating"]
set dataReached_client [CkJsonObject_BoolOf $jsonResponse "data.reached_client"]
set dataRefinanced_date [CkJsonObject_stringOf $jsonResponse "data.refinanced_date"]
set dataRepair_date [CkJsonObject_stringOf $jsonResponse "data.repair_date"]
set dataRepair_order [CkJsonObject_stringOf $jsonResponse "data.repair_order"]
set dataResult [CkJsonObject_stringOf $jsonResponse "data.result"]
set dataRoad_test_date [CkJsonObject_stringOf $jsonResponse "data.road_test_date"]
set dataSale_date [CkJsonObject_stringOf $jsonResponse "data.sale_date"]
set dataSecond_contact [CkJsonObject_stringOf $jsonResponse "data.second_contact"]
set dataSecond_contact_civility [CkJsonObject_stringOf $jsonResponse "data.second_contact_civility"]
set dataSegment [CkJsonObject_stringOf $jsonResponse "data.segment"]
set dataService_cleaned [CkJsonObject_BoolOf $jsonResponse "data.service_cleaned"]
set dataService_interval_km [CkJsonObject_stringOf $jsonResponse "data.service_interval_km"]
set dataService_monthly_km [CkJsonObject_stringOf $jsonResponse "data.service_monthly_km"]
set dataService_processIntention [CkJsonObject_stringOf $jsonResponse "data.service_process.intention"]
set dataService_processTransport [CkJsonObject_stringOf $jsonResponse "data.service_process.transport"]
set dataService_processWalk_around [CkJsonObject_stringOf $jsonResponse "data.service_process.walk_around"]
set dataSex [CkJsonObject_stringOf $jsonResponse "data.sex"]
set dataSource [CkJsonObject_stringOf $jsonResponse "data.source"]
set dataStatus [CkJsonObject_stringOf $jsonResponse "data.status"]
set dataStorage [CkJsonObject_stringOf $jsonResponse "data.storage"]
set dataTake_over_date [CkJsonObject_stringOf $jsonResponse "data.take_over_date"]
set dataType [CkJsonObject_stringOf $jsonResponse "data.type"]
set dataUnsubscribe_all_date [CkJsonObject_stringOf $jsonResponse "data.unsubscribe_all_date"]
set dataUnsubscribe_call_date [CkJsonObject_stringOf $jsonResponse "data.unsubscribe_call_date"]
set dataUnsubscribe_email_date [CkJsonObject_stringOf $jsonResponse "data.unsubscribe_email_date"]
set dataUnsubscribe_sms_date [CkJsonObject_stringOf $jsonResponse "data.unsubscribe_sms_date"]
set dataWork_order [CkJsonObject_stringOf $jsonResponse "data.work_order"]
set dataAccountId [CkJsonObject_IntOf $jsonResponse "data.account.id"]
set dataAccountCreated_at [CkJsonObject_stringOf $jsonResponse "data.account.created_at"]
set dataAccountUpdated_at [CkJsonObject_stringOf $jsonResponse "data.account.updated_at"]
set dataAccountPartner_id [CkJsonObject_IntOf $jsonResponse "data.account.partner_id"]
set dataAccountActivity_report [CkJsonObject_BoolOf $jsonResponse "data.account.activity_report"]
set dataAccountCommercial [CkJsonObject_BoolOf $jsonResponse "data.account.commercial"]
set dataAccountEvent [CkJsonObject_BoolOf $jsonResponse "data.account.event"]
set dataAccountLeadxpress [CkJsonObject_BoolOf $jsonResponse "data.account.leadxpress"]
set dataAccountLoyalty [CkJsonObject_BoolOf $jsonResponse "data.account.loyalty"]
set dataAccountPhone_up [CkJsonObject_BoolOf $jsonResponse "data.account.phone_up"]
set dataAccountRenewal [CkJsonObject_BoolOf $jsonResponse "data.account.renewal"]
set dataAccountSale_table [CkJsonObject_BoolOf $jsonResponse "data.account.sale_table"]
set dataAccountService [CkJsonObject_BoolOf $jsonResponse "data.account.service"]
set dataAccountWalk_in [CkJsonObject_BoolOf $jsonResponse "data.account.walk_in"]
set dataAccountWebboost [CkJsonObject_BoolOf $jsonResponse "data.account.webboost"]
set dataAccountAccount_manager [CkJsonObject_BoolOf $jsonResponse "data.account.account_manager"]
set dataAccountActivation_date [CkJsonObject_stringOf $jsonResponse "data.account.activation_date"]
set dataAccountActive [CkJsonObject_BoolOf $jsonResponse "data.account.active"]
set dataAccountAssigned_lead [CkJsonObject_BoolOf $jsonResponse "data.account.assigned_lead"]
set dataAccountAuto_renewal [CkJsonObject_BoolOf $jsonResponse "data.account.auto_renewal"]
set dataAccountAuto_renewal_new [CkJsonObject_BoolOf $jsonResponse "data.account.auto_renewal_new"]
set dataAccountAuto_renewal_used [CkJsonObject_BoolOf $jsonResponse "data.account.auto_renewal_used"]
set dataAccountAutomation [CkJsonObject_BoolOf $jsonResponse "data.account.automation"]
set dataAccountBdc_advisor [CkJsonObject_BoolOf $jsonResponse "data.account.bdc_advisor"]
set dataAccountCalendar_options [CkJsonObject_BoolOf $jsonResponse "data.account.calendar_options"]
set dataAccountClient_card_fieldsProcessGas [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.process.gas"]
set dataAccountClient_card_fieldsProcessRecorded [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.process.recorded"]
set dataAccountClient_card_fieldsProcessAvailable [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.process.available"]
set dataAccountClient_card_fieldsProcessDiscounted [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.process.discounted"]
set dataAccountClient_card_fieldsCommercialProfit [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.commercial.profit"]
set dataAccountClient_card_fieldsCommercialExclude [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.commercial.exclude"]
set dataAccountClient_card_fieldsCommercialMeeting [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.commercial.meeting"]
set dataAccountClient_card_fieldsPerformanceDeposit [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.performance.deposit"]
set dataAccountClient_card_fieldsPerformanceRefinanced [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.performance.refinanced"]
set dataAccountClient_card_fieldsPerformanceDealer_tour [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.performance.dealer_tour"]
set dataAccountClient_card_fieldsPerformanceWalk_around [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.performance.walk_around"]
set dataAccountClient_card_fieldsPerformanceQualification [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.performance.qualification"]
set dataAccountClient_card_fieldsPerformanceTwenty_four_hour [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.performance.twenty_four_hour"]
set dataAccountClient_card_fieldsGeneral_infoBudget [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.budget"]
set dataAccountClient_card_fieldsGeneral_infoSector [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.sector"]
set dataAccountClient_card_fieldsGeneral_infoCustom_1 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_1"]
set dataAccountClient_card_fieldsGeneral_infoCustom_2 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_2"]
set dataAccountClient_card_fieldsGeneral_infoCustom_3 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_3"]
set dataAccountClient_card_fieldsGeneral_infoCustom_4 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_4"]
set dataAccountClient_card_fieldsGeneral_infoCustom_5 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_5"]
set dataAccountClient_card_fieldsGeneral_infoCustom_6 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_6"]
set dataAccountClient_card_fieldsGeneral_infoCustom_7 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_7"]
set dataAccountClient_card_fieldsGeneral_infoCustom_8 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_8"]
set dataAccountClient_card_fieldsGeneral_infoCustom_9 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_9"]
set dataAccountClient_card_fieldsGeneral_infoCustom_10 [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.custom_10"]
set dataAccountClient_card_fieldsGeneral_infoCommunication_preference [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.general_info.communication_preference"]
set dataAccountClient_card_fieldsWanted_vehicleVin [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.vin"]
set dataAccountClient_card_fieldsWanted_vehicleFuel [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.fuel"]
set dataAccountClient_card_fieldsWanted_vehicleRate [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.rate"]
set dataAccountClient_card_fieldsWanted_vehicleTerm [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.term"]
set dataAccountClient_card_fieldsWanted_vehicleTire [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.tire"]
set dataAccountClient_card_fieldsWanted_vehicleYear [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.year"]
set dataAccountClient_card_fieldsWanted_vehicleColor [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.color"]
set dataAccountClient_card_fieldsWanted_vehiclePrice [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.price"]
set dataAccountClient_card_fieldsWanted_vehicleStock [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.stock"]
set dataAccountClient_card_fieldsWanted_vehicleTotal [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.total"]
set dataAccountClient_card_fieldsWanted_vehicleBudget [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.budget"]
set dataAccountClient_card_fieldsWanted_vehicleEngine [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.engine"]
set dataAccountClient_card_fieldsWanted_vehicleLength [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.length"]
set dataAccountClient_card_fieldsWanted_vehicleProfit [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.profit"]
set dataAccountClient_card_fieldsWanted_vehicleSuffix [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.suffix"]
set dataAccountClient_card_fieldsWanted_vehicleWeight [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.weight"]
set dataAccountClient_card_fieldsWanted_vehicleComment [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.comment"]
set dataAccountClient_card_fieldsWanted_vehicleMileage [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.mileage"]
set dataAccountClient_card_fieldsWanted_vehiclePayment [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.payment"]
set dataAccountClient_card_fieldsWanted_vehicleBodyType [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.bodyType"]
set dataAccountClient_card_fieldsWanted_vehicleCategory [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.category"]
set dataAccountClient_card_fieldsWanted_vehicleModality [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.modality"]
set dataAccountClient_card_fieldsWanted_vehicleResidual [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.residual"]
set dataAccountClient_card_fieldsWanted_vehicleSleeping [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.sleeping"]
set dataAccountClient_card_fieldsWanted_vehicleWarranty [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.warranty"]
set dataAccountClient_card_fieldsWanted_vehicleFrequency [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.frequency"]
set dataAccountClient_card_fieldsWanted_vehicleAccessories [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.accessories"]
set dataAccountClient_card_fieldsWanted_vehicleCategory_rv [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.category_rv"]
set dataAccountClient_card_fieldsWanted_vehiclePreparation [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.preparation"]
set dataAccountClient_card_fieldsWanted_vehicleInitial_cash [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.initial_cash"]
set dataAccountClient_card_fieldsWanted_vehicleOffer_number [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.offer_number"]
set dataAccountClient_card_fieldsWanted_vehicleOrder_number [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.order_number"]
set dataAccountClient_card_fieldsWanted_vehicleTransmission [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.transmission"]
set dataAccountClient_card_fieldsWanted_vehicleDocumentation [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.documentation"]
set dataAccountClient_card_fieldsWanted_vehicleDrivingWheels [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.drivingWheels"]
set dataAccountClient_card_fieldsWanted_vehicleColor_exterior [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.color_exterior"]
set dataAccountClient_card_fieldsWanted_vehicleColor_interior [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.color_interior"]
set dataAccountClient_card_fieldsWanted_vehicleAllowed_mileage [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.allowed_mileage"]
set dataAccountClient_card_fieldsWanted_vehicleSecurity_deposit [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.security_deposit"]
set dataAccountClient_card_fieldsWanted_vehicleEnd_contract_date [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.wanted_vehicle.end_contract_date"]
set dataAccountClient_card_fieldsExchange_vehicleVin [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.vin"]
set dataAccountClient_card_fieldsExchange_vehicleFuel [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.fuel"]
set dataAccountClient_card_fieldsExchange_vehicleLink [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.link"]
set dataAccountClient_card_fieldsExchange_vehicleRate [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.rate"]
set dataAccountClient_card_fieldsExchange_vehicleTerm [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.term"]
set dataAccountClient_card_fieldsExchange_vehicleYear [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.year"]
set dataAccountClient_card_fieldsExchange_vehicleColor [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.color"]
set dataAccountClient_card_fieldsExchange_vehiclePrice [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.price"]
set dataAccountClient_card_fieldsExchange_vehicleStock [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.stock"]
set dataAccountClient_card_fieldsExchange_vehicleValue [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.value"]
set dataAccountClient_card_fieldsExchange_vehicleBudget [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.budget"]
set dataAccountClient_card_fieldsExchange_vehicleEngine [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.engine"]
set dataAccountClient_card_fieldsExchange_vehicleLength [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.length"]
set dataAccountClient_card_fieldsExchange_vehicleProfit [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.profit"]
set dataAccountClient_card_fieldsExchange_vehicleSuffix [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.suffix"]
set dataAccountClient_card_fieldsExchange_vehicleWeight [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.weight"]
set dataAccountClient_card_fieldsExchange_vehicleBalance [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.balance"]
set dataAccountClient_card_fieldsExchange_vehicleComment [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.comment"]
set dataAccountClient_card_fieldsExchange_vehicleMileage [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.mileage"]
set dataAccountClient_card_fieldsExchange_vehiclePayment [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.payment"]
set dataAccountClient_card_fieldsExchange_vehicleRenewal [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.renewal"]
set dataAccountClient_card_fieldsExchange_vehicleSold_by [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.sold_by"]
set dataAccountClient_card_fieldsExchange_vehicleBodyType [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.bodyType"]
set dataAccountClient_card_fieldsExchange_vehicleCategory [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.category"]
set dataAccountClient_card_fieldsExchange_vehicleModality [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.modality"]
set dataAccountClient_card_fieldsExchange_vehicleResidual [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.residual"]
set dataAccountClient_card_fieldsExchange_vehicleSleeping [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.sleeping"]
set dataAccountClient_card_fieldsExchange_vehicleWarranty [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.warranty"]
set dataAccountClient_card_fieldsExchange_vehicleCondition [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.condition"]
set dataAccountClient_card_fieldsExchange_vehicleFrequency [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.frequency"]
set dataAccountClient_card_fieldsExchange_vehicleIntention [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.intention"]
set dataAccountClient_card_fieldsExchange_vehicleRefinance [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.refinance"]
set dataAccountClient_card_fieldsExchange_vehicleRequested [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.requested"]
set dataAccountClient_card_fieldsExchange_vehicleSold_date [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.sold_date"]
set dataAccountClient_card_fieldsExchange_vehicleCategory_rv [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.category_rv"]
set dataAccountClient_card_fieldsExchange_vehicleInstitution [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.institution"]
set dataAccountClient_card_fieldsExchange_vehicleInitial_cash [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.initial_cash"]
set dataAccountClient_card_fieldsExchange_vehicleOffer_number [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.offer_number"]
set dataAccountClient_card_fieldsExchange_vehicleTransmission [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.transmission"]
set dataAccountClient_card_fieldsExchange_vehicleDrivingWheels [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.drivingWheels"]
set dataAccountClient_card_fieldsExchange_vehicleColor_exterior [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.color_exterior"]
set dataAccountClient_card_fieldsExchange_vehicleColor_interior [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.color_interior"]
set dataAccountClient_card_fieldsExchange_vehicleAllowed_mileage [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.allowed_mileage"]
set dataAccountClient_card_fieldsExchange_vehicleSecurity_deposit [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.security_deposit"]
set dataAccountClient_card_fieldsExchange_vehicleEnd_contract_date [CkJsonObject_BoolOf $jsonResponse "data.account.client_card_fields.exchange_vehicle.end_contract_date"]
set dataAccountClient_number [CkJsonObject_BoolOf $jsonResponse "data.account.client_number"]
set dataAccountConfirmation_appt [CkJsonObject_BoolOf $jsonResponse "data.account.confirmation_appt"]
set dataAccountCredit [CkJsonObject_BoolOf $jsonResponse "data.account.credit"]
set dataAccountCsi [CkJsonObject_BoolOf $jsonResponse "data.account.csi"]
set dataAccountCsi_used [CkJsonObject_BoolOf $jsonResponse "data.account.csi_used"]
set dataAccountDefault_deliveryman_user_id [CkJsonObject_stringOf $jsonResponse "data.account.default_deliveryman_user_id"]
set dataAccountDelivered_by [CkJsonObject_BoolOf $jsonResponse "data.account.delivered_by"]
set dataAccountDisable_communication_audio [CkJsonObject_BoolOf $jsonResponse "data.account.disable_communication_audio"]
set dataAccountDuplicates [CkJsonObject_BoolOf $jsonResponse "data.account.duplicates"]
set dataAccountGuest_action [CkJsonObject_BoolOf $jsonResponse "data.account.guest_action"]
set dataAccountEmail_client [CkJsonObject_BoolOf $jsonResponse "data.account.email_client"]
set dataAccountIn_turn [CkJsonObject_BoolOf $jsonResponse "data.account.in_turn"]
set dataAccountIn_turn_director_management [CkJsonObject_BoolOf $jsonResponse "data.account.in_turn_director_management"]
set dataAccountLeads_other_division [CkJsonObject_BoolOf $jsonResponse "data.account.leads_other_division"]
set dataAccountLeadxpress_optionPriority [CkJsonObject_IntOf $jsonResponse "data.account.leadxpress_option.priority"]
set dataAccountLeadxpress_optionReminderFrequency [CkJsonObject_IntOf $jsonResponse "data.account.leadxpress_option.reminder.frequency"]
set dataAccountLeadxpress_optionReminderRecurrence [CkJsonObject_IntOf $jsonResponse "data.account.leadxpress_option.reminder.recurrence"]
set dataAccountLeadxpress_optionScheduleAccount [CkJsonObject_BoolOf $jsonResponse "data.account.leadxpress_option.schedule.account"]
set dataAccountLeadxpress_optionScheduleAdvisor [CkJsonObject_BoolOf $jsonResponse "data.account.leadxpress_option.schedule.advisor"]
set dataAccountLimited_audio_access [CkJsonObject_BoolOf $jsonResponse "data.account.limited_audio_access"]
set dataAccountLogo [CkJsonObject_stringOf $jsonResponse "data.account.logo"]
set dataAccountLogo_en [CkJsonObject_stringOf $jsonResponse "data.account.logo_en"]
set dataAccountMandatory_coordinate [CkJsonObject_BoolOf $jsonResponse "data.account.mandatory_coordinate"]
set dataAccountManually_status [CkJsonObject_BoolOf $jsonResponse "data.account.manually_status"]
set dataAccountMerge_rule [CkJsonObject_stringOf $jsonResponse "data.account.merge_rule"]
set dataAccountMonth_start_day [CkJsonObject_IntOf $jsonResponse "data.account.month_start_day"]
set dataAccountName [CkJsonObject_stringOf $jsonResponse "data.account.name"]
set dataAccountNiotext [CkJsonObject_BoolOf $jsonResponse "data.account.niotext"]
set dataAccountNiotext_phone [CkJsonObject_BoolOf $jsonResponse "data.account.niotext_phone"]
set dataAccountPhone [CkJsonObject_stringOf $jsonResponse "data.account.phone"]
set dataAccountPower_sport [CkJsonObject_BoolOf $jsonResponse "data.account.power_sport"]
set dataAccountProcess [CkJsonObject_BoolOf $jsonResponse "data.account.process"]
set dataAccountRecreative_special [CkJsonObject_BoolOf $jsonResponse "data.account.recreative_special"]
set dataAccountResult_date_validation [CkJsonObject_BoolOf $jsonResponse "data.account.result_date_validation"]
set dataAccountSale_accessories [CkJsonObject_BoolOf $jsonResponse "data.account.sale_accessories"]
set dataAccountSale_by_phone [CkJsonObject_BoolOf $jsonResponse "data.account.sale_by_phone"]
set dataAccountSale_date_month [CkJsonObject_BoolOf $jsonResponse "data.account.sale_date_month"]
set dataAccountSale_table_optionsAccessory_column [CkJsonObject_BoolOf $jsonResponse "data.account.sale_table_options.accessory_column"]
set dataAccountSale_table_optionsCommercial_column [CkJsonObject_BoolOf $jsonResponse "data.account.sale_table_options.commercial_column"]
set dataAccountSale_table_optionsDivision_grouped_total_column [CkJsonObject_BoolOf $jsonResponse "data.account.sale_table_options.division_grouped_total_column"]
set dataAccountSale_validation [CkJsonObject_BoolOf $jsonResponse "data.account.sale_validation"]
set dataAccountScan [CkJsonObject_BoolOf $jsonResponse "data.account.scan"]
set dataAccountStock_required_for_sale [CkJsonObject_BoolOf $jsonResponse "data.account.stock_required_for_sale"]
set dataAccountTake_over_director [CkJsonObject_BoolOf $jsonResponse "data.account.take_over_director"]
set dataAccountTrade_report [CkJsonObject_BoolOf $jsonResponse "data.account.trade_report"]
set dataAccountUnrestricted_assignment [CkJsonObject_BoolOf $jsonResponse "data.account.unrestricted_assignment"]
set dataAccountUnsubscribe [CkJsonObject_BoolOf $jsonResponse "data.account.unsubscribe"]
set dataAccountUntreated_lead [CkJsonObject_BoolOf $jsonResponse "data.account.untreated_lead"]
set dataAccountVehicle_model_text [CkJsonObject_BoolOf $jsonResponse "data.account.vehicle_model_text"]
set dataAccountVehicle_text [CkJsonObject_BoolOf $jsonResponse "data.account.vehicle_text"]
set dataAccountVerified_sale [CkJsonObject_BoolOf $jsonResponse "data.account.verified_sale"]
set dataAccountVin_decoder [CkJsonObject_BoolOf $jsonResponse "data.account.vin_decoder"]
set dataAccountWaiting_sale_date [CkJsonObject_stringOf $jsonResponse "data.account.waiting_sale_date"]
set dataAccountWaiting_sale_option [CkJsonObject_BoolOf $jsonResponse "data.account.waiting_sale_option"]
set dataAdvisor [CkJsonObject_stringOf $jsonResponse "data.advisor"]
set dataBdc [CkJsonObject_stringOf $jsonResponse "data.bdc"]
set dataCommercial [CkJsonObject_stringOf $jsonResponse "data.commercial"]
set dataService_advisor [CkJsonObject_stringOf $jsonResponse "data.service_advisor"]
set dataService_agent [CkJsonObject_stringOf $jsonResponse "data.service_agent"]
set i 0
set count_i [CkJsonObject_SizeOfArray $jsonResponse "data.emails"]
while {$i < $count_i} {
    CkJsonObject_put_I $jsonResponse $i
    set id [CkJsonObject_IntOf $jsonResponse "data.emails[i].id"]
    set created_at [CkJsonObject_stringOf $jsonResponse "data.emails[i].created_at"]
    set updated_at [CkJsonObject_stringOf $jsonResponse "data.emails[i].updated_at"]
    set lead_id [CkJsonObject_IntOf $jsonResponse "data.emails[i].lead_id"]
    set address [CkJsonObject_stringOf $jsonResponse "data.emails[i].address"]
    set v_type [CkJsonObject_stringOf $jsonResponse "data.emails[i].type"]
    set valid [CkJsonObject_BoolOf $jsonResponse "data.emails[i].valid"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $jsonResponse "data.phones"]
while {$i < $count_i} {
    CkJsonObject_put_I $jsonResponse $i
    set id [CkJsonObject_IntOf $jsonResponse "data.phones[i].id"]
    set created_at [CkJsonObject_stringOf $jsonResponse "data.phones[i].created_at"]
    set updated_at [CkJsonObject_stringOf $jsonResponse "data.phones[i].updated_at"]
    set lead_id [CkJsonObject_IntOf $jsonResponse "data.phones[i].lead_id"]
    set extension [CkJsonObject_stringOf $jsonResponse "data.phones[i].extension"]
    set number [CkJsonObject_stringOf $jsonResponse "data.phones[i].number"]
    set v_type [CkJsonObject_stringOf $jsonResponse "data.phones[i].type"]
    set valid [CkJsonObject_BoolOf $jsonResponse "data.phones[i].valid"]
    set validated [CkJsonObject_BoolOf $jsonResponse "data.phones[i].validated"]
    set mobile [CkJsonObject_BoolOf $jsonResponse "data.phones[i].mobile"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $jsonResponse "data.vehicles"]
while {$i < $count_i} {
    CkJsonObject_put_I $jsonResponse $i
    set id [CkJsonObject_IntOf $jsonResponse "data.vehicles[i].id"]
    set created_at [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].created_at"]
    set updated_at [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].updated_at"]
    set lead_id [CkJsonObject_IntOf $jsonResponse "data.vehicles[i].lead_id"]
    set accessories [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].accessories"]
    set allowed_odometer [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].allowed_odometer"]
    set balance [CkJsonObject_IntOf $jsonResponse "data.vehicles[i].balance"]
    set budget_max [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].budget_max"]
    set budget_min [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].budget_min"]
    set cash_down [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].cash_down"]
    set category [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].category"]
    set category_rv [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].category_rv"]
    set client_number [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].client_number"]
    set color_exterior [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].color_exterior"]
    set color_interior [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].color_interior"]
    set comment [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].comment"]
    set condition [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].condition"]
    set end_contract_date [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].end_contract_date"]
    set end_warranty_date [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].end_warranty_date"]
    set engine [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].engine"]
    set extended_warranty [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].extended_warranty"]
    set fuel [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].fuel"]
    set length_max [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].length_max"]
    set length_min [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].length_min"]
    set license_plate [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].license_plate"]
    set make [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].make"]
    set modality [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].modality"]
    set model [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].model"]
    set odometer [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].odometer"]
    set offer_number [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].offer_number"]
    set v_option [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].option"]
    set order_number [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].order_number"]
    set payment [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].payment"]
    set payment_frequency [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].payment_frequency"]
    set preparation [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].preparation"]
    set price [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].price"]
    set profit [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].profit"]
    set purchase_date [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].purchase_date"]
    set rate [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].rate"]
    set recall [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].recall"]
    set recorded_date [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].recorded_date"]
    set residual [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].residual"]
    set security_deposit [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].security_deposit"]
    set sleeping [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].sleeping"]
    set sold [CkJsonObject_BoolOf $jsonResponse "data.vehicles[i].sold"]
    set sold_by [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].sold_by"]
    set sold_date [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].sold_date"]
    set stock [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].stock"]
    set stock_state [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].stock_state"]
    set term [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].term"]
    set tire [CkJsonObject_BoolOf $jsonResponse "data.vehicles[i].tire"]
    set transmission [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].transmission"]
    set trim [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].trim"]
    set v_type [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].type"]
    set url [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].url"]
    set value [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].value"]
    set vin [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].vin"]
    set warranty [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].warranty"]
    set weight [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].weight"]
    set year [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].year"]
    set year_max [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].year_max"]
    set year_min [CkJsonObject_stringOf $jsonResponse "data.vehicles[i].year_min"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $jsonResponse "data.related_ids"]
while {$i < $count_i} {
    CkJsonObject_put_I $jsonResponse $i
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkJsonObject $jsonRequestBody
delete_CkJsonObject $jsonResponse