Chilkat Online Tools

VB6 / New FreshBooks / Create Invoice with Expense

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.

' {
'   "invoice": {
'     "customerid": 485558,
'     "create_date": "2019-06-20",
'     "lines": [
'       {
'         "type": 0,
'         "description": "",
'         "taxName1": "",
'         "taxAmount1": 0,
'         "name": "Paperwork",
'         "qty": 1,
'         "taxName2": "",
'         "taxAmount2": 0,
'         "unit_cost": {
'           "amount": "5000.00",
'           "code": "USD"
'         }
'       },
'       {
'         "type": 1,
'         "description": "Gas",
'         "expenseid": 123,
'         "taxName1": "",
'         "taxAmount1": 0,
'         "name": "Shell Oil",
'         "qty": 1,
'         "taxName2": "",
'         "taxAmount2": 0,
'         "unit_cost": {
'           "amount": "120.00",
'           "code": "USD"
'         }
'       }
'     ]
'   }
' }

Dim json As New ChilkatJsonObject
success = json.UpdateInt("invoice.customerid",485558)
success = json.UpdateString("invoice.create_date","2019-06-20")
success = json.UpdateInt("invoice.lines[0].type",0)
success = json.UpdateString("invoice.lines[0].description","")
success = json.UpdateString("invoice.lines[0].taxName1","")
success = json.UpdateInt("invoice.lines[0].taxAmount1",0)
success = json.UpdateString("invoice.lines[0].name","Paperwork")
success = json.UpdateInt("invoice.lines[0].qty",1)
success = json.UpdateString("invoice.lines[0].taxName2","")
success = json.UpdateInt("invoice.lines[0].taxAmount2",0)
success = json.UpdateString("invoice.lines[0].unit_cost.amount","5000.00")
success = json.UpdateString("invoice.lines[0].unit_cost.code","USD")
success = json.UpdateInt("invoice.lines[1].type",1)
success = json.UpdateString("invoice.lines[1].description","Gas")
success = json.UpdateInt("invoice.lines[1].expenseid",123)
success = json.UpdateString("invoice.lines[1].taxName1","")
success = json.UpdateInt("invoice.lines[1].taxAmount1",0)
success = json.UpdateString("invoice.lines[1].name","Shell Oil")
success = json.UpdateInt("invoice.lines[1].qty",1)
success = json.UpdateString("invoice.lines[1].taxName2","")
success = json.UpdateInt("invoice.lines[1].taxAmount2",0)
success = json.UpdateString("invoice.lines[1].unit_cost.amount","120.00")
success = json.UpdateString("invoice.lines[1].unit_cost.code","USD")

' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "Content-Type","application/json"

Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://api.freshbooks.com/accounting/account/{{accountId}}/invoices/invoices","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 "Authorization: Bearer <access_token>"
	-H "Content-Type: application/json"
	-d '{
  "invoice": {
    "customerid": 485558,
    "create_date": "2019-06-20",
    "lines": [
      {
        "type": 0,
        "description": "",
        "taxName1": "",
        "taxAmount1": 0,
        "name": "Paperwork",
        "qty": 1,
        "taxName2": "",
        "taxAmount2": 0,
        "unit_cost": {
            "amount": "5000.00",
            "code": "USD"
        }
      },
      {
        "type": 1,
        "description": "Gas",
        "expenseid": {{expenseId}},
        "taxName1": "",
        "taxAmount1": 0,
        "name": "Shell Oil",
        "qty": 1,
        "taxName2": "",
        "taxAmount2": 0,
        "unit_cost": {
            "amount": "120.00",
            "code": "USD"
        }
      }
    ]
  }
}'
https://api.freshbooks.com/accounting/account/{{accountId}}/invoices/invoices

Postman Collection Item JSON

{
  "name": "Create Invoice with Expense ",
  "request": {
    "method": "POST",
    "header": [
      {
        "key": "Content-Type",
        "name": "Content-Type",
        "value": "application/json",
        "type": "text"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{\n  \"invoice\": {\n    \"customerid\": 485558,\n    \"create_date\": \"2019-06-20\",\n    \"lines\": [\n      {\n        \"type\": 0,\n        \"description\": \"\",\n        \"taxName1\": \"\",\n        \"taxAmount1\": 0,\n        \"name\": \"Paperwork\",\n        \"qty\": 1,\n        \"taxName2\": \"\",\n        \"taxAmount2\": 0,\n        \"unit_cost\": {\n            \"amount\": \"5000.00\",\n            \"code\": \"USD\"\n        }\n      },\n      {\n        \"type\": 1,\n        \"description\": \"Gas\",\n        \"expenseid\": {{expenseId}},\n        \"taxName1\": \"\",\n        \"taxAmount1\": 0,\n        \"name\": \"Shell Oil\",\n        \"qty\": 1,\n        \"taxName2\": \"\",\n        \"taxAmount2\": 0,\n        \"unit_cost\": {\n            \"amount\": \"120.00\",\n            \"code\": \"USD\"\n        }\n      }\n    ]\n  }\n}\n"
    },
    "url": {
      "raw": "https://api.freshbooks.com/accounting/account/{{accountId}}/invoices/invoices",
      "protocol": "https",
      "host": [
        "api",
        "freshbooks",
        "com"
      ],
      "path": [
        "accounting",
        "account",
        "{{accountId}}",
        "invoices",
        "invoices"
      ]
    },
    "description": "Creating invoice with expense.\n\nFirst you will need to create an expense. Once that is created, save the expenseId and add it to the invoice. \n\nWhen adding an expense, make sure you add to the `markup_percent` parameter the amount you want to markup by and set `cogs` to `true` if it is an item you have paid for. "
  },
  "response": [
  ]
}