(AutoIt) MYOB: Delete a Category

Sends a DELETE to delete a category.

For more information, see https://accountrightapi.myob.cloud/?version=latest#613a9470-8ec9-4d62-b06b-6f5b9b2cc99a

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 DELETE "https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/{{category_id}}" \
;   --header "Authorization: Bearer ACCESS_TOKEN" \
;   --header "x-myobapi-key: This is your API Key" \
;   --header "x-myobapi-version: v2" \
;   --header "Accept-Encoding: gzip,deflate"

$oHttp.SetRequestHeader "Authorization","Bearer ACCESS_TOKEN"
$oHttp.SetRequestHeader "x-myobapi-key","This is your API Key"
$oHttp.SetRequestHeader "Accept-Encoding","gzip,deflate"
$oHttp.SetRequestHeader "x-myobapi-version","v2"

Local $oResp = $oHttp.QuickRequest("DELETE","https://ar1.api.myob.com/accountright/c06778dd-4371-4a83-975f-522df65d7574/GeneralLedger/Category/{{category_id}}")
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)