Tcl
Square API - Retrieve Catalog Object

Returns a single CatalogItem as a CatalogObject based on the provided ID.
Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

# Implements the following CURL command:

# curl https://connect.squareup.com/v2/catalog/object/W62UWFY35CWMYGVWK6TWJDNI?include_related_objects=true 
#   -H 'Square-Version: 2020-07-22' 
#   -H 'Authorization: Bearer ACCESS_TOKEN' 
#   -H 'Content-Type: application/json'

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Adds the "Authorization: Bearer ACCESS_TOKEN" header.
CkHttp_put_AuthToken $http "ACCESS_TOKEN"
CkHttp_SetRequestHeader $http "Square-Version" "2020-07-22"
CkHttp_SetRequestHeader $http "Content-Type" "application/json"

CkHttp_SetUrlVar $http "id" "2PTZYUOFGGDMT75UZLHQAPAC"

# This example uses the sandbox: connect.squareupsandbox.com
# Production should use connect.squareup.com
set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://connect.squareupsandbox.com/v2/catalog/object/{$id}?include_related_objects=true" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

set respStatusCode [CkHttp_get_LastStatus $http]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttp_lastHeader $http]
    puts "Failed."
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "object": {
#     "type": "ITEM",
#     "id": "W62UWFY35CWMYGVWK6TWJDNI",
#     "updated_at": "2016-11-16T22:25:24.878Z",
#     "version": 1479335124878,
#     "is_deleted": false,
#     "present_at_all_locations": true,
#     "item_data": {
#       "name": "Tea",
#       "description": "Hot Leaf Juice",
#       "category_id": "BJNQCF2FJ6S6UIDT65ABHLRX",
#       "tax_ids": [
#         "HURXQOOAIC4IZSI2BEXQRYFY"
#       ],
#       "variations": [
#         {
#           "type": "ITEM_VARIATION",
#           "id": "2TZFAOHWGG7PAK2QEXWYPZSP",
#           "updated_at": "2016-11-16T22:25:24.878Z",
#           "version": 1479335124878,
#           "is_deleted": false,
#           "present_at_all_locations": true,
#           "item_variation_data": {
#             "item_id": "W62UWFY35CWMYGVWK6TWJDNI",
#             "name": "Mug",
#             "ordinal": 0,
#             "pricing_type": "FIXED_PRICING",
#             "price_money": {
#               "amount": 150,
#               "currency": "USD"
#             }
#           }
#         }
#       ]
#     }
#   },
#   "related_objects": [
#     {
#       "type": "CATEGORY",
#       "id": "BJNQCF2FJ6S6UIDT65ABHLRX",
#       "updated_at": "2016-11-16T22:25:24.878Z",
#       "version": 1479335124878,
#       "is_deleted": false,
#       "present_at_all_locations": true,
#       "category_data": {
#         "name": "Beverages"
#       }
#     },
#     {
#       "type": "TAX",
#       "id": "HURXQOOAIC4IZSI2BEXQRYFY",
#       "updated_at": "2016-11-16T22:25:24.878Z",
#       "version": 1479335124878,
#       "is_deleted": false,
#       "present_at_all_locations": true,
#       "tax_data": {
#         "name": "Sales Tax",
#         "calculation_phase": "TAX_SUBTOTAL_PHASE",
#         "inclusion_type": "ADDITIVE",
#         "percentage": "5.0",
#         "enabled": true
#       }
#     }
#   ]
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

set objectType [CkJsonObject_stringOf $jResp "object.type"]
set objectId [CkJsonObject_stringOf $jResp "object.id"]
set objectUpdated_at [CkJsonObject_stringOf $jResp "object.updated_at"]
set objectVersion [CkJsonObject_IntOf $jResp "object.version"]
set objectIs_deleted [CkJsonObject_BoolOf $jResp "object.is_deleted"]
set objectPresent_at_all_locations [CkJsonObject_BoolOf $jResp "object.present_at_all_locations"]
set objectItem_dataName [CkJsonObject_stringOf $jResp "object.item_data.name"]
set objectItem_dataDescription [CkJsonObject_stringOf $jResp "object.item_data.description"]
set objectItem_dataCategory_id [CkJsonObject_stringOf $jResp "object.item_data.category_id"]
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "object.item_data.tax_ids"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set strVal [CkJsonObject_stringOf $jResp "object.item_data.tax_ids[i]"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "object.item_data.variations"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set v_type [CkJsonObject_stringOf $jResp "object.item_data.variations[i].type"]
    set id [CkJsonObject_stringOf $jResp "object.item_data.variations[i].id"]
    set updated_at [CkJsonObject_stringOf $jResp "object.item_data.variations[i].updated_at"]
    set version [CkJsonObject_IntOf $jResp "object.item_data.variations[i].version"]
    set is_deleted [CkJsonObject_BoolOf $jResp "object.item_data.variations[i].is_deleted"]
    set present_at_all_locations [CkJsonObject_BoolOf $jResp "object.item_data.variations[i].present_at_all_locations"]
    set item_variation_dataItem_id [CkJsonObject_stringOf $jResp "object.item_data.variations[i].item_variation_data.item_id"]
    set item_variation_dataName [CkJsonObject_stringOf $jResp "object.item_data.variations[i].item_variation_data.name"]
    set item_variation_dataOrdinal [CkJsonObject_IntOf $jResp "object.item_data.variations[i].item_variation_data.ordinal"]
    set item_variation_dataPricing_type [CkJsonObject_stringOf $jResp "object.item_data.variations[i].item_variation_data.pricing_type"]
    set item_variation_dataPrice_moneyAmount [CkJsonObject_IntOf $jResp "object.item_data.variations[i].item_variation_data.price_money.amount"]
    set item_variation_dataPrice_moneyCurrency [CkJsonObject_stringOf $jResp "object.item_data.variations[i].item_variation_data.price_money.currency"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "related_objects"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set v_type [CkJsonObject_stringOf $jResp "related_objects[i].type"]
    set id [CkJsonObject_stringOf $jResp "related_objects[i].id"]
    set updated_at [CkJsonObject_stringOf $jResp "related_objects[i].updated_at"]
    set version [CkJsonObject_IntOf $jResp "related_objects[i].version"]
    set is_deleted [CkJsonObject_BoolOf $jResp "related_objects[i].is_deleted"]
    set present_at_all_locations [CkJsonObject_BoolOf $jResp "related_objects[i].present_at_all_locations"]
    set category_dataName [CkJsonObject_stringOf $jResp "related_objects[i].category_data.name"]
    set tax_dataName [CkJsonObject_stringOf $jResp "related_objects[i].tax_data.name"]
    set tax_dataCalculation_phase [CkJsonObject_stringOf $jResp "related_objects[i].tax_data.calculation_phase"]
    set tax_dataInclusion_type [CkJsonObject_stringOf $jResp "related_objects[i].tax_data.inclusion_type"]
    set tax_dataPercentage [CkJsonObject_stringOf $jResp "related_objects[i].tax_data.percentage"]
    set tax_dataEnabled [CkJsonObject_BoolOf $jResp "related_objects[i].tax_data.enabled"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp