(Xojo Plugin) Hungary NAV Query Taxpayer

Demonstrates the queryTaxpayer 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// Build the following XML:

// <?xml version="1.0" encoding="UTF-8"?>
// <QueryTaxpayerRequest xmlns="http://schemas.nav.gov.hu/OSA/2.0/api">
// 	<header>
// 		<requestId>RID215118906689</requestId>
// 		<timestamp>2019-09-11T11:11:08.579Z</timestamp>
// 		<requestVersion>2.0</requestVersion>
// 		<headerVersion>1.0</headerVersion>
// 	</header>
// 	<user>
// 		<login>lwilsmn0uqdxe6u</login>
// 		<passwordHash>2F43840A882CFDB7DB0FEC07D419D030D864B47B6B541DC280EF81B937B7A176E33C052B0D26638CC18A7A2C08D8D311733078A774BF43F6CA57FE8CD74DC28E</passwordHash>
// 		<taxNumber>11111111</taxNumber>
// 		<requestSignature>C5ADE8A2231C509D2887E6C2C4406CC5F72CA25B070AD3E94FADFA3F91A8A3667AF882DEDC7D67E9086E3D34A95886E929ACD8C924CD1E8357C89BEF43BA9126</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>
// 	<taxNumber>22222222</taxNumber>
// </QueryTaxpayerRequest>

Dim success As Boolean
Dim crypt As New Chilkat.Crypt2

Dim dtNow As New Chilkat.CkDateTime
success = dtNow.SetFromCurrentSystemTime()
System.DebugLog(dtNow.GetAsTimestamp(False))

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

// Generate a random request ID like "RID215118906689"
Dim prng As New Chilkat.Prng
Dim sbRequestId As New Chilkat.StringBuilder
success = sbRequestId.Append("RID")
success = sbRequestId.Append(prng.RandomString(12,True,False,False))
System.DebugLog("generated requestId = " + sbRequestId.GetAsString())

// Calculate the requestSignature
// IMPORTANT: This example requires Chilkat v9.5.0.83 or greater.  The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
// IMPORTANT: This example requires Chilkat v9.5.0.83 or greater.  The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
// IMPORTANT: This example requires Chilkat v9.5.0.83 or greater.  The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
// IMPORTANT: This example requires Chilkat v9.5.0.83 or greater.  The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
// IMPORTANT: This example requires Chilkat v9.5.0.83 or greater.  The SHA3 hash algorithm is implemented in Chilkat v9.5.0.83, but not in earlier versions.
crypt.HashAlgorithm = "sha3-512"
Dim signatureKey As String
signatureKey = "ce-8f5e-215119fa7dd621DLMRHRLH2S"

Dim sbFinalHashBase As New Chilkat.StringBuilder

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

// Prepend the requestId and append the signatureKey
success = sbFinalHashBase.Prepend(sbRequestId.GetAsString())
success = sbFinalHashBase.Append(signatureKey)

Dim requestSignature As String
requestSignature = crypt.HashStringENC(sbFinalHashBase.GetAsString())

Dim xml As New Chilkat.Xml
xml.Tag = "QueryTaxpayerRequest"
success = 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 "taxNumber","22222222"

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

System.DebugLog("Response status code = " + Str(resp.StatusCode))

Dim respXml As New Chilkat.Xml
success = respXml.LoadXml(resp.BodyStr)
System.DebugLog("Response body:")
System.DebugLog(respXml.GetXml())

// The result looks like this:

