(AutoIt) Hungary NAV Manage Annulment Request

Demonstrates the manageAnnulment request for the Hungarian NAV Online Invoicing System REST API v2.0.

Note: This example requires Chilkat v9.5.0.83 or greater.

For more information, see https://onlineszamla.nav.gov.hu/api/files/container/download/Online%20Szamla_Interfesz%20specifik%C3%A1ci%C3%B3_EN_v2.0.pdf

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.

; Build the following XML:

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

; <?xml version="1.0" encoding="UTF-8"?>
; <ManageAnnulmentRequest xmlns="http://schemas.nav.gov.hu/OSA/2.0/api">
; 	<header>
; 		<requestId>RID338592103413</requestId>
; 		<timestamp>2019-09-11T13:37:09.385Z</timestamp>
; 		<requestVersion>2.0</requestVersion>
; 		<headerVersion>1.0</headerVersion>
; 	</header>
; 	<user>
; 		<login>lwilsmn0uqdxe6u</login>
; 		<passwordHash>2F43840A882CFDB7DB0 ... F6CA57FE8CD74DC28E</passwordHash>
; 		<taxNumber>11111111</taxNumber>
; 		<requestSignature>A297E3BD9 ... 1959ADFAF5</requestSignature>
; 	</user>
; 	<software>
; 		<softwareId>123456789123456789</softwareId>
; 		<softwareName>string</softwareName>
; 		<softwareOperation>LOCAL_SOFTWARE</softwareOperation>
; 		<softwareMainVersion>string</softwareMainVersion>
; 		<softwareDevName>string</softwareDevName>
; 		<softwareDevContact>string</softwareDevContact>
; 		<softwareDevCountryCode>HU</softwareDevCountryCode>
; 		<softwareDevTaxNumber>string</softwareDevTaxNumber>
; 	</software>
; 	<exchangeToken>dbd03076-3a9b-4312-bbbb-0cee3a6472572P11CS49ASIL</exchangeToken>
; 	<annulmentOperations>
; 		<annulmentOperation>
; 			<index>1</index>
; 			<annulmentOperation>ANNUL</annulmentOperation>
; 			<invoiceAnnulment>PD94bWwgdm ... ubnVsbWVudD4=</invoiceAnnulment>
; 		</annulmentOperation>
; 	</annulmentOperations>
; </ManageAnnulmentRequest>

Local $bSuccess
$oCrypt = ObjCreate("Chilkat.Crypt2")

$oDtNow = ObjCreate("Chilkat.CkDateTime")
$oDtNow.SetFromCurrentSystemTime()
ConsoleWrite($oDtNow.GetAsTimestamp(False) & @CRLF)

; The hash algorithm for the password is SHA512 (not SHA3-512).
$oCrypt.HashAlgorithm = "sha512"
$oCrypt.EncodingMode = "hex"
Local $sMyPassword = "my-password"
Local $sPasswordHash = $oCrypt.HashStringENC($sMyPassword)

; Generate a random request ID like "RID215118906689"
$oPrng = ObjCreate("Chilkat.Prng")
$oSbRequestId = ObjCreate("Chilkat.StringBuilder")
$oSbRequestId.Append("RID")
$oSbRequestId.Append($oPrng.RandomString(12,True,False,False))
ConsoleWrite("generated requestId = " & $oSbRequestId.GetAsString() & @CRLF)

; Calculate the requestSignature
$oCrypt.HashAlgorithm = "sha3-512"
Local $signatureKey = "ce-8f5e-215119fa7dd621DLMRHRLH2S"

$oSbFinalHashBase = ObjCreate("Chilkat.StringBuilder")

; First append the timestamp because we are going to remove certain chars/parts.
$oSbFinalHashBase.Append($oDtNow.GetAsTimestamp(False))
Local $iNumReplaced = $oSbFinalHashBase.Replace("Z","")
$iNumReplaced = $oSbFinalHashBase.Replace("-","")
$iNumReplaced = $oSbFinalHashBase.Replace(":","")
$iNumReplaced = $oSbFinalHashBase.Replace("T","")

; Prepend the requestId and append the signatureKey
$oSbFinalHashBase.Prepend($oSbRequestId.GetAsString())
$oSbFinalHashBase.Append($signatureKey)

