(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$crypt = chilkat::CkCrypt2->new();

$dtNow = chilkat::CkDateTime->new();
$dtNow->SetFromCurrentSystemTime();
print $dtNow->getAsTimestamp(0) . "\r\n";

# The hash algorithm for the password is SHA512 (not SHA3-512).
$crypt->put_HashAlgorithm("sha512");
$crypt->put_EncodingMode("hex");
$myPassword = "my-password";
$passwordHash = $crypt->hashStringENC($myPassword);

# Generate a random request ID like "RID215118906689"
$prng = chilkat::CkPrng->new();
$sbRequestId = chilkat::CkStringBuilder->new();
$sbRequestId->Append("RID");
$sbRequestId->Append($prng->randomString(12,1,0,0));
print "generated requestId = " . $sbRequestId->getAsString() . "\r\n";

# 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->put_HashAlgorithm("sha3-512");
$signatureKey = "ce-8f5e-215119fa7dd621DLMRHRLH2S";

$sbFinalHashBase = chilkat::CkStringBuilder->new();

# First append the timestamp because we are going to remove certain chars/parts.
$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
$sbFinalHashBase->Prepend($sbRequestId->getAsString());
$sbFinalHashBase->Append($signatureKey);

$requestSignature = $crypt->hashStringENC($sbFinalHashBase->getAsString());

$xml = chilkat::CkXml->new();
$xml->put_Tag("QueryTaxpayerRequest");
$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
$http = chilkat::CkHttp->new();
$http->put_Accept("application/xml");
$http->SetRequestHeader("Content-Type","application/xml");
$endpoint = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/queryTaxpayer";
# resp is a HttpResponse
$resp = $http->PostXml($endpoint,$xml->getXml(),"utf-8");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response status code = " . $resp->get_StatusCode() . "\r\n";

$respXml = chilkat::CkXml->new();
$respXml->LoadXml($resp->bodyStr());
print "Response body:" . "\r\n";
print $respXml->getXml() . "\r\n";

# 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");