Chilkat Online Tools

VB6 / New FreshBooks / Create Credit Note

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_note": {
'     "credit_number": "0000064",
'     "currency_code": "CAD",
'     "create_date": "2020-07-31",
'     "notes": "Free $150 voucher",
'     "credit_type": "goodwill",
'     "terms": "Will be applied to future invoice",
'     "language": "en",
'     "lines": [
'       {
'         "name": "Credit",
'         "description": "Goodwill Credit",
'         "taxName1": null,
'         "taxAmount1": null,
'         "taxName2": null,
'         "taxAmount2": null,
'         "compounded_tax": false,
'         "qty": 1,
'         "unit_cost": {
'           "amount": "150",
'           "code": "CAD"
'         },
'         "credit_note": null
'       }
'     ],
'     "clientid": 123
'   }
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("credit_note.credit_number","0000064")
success = json.UpdateString("credit_note.currency_code","CAD")
success = json.UpdateString("credit_note.create_date","2020-07-31")
success = json.UpdateString("credit_note.notes","Free $150 voucher")
success = json.UpdateString("credit_note.credit_type","goodwill")
success = json.UpdateString("credit_note.terms","Will be applied to future invoice")
success = json.UpdateString("credit_note.language","en")
success = json.UpdateString("credit_note.lines[0].name","Credit")
success = json.UpdateString("credit_note.lines[0].description","Goodwill Credit")
success = json.UpdateNull("credit_note.lines[0].taxName1")
success = json.UpdateNull("credit_note.lines[0].taxAmount1")
success = json.UpdateNull("credit_note.lines[0].taxName2")
success = json.UpdateNull("credit_note.lines[0].taxAmount2")
success = json.UpdateBool("credit_note.lines[0].compounded_tax",0)
success = json.UpdateInt("credit_note.lines[0].qty",1)
success = json.UpdateString("credit_note.lines[0].unit_cost.amount","150")
success = json.UpdateString("credit_note.lines[0].unit_cost.code","CAD")
success = json.UpdateNull("credit_note.lines[0].credit_note")
success = json.UpdateInt("credit_note.clientid",123)

Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://api.freshbooks.com/accounting/account/{{accountid}}/credit_notes/credit_notes","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
	-d '{
    "credit_note": {
        "credit_number": "0000064",
        "currency_code": "CAD",
        "create_date": "2020-07-31",
        "notes": "Free $150 voucher",
        "credit_type": "goodwill",
        "terms": "Will be applied to future invoice",
        "language": "en",
        "lines": [
            {
                "name": "Credit",
                "description": "Goodwill Credit",
                "taxName1": null,
                "taxAmount1": null,
                "taxName2": null,
                "taxAmount2": null,
                "compounded_tax": false,
                "qty": 1,
                "unit_cost": {
                    "amount": "150",
                    "code": "CAD"
                },
                "credit_note": null
            }
        ],
        "clientid": {{clientid}}
    }
}'
https://api.freshbooks.com/accounting/account/{{accountid}}/credit_notes/credit_notes

Postman Collection Item JSON

{
  "name": "Create Credit Note",
  "request": {
    "auth": {
      "type": "noauth"
    },
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "{\n    \"credit_note\": {\n        \"credit_number\": \"0000064\",\n        \"currency_code\": \"CAD\",\n        \"create_date\": \"2020-07-31\",\n        \"notes\": \"Free $150 voucher\",\n        \"credit_type\": \"goodwill\",\n        \"terms\": \"Will be applied to future invoice\",\n        \"language\": \"en\",\n        \"lines\": [\n            {\n                \"name\": \"Credit\",\n                \"description\": \"Goodwill Credit\",\n                \"taxName1\": null,\n                \"taxAmount1\": null,\n                \"taxName2\": null,\n                \"taxAmount2\": null,\n                \"compounded_tax\": false,\n                \"qty\": 1,\n                \"unit_cost\": {\n                    \"amount\": \"150\",\n                    \"code\": \"CAD\"\n                },\n                \"credit_note\": null\n            }\n        ],\n        \"clientid\": {{clientid}}\n    }\n}",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "https://api.freshbooks.com/accounting/account/{{accountid}}/credit_notes/credit_notes",
      "protocol": "https",
      "host": [
        "api",
        "freshbooks",
        "com"
      ],
      "path": [
        "accounting",
        "account",
        "{{accountid}}",
        "credit_notes",
        "credit_notes"
      ]
    }
  },
  "response": [
  ]
}