(VB.NET UWP/WinRT) 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 Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

Dim http As New Chilkat.Http
Dim success As Boolean

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

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

Dim jsonResp As New Chilkat.JsonObject
jsonResp.Load(responseStr)
jsonResp.EmitCompact = False

Debug.WriteLine("response JSON:")
Debug.WriteLine(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 Integer
Dim fundingdate As String
Dim datechanged As String
Dim merchid As String
Dim i As Integer
Dim count_i As Integer
Dim amount As String
Dim fundingadjustmentid As Integer
Dim description As String
Dim currency As String
Dim category As String
Dim v_type As String
Dim dateadded As String
Dim fundingid As Integer
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 Integer
Dim respcode As String
Dim interchangeunitfee As String
Dim authcode As String
Dim plancode As String
Dim authdate As Integer
Dim fundingtxnid As Integer
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")
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
End While
i = 0
count_i = jsonResp.SizeOfArray("fundings")
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
End While
i = 0
count_i = jsonResp.SizeOfArray("txns")
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
End While