Chilkat Online Tools

VB6 / GP-API Collection / TRA_10.1 Interac Authorize

Back to Collection Items

' 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

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

' The following JSON is sent in the request body.

' {
'   "account_name": "{{acc_name}}",
'   "channel": "CP",
'   "amount": "1000",
'   "currency": "CAD",
'   "reference": "11223344",
'   "country": "CA",
'   "payment_method": {
'     "entry_mode": "CHIP",
'     "card": {
'       "track": ";4506445006931933=22122200162907400000?",
'       "tag": "82021C008407A0000002771010950580000080009A031907319B0268009C01005F280201245F2A0201245F3401019F02060000000010009F03060000000000009F0607A00000027710109F080200019F090200019F100706010A03A4A8009F1A0201249F21031558109F2608395F21408D87BAB09F2701809F3303E0F8C89F34030100029F3501229F360200609F37048C8C7AC59F3901059F410400000025",
'       "funding": "DEBIT"
'     },
'     "authentication": {
'       "mac": "A01B82D800000000"
'     }
'   },
'   "device": {
'     "time": "2019-10-14T05:58:40",
'     "sequence_number": "000010010500"
'   }
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("account_name","{{acc_name}}")
success = json.UpdateString("channel","CP")
success = json.UpdateString("amount","1000")
success = json.UpdateString("currency","CAD")
success = json.UpdateString("reference","11223344")
success = json.UpdateString("country","CA")
success = json.UpdateString("payment_method.entry_mode","CHIP")
success = json.UpdateString("payment_method.card.track",";4506445006931933=22122200162907400000?")
success = json.UpdateString("payment_method.card.tag","82021C008407A0000002771010950580000080009A031907319B0268009C01005F280201245F2A0201245F3401019F02060000000010009F03060000000000009F0607A00000027710109F080200019F090200019F100706010A03A4A8009F1A0201249F21031558109F2608395F21408D87BAB09F2701809F3303E0F8C89F34030100029F3501229F360200609F37048C8C7AC59F3901059F410400000025")
success = json.UpdateString("payment_method.card.funding","DEBIT")
success = json.UpdateString("payment_method.authentication.mac","A01B82D800000000")
success = json.UpdateString("device.time","2019-10-14T05:58:40")
success = json.UpdateString("device.sequence_number","000010010500")

' Adds the "Authorization: Bearer {{token}}" header.
http.AuthToken = "{{token}}"
http.SetRequestHeader "X-GP-Version","{{version}}"

Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://{{url}}/ucp/transactions","application/json",json)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print resp.StatusCode
Debug.Print resp.BodyStr

Curl Command

curl -X POST
	-H "X-GP-Version: {{version}}"
	-H "Authorization: Bearer {{token}}"
	-d '{
    "account_name": "{{acc_name}}",
    "channel": "CP",
    "amount": "1000",
    "currency": "CAD",
    "reference": "11223344",
    "country": "CA",
    "payment_method": {
        "entry_mode": "CHIP",
        "card": {
            "track": ";4506445006931933=22122200162907400000?",
            "tag": "82021C008407A0000002771010950580000080009A031907319B0268009C01005F280201245F2A0201245F3401019F02060000000010009F03060000000000009F0607A00000027710109F080200019F090200019F100706010A03A4A8009F1A0201249F21031558109F2608395F21408D87BAB09F2701809F3303E0F8C89F34030100029F3501229F360200609F37048C8C7AC59F3901059F410400000025",
            "funding": "DEBIT"
        },
        "authentication": {
            "mac": "A01B82D800000000"
        }
    },
    "device": {
        "time": "2019-10-14T05:58:40",
        "sequence_number": "000010010500"
    }
}'
https://{{url}}/ucp/transactions

Postman Collection Item JSON

{
  "name": "TRA_10.1 Interac Authorize",
  "event": [
    {
      "listen": "test",
      "script": {
        "exec": [
          "var jsonData = JSON.parse(responseBody);\r",
          "postman.setEnvironmentVariable(\"trn_id\", jsonData.id);\r",
          "postman.setEnvironmentVariable(\"sale_trn_id\",jsonData.id);\r",
          "postman.setEnvironmentVariable(\"reference\", jsonData.reference);\r",
          "postman.setEnvironmentVariable(\"batch_id\", jsonData.batch_id);\r",
          "postman.setEnvironmentVariable(\"act_id\", jsonData.action.id);"
        ],
        "type": "text/javascript"
      }
    }
  ],
  "request": {
    "auth": {
      "type": "noauth"
    },
    "method": "POST",
    "header": [
      {
        "key": "X-GP-Version",
        "value": "{{version}}",
        "type": "text"
      },
      {
        "key": "Authorization",
        "value": "Bearer {{token}}",
        "type": "text"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{\r\n    \"account_name\": \"{{acc_name}}\",\r\n    \"channel\": \"CP\",\r\n    \"amount\": \"1000\",\r\n    \"currency\": \"CAD\",\r\n    \"reference\": \"11223344\",\r\n    \"country\": \"CA\",\r\n    \"payment_method\": {\r\n        \"entry_mode\": \"CHIP\",\r\n        \"card\": {\r\n            \"track\": \";4506445006931933=22122200162907400000?\",\r\n            \"tag\": \"82021C008407A0000002771010950580000080009A031907319B0268009C01005F280201245F2A0201245F3401019F02060000000010009F03060000000000009F0607A00000027710109F080200019F090200019F100706010A03A4A8009F1A0201249F21031558109F2608395F21408D87BAB09F2701809F3303E0F8C89F34030100029F3501229F360200609F37048C8C7AC59F3901059F410400000025\",\r\n            \"funding\": \"DEBIT\"\r\n        },\r\n        \"authentication\": {\r\n            \"mac\": \"A01B82D800000000\"\r\n        }\r\n    },\r\n    \"device\": {\r\n        \"time\": \"2019-10-14T05:58:40\",\r\n        \"sequence_number\": \"000010010500\"\r\n    }\r\n}",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "https://{{url}}/ucp/transactions",
      "protocol": "https",
      "host": [
        "{{url}}"
      ],
      "path": [
        "ucp",
        "transactions"
      ]
    }
  },
  "response": [
  ]
}