Xojo Plugin PiConnect - Cloud: Credit Sale Convert to JSON

Back to Index

Credit Sale Convert to JSON

Documentation: https://api-cloud.piconnect.io/#670fa1b8-aa65-9dfe-f4b3-1e3e86a7b218

CURL Command

curl --request POST \
  --url https://pipay.io/piconnect/process \
  --header 'Content-Type: application/x-www-form-urlencoded' \
  --data 'response=%20%1CT01%1C1.37%1C000000%1COK%1C00%1FAPPROVAL%20TAS213%1FTAS213%1F801719500067%1F%1F23%1C01%1C2203%1F0%1F0%1F0%1F0%1F0%1F%1F%1C2142%1F4%1F0121%1F%1F%1F%1F01%1FPAYMENT%20INNOVATORS%2FTEST%20T%1F%1F%1F0%1C13%1F50%1F20180117111513%1C%1F%1C%1C%1CTOKEN%3DXj02K6IZfo5M2142%1FCARDBIN%3D441840%1FSN%3D53211269%1FTC%3DC5BB26C00F78D78B%1FTVR%3D8080008000%1FAID%3DA0000000031010%1FTSI%3D6C00%1FATC%3D0019%1FAPPLAB%3DVisa%20Credit%1FIAD%3D06010A03600000%1FARC%3D00%1FCID%3D40%1FCVM%3D6&account=1512407959&sn=31415926&mode=2'

Xojo Plugin Example

Dim rest As New Chilkat.Rest
Dim success As Boolean

//  URL: https://pipay.io/piconnect/process
Dim bTls As Boolean
bTls = True
Dim port As Int32
port = 443
Dim bAutoReconnect As Boolean
bAutoReconnect = True
success = rest.Connect("pipay.io",port,bTls,bAutoReconnect)
If (success <> True) Then
    System.DebugLog("ConnectFailReason: " + Str(rest.ConnectFailReason))
    System.DebugLog(rest.LastErrorText)
    Return
End If

rest.AddQueryParam("response"," T011.37000000OK00APPROVAL TAS213TAS213801719500067230122030000021424012101PAYMENT INNOVATORS/TEST T0135020180117111513TOKEN=Xj02K6IZfo5M2142CARDBIN=441840SN=53211269TC=C5BB26C00F78D78BTVR=8080008000AID=A0000000031010TSI=6C00ATC=0019APPLAB=Visa CreditIAD=06010A03600000ARC=00CID=40CVM=6")
rest.AddQueryParam("account","1512407959")
rest.AddQueryParam("sn","31415926")
rest.AddQueryParam("mode","2")

