(AutoIt) Hungary NAV Manage Invoice Request

Demonstrates the manageInvoice 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"?>
; <ManageInvoiceRequest xmlns="http://schemas.nav.gov.hu/OSA/2.0/api">
; 	<header>
; 		<requestId>RID181837288942</requestId>
; 		<timestamp>2019-09-11T12:44:55.442Z</timestamp>
; 		<requestVersion>2.0</requestVersion>
; 		<headerVersion>1.0</headerVersion>
; 	</header>
; 	<user>
; 		<login>lwilsmn0uqdxe6u</login>
; 		<passwordHash>2F43840A882CFDB7DB0FEC07D419D030D864B47B6B541DC280EF81B937B7A176E33C052B0D26638CC18A7A2C08D8D311733078A774BF43F6CA57FE8CD74DC28E</passwordHash>
; 		<taxNumber>11111111</taxNumber>
; 		<requestSignature>E4D191A48EE8828A1E84C1F841A2B4E1699ECB49C4CDA1DC7A057765FD935872219644CC2B5A93B8A344404E4FD8ECA4902B5DBCF993E768DC558B0F0281E775</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>b1aca173-d9e8-4561-9237-0511eed99eaa2P0ZHLXBRI2U</exchangeToken>
; 	<invoiceOperations>
; 		<compressedContent>false</compressedContent>
; 		<invoiceOperation>
; 			<index>1</index>
; 			<invoiceOperation>CREATE</invoiceOperation>
; 			<invoiceData>base64 contents of invoiceData1 XML file</invoiceData>
; 		</invoiceOperation>
; 		<invoiceOperation>
; 			<index>2</index>
; 			<invoiceOperation>CREATE</invoiceOperation>
; 			<invoiceData>base64 contents of invoiceData2 XML file</invoiceData>
; 		</invoiceOperation>
; 		<invoiceOperation>
; 			<index>3</index>
; 			<invoiceOperation>CREATE</invoiceOperation>
; 			<invoiceData>base64 contents of invoiceData3 XML file</invoiceData>
; 		</invoiceOperation>
; 	</invoiceOperations>
; </ManageInvoiceRequest>
; 

Local $bSuccess

; First load the invoiceData for the 3 XML invoice files we'll be sending.
$oBdInvoiceData1 = ObjCreate("Chilkat.BinData")
$oBdInvoiceData2 = ObjCreate("Chilkat.BinData")
$oBdInvoiceData3 = ObjCreate("Chilkat.BinData")
$bSuccess = $oBdInvoiceData1.LoadFile("qa_data/nav_invoicing/invoiceData1.xml")
$bSuccess = $oBdInvoiceData2.LoadFile("qa_data/nav_invoicing/invoiceData2.xml")
$bSuccess = $oBdInvoiceData3.LoadFile("qa_data/nav_invoicing/invoiceData3.xml")
If ($bSuccess = False) Then
    ConsoleWrite("Failed to load invoice data." & @CRLF)
    Exit
EndIf

$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 each index hash and add it to the sbFinalHashBase
$oSbHashBase = ObjCreate("Chilkat.StringBuilder")
$oSbHashBase.Append("CREATE")
$oSbHashBase.Append($oBdInvoiceData1.GetEncoded("base64"))
Local $sIndexHash = $oCrypt.HashStringENC($oSbHashBase.GetAsString())
$oSbFinalHashBase.Append($sIndexHash)

$oSbHashBase.Clear 
$oSbHashBase.Append("CREATE")
$oSbHashBase.Append($oBdInvoiceData2.GetEncoded("base64"))
$sIndexHash = $oCrypt.HashStringENC($oSbHashBase.GetAsString())
$oSbFinalHashBase.Append($sIndexHash)

$oSbHashBase.Clear 
$oSbHashBase.Append("CREATE")
$oSbHashBase.Append($oBdInvoiceData3.GetEncoded("base64"))
$sIndexHash = $oCrypt.HashStringENC($oSbHashBase.GetAsString())
$oSbFinalHashBase.Append($sIndexHash)

; 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 = "ManageInvoiceRequest"
$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 "invoiceOperations|compressedContent","false"
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation|index","1"
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation|invoiceOperation","CREATE"
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation|invoiceData",$oBdInvoiceData1.GetEncoded("base64")
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation[1]|index","2"
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation[1]|invoiceOperation","CREATE"
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation[1]|invoiceData",$oBdInvoiceData2.GetEncoded("base64")
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation[2]|index","3"
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation[2]|invoiceOperation","CREATE"
$oXml.UpdateChildContent "invoiceOperations|invoiceOperation[2]|invoiceData",$oBdInvoiceData3.GetEncoded("base64")

; POST the XML to https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/manageInvoice
$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/manageInvoice"
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"?>
; <ManageInvoiceResponse xmlns="http://schemas.nav.gov.hu/OSA/2.0/api" xmlns:ns2="http://schemas.nav.gov.hu/OSA/2.0/data">
;     <header>
;         <requestId>RID871830318143</requestId>
;         <timestamp>2020-03-25T15:51:25Z</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>2WT9GFSKFUU1V4XP</transactionId>
; </ManageInvoiceResponse>

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

Local $sManageInvoiceResponse_xmlns = $oRespXml.GetAttrValue("xmlns")
Local $sManageInvoiceResponse_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")