(Tcl) Activix CRM Search for Leads

Demonstrates how to full-text search for leads, returning a JSON list of leads.

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"

set strResp [CkHttp_quickGetStr $http "https://crm.activix.ca/api/v2/leads/search?query=Doe"]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "Response Status Code: [CkHttp_get_LastStatus $http]"

set jsonResponse [new_CkJsonObject]

CkJsonObject_Load $jsonResponse $strResp
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

if {[CkHttp_get_LastStatus $http] != 200} then {
    puts "Failed."
    delete_CkHttp $http
    delete_CkJsonObject $jsonResponse
    exit
}

# Sample output...
# (See the parsing code below..)
# 
# Use 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,
#                     ...
#                 },
#                 ...
#             ]
#         },
#         ...
#     ],
#     "links": {
#         "first": "https://crm.activix.ca/api/v2/leads/search?query=John&page=1",
#         "last": "https://crm.activix.ca/api/v2/leads/search?query=John&page=47",
#         "prev": null,
#         "next": "https://crm.activix.ca/api/v2/leads/search?query=John&page=2"
#     },
#     "meta": {
#         "current_page": 1,
#         "from": 1,
#         "last_page": 47,
#         "path": "https://crm.activix.ca/api/v2/leads/search",
#         "per_page": 25,
#         "to": 25,
#         "total": 1161
#     }
# }