Dim strResponseBody As String
strResponseBody = rest.FullRequestFormUrlEncoded("POST","/piconnect/process")
If (rest.LastMethodSuccess <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim jsonResponse As New Chilkat.JsonObject
jsonResponse.Load(strResponseBody)

Dim TransactionResult As String
Dim PTK As String
Dim ResponseCode As String
Dim ApprovedAmount As Int32
Dim TransactionID As String
Dim AuthCode As String
Dim Token As String
Dim CardType As String
Dim AccountNum As String
Dim ExpDate As String
Dim TicketID As String
Dim ResponseMsg As String
Dim HostCode As String
Dim Timestamp As String
Dim AvsResponse As Boolean
Dim CardHolder As String
Dim BusinessId As String
Dim UniqueId As String
Dim TransType As String
Dim EntryMode As String
Dim RefNum As String
Dim SerialNo As String
Dim AmountDue As String
Dim TipAmount As Int32
Dim CvResponse As Boolean
Dim HostResponse As String
Dim ExtraBalance As Boolean
Dim CardBin As String
Dim Tc As String
Dim Tvr As String
Dim Aid As String
Dim Tsi As String
Dim Atc As String
Dim AppLab As String
Dim AppPN As Boolean
Dim Iad As String
Dim Arc As String
Dim Cid As String
Dim Cvm As Boolean
Dim i As Int32
Dim count_i As Int32
Dim strVal As String

TransactionResult = jsonResponse.StringOf("TransactionResult")
PTK = jsonResponse.StringOf("PTK")
ResponseCode = jsonResponse.StringOf("ResponseCode")
ApprovedAmount = jsonResponse.IntOf("ApprovedAmount")
TransactionID = jsonResponse.StringOf("TransactionID")
AuthCode = jsonResponse.StringOf("AuthCode")
Token = jsonResponse.StringOf("Token")
CardType = jsonResponse.StringOf("CardType")
AccountNum = jsonResponse.StringOf("AccountNum")
ExpDate = jsonResponse.StringOf("ExpDate")
TicketID = jsonResponse.StringOf("TicketID")
ResponseMsg = jsonResponse.StringOf("ResponseMsg")
HostCode = jsonResponse.StringOf("HostCode")
Timestamp = jsonResponse.StringOf("Timestamp")
AvsResponse = jsonResponse.IsNullOf("AvsResponse")
CardHolder = jsonResponse.StringOf("CardHolder")
BusinessId = jsonResponse.StringOf("BusinessId")
UniqueId = jsonResponse.StringOf("UniqueId")
TransType = jsonResponse.StringOf("TransType")
EntryMode = jsonResponse.StringOf("EntryMode")
RefNum = jsonResponse.StringOf("RefNum")
SerialNo = jsonResponse.StringOf("SerialNo")
AmountDue = jsonResponse.StringOf("AmountDue")
TipAmount = jsonResponse.IntOf("TipAmount")
CvResponse = jsonResponse.IsNullOf("CvResponse")
HostResponse = jsonResponse.StringOf("HostResponse")
ExtraBalance = jsonResponse.IsNullOf("ExtraBalance")
CardBin = jsonResponse.StringOf("CardBin")
Tc = jsonResponse.StringOf("Tc")
Tvr = jsonResponse.StringOf("Tvr")
Aid = jsonResponse.StringOf("Aid")
Tsi = jsonResponse.StringOf("Tsi")
Atc = jsonResponse.StringOf("Atc")
AppLab = jsonResponse.StringOf("AppLab")
AppPN = jsonResponse.IsNullOf("AppPN")
Iad = jsonResponse.StringOf("Iad")
Arc = jsonResponse.StringOf("Arc")
Cid = jsonResponse.StringOf("Cid")
Cvm = jsonResponse.IsNullOf("Cvm")
i = 0
count_i = jsonResponse.SizeOfArray("Method")
While i < count_i
    jsonResponse.I = i
    strVal = jsonResponse.StringOf("Method[i]")
    i = i + 1
Wend

Sample JSON Response Body

{
  "TransactionResult": "true",
  "PTK": "F9JURF2HLo",
  "ResponseCode": "000000",
  "ApprovedAmount": 22.03,
  "TransactionID": "13",
  "AuthCode": "TAS213",
  "Token": "Xj02K6IZfo5M2142",
  "CardType": "VISA",
  "AccountNum": "2142",
  "ExpDate": "0121",
  "TicketID": "50",
  "ResponseMsg": "OK",
  "HostCode": "00",
  "Timestamp": "20180117111513",
  "AvsResponse": null,
  "CardHolder": "PAYMENT INNOVATORS/TEST T",
  "BusinessId": "1512407959",
  "UniqueId": "5a8af729c5b1b",
  "TransType": "SALE",
  "EntryMode": "CHIP",
  "RefNum": "801719500067",
  "SerialNo": "53211269",
  "AmountDue": "0",
  "TipAmount": 0,
  "CvResponse": null,
  "HostResponse": "APPROVAL TAS213",
  "ExtraBalance": null,
  "CardBin": "441840",
  "Tc": "A0019",
  "Tvr": "8080008000",
  "Aid": "A0000000031010",
  "Tsi": "6C00",
  "Atc": "0019",
  "AppLab": "Visa Credit",
  "AppPN": null,
  "Iad": "06010A03600000",
  "Arc": "00",
  "Cid": "40",
  "Cvm": null,
  "Method": [
    "T01"
  ]
}