AutoIt Requires Chilkat v11.0.0+
AutoIt
Hungary NAV Manage Annulment Request
See more Hungary NAV Invoicing Examples
Demonstrates the manageAnnulment request for the Hungarian NAV Online Invoicing System REST API v2.0.Chilkat AutoIt Downloads
Local $bSuccess = False
; 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>
$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"
Local $sEndpoint = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/manageAnnulment"
$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpStr("POST",$sEndpoint,$oXml.GetXml(),"utf-8","application/xml",$oResp)
If ($bSuccess = 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")