(Delphi ActiveX) 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 for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
crypt: TChilkatCrypt2;
dtNow: TCkDateTime;
myPassword: WideString;
passwordHash: WideString;
prng: TChilkatPrng;
sbRequestId: TChilkatStringBuilder;
signatureKey: WideString;
sbFinalHashBase: TChilkatStringBuilder;
numReplaced: Integer;
requestSignature: WideString;
xml: TChilkatXml;
http: TChilkatHttp;
endpoint: WideString;
resp: IChilkatHttpResponse;
respXml: TChilkatXml;
QueryTaxpayerResponse_xmlns: WideString;
QueryTaxpayerResponse_xmlns_ns2: WideString;
requestId: WideString;
timestamp: WideString;
requestVersion: WideString;
headerVersion: WideString;
funcCode: WideString;
softwareId: WideString;
softwareName: WideString;
softwareOperation: WideString;
softwareMainVersion: WideString;
softwareDevName: WideString;
softwareDevContact: WideString;
softwareDevCountryCode: WideString;
softwareDevTaxNumber: WideString;
infoDate: WideString;
taxpayerValidity: WideString;
taxpayerName: WideString;
ns2_taxpayerId: Integer;
ns2_vatCode: Integer;
taxpayerAddressType: WideString;
ns2_countryCode: WideString;
ns2_postalCode: Integer;
ns2_city: WideString;
ns2_streetName: WideString;
ns2_publicPlaceCategory: WideString;
ns2_number: Integer;

begin
// 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 := TChilkatCrypt2.Create(Self);

dtNow := TCkDateTime.Create(Self);
dtNow.SetFromCurrentSystemTime();
Memo1.Lines.Add(dtNow.GetAsTimestamp(0));

// 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"
prng := TChilkatPrng.Create(Self);
sbRequestId := TChilkatStringBuilder.Create(Self);
sbRequestId.Append('RID');
sbRequestId.Append(prng.RandomString(12,1,0,0));
Memo1.Lines.Add('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';
signatureKey := 'ce-8f5e-215119fa7dd621DLMRHRLH2S';

sbFinalHashBase := TChilkatStringBuilder.Create(Self);

// 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 := TChilkatXml.Create(Self);
xml.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 := TChilkatHttp.Create(Self);
http.Accept := 'application/xml';
http.SetRequestHeader('Content-Type','application/xml');
endpoint := 'https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/queryTaxpayer';
resp := http.PostXml(endpoint,xml.GetXml(),'utf-8');
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Response status code = ' + IntToStr(resp.StatusCode));

respXml := TChilkatXml.Create(Self);
respXml.LoadXml(resp.BodyStr);
Memo1.Lines.Add('Response body:');
Memo1.Lines.Add(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

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');
end;