; Calculate first (and only) index hash.
Local $sInvoiceOperation = "ANNUL"
Local $sInvoiceData = "PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9InllcyI/Pg0KPEludm9pY2VBbm51bG1lbnQgeG1sbnM9Imh0dHA6Ly9zY2hlbWFzLm5hdi5nb3YuaHUvT1NBLzIuMC9hbm51bCI+DQoJCTxhbm51bG1lbnRSZWZlcmVuY2U+MjIyMjIyMjI8L2FubnVsbWVudFJlZmVyZW5jZT4NCgkJPGFubnVsbWVudFRpbWVzdGFtcD4yMDE4LTA2LTE4VDA5OjEwOjQ1LjMwOVo8L2FubnVsbWVudFRpbWVzdGFtcD4NCgkJPGFubnVsbWVudENvZGU+RVJSQVRJQ19EQVRBPC9hbm51bG1lbnRDb2RlPg0KCQk8YW5udWxtZW50UmVhc29uPmNyZWF0ZSBzemFtbGEgYW5udWw8L2FubnVsbWVudFJlYXNvbj4NCjwvSW52b2ljZUFubnVsbWVudD4="

$oSbHashBase = ObjCreate("Chilkat.StringBuilder")
$oSbHashBase.Append($sInvoiceOperation)
$oSbHashBase.Append($sInvoiceData)
Local $sFirstHash = $oCrypt.HashStringENC($oSbHashBase.GetAsString())

; Append the index hash to the final hash base.
$oSbFinalHashBase.Append($sFirstHash)

; Get our request signature (using sha3-512 because our HashAlgorithm was set to "sha3-512" up above...)
Local $sRequestSignature = $oCrypt.HashStringENC($oSbFinalHashBase.GetAsString())

; Load our recently obtained exchange token.
; See Hungary NAV Invoicing Token Exchange Sample Code
$oXmlExchangeToken = ObjCreate("Chilkat.Xml")
$bSuccess = $oXmlExchangeToken.LoadXmlFile("qa_data/tokens/nav_exchange_token.xml")
If ($bSuccess = False) Then
    ConsoleWrite($oXmlExchangeToken.LastErrorText & @CRLF)
    Exit
EndIf

; Get the base64 encoded/encrypted exchange token.
; IMPORTANT:  Make sure to use the exchange token before it expires.
; If it expired, then get a new one..
Local $sEncodedEncryptedExchangeToken = $oXmlExchangeToken.GetChildContent("encodedExchangeToken")

; Decode to binary.
$oBdExchangeToken = ObjCreate("Chilkat.BinData")
$oBdExchangeToken.AppendEncoded($sEncodedEncryptedExchangeToken,"base64")

; Decrypt using your 16-digit replacement key:
$oCrypt.CryptAlgorithm = "aes"
$oCrypt.CipherMode = "ecb"
$oCrypt.KeyLength = 128
$oCrypt.EncodingMode = "base64"
; Pass your 16-digit replacement key here:
$oCrypt.SetEncodedKey "99952BBAAAAA8XYZ","ascii"
$oCrypt.DecryptBd($oBdExchangeToken)
Local $sExchangeToken = $oBdExchangeToken.GetString("utf-8")
ConsoleWrite("exchange token = " & $sExchangeToken & @CRLF)

; Now build the XML..
$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "ManageAnnulmentRequest"
$oXml.AddAttribute("xmlns","http://schemas.nav.gov.hu/OSA/2.0/api")
$oXml.UpdateChildContent "header|requestId",$oSbRequestId.GetAsString()
$oXml.UpdateChildContent "header|timestamp",$oDtNow.GetAsTimestamp(False)
$oXml.UpdateChildContent "header|requestVersion","2.0"
$oXml.UpdateChildContent "header|headerVersion","1.0"
$oXml.UpdateChildContent "user|login","lwilsmn0uqdxe6u"
$oXml.UpdateChildContent "user|passwordHash",$sPasswordHash
$oXml.UpdateChildContent "user|taxNumber","11111111"
$oXml.UpdateChildContent "user|requestSignature",$sRequestSignature
$oXml.UpdateChildContent "software|softwareId","123456789123456789"
$oXml.UpdateChildContent "software|softwareName","string"
$oXml.UpdateChildContent "software|softwareOperation","LOCAL_SOFTWARE"
$oXml.UpdateChildContent "software|softwareMainVersion","string"
$oXml.UpdateChildContent "software|softwareDevName","string"
$oXml.UpdateChildContent "software|softwareDevContact","string"
$oXml.UpdateChildContent "software|softwareDevCountryCode","HU"
$oXml.UpdateChildContent "software|softwareDevTaxNumber","string"
$oXml.UpdateChildContent "exchangeToken",$sExchangeToken
$oXml.UpdateChildContent "annulmentOperations|annulmentOperation|index","1"
$oXml.UpdateChildContent "annulmentOperations|annulmentOperation|annulmentOperation",$sInvoiceOperation
$oXml.UpdateChildContent "annulmentOperations|annulmentOperation|invoiceAnnulment",$sInvoiceData