// <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
// <QueryTaxpayerResponse xmlns="http://schemas.nav.gov.hu/OSA/2.0/api" xmlns:ns2="http://schemas.nav.gov.hu/OSA/2.0/data">
//     <header>
//         <requestId>RID847153193061</requestId>
//         <timestamp>2020-03-24T16:00:34Z</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>
//     <infoDate>1993-01-01T00:00:00.000+01:00</infoDate>
//     <taxpayerValidity>true</taxpayerValidity>
//     <taxpayerData>
//         <taxpayerName>some taxpayer name</taxpayerName>
//         <taxNumberDetail>
//             <ns2:taxpayerId>22222222</ns2:taxpayerId>
//             <ns2:vatCode>2</ns2:vatCode>
//         </taxNumberDetail>
//         <taxpayerAddressList>
//             <taxpayerAddressItem>
//                 <taxpayerAddressType>HQ</taxpayerAddressType>
//                 <taxpayerAddress>
//                     <ns2:countryCode>HU</ns2:countryCode>
//                     <ns2:postalCode>1121</ns2:postalCode>
//                     <ns2:city>BUDAPEST 12</ns2:city>
//                     <ns2:streetName>ABCD</ns2:streetName>
//                     <ns2:publicPlaceCategory>UTCA</ns2:publicPlaceCategory>
//                     <ns2:number>20</ns2:number>
//                 </taxpayerAddress>
//             </taxpayerAddressItem>
//         </taxpayerAddressList>
//     </taxpayerData>
// </QueryTaxpayerResponse>

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

Dim QueryTaxpayerResponse_xmlns As String
QueryTaxpayerResponse_xmlns = respXml.GetAttrValue("xmlns")
Dim QueryTaxpayerResponse_xmlns_ns2 As String
QueryTaxpayerResponse_xmlns_ns2 = respXml.GetAttrValue("xmlns:ns2")
Dim requestId As String
requestId = respXml.GetChildContent("header|requestId")
Dim timestamp As String
timestamp = respXml.GetChildContent("header|timestamp")
Dim requestVersion As String
requestVersion = respXml.GetChildContent("header|requestVersion")
Dim headerVersion As String
headerVersion = respXml.GetChildContent("header|headerVersion")
Dim funcCode As String
funcCode = respXml.GetChildContent("result|funcCode")
Dim softwareId As String
softwareId = respXml.GetChildContent("software|softwareId")
Dim softwareName As String
softwareName = respXml.GetChildContent("software|softwareName")
Dim softwareOperation As String
softwareOperation = respXml.GetChildContent("software|softwareOperation")
Dim softwareMainVersion As String
softwareMainVersion = respXml.GetChildContent("software|softwareMainVersion")
Dim softwareDevName As String
softwareDevName = respXml.GetChildContent("software|softwareDevName")
Dim softwareDevContact As String
softwareDevContact = respXml.GetChildContent("software|softwareDevContact")
Dim softwareDevCountryCode As String
softwareDevCountryCode = respXml.GetChildContent("software|softwareDevCountryCode")
Dim softwareDevTaxNumber As String
softwareDevTaxNumber = respXml.GetChildContent("software|softwareDevTaxNumber")
Dim infoDate As String
infoDate = respXml.GetChildContent("infoDate")
Dim taxpayerValidity As String
taxpayerValidity = respXml.GetChildContent("taxpayerValidity")
Dim taxpayerName As String
taxpayerName = respXml.GetChildContent("taxpayerData|taxpayerName")
Dim ns2_taxpayerId As Int32
ns2_taxpayerId = respXml.GetChildIntValue("taxpayerData|taxNumberDetail|ns2:taxpayerId")
Dim ns2_vatCode As Int32
ns2_vatCode = respXml.GetChildIntValue("taxpayerData|taxNumberDetail|ns2:vatCode")
Dim taxpayerAddressType As String
taxpayerAddressType = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddressType")
Dim ns2_countryCode As String
ns2_countryCode = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:countryCode")
Dim ns2_postalCode As Int32
ns2_postalCode = respXml.GetChildIntValue("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:postalCode")
Dim ns2_city As String
ns2_city = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:city")
Dim ns2_streetName As String
ns2_streetName = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:streetName")
Dim ns2_publicPlaceCategory As String
ns2_publicPlaceCategory = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:publicPlaceCategory")
Dim ns2_number As Int32
ns2_number = respXml.GetChildIntValue("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:number")