(AutoIt) QuickBooks - Create an Account

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

For more information, see https://developer.intuit.com/app/developer/qbo/docs/api/accounting/ecommerce/account#create-an-account

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; 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")
Local $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"
; }