Perl Requires Chilkat v11.0.0+
Perl
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 Perl Downloads
use chilkat();
$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>
$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
$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");
$endpoint = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/queryTaxpayer";
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST",$endpoint,$xml->getXml(),"utf-8","application/xml",$resp);
if ($success == 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");