Lianja

QuickBooks - Create an Account

See more QuickBooks Examples

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

llSuccess = .F.

// 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("CkJsonObject")
llSuccess = loJsonToken.LoadFile("qa_data/tokens/qb-access-token.json")

loRest = createobject("CkRest")

llBAutoReconnect = .T.
llSuccess = loRest.Connect("sandbox-quickbooks.api.intuit.com",443,.T.,llBAutoReconnect)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loJsonToken
    release loRest
    return
endif

loSbAuth = createobject("CkStringBuilder")
loSbAuth.Append("Bearer ")
loSbAuth.Append(loJsonToken.StringOf("access_token"))
loRest.Authorization = loSbAuth.GetAsString()

loJsonRequest = createobject("CkJsonObject")
loJsonRequest.AppendString("AccountType","Credit Card")
loJsonRequest.AppendString("Name","Banana Republic")
lcRequestBody = loJsonRequest.Emit()

// "123146096291789" is the company ID.
loSbPath = createobject("CkStringBuilder")
loSbPath.Append("/v3/company/123146096291789/account?minorversion=45")

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

lcResponseBody = loRest.FullRequestString("POST",loSbPath.GetAsString(),lcRequestBody)
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loJsonToken
    release loRest
    release loSbAuth
    release loJsonRequest
    release loSbPath
    return
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
    return
endif

loJsonResponse = createobject("CkJsonObject")
loJsonResponse.Load(lcResponseBody)
loJsonResponse.EmitCompact = .F.
? 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