VB6 / GP-API Collection / DCC_1.1 Rate Lookup Not Available
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": "dcc",
' "model": "FROM_TRANSACTION_CURRENCY",
' "transaction_type": "SALE",
' "channel": "CNP",
' "amount": "10000",
' "currency": "EUR",
' "country": "GB",
' "reference": "TRANS-20180114123459878",
' "payment_method": {
' "name": "Jane Doe",
' "entry_mode": "ECOM",
' "card": {
' "number": "4263970000005262",
' "expiry_month": "12",
' "expiry_year": "20",
' "cvv": "233"
' }
' }
' }
Dim json As New ChilkatJsonObject
success = json.UpdateString("account_name","dcc")
success = json.UpdateString("model","FROM_TRANSACTION_CURRENCY")
success = json.UpdateString("transaction_type","SALE")
success = json.UpdateString("channel","CNP")
success = json.UpdateString("amount","10000")
success = json.UpdateString("currency","EUR")
success = json.UpdateString("country","GB")
success = json.UpdateString("reference","TRANS-20180114123459878")
success = json.UpdateString("payment_method.name","Jane Doe")
success = json.UpdateString("payment_method.entry_mode","ECOM")
success = json.UpdateString("payment_method.card.number","4263970000005262")
success = json.UpdateString("payment_method.card.expiry_month","12")
success = json.UpdateString("payment_method.card.expiry_year","20")
success = json.UpdateString("payment_method.card.cvv","233")
http.SetRequestHeader "Content-Type","application/json"
http.SetRequestHeader "X-GP-Version","{{version}}"
' Adds the "Authorization: Bearer {{token}}" header.
http.AuthToken = "{{token}}"
Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://{{url}}/ucp/currency-conversions","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 "Content-Type: application/json"
-H "X-GP-Version: {{version}}"
-H "Authorization: Bearer {{token}}"
-d '{
"account_name": "dcc",
"model": "FROM_TRANSACTION_CURRENCY",
"transaction_type": "SALE",
"channel": "CNP",
"amount": "10000",
"currency": "EUR",
"country": "GB",
"reference": "TRANS-20180114123459878",
"payment_method": {
"name": "Jane Doe",
"entry_mode": "ECOM",
"card": {
"number": "4263970000005262",
"expiry_month": "12",
"expiry_year": "20",
"cvv": "233"
}
}
}'
https://{{url}}/ucp/currency-conversions
Postman Collection Item JSON
{
"name": "DCC_1.1 Rate Lookup Not Available",
"event": [
{
"listen": "prerequest",
"script": {
"exec": [
""
],
"type": "text/javascript"
}
},
{
"listen": "test",
"script": {
"exec": [
"var jsonData = JSON.parse(responseBody);\r",
"\r",
"postman.setEnvironmentVariable(\"ccs_id\", jsonData.id);"
],
"type": "text/javascript"
}
}
],
"request": {
"method": "POST",
"header": [
{
"key": "Content-Type",
"value": "application/json",
"type": "text"
},
{
"key": "X-GP-Version",
"value": "{{version}}",
"type": "text"
},
{
"key": "Authorization",
"value": "Bearer {{token}}",
"type": "text"
}
],
"body": {
"mode": "raw",
"raw": "{\r\n \"account_name\": \"dcc\",\r\n \"model\": \"FROM_TRANSACTION_CURRENCY\",\r\n \"transaction_type\": \"SALE\",\r\n \"channel\": \"CNP\",\r\n \"amount\": \"10000\",\r\n \"currency\": \"EUR\",\r\n \"country\": \"GB\",\r\n \"reference\": \"TRANS-20180114123459878\",\r\n \"payment_method\": {\r\n \"name\": \"Jane Doe\",\r\n \"entry_mode\": \"ECOM\",\r\n \"card\": {\r\n \"number\": \"4263970000005262\",\r\n \"expiry_month\": \"12\",\r\n \"expiry_year\": \"20\",\r\n \"cvv\": \"233\"\r\n }\r\n }\r\n}"
},
"url": {
"raw": "https://{{url}}/ucp/currency-conversions",
"protocol": "https",
"host": [
"{{url}}"
],
"path": [
"ucp",
"currency-conversions"
]
}
},
"response": [
]
}