PowerBuilder

CardConnect Inquire

See more CardConnect Examples

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

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
string ls_Url
string ls_ResponseStr
oleobject loo_JsonResp
string ls_Amount
string ls_Resptext
string ls_Setlstat
string ls_Capturedate
string ls_Acctid
string ls_Respcode
string ls_Entrymode
string ls_Merchid
string ls_Token
string ls_Authcode
string ls_Respproc
string ls_Authdate
string ls_Bintype
string ls_Profileid
string ls_Lastfour
string ls_Name
string ls_Currency
string ls_Retref
string ls_Respstat
string ls_Account

li_Success = 0

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Http.BasicAuth = 1
loo_Http.Login = "API_USERNAME"
loo_Http.Password = "API_PASSWORD"

ls_Url = "https://<site>.cardconnect.com:<port>/cardconnect/rest/inquire/<retref>/<merchid>"
ls_ResponseStr = loo_Http.QuickGetStr(ls_Url)
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

// 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.
Write-Debug "response status code = " + string(loo_Http.LastStatus)

loo_JsonResp = create oleobject
li_rc = loo_JsonResp.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonResp.Load(ls_ResponseStr)
loo_JsonResp.EmitCompact = 0

Write-Debug "response JSON:"
Write-Debug loo_JsonResp.Emit()

// 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

ls_Amount = loo_JsonResp.StringOf("amount")
ls_Resptext = loo_JsonResp.StringOf("resptext")
ls_Setlstat = loo_JsonResp.StringOf("setlstat")
ls_Capturedate = loo_JsonResp.StringOf("capturedate")
ls_Acctid = loo_JsonResp.StringOf("acctid")
ls_Respcode = loo_JsonResp.StringOf("respcode")
ls_Entrymode = loo_JsonResp.StringOf("entrymode")
ls_Merchid = loo_JsonResp.StringOf("merchid")
ls_Token = loo_JsonResp.StringOf("token")
ls_Authcode = loo_JsonResp.StringOf("authcode")
ls_Respproc = loo_JsonResp.StringOf("respproc")
ls_Authdate = loo_JsonResp.StringOf("authdate")
ls_Bintype = loo_JsonResp.StringOf("bintype")
ls_Profileid = loo_JsonResp.StringOf("profileid")
ls_Lastfour = loo_JsonResp.StringOf("lastfour")
ls_Name = loo_JsonResp.StringOf("name")
ls_Currency = loo_JsonResp.StringOf("currency")
ls_Retref = loo_JsonResp.StringOf("retref")
ls_Respstat = loo_JsonResp.StringOf("respstat")
ls_Account = loo_JsonResp.StringOf("account")


destroy loo_Http
destroy loo_JsonResp