(Visual Basic 6.0) CardConnect Funding

Demonstrates how to get the merchant funding information.

The funding endpoint provides merchant funding information supported by supplemental transaction and funding adjustment detail. This information is provided by the host payment processing platform (for example, First Data Omaha). ...

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

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

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

Dim http As New ChilkatHttp
Dim success As Long

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

Dim url As String
url = "https://<site>.cardconnect.com:<port>/cardconnect/rest/funding?merchid=<merchid>&date=<MMDD>"
Dim responseStr As String
responseStr = http.QuickGetStr(url)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
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.
Debug.Print "response status code = " & http.LastStatus

Dim jsonResp As New ChilkatJsonObject
success = jsonResp.Load(responseStr)
jsonResp.EmitCompact = 0

Debug.Print "response JSON:"
Debug.Print jsonResp.Emit()

' A successful response looks like this:

' ------
' See the parsing code below...
' ------

' {
'   "fundingmasterid": 1121753252164835,
'   "fundingdate": "2019-04-22",
'   "adjustments": [
'     {
'       "fundingmasterid": 1121753252164835,
'       "amount": "-44.98",
'       "datechanged": "2019-04-22",
'       "fundingadjustmentid": 1121754400164838,
'       "description": "THE CARDHOLDER DID NOT AUTHORIZE THE CHARGE.",
'       "currency": "USD",
'       "category": "REVERSAL",
'       "type": "CHARGEBACKS/CHARGEBACK REVERSALS",
'       "dateadded": "2019-04-22",
'       "merchid": "MERCHANT_ID"
'     },
'     {
'       "fundingmasterid": 1121753252164835,
'       "amount": "-32.96",
'       "datechanged": "2019-04-22",
'       "fundingadjustmentid": 1121754401164838,
'       "description": "THIRD PARTY ADJUSTMENTS",
'       "currency": "USD",
'       "category": "THIRD PARTY",
'       "type": "THIRD PARTY ADJUSTMENTS",
'       "dateadded": "2019-04-22",
'       "merchid": "MERCHANT_ID"
'     }
'   ],
'   "datechanged": null,
'   "fundings": [
'     {
'       "fundingid": 1121753284164836,
'       "netsales": "129453.03",
'       "totalfunding": "129375.09",
'       "fee": "0",
'       "datechanged": "2019-04-22",
'       "deposittrancode": null,
'       "ddanumber": "3300770540",
'       "thirdparty": "-32.96",
'       "dateadded": "2019-04-22",
'       "fundingmasterid": 1121753252164835,
'       "reversal": "-44.98",
'       "interchangefee": "0",
'       "adjustment": "0",
'       "currency": "USD",
'       "depositachtracenumber": null,
'       "servicecharge": "0",
'       "otheradjustment": "0",
'       "abanumber": "121140399"
'     }
'   ],
'   "merchid": "MERCHANT_ID",
'   "txns": [
'     {
'       "date": "2019-04-19",
'       "amount": "76.75",
'       "downgradereasoncodes": null,
'       "fundingid": 1121753409164836,
'       "cardproc": "FNOR",
'       "sourcetransactionid": null,
'       "type": "SALE",
'       "batchid": 1900942289,
'       "respcode": "00",
'       "interchangeunitfee": "0",
'       "authcode": "PPS209",
'       "plancode": null,
'       "authdate": 20190419194808,
'       "fundingtxnid": 1121753252164835,
'       "cardbrand": "VISA",
'       "currency": "USD",
'       "terminalnumber": null,
'       "cardnumber": "42XXXXXXXXXX4242",
'       "cardtype": "Credit",
'       "retref": "109624271288",
'       "status": "Processed",
'       "interchangepercentfee": "0",
'       "invoicenumber": null
'     },
'     {
'       "date": "2019-04-19",
'       "amount": "9.99",
'       "downgradereasoncodes": null,
'       "fundingid": 1121753410164836,
'       "cardproc": "FNOR",
'       "sourcetransactionid": null,
'       "type": "SALE",
'       "batchid": 1900942289,
'       "respcode": "00",
'       "interchangeunitfee": "0",
'       "authcode": "PPS009",
'       "plancode": null,
'       "authdate": 20190419201502,
'       "fundingtxnid": 1121753252164835,
'       "cardbrand": "VISA",
'       "currency": "USD",
'       "terminalnumber": null,
'       "cardnumber": "47XXXXXXXXXX1443",
'       "cardtype": "Credit",
'       "retref": "109638272902",
'       "status": "Processed",
'       "interchangepercentfee": "0",
'       "invoicenumber": null
'     }
'   ]
' }
' 

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