; POST the XML to https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/manageAnnulment
$oHttp = ObjCreate("Chilkat.Http")
$oHttp.Accept = "application/xml"
$oHttp.SetRequestHeader "Content-Type","application/xml"
Local $sEndpoint = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/manageAnnulment"
Local $oResp = $oHttp.PostXml($sEndpoint,$oXml.GetXml(),"utf-8")
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response status code = " & $oResp.StatusCode & @CRLF)

$oRespXml = ObjCreate("Chilkat.Xml")
$oRespXml.LoadXml($oResp.BodyStr)
ConsoleWrite("Response body:" & @CRLF)
ConsoleWrite($oRespXml.GetXml() & @CRLF)

; The result looks like this:

; <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
; <ManageAnnulmentResponse xmlns="http://schemas.nav.gov.hu/OSA/2.0/api" xmlns:ns2="http://schemas.nav.gov.hu/OSA/2.0/data">
;     <header>
;         <requestId>RID465317110495</requestId>
;         <timestamp>2020-03-25T15:08:40Z</timestamp>
;         <requestVersion>2.0</requestVersion>
;         <headerVersion>1.0</headerVersion>
;     </header>
;     <result>
;         <funcCode>OK</funcCode>
;     </result>
;     <software>
;         <softwareId>123456789123456789</softwareId>
;         <softwareName>string</softwareName>
;         <softwareOperation>LOCAL_SOFTWARE</softwareOperation>
;         <softwareMainVersion>string</softwareMainVersion>
;         <softwareDevName>string</softwareDevName>
;         <softwareDevContact>string</softwareDevContact>
;         <softwareDevCountryCode>HU</softwareDevCountryCode>
;         <softwareDevTaxNumber>string</softwareDevTaxNumber>
;     </software>
;     <transactionId>2WT6XG9LQ0U9VQNA</transactionId>
; </ManageAnnulmentResponse>

; Use this online tool to generate parsing code from sample XML: 
; Generate Parsing Code from XML

Local $sManageAnnulmentResponse_xmlns = $oRespXml.GetAttrValue("xmlns")
Local $sManageAnnulmentResponse_xmlns_ns2 = $oRespXml.GetAttrValue("xmlns:ns2")
Local $sRequestId = $oRespXml.GetChildContent("header|requestId")
Local $sTimestamp = $oRespXml.GetChildContent("header|timestamp")
Local $sRequestVersion = $oRespXml.GetChildContent("header|requestVersion")
Local $sHeaderVersion = $oRespXml.GetChildContent("header|headerVersion")
Local $sFuncCode = $oRespXml.GetChildContent("result|funcCode")
Local $softwareId = $oRespXml.GetChildContent("software|softwareId")
Local $softwareName = $oRespXml.GetChildContent("software|softwareName")
Local $softwareOperation = $oRespXml.GetChildContent("software|softwareOperation")
Local $softwareMainVersion = $oRespXml.GetChildContent("software|softwareMainVersion")
Local $softwareDevName = $oRespXml.GetChildContent("software|softwareDevName")
Local $softwareDevContact = $oRespXml.GetChildContent("software|softwareDevContact")
Local $softwareDevCountryCode = $oRespXml.GetChildContent("software|softwareDevCountryCode")
Local $softwareDevTaxNumber = $oRespXml.GetChildContent("software|softwareDevTaxNumber")
Local $sTransactionId = $oRespXml.GetChildContent("transactionId")