Classic ASP Requires Chilkat v11.0.0+
Classic ASP
Hungary NAV Query Taxpayer
See more Hungary NAV Invoicing Examples
Demonstrates the queryTaxpayer request for the Hungarian NAV Online Invoicing System REST API v2.0.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' 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>
set crypt = Server.CreateObject("Chilkat.Crypt2")
set dtNow = Server.CreateObject("Chilkat.CkDateTime")
success = dtNow.SetFromCurrentSystemTime()
Response.Write "<pre>" & Server.HTMLEncode( dtNow.GetAsTimestamp(0)) & "</pre>"
' The hash algorithm for the password is SHA512 (not SHA3-512).
crypt.HashAlgorithm = "sha512"
crypt.EncodingMode = "hex"
myPassword = "my-password"
passwordHash = crypt.HashStringENC(myPassword)
' Generate a random request ID like "RID215118906689"
set prng = Server.CreateObject("Chilkat.Prng")
set sbRequestId = Server.CreateObject("Chilkat.StringBuilder")
success = sbRequestId.Append("RID")
success = sbRequestId.Append(prng.RandomString(12,1,0,0))
Response.Write "<pre>" & Server.HTMLEncode( "generated requestId = " & sbRequestId.GetAsString()) & "</pre>"
' Calculate the requestSignature
crypt.HashAlgorithm = "sha3-512"
signatureKey = "ce-8f5e-215119fa7dd621DLMRHRLH2S"
set sbFinalHashBase = Server.CreateObject("Chilkat.StringBuilder")
' First append the timestamp because we are going to remove certain chars/parts.
success = sbFinalHashBase.Append(dtNow.GetAsTimestamp(0))
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)
requestSignature = crypt.HashStringENC(sbFinalHashBase.GetAsString())
set xml = Server.CreateObject("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(0)
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
set http = Server.CreateObject("Chilkat.Http")
http.Accept = "application/xml"
endpoint = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/queryTaxpayer"
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpStr("POST",endpoint,xml.GetXml(),"utf-8","application/xml",resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
Response.Write "<pre>" & Server.HTMLEncode( "Response status code = " & resp.StatusCode) & "</pre>"
set respXml = Server.CreateObject("Chilkat.Xml")
success = respXml.LoadXml(resp.BodyStr)
Response.Write "<pre>" & Server.HTMLEncode( "Response body:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( respXml.GetXml()) & "</pre>"
' 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
QueryTaxpayerResponse_xmlns = respXml.GetAttrValue("xmlns")
QueryTaxpayerResponse_xmlns_ns2 = respXml.GetAttrValue("xmlns:ns2")
requestId = respXml.GetChildContent("header|requestId")
timestamp = respXml.GetChildContent("header|timestamp")
requestVersion = respXml.GetChildContent("header|requestVersion")
headerVersion = respXml.GetChildContent("header|headerVersion")
funcCode = respXml.GetChildContent("result|funcCode")
softwareId = respXml.GetChildContent("software|softwareId")
softwareName = respXml.GetChildContent("software|softwareName")
softwareOperation = respXml.GetChildContent("software|softwareOperation")
softwareMainVersion = respXml.GetChildContent("software|softwareMainVersion")
softwareDevName = respXml.GetChildContent("software|softwareDevName")
softwareDevContact = respXml.GetChildContent("software|softwareDevContact")
softwareDevCountryCode = respXml.GetChildContent("software|softwareDevCountryCode")
softwareDevTaxNumber = respXml.GetChildContent("software|softwareDevTaxNumber")
infoDate = respXml.GetChildContent("infoDate")
taxpayerValidity = respXml.GetChildContent("taxpayerValidity")
taxpayerName = respXml.GetChildContent("taxpayerData|taxpayerName")
ns2_taxpayerId = respXml.GetChildIntValue("taxpayerData|taxNumberDetail|ns2:taxpayerId")
ns2_vatCode = respXml.GetChildIntValue("taxpayerData|taxNumberDetail|ns2:vatCode")
taxpayerAddressType = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddressType")
ns2_countryCode = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:countryCode")
ns2_postalCode = respXml.GetChildIntValue("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:postalCode")
ns2_city = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:city")
ns2_streetName = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:streetName")
ns2_publicPlaceCategory = respXml.GetChildContent("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:publicPlaceCategory")
ns2_number = respXml.GetChildIntValue("taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:number")
%>
</body>
</html>