(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

' 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>
' 


Dim success As Boolean

' First load the invoiceData for the 3 XML invoice files we'll be sending.
Dim bdInvoiceData1 As New Chilkat.BinData
Dim bdInvoiceData2 As New Chilkat.BinData
Dim bdInvoiceData3 As New Chilkat.BinData
success = bdInvoiceData1.LoadFile("qa_data/nav_invoicing/invoiceData1.xml")
success = bdInvoiceData2.LoadFile("qa_data/nav_invoicing/invoiceData2.xml")
success = bdInvoiceData3.LoadFile("qa_data/nav_invoicing/invoiceData3.xml")
If (success = False) Then
    Debug.WriteLine("Failed to load invoice data.")
    Exit Sub
End If


Dim crypt As New Chilkat.Crypt2

Dim dtNow As New Chilkat.CkDateTime
dtNow.SetFromCurrentSystemTime()
Debug.WriteLine(dtNow.GetAsTimestamp(False))

' The hash algorithm for the password is SHA512 (not SHA3-512).
crypt.HashAlgorithm = "sha512"
crypt.EncodingMode = "hex"
Dim myPassword As String = "my-password"
Dim passwordHash As String = crypt.HashStringENC(myPassword)

' Generate a random request ID like "RID215118906689"
Dim prng As New Chilkat.Prng
Dim sbRequestId As New Chilkat.StringBuilder
sbRequestId.Append("RID")
sbRequestId.Append(prng.RandomString(12,True,False,False))
Debug.WriteLine("generated requestId = " & sbRequestId.GetAsString())

' Calculate the requestSignature
crypt.HashAlgorithm = "sha3-512"
Dim signatureKey As String = "ce-8f5e-215119fa7dd621DLMRHRLH2S"

Dim sbFinalHashBase As New Chilkat.StringBuilder

' First append the timestamp because we are going to remove certain chars/parts.
sbFinalHashBase.Append(dtNow.GetAsTimestamp(False))
Dim numReplaced As Integer = sbFinalHashBase.Replace("Z","")
numReplaced = sbFinalHashBase.Replace("-","")
numReplaced = sbFinalHashBase.Replace(":","")
numReplaced = sbFinalHashBase.Replace("T","")

' Prepend the requestId and append the signatureKey
sbFinalHashBase.Prepend(sbRequestId.GetAsString())
sbFinalHashBase.Append(signatureKey)

' Calculate each index hash and add it to the sbFinalHashBase
Dim sbHashBase As New Chilkat.StringBuilder
sbHashBase.Append("CREATE")
sbHashBase.Append(bdInvoiceData1.GetEncoded("base64"))
Dim indexHash As String = crypt.HashStringENC(sbHashBase.GetAsString())
sbFinalHashBase.Append(indexHash)

sbHashBase.Clear()
sbHashBase.Append("CREATE")
sbHashBase.Append(bdInvoiceData2.GetEncoded("base64"))
indexHash = crypt.HashStringENC(sbHashBase.GetAsString())
sbFinalHashBase.Append(indexHash)

sbHashBase.Clear()
sbHashBase.Append("CREATE")
sbHashBase.Append(bdInvoiceData3.GetEncoded("base64"))
indexHash = crypt.HashStringENC(sbHashBase.GetAsString())
sbFinalHashBase.Append(indexHash)

' Get our request signature (using sha3-512 because our HashAlgorithm was set to "sha3-512" up above...)
Dim requestSignature As String = crypt.HashStringENC(sbFinalHashBase.GetAsString())

' Load our recently obtained exchange token.
' See Hungary NAV Invoicing Token Exchange Sample Code
Dim xmlExchangeToken As New Chilkat.Xml
success = xmlExchangeToken.LoadXmlFile("qa_data/tokens/nav_exchange_token.xml")
If (success = False) Then
    Debug.WriteLine(xmlExchangeToken.LastErrorText)
    Exit Sub
End If

' 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..
Dim encodedEncryptedExchangeToken As String = xmlExchangeToken.GetChildContent("encodedExchangeToken")

' Decode to binary.
Dim bdExchangeToken As New Chilkat.BinData
bdExchangeToken.AppendEncoded(encodedEncryptedExchangeToken,"base64")

' Decrypt using your 16-digit replacement key:
crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "ecb"
crypt.KeyLength = 128
crypt.EncodingMode = "base64"
' Pass your 16-digit replacement key here:
crypt.SetEncodedKey("99952BBAAAAA8XYZ","ascii")
crypt.DecryptBd(bdExchangeToken)
Dim exchangeToken As String = bdExchangeToken.GetString("utf-8")
Debug.WriteLine("exchange token = " & exchangeToken)

' Now build the XML..
Dim xml As New Chilkat.Xml
xml.Tag = "ManageInvoiceRequest"
xml.AddAttribute("xmlns","http://schemas.nav.gov.hu/OSA/2.0/api")
xml.UpdateChildContent("header|requestId",sbRequestId.GetAsString())
xml.UpdateChildContent("header|timestamp",dtNow.GetAsTimestamp(False))
xml.UpdateChildContent("header|requestVersion","2.0")
xml.UpdateChildContent("header|headerVersion","1.0")
xml.UpdateChildContent("user|login","lwilsmn0uqdxe6u")
xml.UpdateChildContent("user|passwordHash",passwordHash)
xml.UpdateChildContent("user|taxNumber","11111111")
xml.UpdateChildContent("user|requestSignature",requestSignature)
xml.UpdateChildContent("software|softwareId","123456789123456789")
xml.UpdateChildContent("software|softwareName","string")
xml.UpdateChildContent("software|softwareOperation","LOCAL_SOFTWARE")
xml.UpdateChildContent("software|softwareMainVersion","string")
xml.UpdateChildContent("software|softwareDevName","string")
xml.UpdateChildContent("software|softwareDevContact","string")
xml.UpdateChildContent("software|softwareDevCountryCode","HU")
xml.UpdateChildContent("software|softwareDevTaxNumber","string")
xml.UpdateChildContent("exchangeToken",exchangeToken)
xml.UpdateChildContent("invoiceOperations|compressedContent","false")
xml.UpdateChildContent("invoiceOperations|invoiceOperation|index","1")
xml.UpdateChildContent("invoiceOperations|invoiceOperation|invoiceOperation","CREATE")
xml.UpdateChildContent("invoiceOperations|invoiceOperation|invoiceData",bdInvoiceData1.GetEncoded("base64"))
xml.UpdateChildContent("invoiceOperations|invoiceOperation[1]|index","2")
xml.UpdateChildContent("invoiceOperations|invoiceOperation[1]|invoiceOperation","CREATE")
xml.UpdateChildContent("invoiceOperations|invoiceOperation[1]|invoiceData",bdInvoiceData2.GetEncoded("base64"))
xml.UpdateChildContent("invoiceOperations|invoiceOperation[2]|index","3")
xml.UpdateChildContent("invoiceOperations|invoiceOperation[2]|invoiceOperation","CREATE")
xml.UpdateChildContent("invoiceOperations|invoiceOperation[2]|invoiceData",bdInvoiceData3.GetEncoded("base64"))


' POST the XML to https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/manageInvoice
Dim http As New Chilkat.Http
http.Accept = "application/xml"
http.SetRequestHeader("Content-Type","application/xml")
Dim endpoint As String = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/manageInvoice"
Dim resp As Chilkat.HttpResponse = http.PostXml(endpoint,xml.GetXml(),"utf-8")
If (http.LastMethodSuccess = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Response status code = " & resp.StatusCode)

Dim respXml As New Chilkat.Xml
respXml.LoadXml(resp.BodyStr)
Debug.WriteLine("Response body:")
Debug.WriteLine(respXml.GetXml())



' 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



Dim ManageInvoiceResponse_xmlns As String = respXml.GetAttrValue("xmlns")
Dim ManageInvoiceResponse_xmlns_ns2 As String = respXml.GetAttrValue("xmlns:ns2")
Dim requestId As String = respXml.GetChildContent("header|requestId")
Dim timestamp As String = respXml.GetChildContent("header|timestamp")
Dim requestVersion As String = respXml.GetChildContent("header|requestVersion")
Dim headerVersion As String = respXml.GetChildContent("header|headerVersion")
Dim funcCode As String = respXml.GetChildContent("result|funcCode")
Dim softwareId As String = respXml.GetChildContent("software|softwareId")
Dim softwareName As String = respXml.GetChildContent("software|softwareName")
Dim softwareOperation As String = respXml.GetChildContent("software|softwareOperation")
Dim softwareMainVersion As String = respXml.GetChildContent("software|softwareMainVersion")
Dim softwareDevName As String = respXml.GetChildContent("software|softwareDevName")
Dim softwareDevContact As String = respXml.GetChildContent("software|softwareDevContact")
Dim softwareDevCountryCode As String = respXml.GetChildContent("software|softwareDevCountryCode")
Dim softwareDevTaxNumber As String = respXml.GetChildContent("software|softwareDevTaxNumber")
Dim transactionId As String = respXml.GetChildContent("transactionId")