|
Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Hungary NAV Query TaxpayerDemonstrates 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
' 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 crypt As Chilkat.Crypt2 Set crypt = Chilkat.NewCrypt2 Dim dtNow As Chilkat.CkDateTime Set dtNow = Chilkat.NewCkDateTime Dim success As Boolean success = dtNow.SetFromCurrentSystemTime() Debug.Print dtNow.GetAsTimestamp(False) ' 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" Dim prng As Chilkat.Prng Set prng = Chilkat.NewPrng Dim sbRequestId As Chilkat.StringBuilder Set sbRequestId = Chilkat.NewStringBuilder success = sbRequestId.Append("RID") success = sbRequestId.Append(prng.RandomString(12,True,False,False)) Debug.Print "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" Dim sbFinalHashBase As Chilkat.StringBuilder Set sbFinalHashBase = Chilkat.NewStringBuilder ' First append the timestamp because we are going to remove certain chars/parts. success = sbFinalHashBase.Append(dtNow.GetAsTimestamp(False)) 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()) Dim xml As Chilkat.Xml Set xml = Chilkat.NewXml 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 Chilkat.Http Set http = Chilkat.NewHttp http.Accept = "application/xml" http.SetRequestHeader "Content-Type","application/xml" endpoint = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/queryTaxpayer" Set resp = http.PostXml(endpoint,xml.GetXml(),"utf-8") If (http.LastMethodSuccess = False) Then Debug.Print http.LastErrorText Exit Sub End If Debug.Print "Response status code = "; resp.StatusCode Dim respXml As Chilkat.Xml Set respXml = Chilkat.NewXml success = respXml.LoadXml(resp.BodyStr) Debug.Print "Response body:" Debug.Print 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") |
||||
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.