Xbase++

QuickBooks - Create an Account

See more QuickBooks Examples

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

LOCAL nSuccess
LOCAL oJsonToken
LOCAL oRest
LOCAL nBAutoReconnect
LOCAL oSbAuth
LOCAL oJsonRequest
LOCAL cRequestBody
LOCAL oSbPath
LOCAL cResponseBody
LOCAL oJsonResponse

nSuccess := 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.
oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/qb-access-token.json")

oRest := CreateObject("Chilkat.Rest")

nBAutoReconnect := 1
nSuccess := oRest:Connect("sandbox-quickbooks.api.intuit.com", 443, 1, nBAutoReconnect)
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oJsonToken:destroy()
    oRest:destroy()
    RETURN
ENDIF

oSbAuth := CreateObject("Chilkat.StringBuilder")
oSbAuth:Append("Bearer ")
oSbAuth:Append(oJsonToken:StringOf("access_token"))
oRest:Authorization := oSbAuth:GetAsString()

oJsonRequest := CreateObject("Chilkat.JsonObject")
oJsonRequest:AppendString("AccountType", "Credit Card")
oJsonRequest:AppendString("Name", "Banana Republic")
cRequestBody := oJsonRequest:Emit()

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

oRest:AddHeader("Content-Type", "application/json")
oRest:AddHeader("Accept", "application/json")
oRest:AllowHeaderFolding := 0

cResponseBody := oRest:FullRequestString("POST", oSbPath:GetAsString(), cRequestBody)
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oJsonToken:destroy()
    oRest:destroy()
    oSbAuth:destroy()
    oJsonRequest:destroy()
    oSbPath:destroy()
    RETURN
ENDIF

//  We should expect a 200 response if successful.
IF (oRest:ResponseStatusCode != 200)
    ? "Request Header: "
    ? oRest:LastRequestHeader
    ? "----"
    ? "Response StatusCode = " + Str(oRest:ResponseStatusCode)
    ? "Response StatusLine: " + oRest:ResponseStatusText
    ? "Response Header:"
    ? oRest:ResponseHeader
    ? cResponseBody
    oJsonToken:destroy()
    oRest:destroy()
    oSbAuth:destroy()
    oJsonRequest:destroy()
    oSbPath:destroy()
    RETURN
ENDIF

oJsonResponse := CreateObject("Chilkat.JsonObject")
oJsonResponse:Load(cResponseBody)
oJsonResponse:EmitCompact := 0
? oJsonResponse: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"
//  }

oJsonToken:destroy()
oRest:destroy()
oSbAuth:destroy()
oJsonRequest:destroy()
oSbPath:destroy()
oJsonResponse:destroy()