|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PureBasic) 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
IncludeFile "CkDateTime.pb" IncludeFile "CkPrng.pb" IncludeFile "CkXml.pb" IncludeFile "CkCrypt2.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkHttpResponse.pb" IncludeFile "CkHttp.pb" Procedure ChilkatExample() ; 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> success.i crypt.i = CkCrypt2::ckCreate() If crypt.i = 0 Debug "Failed to create object." ProcedureReturn EndIf dtNow.i = CkDateTime::ckCreate() If dtNow.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkDateTime::ckSetFromCurrentSystemTime(dtNow) Debug CkDateTime::ckGetAsTimestamp(dtNow,0) ; The hash algorithm for the password is SHA512 (not SHA3-512). CkCrypt2::setCkHashAlgorithm(crypt, "sha512") CkCrypt2::setCkEncodingMode(crypt, "hex") myPassword.s = "my-password" passwordHash.s = CkCrypt2::ckHashStringENC(crypt,myPassword) ; Generate a random request ID like "RID215118906689" prng.i = CkPrng::ckCreate() If prng.i = 0 Debug "Failed to create object." ProcedureReturn EndIf sbRequestId.i = CkStringBuilder::ckCreate() If sbRequestId.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkStringBuilder::ckAppend(sbRequestId,"RID") CkStringBuilder::ckAppend(sbRequestId,CkPrng::ckRandomString(prng,12,1,0,0)) Debug "generated requestId = " + CkStringBuilder::ckGetAsString(sbRequestId) ; 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. CkCrypt2::setCkHashAlgorithm(crypt, "sha3-512") signatureKey.s = "ce-8f5e-215119fa7dd621DLMRHRLH2S" sbFinalHashBase.i = CkStringBuilder::ckCreate() If sbFinalHashBase.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; First append the timestamp because we are going to remove certain chars/parts. CkStringBuilder::ckAppend(sbFinalHashBase,CkDateTime::ckGetAsTimestamp(dtNow,0)) numReplaced.i = CkStringBuilder::ckReplace(sbFinalHashBase,"Z","") numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,"-","") numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,":","") numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,"T","") ; Prepend the requestId and append the signatureKey CkStringBuilder::ckPrepend(sbFinalHashBase,CkStringBuilder::ckGetAsString(sbRequestId)) CkStringBuilder::ckAppend(sbFinalHashBase,signatureKey) requestSignature.s = CkCrypt2::ckHashStringENC(crypt,CkStringBuilder::ckGetAsString(sbFinalHashBase)) xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(xml, "QueryTaxpayerRequest") CkXml::ckAddAttribute(xml,"xmlns","http://schemas.nav.gov.hu/OSA/2.0/api") CkXml::ckUpdateChildContent(xml,"header|requestId",CkStringBuilder::ckGetAsString(sbRequestId)) CkXml::ckUpdateChildContent(xml,"header|timestamp",CkDateTime::ckGetAsTimestamp(dtNow,0)) CkXml::ckUpdateChildContent(xml,"header|requestVersion","2.0") CkXml::ckUpdateChildContent(xml,"header|headerVersion","1.0") CkXml::ckUpdateChildContent(xml,"user|login","lwilsmn0uqdxe6u") CkXml::ckUpdateChildContent(xml,"user|passwordHash",passwordHash) CkXml::ckUpdateChildContent(xml,"user|taxNumber","11111111") CkXml::ckUpdateChildContent(xml,"user|requestSignature",requestSignature) CkXml::ckUpdateChildContent(xml,"software|softwareId","123456789123456789") CkXml::ckUpdateChildContent(xml,"software|softwareName","string") CkXml::ckUpdateChildContent(xml,"software|softwareOperation","LOCAL_SOFTWARE") CkXml::ckUpdateChildContent(xml,"software|softwareMainVersion","string") CkXml::ckUpdateChildContent(xml,"software|softwareDevName","string") CkXml::ckUpdateChildContent(xml,"software|softwareDevContact","string") CkXml::ckUpdateChildContent(xml,"software|softwareDevCountryCode","HU") CkXml::ckUpdateChildContent(xml,"software|softwareDevTaxNumber","string") CkXml::ckUpdateChildContent(xml,"taxNumber","22222222") ; POST the XML to https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/queryTaxpayer http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkHttp::setCkAccept(http, "application/xml") CkHttp::ckSetRequestHeader(http,"Content-Type","application/xml") endpoint.s = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/queryTaxpayer" resp.i = CkHttp::ckPostXml(http,endpoint,CkXml::ckGetXml(xml),"utf-8") If CkHttp::ckLastMethodSuccess(http) = 0 Debug CkHttp::ckLastErrorText(http) CkCrypt2::ckDispose(crypt) CkDateTime::ckDispose(dtNow) CkPrng::ckDispose(prng) CkStringBuilder::ckDispose(sbRequestId) CkStringBuilder::ckDispose(sbFinalHashBase) CkXml::ckDispose(xml) CkHttp::ckDispose(http) ProcedureReturn EndIf Debug "Response status code = " + Str(CkHttpResponse::ckStatusCode(resp)) respXml.i = CkXml::ckCreate() If respXml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::ckLoadXml(respXml,CkHttpResponse::ckBodyStr(resp)) Debug "Response body:" Debug CkXml::ckGetXml(respXml) CkHttpResponse::ckDispose(resp) ; 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.s = CkXml::ckGetAttrValue(respXml,"xmlns") QueryTaxpayerResponse_xmlns_ns2.s = CkXml::ckGetAttrValue(respXml,"xmlns:ns2") requestId.s = CkXml::ckGetChildContent(respXml,"header|requestId") timestamp.s = CkXml::ckGetChildContent(respXml,"header|timestamp") requestVersion.s = CkXml::ckGetChildContent(respXml,"header|requestVersion") headerVersion.s = CkXml::ckGetChildContent(respXml,"header|headerVersion") funcCode.s = CkXml::ckGetChildContent(respXml,"result|funcCode") softwareId.s = CkXml::ckGetChildContent(respXml,"software|softwareId") softwareName.s = CkXml::ckGetChildContent(respXml,"software|softwareName") softwareOperation.s = CkXml::ckGetChildContent(respXml,"software|softwareOperation") softwareMainVersion.s = CkXml::ckGetChildContent(respXml,"software|softwareMainVersion") softwareDevName.s = CkXml::ckGetChildContent(respXml,"software|softwareDevName") softwareDevContact.s = CkXml::ckGetChildContent(respXml,"software|softwareDevContact") softwareDevCountryCode.s = CkXml::ckGetChildContent(respXml,"software|softwareDevCountryCode") softwareDevTaxNumber.s = CkXml::ckGetChildContent(respXml,"software|softwareDevTaxNumber") infoDate.s = CkXml::ckGetChildContent(respXml,"infoDate") taxpayerValidity.s = CkXml::ckGetChildContent(respXml,"taxpayerValidity") taxpayerName.s = CkXml::ckGetChildContent(respXml,"taxpayerData|taxpayerName") ns2_taxpayerId.i = CkXml::ckGetChildIntValue(respXml,"taxpayerData|taxNumberDetail|ns2:taxpayerId") ns2_vatCode.i = CkXml::ckGetChildIntValue(respXml,"taxpayerData|taxNumberDetail|ns2:vatCode") taxpayerAddressType.s = CkXml::ckGetChildContent(respXml,"taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddressType") ns2_countryCode.s = CkXml::ckGetChildContent(respXml,"taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:countryCode") ns2_postalCode.i = CkXml::ckGetChildIntValue(respXml,"taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:postalCode") ns2_city.s = CkXml::ckGetChildContent(respXml,"taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:city") ns2_streetName.s = CkXml::ckGetChildContent(respXml,"taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:streetName") ns2_publicPlaceCategory.s = CkXml::ckGetChildContent(respXml,"taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:publicPlaceCategory") ns2_number.i = CkXml::ckGetChildIntValue(respXml,"taxpayerData|taxpayerAddressList|taxpayerAddressItem|taxpayerAddress|ns2:number") CkCrypt2::ckDispose(crypt) CkDateTime::ckDispose(dtNow) CkPrng::ckDispose(prng) CkStringBuilder::ckDispose(sbRequestId) CkStringBuilder::ckDispose(sbFinalHashBase) CkXml::ckDispose(xml) CkHttp::ckDispose(http) CkXml::ckDispose(respXml) ProcedureReturn EndProcedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.