Chilkat Online Tools

VB.NET / 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 Chilkat.Http
Dim success As Boolean

' 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 Chilkat.JsonObject
json.UpdateString("credit_card.saved_to_system_id","yDDAb0")
json.UpdateInt("credit_card.card_holder_user_id",146211)
json.UpdateBool("credit_card.access.system",False)
json.UpdateBool("credit_card.access.client",False)
json.UpdateInt("credit_card.access.invoice_profiles[0]",33)
json.UpdateString("credit_card.credit_card_tokens[0].token","token_123")
json.UpdateString("credit_card.credit_card_tokens[0].gateway_name","fbpay")
json.UpdateBool("credit_card.credit_card_tokens[0].is_primary",True)

' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"

Dim resp As Chilkat.HttpResponse = http.PostJson3("https://api.freshbooks.com/payments/account/{{accountid}}/credit-card","application/json",json)
If (http.LastMethodSuccess = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Dim sbResponseBody As New Chilkat.StringBuilder
resp.GetBodySb(sbResponseBody)

Dim jResp As New Chilkat.JsonObject
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Debug.WriteLine("Response Body:")
Debug.WriteLine(jResp.Emit())

Dim respStatusCode As Integer = resp.StatusCode
Debug.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
    Debug.WriteLine("Response Header:")
    Debug.WriteLine(resp.Header)
    Debug.WriteLine("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 Integer
Dim id As String
Dim gateway_name As String

Dim Credit_card_uuid As String = jResp.StringOf("credit_card.credit_card_uuid")
Dim Card_holder_user_id As Integer = jResp.IntOf("credit_card.card_holder_user_id")
Dim Saved_to_system_id As String = jResp.StringOf("credit_card.saved_to_system_id")
Dim Card_type As String = jResp.StringOf("credit_card.card_type")
Dim Expiry_year As String = jResp.StringOf("credit_card.expiry_year")
Dim Expiry_month As String = jResp.StringOf("credit_card.expiry_month")
Dim Last_four_digits As String = jResp.StringOf("credit_card.last_four_digits")
Dim Card_holder_name As String = jResp.StringOf("credit_card.card_holder_name")
Dim System As Boolean = jResp.BoolOf("credit_card.access.system")
Dim Client As Boolean = jResp.BoolOf("credit_card.access.client")
Dim i As Integer = 0
Dim count_i As Integer = jResp.SizeOfArray("credit_card.access.invoice_profiles")
While i < count_i
    jResp.I = i
    intVal = jResp.IntOf("credit_card.access.invoice_profiles[i]")
    i = i + 1
End While
i = 0
count_i = jResp.SizeOfArray("credit_card.credit_card_tokens")
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
End While

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}"
    }
  ]
}