Dim fundingmasterid As Long
Dim fundingdate As String
Dim datechanged As String
Dim merchid As String
Dim i As Long
Dim count_i As Long
Dim amount As String
Dim fundingadjustmentid As Long
Dim description As String
Dim currency As String
Dim category As String
Dim v_type As String
Dim dateadded As String
Dim fundingid As Long
Dim netsales As String
Dim totalfunding As String
Dim fee As String
Dim deposittrancode As String
Dim ddanumber As String
Dim thirdparty As String
Dim reversal As String
Dim interchangefee As String
Dim adjustment As String
Dim depositachtracenumber As String
Dim servicecharge As String
Dim otheradjustment As String
Dim abanumber As String
Dim date As String
Dim downgradereasoncodes As String
Dim cardproc As String
Dim sourcetransactionid As String
Dim batchid As Long
Dim respcode As String
Dim interchangeunitfee As String
Dim authcode As String
Dim plancode As String
Dim authdate As Long
Dim fundingtxnid As Long
Dim cardbrand As String
Dim terminalnumber As String
Dim cardnumber As String
Dim cardtype As String
Dim retref As String
Dim status As String
Dim interchangepercentfee As String
Dim invoicenumber As String

fundingmasterid = jsonResp.IntOf("fundingmasterid")
fundingdate = jsonResp.StringOf("fundingdate")
datechanged = jsonResp.StringOf("datechanged")
merchid = jsonResp.StringOf("merchid")
i = 0
count_i = jsonResp.SizeOfArray("adjustments")
Do While i < count_i
    jsonResp.I = i
    fundingmasterid = jsonResp.IntOf("adjustments[i].fundingmasterid")
    amount = jsonResp.StringOf("adjustments[i].amount")
    datechanged = jsonResp.StringOf("adjustments[i].datechanged")
    fundingadjustmentid = jsonResp.IntOf("adjustments[i].fundingadjustmentid")
    description = jsonResp.StringOf("adjustments[i].description")
    currency = jsonResp.StringOf("adjustments[i].currency")
    category = jsonResp.StringOf("adjustments[i].category")
    v_type = jsonResp.StringOf("adjustments[i].type")
    dateadded = jsonResp.StringOf("adjustments[i].dateadded")
    merchid = jsonResp.StringOf("adjustments[i].merchid")
    i = i + 1
Loop
i = 0
count_i = jsonResp.SizeOfArray("fundings")
Do While i < count_i
    jsonResp.I = i
    fundingid = jsonResp.IntOf("fundings[i].fundingid")
    netsales = jsonResp.StringOf("fundings[i].netsales")
    totalfunding = jsonResp.StringOf("fundings[i].totalfunding")
    fee = jsonResp.StringOf("fundings[i].fee")
    datechanged = jsonResp.StringOf("fundings[i].datechanged")
    deposittrancode = jsonResp.StringOf("fundings[i].deposittrancode")
    ddanumber = jsonResp.StringOf("fundings[i].ddanumber")
    thirdparty = jsonResp.StringOf("fundings[i].thirdparty")
    dateadded = jsonResp.StringOf("fundings[i].dateadded")
    fundingmasterid = jsonResp.IntOf("fundings[i].fundingmasterid")
    reversal = jsonResp.StringOf("fundings[i].reversal")
    interchangefee = jsonResp.StringOf("fundings[i].interchangefee")
    adjustment = jsonResp.StringOf("fundings[i].adjustment")
    currency = jsonResp.StringOf("fundings[i].currency")
    depositachtracenumber = jsonResp.StringOf("fundings[i].depositachtracenumber")
    servicecharge = jsonResp.StringOf("fundings[i].servicecharge")
    otheradjustment = jsonResp.StringOf("fundings[i].otheradjustment")
    abanumber = jsonResp.StringOf("fundings[i].abanumber")
    i = i + 1
Loop
i = 0
count_i = jsonResp.SizeOfArray("txns")
Do While i < count_i
    jsonResp.I = i
    date = jsonResp.StringOf("txns[i].date")
    amount = jsonResp.StringOf("txns[i].amount")
    downgradereasoncodes = jsonResp.StringOf("txns[i].downgradereasoncodes")
    fundingid = jsonResp.IntOf("txns[i].fundingid")
    cardproc = jsonResp.StringOf("txns[i].cardproc")
    sourcetransactionid = jsonResp.StringOf("txns[i].sourcetransactionid")
    v_type = jsonResp.StringOf("txns[i].type")
    batchid = jsonResp.IntOf("txns[i].batchid")
    respcode = jsonResp.StringOf("txns[i].respcode")
    interchangeunitfee = jsonResp.StringOf("txns[i].interchangeunitfee")
    authcode = jsonResp.StringOf("txns[i].authcode")
    plancode = jsonResp.StringOf("txns[i].plancode")
    authdate = jsonResp.IntOf("txns[i].authdate")
    fundingtxnid = jsonResp.IntOf("txns[i].fundingtxnid")
    cardbrand = jsonResp.StringOf("txns[i].cardbrand")
    currency = jsonResp.StringOf("txns[i].currency")
    terminalnumber = jsonResp.StringOf("txns[i].terminalnumber")
    cardnumber = jsonResp.StringOf("txns[i].cardnumber")
    cardtype = jsonResp.StringOf("txns[i].cardtype")
    retref = jsonResp.StringOf("txns[i].retref")
    status = jsonResp.StringOf("txns[i].status")
    interchangepercentfee = jsonResp.StringOf("txns[i].interchangepercentfee")
    invoicenumber = jsonResp.StringOf("txns[i].invoicenumber")
    i = i + 1
Loop