B4X

QuickBooks - Create an Account

See more QuickBooks Examples

Demonstrates how to send an JSON request to create a QuickBooks account. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  First get our previously obtained OAuth2 access token.
Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/qb-access-token.json")

Dim rest As ChilkatRest
rest.Initialize("rest")

Dim bAutoReconnect As Boolean = True
success = rest.Connect("sandbox-quickbooks.api.intuit.com", 443, True, bAutoReconnect)
If success <> True Then
    Log(rest.LastErrorText)
    Return
End If


Dim sbAuth As ChilkatStringBuilder
sbAuth.Initialize
sbAuth.Append("Bearer ")
sbAuth.Append(jsonToken.StringOf("access_token"))
rest.Authorization = sbAuth.GetAsString

Dim jsonRequest As ChilkatJsonObject
jsonRequest.Initialize
jsonRequest.AppendString("AccountType", "Credit Card")
jsonRequest.AppendString("Name", "Banana Republic")
Dim requestBody As String = jsonRequest.Emit

'  "123146096291789" is the company ID.
Dim sbPath As ChilkatStringBuilder
sbPath.Initialize
sbPath.Append("/v3/company/123146096291789/account?minorversion=45")

rest.AddHeader("Content-Type", "application/json")
rest.AddHeader("Accept", "application/json")
rest.AllowHeaderFolding = False

Dim responseBody As String = rest.FullRequestString("POST", sbPath.GetAsString, requestBody)
If rest.LastMethodSuccess <> True Then
    Log(rest.LastErrorText)
    Return
End If


'  We should expect a 200 response if successful.
If rest.ResponseStatusCode <> 200 Then
    Log("Request Header: ")
    Log(rest.LastRequestHeader)
    Log("----")
    Log("Response StatusCode = " & rest.ResponseStatusCode)
    Log("Response StatusLine: " & rest.ResponseStatusText)
    Log("Response Header:")
    Log(rest.ResponseHeader)
    Log(responseBody)
    Return
End If


Dim jsonResponse As ChilkatJsonObject
jsonResponse.Initialize
jsonResponse.Load(responseBody)
jsonResponse.EmitCompact = False
Log(jsonResponse.Emit)
Log("Success.")

'  A sample JSON response:

'  Use this online tool to generate parsing code from sample JSON: 
'  Generate Parsing Code from JSON

'  {
'    "Account": {
'      "Name": "Banana Republic",
'      "SubAccount": false,
'      "FullyQualifiedName": "Banana Republic",
'      "Active": true,
'      "Classification": "Liability",
'      "AccountType": "Credit Card",
'      "AccountSubType": "CreditCard",
'      "CurrentBalance": 0,
'      "CurrentBalanceWithSubAccounts": 0,
'      "CurrencyRef": {
'        "value": "USD",
'        "name": "United States Dollar"
'      },
'      "domain": "QBO",
'      "sparse": false,
'      "Id": "97",
'      "SyncToken": "0",
'      "MetaData": {
'        "CreateTime": "2016-10-25T05:07:12-07:00",
'        "LastUpdatedTime": "2016-10-25T05:07:12-07:00"
'      }
'    },
'    "time": "2016-10-25T05:07:11.714-07:00"
'  }