VB6 / New FreshBooks / 2. [FBPAY] - Create Setup Intent Using Payment Method Key
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.
' {
' "credit_card": {
' "saved_to_system_id": "yDDAb0",
' "card_holder_user_id": 146211,
' "access": {
' "system": false,
' "client": false,
' "invoice_profiles": [
' 33
' ]
' },
' "credit_card_tokens": [
' {
' "token": "token_123",
' "gateway_name": "fbpay",
' "is_primary": true
' }
' ]
' }
' }
Dim json As New ChilkatJsonObject
success = json.UpdateString("credit_card.saved_to_system_id","yDDAb0")
success = json.UpdateInt("credit_card.card_holder_user_id",146211)
success = json.UpdateBool("credit_card.access.system",0)
success = json.UpdateBool("credit_card.access.client",0)
success = json.UpdateInt("credit_card.access.invoice_profiles[0]",33)
success = json.UpdateString("credit_card.credit_card_tokens[0].token","token_123")
success = json.UpdateString("credit_card.credit_card_tokens[0].gateway_name","fbpay")
success = json.UpdateBool("credit_card.credit_card_tokens[0].is_primary",1)
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://api.freshbooks.com/payments/account/{{accountid}}/credit-card","application/json",json)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Dim sbResponseBody As New ChilkatStringBuilder
success = resp.GetBodySb(sbResponseBody)
Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
Debug.Print "Response Body:"
Debug.Print jResp.Emit()
Dim respStatusCode As Long
respStatusCode = resp.StatusCode
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
Debug.Print "Response Header:"
Debug.Print resp.Header
Debug.Print "Failed."
Exit Sub
End If
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "credit_card": {
' "credit_card_uuid": "7c8d965555554d40ddde59sadasdc7180asda7ba",
' "card_holder_user_id": 123456,
' "saved_to_system_id": "E86Qd",
' "card_type": "visa",
' "expiry_year": "2024",
' "expiry_month": "9",
' "last_four_digits": "0234",
' "card_holder_name": "John Johnston",
' "access": {
' "system": true,
' "client": false,
' "invoice_profiles": [
' 121212
' ]
' },
' "credit_card_tokens": [
' {
' "id": "fbpay+akdjhadkjashckJNCksajncasc",
' "gateway_name": "fbpay"
' }
' ]
' }
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim intVal As Long
Dim id As String
Dim gateway_name As String
Dim Credit_card_uuid As String
Credit_card_uuid = jResp.StringOf("credit_card.credit_card_uuid")
Dim Card_holder_user_id As Long
Card_holder_user_id = jResp.IntOf("credit_card.card_holder_user_id")
Dim Saved_to_system_id As String
Saved_to_system_id = jResp.StringOf("credit_card.saved_to_system_id")
Dim Card_type As String
Card_type = jResp.StringOf("credit_card.card_type")
Dim Expiry_year As String
Expiry_year = jResp.StringOf("credit_card.expiry_year")
Dim Expiry_month As String
Expiry_month = jResp.StringOf("credit_card.expiry_month")
Dim Last_four_digits As String
Last_four_digits = jResp.StringOf("credit_card.last_four_digits")
Dim Card_holder_name As String
Card_holder_name = jResp.StringOf("credit_card.card_holder_name")
Dim System As Long
System = jResp.BoolOf("credit_card.access.system")
Dim Client As Long
Client = jResp.BoolOf("credit_card.access.client")
Dim i As Long
i = 0
Dim count_i As Long
count_i = jResp.SizeOfArray("credit_card.access.invoice_profiles")
Do While i < count_i
jResp.I = i
intVal = jResp.IntOf("credit_card.access.invoice_profiles[i]")
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("credit_card.credit_card_tokens")
Do While i < count_i
jResp.I = i
id = jResp.StringOf("credit_card.credit_card_tokens[i].id")
gateway_name = jResp.StringOf("credit_card.credit_card_tokens[i].gateway_name")
i = i + 1
Loop
Curl Command
curl -X POST
-H "Authorization: Bearer <access_token>"
-d '{
"credit_card": {
"saved_to_system_id": "yDDAb0",
"card_holder_user_id": 146211,
"access": {
"system": false,
"client": false,
"invoice_profiles": [
33
]
},
"credit_card_tokens": [
{
"token": "token_123",
"gateway_name": "fbpay",
"is_primary": true
}
]
}
}'
https://api.freshbooks.com/payments/account/{{accountid}}/credit-card
Postman Collection Item JSON
{
"name": "2. [FBPAY] - Create Setup Intent Using Payment Method Key",
"event": [
{
"listen": "test",
"script": {
"exec": [
""
],
"type": "text/javascript"
}
}
],
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "{\n \"credit_card\": {\n \"saved_to_system_id\": \"yDDAb0\",\n \"card_holder_user_id\": 146211,\n \"access\": {\n \"system\": false,\n \"client\": false,\n \"invoice_profiles\": [\n 33\n ]\n },\n \"credit_card_tokens\": [\n {\n \"token\": \"token_123\",\n \"gateway_name\": \"fbpay\",\n \"is_primary\": true\n }\n ]\n }\n}",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "https://api.freshbooks.com/payments/account/{{accountid}}/credit-card",
"protocol": "https",
"host": [
"api",
"freshbooks",
"com"
],
"path": [
"payments",
"account",
"{{accountid}}",
"credit-card"
]
}
},
"response": [
{
"name": "2. [FBPAY] - Create Setup Intent Using Payment Method Key",
"originalRequest": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "{\n \"credit_card\": {\n \"saved_to_system_id\": \"E86Qp\",\n \"card_holder_user_id\": 590529,\n \"access\": {\n \"system\": true,\n \"client\": false,\n \"invoice_profiles\": [\n 26627\n ]\n },\n \"credit_card_tokens\": [\n {\n \"token\": \"1111111\",\n \"gateway_name\": \"fbpay\",\n \"is_primary\": true\n }\n ]\n }\n}",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "https://api.freshbooks.com/payments/account/E86Qp/credit-card",
"protocol": "https",
"host": [
"api",
"freshbooks",
"com"
],
"path": [
"payments",
"account",
"E86Qp",
"credit-card"
]
}
},
"status": "CREATED",
"code": 201,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Server",
"value": "nginx"
},
{
"key": "Date",
"value": "Fri, 31 Jul 2020 20:33:18 GMT"
},
{
"key": "Content-Type",
"value": "application/vnd.api+json"
},
{
"key": "Content-Length",
"value": "438"
},
{
"key": "X-CardApp-Version",
"value": "2007.68.0"
},
{
"key": "X-NewRelic-App-Data",
"value": "PxQBWV5TCBABV1FUDwYGV1QTGhE1AwE2QgNWEVlbQFtcCxYnRA9QFg1ZWU4FAkpXURQRTEVURAkRQ1VWEUgAEFUGURZnW1VAV0tLBEIORhAHUw0CFAZcWkQHABBTQ1IVC0REUAdET1IcURZQCQEBBgBcClIJVwtWVA4bVVNTFBEFVVJRUwBUX1MHAgAAVFFQEk5eA1RLUW8="
},
{
"key": "X-Frame-Options",
"value": "SAMEORIGIN"
},
{
"key": "X-XSS-Protection",
"value": "1; mode=block"
},
{
"key": "X-Content-Type-Options",
"value": "nosniff"
},
{
"key": "Content-Security-Policy",
"value": "default-src 'self'"
},
{
"key": "X-Content-Security-Policy",
"value": "default-src 'self'"
},
{
"key": "Strict-Transport-Security",
"value": "max-age=31556926; includeSubDomains; preload"
},
{
"key": "Referrer-Policy",
"value": "strict-origin-when-cross-origin"
},
{
"key": "X-RateLimit-Limit",
"value": "600"
},
{
"key": "X-RateLimit-Remaining",
"value": "598"
},
{
"key": "X-RateLimit-Reset",
"value": "1596227656"
},
{
"key": "Retry-After",
"value": "57"
},
{
"key": "Access-Control-Allow-Origin",
"value": "*"
},
{
"key": "Via",
"value": "1.1 google"
},
{
"key": "Alt-Svc",
"value": "h3-Q050=\":443\"; ma=2592000,h3-Q046=\":443\"; ma=2592000,h3-Q043=\":443\"; ma=2592000,quic=\":443\"; ma=2592000; v=\"46,43\""
}
],
"cookie": [
],
"body": "{\n \"credit_card\": {\n \"credit_card_uuid\": \"7c8d965555554d40ddde59sadasdc7180asda7ba\",\n \"card_holder_user_id\": 123456,\n \"saved_to_system_id\": \"E86Qd\",\n \"card_type\": \"visa\",\n \"expiry_year\": \"2024\",\n \"expiry_month\": \"9\",\n \"last_four_digits\": \"0234\",\n \"card_holder_name\": \"John Johnston\",\n \"access\": {\n \"system\": true,\n \"client\": false,\n \"invoice_profiles\": [121212]\n },\n \"credit_card_tokens\": [\n {\n \"id\": \"fbpay+akdjhadkjashckJNCksajncasc\",\n \"gateway_name\": \"fbpay\"\n }\n ]\n }\n}"
}
]
}
