Chilkat Examples

ChilkatHOME.NET Core C#Android™AutoItCC#C++Chilkat2-PythonCkPythonClassic ASPDataFlexDelphi ActiveXDelphi DLLGoJavaLianjaMono C#Node.jsObjective-CPHP ActiveXPHP ExtensionPerlPowerBuilderPowerShellPureBasicRubySQL ServerSwift 2Swift 3,4,5...TclUnicode CUnicode C++VB.NETVBScriptVisual Basic 6.0Visual FoxProXojo Plugin

Tcl Web API Examples

Primary Categories

ABN AMRO
AWS Secrets Manager
AWS Security Token Service
AWS Translate
Activix CRM
Adyen
Alibaba Cloud OSS
Amazon Cognito
Amazon DynamoDB
Amazon MWS
Amazon Pay
Amazon Rekognition
Amazon SP-API
Amazon Voice ID
Aruba Fatturazione
Azure Maps
Azure Monitor
Azure OAuth2
Azure Storage Accounts
Backblaze S3
Banco Inter
Belgian eHealth Platform
Bitfinex v2 REST
Bluzone
BrickLink
Bunny CDN
CallRail
CardConnect
Cerved
ClickBank
Clickatell
Cloudfare
Constant Contact
DocuSign
Duo Auth MFA
ETrade
Ecwid
Egypt ITIDA
Egypt eReceipt
Etsy
Facebook
Faire
Frame.io
GeoOp
GetHarvest
Global Payments
Google People
Google Search Console
Google Translate
Hungary NAV Invoicing
IBM Text to Speech
Ibanity
IntakeQ
Jira
Lightspeed
MYOB
Magento
Mailgun
Mastercard

MedTunnel
MercadoLibre
MessageMedia
Microsoft Calendar
Microsoft Group
Microsoft Tasks and Plans
Microsoft Teams
Moody's
Okta OAuth/OIDC
OneLogin OIDC
OneNote
OpenAI ChatGPT
PRODA
PayPal
Paynow.pl
Peoplevox
Populi
QuickBooks
Rabobank
Refinitiv
Royal Mail OBA
SCiS Schools Catalogue
SII Chile
SMSAPI
SOAP finkok.com
SendGrid
Shippo
Shopify
Shopware
Shopware 6
SimpleTexting
Square
Stripe
SugarCRM
TicketBAI
Trello
Twilio
Twitter API v2
Twitter v1
UPS
UniPin
VoiceBase
Vonage
WaTrend
Walmart v3
Wasabi
WhatsApp
WiX
WooCommerce
WordPress
Xero
Yahoo Mail
Yapily
Yousign
ZATCA
Zendesk
Zoom
_Miscellaneous_
eBay
effectconnect
hacienda.go.cr

 

 

 

(Tcl) Activix CRM Create a Lead

Demonstrates how to create a lead and returns the created 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:

# {
#   "account_id": "MY_ACCOUNT_ID",
#   "first_name": "John",
#   "last_name": "Doe",
#   "type": "email",
#   "advisor": {
#     "first_name": "John",
#     "last_name": "Doe"
#   },
#   "emails": [
#     {
#       "address": "hello@example.com",
#       "type": "home"
#     }
#   ],
#   "phones": [
#     {
#       "number": "+15144321214",
#       "extension": 12345,
#       "type": "home"
#     }
#   ],
#   "vehicles": [
#     {
#       "make": "Aston Martin",
#       "model": "DB11",
#       "year": 2018,
#       "type": "wanted"
#     }
#   ]
# }

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

set jsonRequestBody [new_CkJsonObject]

CkJsonObject_UpdateString $jsonRequestBody "account_id" "MY_ACCOUNT_ID"
CkJsonObject_UpdateString $jsonRequestBody "first_name" "John"
CkJsonObject_UpdateString $jsonRequestBody "last_name" "Doe"
CkJsonObject_UpdateString $jsonRequestBody "type" "email"
CkJsonObject_UpdateString $jsonRequestBody "advisor.first_name" "John"
CkJsonObject_UpdateString $jsonRequestBody "advisor.last_name" "Doe"
CkJsonObject_UpdateString $jsonRequestBody "emails[0].address" "hello@example.com"
CkJsonObject_UpdateString $jsonRequestBody "emails[0].type" "home"
CkJsonObject_UpdateString $jsonRequestBody "phones[0].number" "+15144321214"
CkJsonObject_UpdateInt $jsonRequestBody "phones[0].extension" 12345
CkJsonObject_UpdateString $jsonRequestBody "phones[0].type" "home"
CkJsonObject_UpdateString $jsonRequestBody "vehicles[0].make" "Aston Martin"
CkJsonObject_UpdateString $jsonRequestBody "vehicles[0].model" "DB11"
CkJsonObject_UpdateInt $jsonRequestBody "vehicles[0].year" 2018
CkJsonObject_UpdateString $jsonRequestBody "vehicles[0].type" "wanted"

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

# resp is a CkHttpResponse
set resp [CkHttp_PText $http "POST" $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_stringOf $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_stringOf $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_stringOf $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_stringOf $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_stringOf $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 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.service_process"]
while {$i < $count_i} {
    CkJsonObject_put_I $jsonResponse $i
    set i [expr $i + 1]
}
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

 

© 2000-2024 Chilkat Software, Inc. All Rights Reserved.