set linksFirst [CkJsonObject_stringOf $jsonResponse "links.first"]
set linksLast [CkJsonObject_stringOf $jsonResponse "links.last"]
set linksPrev [CkJsonObject_stringOf $jsonResponse "links.prev"]
set linksNext [CkJsonObject_stringOf $jsonResponse "links.next"]
set metaCurrent_page [CkJsonObject_IntOf $jsonResponse "meta.current_page"]
set metaFrom [CkJsonObject_IntOf $jsonResponse "meta.from"]
set metaLast_page [CkJsonObject_IntOf $jsonResponse "meta.last_page"]
set metaPath [CkJsonObject_stringOf $jsonResponse "meta.path"]
set metaPer_page [CkJsonObject_IntOf $jsonResponse "meta.per_page"]
set metaTo [CkJsonObject_IntOf $jsonResponse "meta.to"]
set metaTotal [CkJsonObject_IntOf $jsonResponse "meta.total"]
set i 0
set count_i [CkJsonObject_SizeOfArray $jsonResponse "data"]
while {$i < $count_i} {
    CkJsonObject_put_I $jsonResponse $i
    set id [CkJsonObject_IntOf $jsonResponse "data[i].id"]
    set created_at [CkJsonObject_stringOf $jsonResponse "data[i].created_at"]
    set updated_at [CkJsonObject_stringOf $jsonResponse "data[i].updated_at"]
    set account_id [CkJsonObject_IntOf $jsonResponse "data[i].account_id"]
    set address_line1 [CkJsonObject_stringOf $jsonResponse "data[i].address_line1"]
    set address_line2 [CkJsonObject_stringOf $jsonResponse "data[i].address_line2"]
    set appointment_date [CkJsonObject_stringOf $jsonResponse "data[i].appointment_date"]
    set appt_call [CkJsonObject_BoolOf $jsonResponse "data[i].appt_call"]
    set available_date [CkJsonObject_stringOf $jsonResponse "data[i].available_date"]
    set average_spending [CkJsonObject_stringOf $jsonResponse "data[i].average_spending"]
    set be_back_date [CkJsonObject_stringOf $jsonResponse "data[i].be_back_date"]
    set birth_date [CkJsonObject_stringOf $jsonResponse "data[i].birth_date"]
    set business [CkJsonObject_stringOf $jsonResponse "data[i].business"]
    set call_date [CkJsonObject_stringOf $jsonResponse "data[i].call_date"]
    set city [CkJsonObject_stringOf $jsonResponse "data[i].city"]
    set civility [CkJsonObject_stringOf $jsonResponse "data[i].civility"]
    set code [CkJsonObject_stringOf $jsonResponse "data[i].code"]
    set country [CkJsonObject_stringOf $jsonResponse "data[i].country"]
    set csi_date [CkJsonObject_stringOf $jsonResponse "data[i].csi_date"]
    set delivered_by_id [CkJsonObject_stringOf $jsonResponse "data[i].delivered_by_id"]
    set delivered_date [CkJsonObject_stringOf $jsonResponse "data[i].delivered_date"]
    set delivery_date [CkJsonObject_stringOf $jsonResponse "data[i].delivery_date"]
    set division [CkJsonObject_stringOf $jsonResponse "data[i].division"]
    set end_service_date [CkJsonObject_stringOf $jsonResponse "data[i].end_service_date"]
    set first_name [CkJsonObject_stringOf $jsonResponse "data[i].first_name"]
    set gas [CkJsonObject_stringOf $jsonResponse "data[i].gas"]
    set gender [CkJsonObject_IntOf $jsonResponse "data[i].gender"]
    set invoiced [CkJsonObject_BoolOf $jsonResponse "data[i].invoiced"]
    set last_name [CkJsonObject_stringOf $jsonResponse "data[i].last_name"]
    set last_visit_date [CkJsonObject_stringOf $jsonResponse "data[i].last_visit_date"]
    set locale [CkJsonObject_stringOf $jsonResponse "data[i].locale"]
    set loyalty [CkJsonObject_stringOf $jsonResponse "data[i].loyalty"]
    set next_visit_date [CkJsonObject_stringOf $jsonResponse "data[i].next_visit_date"]
    set odometer_last_visit [CkJsonObject_stringOf $jsonResponse "data[i].odometer_last_visit"]
    set open_work_order_date [CkJsonObject_stringOf $jsonResponse "data[i].open_work_order_date"]
    set planned_pick_up_date [CkJsonObject_stringOf $jsonResponse "data[i].planned_pick_up_date"]
    set postal_code [CkJsonObject_stringOf $jsonResponse "data[i].postal_code"]
    set prepaid [CkJsonObject_stringOf $jsonResponse "data[i].prepaid"]
    set prepared [CkJsonObject_BoolOf $jsonResponse "data[i].prepared"]
    set presented_date [CkJsonObject_stringOf $jsonResponse "data[i].presented_date"]
    set promised_date [CkJsonObject_stringOf $jsonResponse "data[i].promised_date"]
    set province [CkJsonObject_stringOf $jsonResponse "data[i].province"]
    set rating [CkJsonObject_stringOf $jsonResponse "data[i].rating"]
    set reached_client [CkJsonObject_BoolOf $jsonResponse "data[i].reached_client"]
    set refinanced_date [CkJsonObject_stringOf $jsonResponse "data[i].refinanced_date"]
    set repair_date [CkJsonObject_stringOf $jsonResponse "data[i].repair_date"]
    set repair_order [CkJsonObject_stringOf $jsonResponse "data[i].repair_order"]
    set result [CkJsonObject_stringOf $jsonResponse "data[i].result"]
    set road_test_date [CkJsonObject_stringOf $jsonResponse "data[i].road_test_date"]
    set sale_date [CkJsonObject_stringOf $jsonResponse "data[i].sale_date"]
    set second_contact [CkJsonObject_stringOf $jsonResponse "data[i].second_contact"]
    set second_contact_civility [CkJsonObject_stringOf $jsonResponse "data[i].second_contact_civility"]
    set segment [CkJsonObject_stringOf $jsonResponse "data[i].segment"]
    set service_cleaned [CkJsonObject_BoolOf $jsonResponse "data[i].service_cleaned"]
    set service_interval_km [CkJsonObject_stringOf $jsonResponse "data[i].service_interval_km"]
    set service_monthly_km [CkJsonObject_stringOf $jsonResponse "data[i].service_monthly_km"]
    set service_processIntention [CkJsonObject_stringOf $jsonResponse "data[i].service_process.intention"]
    set service_processTransport [CkJsonObject_stringOf $jsonResponse "data[i].service_process.transport"]
    set service_processWalk_around [CkJsonObject_stringOf $jsonResponse "data[i].service_process.walk_around"]
    set sex [CkJsonObject_stringOf $jsonResponse "data[i].sex"]
    set source [CkJsonObject_stringOf $jsonResponse "data[i].source"]
    set status [CkJsonObject_stringOf $jsonResponse "data[i].status"]
    set storage [CkJsonObject_stringOf $jsonResponse "data[i].storage"]
    set take_over_date [CkJsonObject_stringOf $jsonResponse "data[i].take_over_date"]
    set v_type [CkJsonObject_stringOf $jsonResponse "data[i].type"]
    set unsubscribe_all_date [CkJsonObject_stringOf $jsonResponse "data[i].unsubscribe_all_date"]
    set unsubscribe_call_date [CkJsonObject_stringOf $jsonResponse "data[i].unsubscribe_call_date"]
    set unsubscribe_email_date [CkJsonObject_stringOf $jsonResponse "data[i].unsubscribe_email_date"]
    set unsubscribe_sms_date [CkJsonObject_stringOf $jsonResponse "data[i].unsubscribe_sms_date"]
    set work_order [CkJsonObject_stringOf $jsonResponse "data[i].work_order"]
    set accountId [CkJsonObject_IntOf $jsonResponse "data[i].account.id"]
    set accountCreated_at [CkJsonObject_stringOf $jsonResponse "data[i].account.created_at"]
    set accountUpdated_at [CkJsonObject_stringOf $jsonResponse "data[i].account.updated_at"]
    set accountPartner_id [CkJsonObject_IntOf $jsonResponse "data[i].account.partner_id"]
    set accountActivity_report [CkJsonObject_BoolOf $jsonResponse "data[i].account.activity_report"]
    set accountCommercial [CkJsonObject_BoolOf $jsonResponse "data[i].account.commercial"]
    set accountEvent [CkJsonObject_BoolOf $jsonResponse "data[i].account.event"]
    set accountLeadxpress [CkJsonObject_BoolOf $jsonResponse "data[i].account.leadxpress"]
    set accountLoyalty [CkJsonObject_BoolOf $jsonResponse "data[i].account.loyalty"]
    set accountPhone_up [CkJsonObject_BoolOf $jsonResponse "data[i].account.phone_up"]
    set accountRenewal [CkJsonObject_BoolOf $jsonResponse "data[i].account.renewal"]
    set accountSale_table [CkJsonObject_BoolOf $jsonResponse "data[i].account.sale_table"]
    set accountService [CkJsonObject_BoolOf $jsonResponse "data[i].account.service"]
    set accountWalk_in [CkJsonObject_BoolOf $jsonResponse "data[i].account.walk_in"]
    set accountWebboost [CkJsonObject_BoolOf $jsonResponse "data[i].account.webboost"]
    set accountAccount_manager [CkJsonObject_BoolOf $jsonResponse "data[i].account.account_manager"]
    set accountActivation_date [CkJsonObject_stringOf $jsonResponse "data[i].account.activation_date"]
    set accountActive [CkJsonObject_BoolOf $jsonResponse "data[i].account.active"]
    set accountAssigned_lead [CkJsonObject_BoolOf $jsonResponse "data[i].account.assigned_lead"]
    set accountAuto_renewal [CkJsonObject_BoolOf $jsonResponse "data[i].account.auto_renewal"]
    set accountAuto_renewal_new [CkJsonObject_BoolOf $jsonResponse "data[i].account.auto_renewal_new"]
    set accountAuto_renewal_used [CkJsonObject_BoolOf $jsonResponse "data[i].account.auto_renewal_used"]
    set accountAutomation [CkJsonObject_BoolOf $jsonResponse "data[i].account.automation"]
    set accountBdc_advisor [CkJsonObject_BoolOf $jsonResponse "data[i].account.bdc_advisor"]
    set accountCalendar_options [CkJsonObject_BoolOf $jsonResponse "data[i].account.calendar_options"]
    set accountClient_card_fieldsProcessGas [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.process.gas"]
    set accountClient_card_fieldsProcessRecorded [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.process.recorded"]
    set accountClient_card_fieldsProcessAvailable [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.process.available"]
    set accountClient_card_fieldsProcessDiscounted [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.process.discounted"]
    set accountClient_card_fieldsCommercialProfit [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.commercial.profit"]
    set accountClient_card_fieldsCommercialExclude [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.commercial.exclude"]
    set accountClient_card_fieldsCommercialMeeting [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.commercial.meeting"]
    set accountClient_card_fieldsPerformanceDeposit [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.performance.deposit"]
    set accountClient_card_fieldsPerformanceRefinanced [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.performance.refinanced"]
    set accountClient_card_fieldsPerformanceDealer_tour [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.performance.dealer_tour"]
    set accountClient_card_fieldsPerformanceWalk_around [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.performance.walk_around"]
    set accountClient_card_fieldsPerformanceQualification [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.performance.qualification"]
    set accountClient_card_fieldsPerformanceTwenty_four_hour [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.performance.twenty_four_hour"]
    set accountClient_card_fieldsGeneral_infoBudget [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.budget"]
    set accountClient_card_fieldsGeneral_infoSector [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.sector"]
    set accountClient_card_fieldsGeneral_infoCustom_1 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_1"]
    set accountClient_card_fieldsGeneral_infoCustom_2 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_2"]
    set accountClient_card_fieldsGeneral_infoCustom_3 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_3"]
    set accountClient_card_fieldsGeneral_infoCustom_4 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_4"]
    set accountClient_card_fieldsGeneral_infoCustom_5 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_5"]
    set accountClient_card_fieldsGeneral_infoCustom_6 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_6"]
    set accountClient_card_fieldsGeneral_infoCustom_7 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_7"]
    set accountClient_card_fieldsGeneral_infoCustom_8 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_8"]
    set accountClient_card_fieldsGeneral_infoCustom_9 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_9"]
    set accountClient_card_fieldsGeneral_infoCustom_10 [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.custom_10"]
    set accountClient_card_fieldsGeneral_infoCommunication_preference [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.general_info.communication_preference"]
    set accountClient_card_fieldsWanted_vehicleVin [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.vin"]
    set accountClient_card_fieldsWanted_vehicleFuel [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.fuel"]
    set accountClient_card_fieldsWanted_vehicleRate [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.rate"]
    set accountClient_card_fieldsWanted_vehicleTerm [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.term"]
    set accountClient_card_fieldsWanted_vehicleTire [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.tire"]
    set accountClient_card_fieldsWanted_vehicleYear [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.year"]
    set accountClient_card_fieldsWanted_vehicleColor [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.color"]
    set accountClient_card_fieldsWanted_vehiclePrice [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.price"]
    set accountClient_card_fieldsWanted_vehicleStock [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.stock"]
    set accountClient_card_fieldsWanted_vehicleTotal [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.total"]
    set accountClient_card_fieldsWanted_vehicleBudget [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.budget"]
    set accountClient_card_fieldsWanted_vehicleEngine [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.engine"]
    set accountClient_card_fieldsWanted_vehicleLength [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.length"]
    set accountClient_card_fieldsWanted_vehicleProfit [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.profit"]
    set accountClient_card_fieldsWanted_vehicleSuffix [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.suffix"]
    set accountClient_card_fieldsWanted_vehicleWeight [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.weight"]
    set accountClient_card_fieldsWanted_vehicleComment [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.comment"]
    set accountClient_card_fieldsWanted_vehicleMileage [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.mileage"]
    set accountClient_card_fieldsWanted_vehiclePayment [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.payment"]
    set accountClient_card_fieldsWanted_vehicleBodyType [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.bodyType"]
    set accountClient_card_fieldsWanted_vehicleCategory [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.category"]
    set accountClient_card_fieldsWanted_vehicleModality [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.modality"]
    set accountClient_card_fieldsWanted_vehicleResidual [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.residual"]
    set accountClient_card_fieldsWanted_vehicleSleeping [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.sleeping"]
    set accountClient_card_fieldsWanted_vehicleWarranty [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.warranty"]
    set accountClient_card_fieldsWanted_vehicleFrequency [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.frequency"]
    set accountClient_card_fieldsWanted_vehicleAccessories [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.accessories"]
    set accountClient_card_fieldsWanted_vehicleCategory_rv [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.category_rv"]
    set accountClient_card_fieldsWanted_vehiclePreparation [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.preparation"]
    set accountClient_card_fieldsWanted_vehicleInitial_cash [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.initial_cash"]
    set accountClient_card_fieldsWanted_vehicleOffer_number [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.offer_number"]
    set accountClient_card_fieldsWanted_vehicleOrder_number [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.order_number"]
    set accountClient_card_fieldsWanted_vehicleTransmission [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.transmission"]
    set accountClient_card_fieldsWanted_vehicleDocumentation [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.documentation"]
    set accountClient_card_fieldsWanted_vehicleDrivingWheels [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.drivingWheels"]
    set accountClient_card_fieldsWanted_vehicleColor_exterior [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.color_exterior"]
    set accountClient_card_fieldsWanted_vehicleColor_interior [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.color_interior"]
    set accountClient_card_fieldsWanted_vehicleAllowed_mileage [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.allowed_mileage"]
    set accountClient_card_fieldsWanted_vehicleSecurity_deposit [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.security_deposit"]
    set accountClient_card_fieldsWanted_vehicleEnd_contract_date [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.wanted_vehicle.end_contract_date"]
    set accountClient_card_fieldsExchange_vehicleVin [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.vin"]
    set accountClient_card_fieldsExchange_vehicleFuel [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.fuel"]
    set accountClient_card_fieldsExchange_vehicleLink [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.link"]
    set accountClient_card_fieldsExchange_vehicleRate [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.rate"]
    set accountClient_card_fieldsExchange_vehicleTerm [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.term"]
    set accountClient_card_fieldsExchange_vehicleYear [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.year"]
    set accountClient_card_fieldsExchange_vehicleColor [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.color"]
    set accountClient_card_fieldsExchange_vehiclePrice [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.price"]
    set accountClient_card_fieldsExchange_vehicleStock [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.stock"]
    set accountClient_card_fieldsExchange_vehicleValue [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.value"]
    set accountClient_card_fieldsExchange_vehicleBudget [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.budget"]
    set accountClient_card_fieldsExchange_vehicleEngine [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.engine"]
    set accountClient_card_fieldsExchange_vehicleLength [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.length"]
    set accountClient_card_fieldsExchange_vehicleProfit [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.profit"]
    set accountClient_card_fieldsExchange_vehicleSuffix [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.suffix"]
    set accountClient_card_fieldsExchange_vehicleWeight [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.weight"]
    set accountClient_card_fieldsExchange_vehicleBalance [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.balance"]
    set accountClient_card_fieldsExchange_vehicleComment [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.comment"]
    set accountClient_card_fieldsExchange_vehicleMileage [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.mileage"]
    set accountClient_card_fieldsExchange_vehiclePayment [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.payment"]
    set accountClient_card_fieldsExchange_vehicleRenewal [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.renewal"]
    set accountClient_card_fieldsExchange_vehicleSold_by [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.sold_by"]
    set accountClient_card_fieldsExchange_vehicleBodyType [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.bodyType"]
    set accountClient_card_fieldsExchange_vehicleCategory [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.category"]
    set accountClient_card_fieldsExchange_vehicleModality [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.modality"]
    set accountClient_card_fieldsExchange_vehicleResidual [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.residual"]
    set accountClient_card_fieldsExchange_vehicleSleeping [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.sleeping"]
    set accountClient_card_fieldsExchange_vehicleWarranty [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.warranty"]
    set accountClient_card_fieldsExchange_vehicleCondition [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.condition"]
    set accountClient_card_fieldsExchange_vehicleFrequency [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.frequency"]
    set accountClient_card_fieldsExchange_vehicleIntention [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.intention"]
    set accountClient_card_fieldsExchange_vehicleRefinance [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.refinance"]
    set accountClient_card_fieldsExchange_vehicleRequested [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.requested"]
    set accountClient_card_fieldsExchange_vehicleSold_date [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.sold_date"]
    set accountClient_card_fieldsExchange_vehicleCategory_rv [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.category_rv"]
    set accountClient_card_fieldsExchange_vehicleInstitution [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.institution"]
    set accountClient_card_fieldsExchange_vehicleInitial_cash [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.initial_cash"]
    set accountClient_card_fieldsExchange_vehicleOffer_number [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.offer_number"]
    set accountClient_card_fieldsExchange_vehicleTransmission [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.transmission"]
    set accountClient_card_fieldsExchange_vehicleDrivingWheels [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.drivingWheels"]
    set accountClient_card_fieldsExchange_vehicleColor_exterior [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.color_exterior"]
    set accountClient_card_fieldsExchange_vehicleColor_interior [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.color_interior"]
    set accountClient_card_fieldsExchange_vehicleAllowed_mileage [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.allowed_mileage"]
    set accountClient_card_fieldsExchange_vehicleSecurity_deposit [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.security_deposit"]
    set accountClient_card_fieldsExchange_vehicleEnd_contract_date [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_card_fields.exchange_vehicle.end_contract_date"]
    set accountClient_number [CkJsonObject_BoolOf $jsonResponse "data[i].account.client_number"]
    set accountConfirmation_appt [CkJsonObject_BoolOf $jsonResponse "data[i].account.confirmation_appt"]
    set accountCredit [CkJsonObject_BoolOf $jsonResponse "data[i].account.credit"]
    set accountCsi [CkJsonObject_BoolOf $jsonResponse "data[i].account.csi"]
    set accountCsi_used [CkJsonObject_BoolOf $jsonResponse "data[i].account.csi_used"]
    set accountDefault_deliveryman_user_id [CkJsonObject_stringOf $jsonResponse "data[i].account.default_deliveryman_user_id"]
    set accountDelivered_by [CkJsonObject_BoolOf $jsonResponse "data[i].account.delivered_by"]
    set accountDisable_communication_audio [CkJsonObject_BoolOf $jsonResponse "data[i].account.disable_communication_audio"]
    set accountDuplicates [CkJsonObject_BoolOf $jsonResponse "data[i].account.duplicates"]
    set accountGuest_action [CkJsonObject_BoolOf $jsonResponse "data[i].account.guest_action"]
    set accountEmail_client [CkJsonObject_BoolOf $jsonResponse "data[i].account.email_client"]
    set accountIn_turn [CkJsonObject_BoolOf $jsonResponse "data[i].account.in_turn"]
    set accountIn_turn_director_management [CkJsonObject_BoolOf $jsonResponse "data[i].account.in_turn_director_management"]
    set accountLeads_other_division [CkJsonObject_BoolOf $jsonResponse "data[i].account.leads_other_division"]
    set accountLeadxpress_optionPriority [CkJsonObject_IntOf $jsonResponse "data[i].account.leadxpress_option.priority"]
    set accountLeadxpress_optionReminderFrequency [CkJsonObject_IntOf $jsonResponse "data[i].account.leadxpress_option.reminder.frequency"]
    set accountLeadxpress_optionReminderRecurrence [CkJsonObject_IntOf $jsonResponse "data[i].account.leadxpress_option.reminder.recurrence"]
    set accountLeadxpress_optionScheduleAccount [CkJsonObject_BoolOf $jsonResponse "data[i].account.leadxpress_option.schedule.account"]
    set accountLeadxpress_optionScheduleAdvisor [CkJsonObject_BoolOf $jsonResponse "data[i].account.leadxpress_option.schedule.advisor"]
    set accountLimited_audio_access [CkJsonObject_BoolOf $jsonResponse "data[i].account.limited_audio_access"]
    set accountLogo [CkJsonObject_stringOf $jsonResponse "data[i].account.logo"]
    set accountLogo_en [CkJsonObject_stringOf $jsonResponse "data[i].account.logo_en"]
    set accountMandatory_coordinate [CkJsonObject_BoolOf $jsonResponse "data[i].account.mandatory_coordinate"]
    set accountManually_status [CkJsonObject_BoolOf $jsonResponse "data[i].account.manually_status"]
    set accountMerge_rule [CkJsonObject_stringOf $jsonResponse "data[i].account.merge_rule"]
    set accountMonth_start_day [CkJsonObject_IntOf $jsonResponse "data[i].account.month_start_day"]
    set accountName [CkJsonObject_stringOf $jsonResponse "data[i].account.name"]
    set accountNiotext [CkJsonObject_BoolOf $jsonResponse "data[i].account.niotext"]
    set accountNiotext_phone [CkJsonObject_BoolOf $jsonResponse "data[i].account.niotext_phone"]
    set accountPhone [CkJsonObject_stringOf $jsonResponse "data[i].account.phone"]
    set accountPower_sport [CkJsonObject_BoolOf $jsonResponse "data[i].account.power_sport"]
    set accountProcess [CkJsonObject_BoolOf $jsonResponse "data[i].account.process"]
    set accountRecreative_special [CkJsonObject_BoolOf $jsonResponse "data[i].account.recreative_special"]
    set accountResult_date_validation [CkJsonObject_BoolOf $jsonResponse "data[i].account.result_date_validation"]
    set accountSale_accessories [CkJsonObject_BoolOf $jsonResponse "data[i].account.sale_accessories"]
    set accountSale_by_phone [CkJsonObject_BoolOf $jsonResponse "data[i].account.sale_by_phone"]
    set accountSale_date_month [CkJsonObject_BoolOf $jsonResponse "data[i].account.sale_date_month"]
    set accountSale_table_optionsAccessory_column [CkJsonObject_BoolOf $jsonResponse "data[i].account.sale_table_options.accessory_column"]
    set accountSale_table_optionsCommercial_column [CkJsonObject_BoolOf $jsonResponse "data[i].account.sale_table_options.commercial_column"]
    set accountSale_table_optionsDivision_grouped_total_column [CkJsonObject_BoolOf $jsonResponse "data[i].account.sale_table_options.division_grouped_total_column"]
    set accountSale_validation [CkJsonObject_BoolOf $jsonResponse "data[i].account.sale_validation"]
    set accountScan [CkJsonObject_BoolOf $jsonResponse "data[i].account.scan"]
    set accountStock_required_for_sale [CkJsonObject_BoolOf $jsonResponse "data[i].account.stock_required_for_sale"]
    set accountTake_over_director [CkJsonObject_BoolOf $jsonResponse "data[i].account.take_over_director"]
    set accountTrade_report [CkJsonObject_BoolOf $jsonResponse "data[i].account.trade_report"]
    set accountUnrestricted_assignment [CkJsonObject_BoolOf $jsonResponse "data[i].account.unrestricted_assignment"]
    set accountUnsubscribe [CkJsonObject_BoolOf $jsonResponse "data[i].account.unsubscribe"]
    set accountUntreated_lead [CkJsonObject_BoolOf $jsonResponse "data[i].account.untreated_lead"]
    set accountVehicle_model_text [CkJsonObject_BoolOf $jsonResponse "data[i].account.vehicle_model_text"]
    set accountVehicle_text [CkJsonObject_BoolOf $jsonResponse "data[i].account.vehicle_text"]
    set accountVerified_sale [CkJsonObject_BoolOf $jsonResponse "data[i].account.verified_sale"]
    set accountVin_decoder [CkJsonObject_BoolOf $jsonResponse "data[i].account.vin_decoder"]
    set accountWaiting_sale_date [CkJsonObject_stringOf $jsonResponse "data[i].account.waiting_sale_date"]
    set accountWaiting_sale_option [CkJsonObject_BoolOf $jsonResponse "data[i].account.waiting_sale_option"]
    set advisor [CkJsonObject_stringOf $jsonResponse "data[i].advisor"]
    set j 0
    set count_j [CkJsonObject_SizeOfArray $jsonResponse "data[i].emails"]
    while {$j < $count_j} {
        CkJsonObject_put_J $jsonResponse $j
        set id [CkJsonObject_IntOf $jsonResponse "data[i].emails[j].id"]
        set created_at [CkJsonObject_stringOf $jsonResponse "data[i].emails[j].created_at"]
        set updated_at [CkJsonObject_stringOf $jsonResponse "data[i].emails[j].updated_at"]
        set lead_id [CkJsonObject_IntOf $jsonResponse "data[i].emails[j].lead_id"]
        set address [CkJsonObject_stringOf $jsonResponse "data[i].emails[j].address"]
        set v_type [CkJsonObject_stringOf $jsonResponse "data[i].emails[j].type"]
        set valid [CkJsonObject_BoolOf $jsonResponse "data[i].emails[j].valid"]
        set j [expr $j + 1]
    }
    set j 0
    set count_j [CkJsonObject_SizeOfArray $jsonResponse "data[i].phones"]
    while {$j < $count_j} {
        CkJsonObject_put_J $jsonResponse $j
        set id [CkJsonObject_IntOf $jsonResponse "data[i].phones[j].id"]
        set created_at [CkJsonObject_stringOf $jsonResponse "data[i].phones[j].created_at"]
        set updated_at [CkJsonObject_stringOf $jsonResponse "data[i].phones[j].updated_at"]
        set lead_id [CkJsonObject_IntOf $jsonResponse "data[i].phones[j].lead_id"]
        set extension [CkJsonObject_stringOf $jsonResponse "data[i].phones[j].extension"]
        set number [CkJsonObject_stringOf $jsonResponse "data[i].phones[j].number"]
        set v_type [CkJsonObject_stringOf $jsonResponse "data[i].phones[j].type"]
        set valid [CkJsonObject_BoolOf $jsonResponse "data[i].phones[j].valid"]
        set validated [CkJsonObject_BoolOf $jsonResponse "data[i].phones[j].validated"]
        set mobile [CkJsonObject_BoolOf $jsonResponse "data[i].phones[j].mobile"]
        set j [expr $j + 1]
    }
    set j 0
    set count_j [CkJsonObject_SizeOfArray $jsonResponse "data[i].vehicles"]
    while {$j < $count_j} {
        CkJsonObject_put_J $jsonResponse $j
        set id [CkJsonObject_IntOf $jsonResponse "data[i].vehicles[j].id"]
        set created_at [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].created_at"]
        set updated_at [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].updated_at"]
        set lead_id [CkJsonObject_IntOf $jsonResponse "data[i].vehicles[j].lead_id"]
        set accessories [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].accessories"]
        set allowed_odometer [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].allowed_odometer"]
        set balance [CkJsonObject_IntOf $jsonResponse "data[i].vehicles[j].balance"]
        set budget_max [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].budget_max"]
        set budget_min [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].budget_min"]
        set cash_down [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].cash_down"]
        set category [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].category"]
        set category_rv [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].category_rv"]
        set client_number [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].client_number"]
        set color_exterior [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].color_exterior"]
        set color_interior [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].color_interior"]
        set comment [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].comment"]
        set condition [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].condition"]
        set end_contract_date [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].end_contract_date"]
        set end_warranty_date [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].end_warranty_date"]
        set engine [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].engine"]
        set extended_warranty [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].extended_warranty"]
        set fuel [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].fuel"]
        set length_max [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].length_max"]
        set length_min [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].length_min"]
        set license_plate [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].license_plate"]
        set make [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].make"]
        set modality [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].modality"]
        set model [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].model"]
        set odometer [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].odometer"]
        set offer_number [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].offer_number"]
        set v_option [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].option"]
        set order_number [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].order_number"]
        set payment [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].payment"]
        set payment_frequency [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].payment_frequency"]
        set preparation [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].preparation"]
        set price [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].price"]
        set profit [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].profit"]
        set purchase_date [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].purchase_date"]
        set rate [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].rate"]
        set recall [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].recall"]
        set recorded_date [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].recorded_date"]
        set residual [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].residual"]
        set security_deposit [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].security_deposit"]
        set sleeping [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].sleeping"]
        set sold [CkJsonObject_BoolOf $jsonResponse "data[i].vehicles[j].sold"]
        set sold_by [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].sold_by"]
        set sold_date [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].sold_date"]
        set stock [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].stock"]
        set stock_state [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].stock_state"]
        set term [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].term"]
        set tire [CkJsonObject_BoolOf $jsonResponse "data[i].vehicles[j].tire"]
        set transmission [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].transmission"]
        set trim [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].trim"]
        set v_type [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].type"]
        set url [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].url"]
        set value [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].value"]
        set vin [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].vin"]
        set warranty [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].warranty"]
        set weight [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].weight"]
        set year [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].year"]
        set year_max [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].year_max"]
        set year_min [CkJsonObject_stringOf $jsonResponse "data[i].vehicles[j].year_min"]
        set j [expr $j + 1]
    }
    set j 0
    set count_j [CkJsonObject_SizeOfArray $jsonResponse "data[i].products"]
    while {$j < $count_j} {
        CkJsonObject_put_J $jsonResponse $j
        set j [expr $j + 1]
    }
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkJsonObject $jsonResponse