Lianja Requires Chilkat v11.0.0+
Lianja
Hungary NAV Token Exchange
See more Hungary NAV Invoicing Examples
Demonstrates the tokenExchange request for the Hungarian NAV Online Invoicing System REST API v2.0.Chilkat Lianja Downloads
llSuccess = .F.
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// Build the following XML:
// Use this online tool to generate code from sample XML:
// Generate Code to Create XML
// <?xml version="1.0" encoding="UTF-8"?>
// <TokenExchangeRequest xmlns="http://schemas.nav.gov.hu/OSA/2.0/api">
// <header>
// <requestId>RID896801578348</requestId>
// <timestamp>2019-09-11T10:55:31.440Z</timestamp>
// <requestVersion>2.0</requestVersion>
// <headerVersion>1.0</headerVersion>
// </header>
// <user>
// <login>lwilsmn0uqdxe6u</login>
// <passwordHash>2F43840A882CFDB7DB0FEC07D419D030D864B47B6B541DC280EF81B937B7A176E33C052B0D26638CC18A7A2C08D8D311733078A774BF43F6CA57FE8CD74DC28E</passwordHash>
// <taxNumber>11111111</taxNumber>
// <requestSignature>B4B5E0F197BFFD3DF69BCC98D3BE775F65FD5445EEF95C9D6B6C59425F2B81C4F6DA1FD563B0C7E7D98AF1E1725E5C63C2803B5D3A93D1C02ED354AC92F2CC94</requestSignature>
// <!--<signKey>ac-ac3a-7f661bff7d342N43CYX4U9FG</signKey>-->
// </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>
// </TokenExchangeRequest>
loCrypt = createobject("CkCrypt2")
loDtNow = createobject("CkDateTime")
loDtNow.SetFromCurrentSystemTime()
? loDtNow.GetAsTimestamp(.F.)
// The hash algorithm for the password is SHA512 (not SHA3-512).
loCrypt.HashAlgorithm = "sha512"
loCrypt.EncodingMode = "hex"
lcMyPassword = "my-password"
lcPasswordHash = loCrypt.HashStringENC(lcMyPassword)
// Generate a random request ID like "RID215118906689"
loPrng = createobject("CkPrng")
loSbRequestId = createobject("CkStringBuilder")
loSbRequestId.Append("RID")
loSbRequestId.Append(loPrng.RandomString(12,.T.,.F.,.F.))
? "generated requestId = " + loSbRequestId.GetAsString()
// Calculate the requestSignature
loCrypt.HashAlgorithm = "sha3-512"
lcSignatureKey = "ce-8f5e-215119fa7dd621DLMRHRLH2S"
loSbFinalHashBase = createobject("CkStringBuilder")
// First append the timestamp because we are going to remove certain chars/parts.
loSbFinalHashBase.Append(loDtNow.GetAsTimestamp(.F.))
lnNumReplaced = loSbFinalHashBase.Replace("Z","")
lnNumReplaced = loSbFinalHashBase.Replace("-","")
lnNumReplaced = loSbFinalHashBase.Replace(":","")
lnNumReplaced = loSbFinalHashBase.Replace("T","")
// Prepend the requestId and append the signatureKey
loSbFinalHashBase.Prepend(loSbRequestId.GetAsString())
loSbFinalHashBase.Append(lcSignatureKey)
lcRequestSignature = loCrypt.HashStringENC(loSbFinalHashBase.GetAsString())
loXml = createobject("CkXml")
loXml.Tag = "TokenExchangeRequest"
loXml.AddAttribute("xmlns","http://schemas.nav.gov.hu/OSA/2.0/api")
loXml.UpdateChildContent("header|requestId",loSbRequestId.GetAsString())
loXml.UpdateChildContent("header|timestamp",loDtNow.GetAsTimestamp(.F.))
loXml.UpdateChildContent("header|requestVersion","2.0")
loXml.UpdateChildContent("header|headerVersion","1.0")
loXml.UpdateChildContent("user|login","lwilsmn0uqdxe6u")
loXml.UpdateChildContent("user|passwordHash",lcPasswordHash)
loXml.UpdateChildContent("user|taxNumber","11111111")
loXml.UpdateChildContent("user|requestSignature",lcRequestSignature)
loXml.UpdateChildContent("software|softwareId","123456789123456789")
loXml.UpdateChildContent("software|softwareName","string")
loXml.UpdateChildContent("software|softwareOperation","LOCAL_SOFTWARE")
loXml.UpdateChildContent("software|softwareMainVersion","string")
loXml.UpdateChildContent("software|softwareDevName","string")
loXml.UpdateChildContent("software|softwareDevContact","string")
loXml.UpdateChildContent("software|softwareDevCountryCode","HU")
loXml.UpdateChildContent("software|softwareDevTaxNumber","string")
// POST the XML to https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/tokenExchange
loHttp = createobject("CkHttp")
loHttp.Accept = "application/xml"
lcEndpoint = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/tokenExchange"
loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpStr("POST",lcEndpoint,loXml.GetXml(),"utf-8","application/xml",loResp)
if (llSuccess = .F.) then
? loHttp.LastErrorText
release loCrypt
release loDtNow
release loPrng
release loSbRequestId
release loSbFinalHashBase
release loXml
release loHttp
release loResp
return
endif
? "Response status code = " + str(loResp.StatusCode)
loRespXml = createobject("CkXml")
loRespXml.LoadXml(loResp.BodyStr)
? "Response body:"
? loRespXml.GetXml()
// Save our exchange token to a file to be used for subsequent requests.
loRespXml.SaveXml("qa_data/tokens/nav_exchange_token.xml")
// The result looks like this:
// <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
// <TokenExchangeResponse xmlns="http://schemas.nav.gov.hu/OSA/2.0/api" xmlns:ns2="http://schemas.nav.gov.hu/OSA/2.0/data">
// <header>
// <requestId>RID789246611489</requestId>
// <timestamp>2020-03-25T14:14:36Z</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>
// <encodedExchangeToken>2lR5v57Tl ... 9n4tIWCYgjKQ==</encodedExchangeToken>
// <tokenValidityFrom>2020-03-25T15:14:36.987+01:00</tokenValidityFrom>
// <tokenValidityTo>2020-03-25T15:19:36.987+01:00</tokenValidityTo>
// </TokenExchangeResponse>
// Use this online tool to generate parsing code from sample XML:
// Generate Parsing Code from XML
lcTokenExchangeResponse_xmlns = loRespXml.GetAttrValue("xmlns")
lcTokenExchangeResponse_xmlns_ns2 = loRespXml.GetAttrValue("xmlns:ns2")
lcRequestId = loRespXml.GetChildContent("header|requestId")
lcTimestamp = loRespXml.GetChildContent("header|timestamp")
lcRequestVersion = loRespXml.GetChildContent("header|requestVersion")
lcHeaderVersion = loRespXml.GetChildContent("header|headerVersion")
lcFuncCode = loRespXml.GetChildContent("result|funcCode")
lcSoftwareId = loRespXml.GetChildContent("software|softwareId")
lcSoftwareName = loRespXml.GetChildContent("software|softwareName")
lcSoftwareOperation = loRespXml.GetChildContent("software|softwareOperation")
lcSoftwareMainVersion = loRespXml.GetChildContent("software|softwareMainVersion")
lcSoftwareDevName = loRespXml.GetChildContent("software|softwareDevName")
lcSoftwareDevContact = loRespXml.GetChildContent("software|softwareDevContact")
lcSoftwareDevCountryCode = loRespXml.GetChildContent("software|softwareDevCountryCode")
lcSoftwareDevTaxNumber = loRespXml.GetChildContent("software|softwareDevTaxNumber")
lcEncodedExchangeToken = loRespXml.GetChildContent("encodedExchangeToken")
lcTokenValidityFrom = loRespXml.GetChildContent("tokenValidityFrom")
lcTokenValidityTo = loRespXml.GetChildContent("tokenValidityTo")
release loCrypt
release loDtNow
release loPrng
release loSbRequestId
release loSbFinalHashBase
release loXml
release loHttp
release loResp
release loRespXml