(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    CkHttp::setCkBasicAuth(http, 1)
    CkHttp::setCkLogin(http, "API_USERNAME")
    CkHttp::setCkPassword(http, "API_PASSWORD")

    url.s = "https://<site>.cardconnect.com:<port>/cardconnect/rest/inquire/<retref>/<merchid>"
    responseStr.s = CkHttp::ckQuickGetStr(http,url)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; 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.
    Debug "response status code = " + Str(CkHttp::ckLastStatus(http))

    jsonResp.i = CkJsonObject::ckCreate()
    If jsonResp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoad(jsonResp,responseStr)
    CkJsonObject::setCkEmitCompact(jsonResp, 0)

    Debug "response JSON:"
    Debug CkJsonObject::ckEmit(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

    amount.s = CkJsonObject::ckStringOf(jsonResp,"amount")
    resptext.s = CkJsonObject::ckStringOf(jsonResp,"resptext")
    setlstat.s = CkJsonObject::ckStringOf(jsonResp,"setlstat")
    capturedate.s = CkJsonObject::ckStringOf(jsonResp,"capturedate")
    acctid.s = CkJsonObject::ckStringOf(jsonResp,"acctid")
    respcode.s = CkJsonObject::ckStringOf(jsonResp,"respcode")
    entrymode.s = CkJsonObject::ckStringOf(jsonResp,"entrymode")
    merchid.s = CkJsonObject::ckStringOf(jsonResp,"merchid")
    token.s = CkJsonObject::ckStringOf(jsonResp,"token")
    authcode.s = CkJsonObject::ckStringOf(jsonResp,"authcode")
    respproc.s = CkJsonObject::ckStringOf(jsonResp,"respproc")
    authdate.s = CkJsonObject::ckStringOf(jsonResp,"authdate")
    bintype.s = CkJsonObject::ckStringOf(jsonResp,"bintype")
    profileid.s = CkJsonObject::ckStringOf(jsonResp,"profileid")
    lastfour.s = CkJsonObject::ckStringOf(jsonResp,"lastfour")
    name.s = CkJsonObject::ckStringOf(jsonResp,"name")
    currency.s = CkJsonObject::ckStringOf(jsonResp,"currency")
    retref.s = CkJsonObject::ckStringOf(jsonResp,"retref")
    respstat.s = CkJsonObject::ckStringOf(jsonResp,"respstat")
    account.s = CkJsonObject::ckStringOf(jsonResp,"account")


    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(jsonResp)


    ProcedureReturn
EndProcedure