Visual FoxPro

QuickBooks - Create an Account

See more QuickBooks Examples

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

LOCAL lnSuccess
LOCAL loJsonToken
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL loSbAuth
LOCAL loJsonRequest
LOCAL lcRequestBody
LOCAL loSbPath
LOCAL lcResponseBody
LOCAL loJsonResponse

lnSuccess = 0

* 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.
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/qb-access-token.json")

loRest = CreateObject('Chilkat.Rest')

lnBAutoReconnect = 1
lnSuccess = loRest.Connect("sandbox-quickbooks.api.intuit.com",443,1,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loJsonToken
    RELEASE loRest
    CANCEL
ENDIF

loSbAuth = CreateObject('Chilkat.StringBuilder')
loSbAuth.Append("Bearer ")
loSbAuth.Append(loJsonToken.StringOf("access_token"))
loRest.Authorization = loSbAuth.GetAsString()

loJsonRequest = CreateObject('Chilkat.JsonObject')
loJsonRequest.AppendString("AccountType","Credit Card")
loJsonRequest.AppendString("Name","Banana Republic")
lcRequestBody = loJsonRequest.Emit()

* "123146096291789" is the company ID.
loSbPath = CreateObject('Chilkat.StringBuilder')
loSbPath.Append("/v3/company/123146096291789/account?minorversion=45")

loRest.AddHeader("Content-Type","application/json")
loRest.AddHeader("Accept","application/json")
loRest.AllowHeaderFolding = 0

lcResponseBody = loRest.FullRequestString("POST",loSbPath.GetAsString(),lcRequestBody)
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loJsonToken
    RELEASE loRest
    RELEASE loSbAuth
    RELEASE loJsonRequest
    RELEASE loSbPath
    CANCEL
ENDIF

* We should expect a 200 response if successful.
IF (loRest.ResponseStatusCode <> 200) THEN
    ? "Request Header: "
    ? loRest.LastRequestHeader
    ? "----"
    ? "Response StatusCode = " + STR(loRest.ResponseStatusCode)
    ? "Response StatusLine: " + loRest.ResponseStatusText
    ? "Response Header:"
    ? loRest.ResponseHeader
    ? lcResponseBody
    RELEASE loJsonToken
    RELEASE loRest
    RELEASE loSbAuth
    RELEASE loJsonRequest
    RELEASE loSbPath
    CANCEL
ENDIF

loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(lcResponseBody)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()
? "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"
* }

RELEASE loJsonToken
RELEASE loRest
RELEASE loSbAuth
RELEASE loJsonRequest
RELEASE loSbPath
RELEASE loJsonResponse