(Tcl) CardConnect Inquire

Demonstrates how to get information for an individual transaction, including its settlement status (setlstat) and the response codes from the initial authorization.

See https://developer.cardconnect.com/cardconnect-api?lang=json#inquire

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_BasicAuth $http 1
CkHttp_put_Login $http "API_USERNAME"
CkHttp_put_Password $http "API_PASSWORD"

set url "https://<site>.cardconnect.com:<port>/cardconnect/rest/inquire/<retref>/<merchid>"
set responseStr [CkHttp_quickGetStr $http $url]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

# A response status of 200 indicates potential success.  The JSON response body
# must be examined to determine if it was truly successful or an error.
puts "response status code = [CkHttp_get_LastStatus $http]"

set jsonResp [new_CkJsonObject]

CkJsonObject_Load $jsonResp $responseStr
CkJsonObject_put_EmitCompact $jsonResp 0

puts "response JSON:"
puts [CkJsonObject_emit $jsonResp]

# A successful response looks like this:

# {
#   "amount": "0.00",
#   "resptext": "Approval",
#   "setlstat": "Voided",
#   "capturedate": "20190422180044",
#   "acctid": "1",
#   "respcode": "00",
#   "entrymode": "ECommerce",
#   "merchid": "MERCHANT_ID",
#   "token": "9418594164541111",
#   "authcode": "PPS158",
#   "respproc": "FNOR",
#   "authdate": "20190422",
#   "bintype": "",
#   "profileid": "16618402968441604028",
#   "lastfour": "1111",
#   "name": "TOM JONES",
#   "currency": "USD",
#   "retref": "112989260941",
#   "respstat": "A",
#   "account": "9418594164541111"
# }

# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

set amount [CkJsonObject_stringOf $jsonResp "amount"]
set resptext [CkJsonObject_stringOf $jsonResp "resptext"]
set setlstat [CkJsonObject_stringOf $jsonResp "setlstat"]
set capturedate [CkJsonObject_stringOf $jsonResp "capturedate"]
set acctid [CkJsonObject_stringOf $jsonResp "acctid"]
set respcode [CkJsonObject_stringOf $jsonResp "respcode"]
set entrymode [CkJsonObject_stringOf $jsonResp "entrymode"]
set merchid [CkJsonObject_stringOf $jsonResp "merchid"]
set token [CkJsonObject_stringOf $jsonResp "token"]
set authcode [CkJsonObject_stringOf $jsonResp "authcode"]
set respproc [CkJsonObject_stringOf $jsonResp "respproc"]
set authdate [CkJsonObject_stringOf $jsonResp "authdate"]
set bintype [CkJsonObject_stringOf $jsonResp "bintype"]
set profileid [CkJsonObject_stringOf $jsonResp "profileid"]
set lastfour [CkJsonObject_stringOf $jsonResp "lastfour"]
set name [CkJsonObject_stringOf $jsonResp "name"]
set currency [CkJsonObject_stringOf $jsonResp "currency"]
set retref [CkJsonObject_stringOf $jsonResp "retref"]
set respstat [CkJsonObject_stringOf $jsonResp "respstat"]
set account [CkJsonObject_stringOf $jsonResp "account"]

delete_CkHttp $http
delete_CkJsonObject $jsonResp