(AutoIt) MYOB: Add a Category

Sends a POST to add a general ledger category.

For more information, see https://accountrightapi.myob.cloud/?version=latest#beee4332-0f51-4206-ae77-edd57e585017

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.

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; Implements the following CURL command:

; curl --request POST "https://api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category" \
;   --header "Authorization: Bearer ACCESS_TOKEN" \
;   --header "x-myobapi-key: {{myob_api_key}}" \
;   --header "x-myobapi-version: v2" \
;   --header "Accept-Encoding: gzip,deflate" \
;   --data "{
; \"DisplayID\" : \"CAT002\",
; \"Name\" : \"Victoria\",
; \"Description\" : \"Demo API Category Endpoint.\",
; \"IsActive\" : true
; }"

; Use this online tool to generate code from sample JSON:
; Generate Code to Create JSON

; The following JSON is sent in the request body.

; {
;   "DisplayID": "CAT002",
;   "Name": "Victoria",
;   "Description": "Demo API Category Endpoint.",
;   "IsActive": true
; }

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("DisplayID","CAT002")
$oJson.UpdateString("Name","Victoria")
$oJson.UpdateString("Description","Demo API Category Endpoint.")
$oJson.UpdateBool("IsActive",True)

$oHttp.SetRequestHeader "Authorization","Bearer ACCESS_TOKEN"
$oHttp.SetRequestHeader "x-myobapi-key","{{myob_api_key}}"
$oHttp.SetRequestHeader "Accept-Encoding","gzip,deflate"
$oHttp.SetRequestHeader "x-myobapi-version","v2"

Local $oResp = $oHttp.PostJson3("https://api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category","application/json",$oJson)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode <> 200) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite("Response Body:" & @CRLF)
    ConsoleWrite($oResp.BodyStr & @CRLF)
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

ConsoleWrite("Success." & @CRLF)