AutoIt

QuickBooks - Create an Account

See more QuickBooks Examples

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

Local $bSuccess = 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.
$oJsonToken = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJsonToken.LoadFile("qa_data/tokens/qb-access-token.json")

$oRest = ObjCreate("Chilkat.Rest")

Local $bAutoReconnect = True
$bSuccess = $oRest.Connect("sandbox-quickbooks.api.intuit.com",443,True,$bAutoReconnect)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

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

$oJsonRequest = ObjCreate("Chilkat.JsonObject")
$oJsonRequest.AppendString("AccountType","Credit Card")
$oJsonRequest.AppendString("Name","Banana Republic")
Local $sRequestBody = $oJsonRequest.Emit()

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

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

Local $sResponseBody = $oRest.FullRequestString("POST",$oSbPath.GetAsString(),$sRequestBody)
If ($oRest.LastMethodSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

;  We should expect a 200 response if successful.
If ($oRest.ResponseStatusCode <> 200) Then
    ConsoleWrite("Request Header: " & @CRLF)
    ConsoleWrite($oRest.LastRequestHeader & @CRLF)
    ConsoleWrite("----" & @CRLF)
    ConsoleWrite("Response StatusCode = " & $oRest.ResponseStatusCode & @CRLF)
    ConsoleWrite("Response StatusLine: " & $oRest.ResponseStatusText & @CRLF)
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oRest.ResponseHeader & @CRLF)
    ConsoleWrite($sResponseBody & @CRLF)
    Exit
EndIf

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.Load($sResponseBody)
$oJsonResponse.EmitCompact = False
ConsoleWrite($oJsonResponse.Emit() & @CRLF)
ConsoleWrite("Success." & @CRLF)

;  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"
;  }