PowerBuilder

CardConnect Settlement Status

See more CardConnect Examples

Demonstrates how to get the status of transactions which have been submitted to the processor for settlement.

The settlement status service returns the status of transactions which have been submitted to the processor for settlement. The transaction’s setlstatus is updated appropriately when CardConnect’s receives a response from the processor. You can either specify a batchid to return a specific batch of transactions, or use a date to return all transactions settled for that date. ...

See https://developer.cardconnect.com/cardconnect-api#settlement-status

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
string ls_Url
string ls_ResponseStr
oleobject loo_JsonResp
string ls_Setlamount
string ls_Setlstat
string ls_Salesdoc
string ls_Retref
string ls_Respproc
string ls_Hostbatch
string ls_Refundtotal
string ls_Batchid
string ls_Chargetotal
string ls_Hoststat
string ls_Merchid
integer i
integer li_Count_i

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/settlestat?merchid=<merchid>&batchid=<batchid>"
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:

// {
//   "respproc": "FNOR",
//   "hostbatch": "",
//   "refundtotal": "0.00",
//   "batchid": "1900942291",
//   "chargetotal": "0.00",
//   "hoststat": "",
//   "merchid": "MERCHANT_ID",
//   "txns": [
//     {
//       "setlamount": "13.28",
//       "setlstat": "R",
//       "salesdoc": "rosedale_1555412201_392",
//       "retref": "106631225001"
//     },
//     {
//       "setlamount": "13.28",
//       "setlstat": "R",
//       "salesdoc": "rosedale_1555412353_392",
//       "retref": "106731125153"
//     },
//     {
//       "setlamount": "7.64",
//       "setlstat": "R",
//       "salesdoc": "rosedale_1555414960_393",
//       "retref": "106008227760"
//     }
//   ]
// }

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

ls_Respproc = loo_JsonResp.StringOf("respproc")
ls_Hostbatch = loo_JsonResp.StringOf("hostbatch")
ls_Refundtotal = loo_JsonResp.StringOf("refundtotal")
ls_Batchid = loo_JsonResp.StringOf("batchid")
ls_Chargetotal = loo_JsonResp.StringOf("chargetotal")
ls_Hoststat = loo_JsonResp.StringOf("hoststat")
ls_Merchid = loo_JsonResp.StringOf("merchid")
i = 0
li_Count_i = loo_JsonResp.SizeOfArray("txns")
do while i < li_Count_i
    loo_JsonResp.I = i
    ls_Setlamount = loo_JsonResp.StringOf("txns[i].setlamount")
    ls_Setlstat = loo_JsonResp.StringOf("txns[i].setlstat")
    ls_Salesdoc = loo_JsonResp.StringOf("txns[i].salesdoc")
    ls_Retref = loo_JsonResp.StringOf("txns[i].retref")
    i = i + 1
loop


destroy loo_Http
destroy loo_JsonResp