(PowerBuilder) CardConnect Settlement Status

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Http
integer li_Success
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

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

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
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
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
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