Sample code for 30+ languages & platforms
B4X

POST GovTalk XML to https://vrep1-t.cssz.cz/VREP/submission

See more HTTP Misc Examples

Demonstrates how to POST a GovTalk XML message to https://vrep1-t.cssz.cz/VREP/submission

PDF Documentation is at http://www.cssz.cz/NR/rdonlyres/0ACDBB35-F78A-4B1A-8258-7249B55C788E/0/csszpodavacidotazovaciprotokol20110608.pdf

Chilkat B4X Downloads

Download Chilkat for B4X
B4X 
Dim success As Boolean = False

'  This requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  First prepare the XML body that is to be GZip compressed and then encrypted.
'  Build the following XML..

'  Use the online tool at http://tools.chilkat.io/xmlCreate.cshtml
'  to generate the XML creation code that follows this XML.

'  <?xml version="1.0" encoding="utf-8" ?>
'  <pvpoj xmlns="http://schemas.cssz.cz/POJ/PVPOJ2016">
'      <prehled verze="2016.0" typPrehledu="N">
'          <okres>
'              <kodOSSZ>119</kodOSSZ>
'              <nazevOSSZ>Praha 9</nazevOSSZ>
'          </okres>
'          <obdobi>
'              <mesic>1</mesic>
'              <rok>2018</rok>
'          </obdobi>
'          <zamestnavatel>
'              <vs>9992002999</vs>
'              <IC>49710999</IC>
'              <nazev>SIT &amp; KHASO v.o.s.</nazev>
'              <adresa>
'                  <ulice>Na sp�leni�ti</ulice>
'                  <cisloDomu>517</cisloDomu>
'                  <obec>Praha 9</obec>
'                  <PSC>19032</PSC>
'                  <stat>CZ</stat>
'              </adresa>
'          </zamestnavatel>
'          <pojistne>
'              <uhrnVymerovacichZakladu>1104</uhrnVymerovacichZakladu>
'              <pojistneZamestnance>175</pojistneZamestnance>
'              <pojistneZamestnavatele>2826</pojistneZamestnavatele>
'              <pojistneCelkem>4301</pojistneCelkem>
'          </pojistne>
'          <platebniUdaje>
'              <bankaCisloUctu>012345789/0800</bankaCisloUctu>
'          </platebniUdaje>
'          <pracovnik>
'              <jmeno>Matt</jmeno>
'              <prijmeni>Smith</prijmeni>
'              <telefon>606796999</telefon>
'              <email>admin@chilkatsoft.com</email>
'          </pracovnik>
'          <datumVyplneni>2018-03-02</datumVyplneni>
'          <poznamka />
'      </prehled>
'  </pvpoj>

Dim xml As ChilkatXml
xml.Initialize
xml.Tag = "pvpoj"
xml.AddAttribute("xmlns", "http://schemas.cssz.cz/POJ/PVPOJ2016")
xml.UpdateAttrAt("prehled", True, "verze", "2016.0")
xml.UpdateAttrAt("prehled", True, "typPrehledu", "N")
xml.UpdateChildContent("prehled|okres|kodOSSZ", "119")
xml.UpdateChildContent("prehled|okres|nazevOSSZ", "Praha 9")
xml.UpdateChildContent("prehled|obdobi|mesic", "1")
xml.UpdateChildContent("prehled|obdobi|rok", "2018")
xml.UpdateChildContent("prehled|zamestnavatel|vs", "9992002999")
xml.UpdateChildContent("prehled|zamestnavatel|IC", "49710999")
xml.UpdateChildContent("prehled|zamestnavatel|nazev", "SIT & KHASO v.o.s.")
xml.UpdateChildContent("prehled|zamestnavatel|adresa|ulice", "Na sp�leni�ti")
xml.UpdateChildContent("prehled|zamestnavatel|adresa|cisloDomu", "517")
xml.UpdateChildContent("prehled|zamestnavatel|adresa|obec", "Praha 9")
xml.UpdateChildContent("prehled|zamestnavatel|adresa|PSC", "19032")
xml.UpdateChildContent("prehled|zamestnavatel|adresa|stat", "CZ")
xml.UpdateChildContent("prehled|pojistne|uhrnVymerovacichZakladu", "1104")
xml.UpdateChildContent("prehled|pojistne|pojistneZamestnance", "175")
xml.UpdateChildContent("prehled|pojistne|pojistneZamestnavatele", "2826")
xml.UpdateChildContent("prehled|pojistne|pojistneCelkem", "4301")
xml.UpdateChildContent("prehled|platebniUdaje|bankaCisloUctu", "012345789/0800")
xml.UpdateChildContent("prehled|pracovnik|jmeno", "Matt")
xml.UpdateChildContent("prehled|pracovnik|prijmeni", "Smith")
xml.UpdateChildContent("prehled|pracovnik|telefon", "606796999")
xml.UpdateChildContent("prehled|pracovnik|email", "admin@chilkatsoft.com")
xml.UpdateChildContent("prehled|datumVyplneni", "2018-03-02")
xml.UpdateChildContent("prehled|poznamka", "")

xml.EmitCompact = True
xml.EmitXmlDecl = False

'  Emit the XML into bd.
Dim bd As ChilkatBinData
bd.Initialize
bd.AppendString(xml.GetXml, "utf-8")

'  GZip compress the bd contents.
Dim gzip As ChilkatGzip
gzip.Initialize("gzip")
'  The Filename is not an actual file on disk, but is just the filename string stored in the gzip compressed format.
gzip.Filename = "pvpoj.xml"
gzip.CompressBd(bd)

'  Encrypt the contents using the government provided cert.
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadFromFile("qa_data/govs/czech/pvpoj/DISCSSZ2019.cer")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")
crypt.CryptAlgorithm = "pki"

crypt.Pkcs7CryptAlg = "aes"
crypt.KeyLength = 256

success = crypt.SetEncryptCert(cert)
If success = False Then
    Log(crypt.LastErrorText)
    Return
End If


success = crypt.EncryptBd(bd)
If success = False Then
    Log(crypt.LastErrorText)
    Return
End If


'  At this point, bd contains the gzip compressed / encrypted XML.

'  Build the following GovTalkMessage XML:

'  <?xml version="1.0" encoding="utf-8"?>
'  <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope">
'    <EnvelopeVersion>2.0</EnvelopeVersion>
'    <Header>
'      <MessageDetails>
'        <Class>CSSZ_PVPOJ</Class>
'        <Qualifier>request</Qualifier>
'        <Function>submit</Function>
'        <TransactionID />
'        <AuditID />
'        <CorrelationID />
'        <ResponseEndPoint PollInterval="0" />
'        <Transformation>XML</Transformation>
'        <GatewayTest />
'        <GatewayTimestamp />
'      </MessageDetails>
'      <SenderDetails>
'        <IDAuthentication>
'          <SenderID />
'          <Authentication>
'            <Method>clear</Method>
'            <Role />
'            <Value />
'          </Authentication>
'        </IDAuthentication>
'        <X509Certificate />
'        <EmailAddress>admin@chilkatsoft.com</EmailAddress>
'      </SenderDetails>
'    </Header>
'    <GovTalkDetails>
'      <Keys>
'        <Key Type="vars">9992888999</Key>
'      </Keys>
'      <GatewayAdditions />
'    </GovTalkDetails>
'    <Body>
'      <Message xmlns="http://www.cssz.cz/XMLSchema/envelope" version="1.2" eType="PVPOJ16">
'        <Header>
'          <Signature xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64">Signature goes here</Signature>
'          <Vendor productName="Abc xyz. s r.o. JKL .NET Client" version="6.0.2.0" />
'        </Header>
'        <Body xmlns:dt="urn:schemas-microsoft-com:datatypes" encrypted="yes" contentEncoding="gzip" dt:dt="bin.base64">Base64 goes here
'  </Body>
'      </Message>
'    </Body>
'  </GovTalkMessage>
'  

'  Use the online tool at http://tools.chilkat.io/xmlCreate.cshtml
'  to generate this code.

xml.Clear
xml.Tag = "GovTalkMessage"
xml.AddAttribute("xmlns", "http://www.govtalk.gov.uk/CM/envelope")
xml.UpdateChildContent("EnvelopeVersion", "2.0")
xml.UpdateChildContent("Header|MessageDetails|Class", "CSSZ_PVPOJ")
xml.UpdateChildContent("Header|MessageDetails|Qualifier", "request")
xml.UpdateChildContent("Header|MessageDetails|Function", "submit")
xml.UpdateChildContent("Header|MessageDetails|TransactionID", "")
xml.UpdateChildContent("Header|MessageDetails|AuditID", "")
xml.UpdateChildContent("Header|MessageDetails|CorrelationID", "")
xml.UpdateAttrAt("Header|MessageDetails|ResponseEndPoint", True, "PollInterval", "0")
xml.UpdateChildContent("Header|MessageDetails|Transformation", "XML")
xml.UpdateChildContent("Header|MessageDetails|GatewayTest", "")
xml.UpdateChildContent("Header|MessageDetails|GatewayTimestamp", "")
xml.UpdateChildContent("Header|SenderDetails|IDAuthentication|SenderID", "")
xml.UpdateChildContent("Header|SenderDetails|IDAuthentication|Authentication|Method", "clear")
xml.UpdateChildContent("Header|SenderDetails|IDAuthentication|Authentication|Role", "")
xml.UpdateChildContent("Header|SenderDetails|IDAuthentication|Authentication|Value", "")
xml.UpdateChildContent("Header|SenderDetails|X509Certificate", "")
xml.UpdateChildContent("Header|SenderDetails|EmailAddress", "admin@chilkatsoft.com")
xml.UpdateAttrAt("GovTalkDetails|Keys|Key", True, "Type", "vars")
xml.UpdateChildContent("GovTalkDetails|Keys|Key", "9992888999")
xml.UpdateChildContent("GovTalkDetails|GatewayAdditions", "")
xml.UpdateAttrAt("Body|Message", True, "xmlns", "http://www.cssz.cz/XMLSchema/envelope")
xml.UpdateAttrAt("Body|Message", True, "version", "1.2")
xml.UpdateAttrAt("Body|Message", True, "eType", "PVPOJ16")
xml.UpdateAttrAt("Body|Message|Header|Signature", True, "xmlns:dt", "urn:schemas-microsoft-com:datatypes")
xml.UpdateAttrAt("Body|Message|Header|Signature", True, "dt:dt", "bin.base64")
xml.UpdateChildContent("Body|Message|Header|Signature", "Signature goes here")
xml.UpdateAttrAt("Body|Message|Header|Vendor", True, "productName", "Abc xyz. s r.o. JKL .NET Client")
xml.UpdateAttrAt("Body|Message|Header|Vendor", True, "version", "6.0.2.0")
xml.UpdateAttrAt("Body|Message|Body", True, "xmlns:dt", "urn:schemas-microsoft-com:datatypes")
xml.UpdateAttrAt("Body|Message|Body", True, "encrypted", "yes")
xml.UpdateAttrAt("Body|Message|Body", True, "contentEncoding", "gzip")
xml.UpdateAttrAt("Body|Message|Body", True, "dt:dt", "bin.base64")

'  Insert the contents of bd here:
xml.UpdateChildContent("Body|Message|Body", bd.GetEncoded("base64"))

'  Show the XML to be sent to https://vrep1-t.cssz.cz/VREP/submission
xml.EmitCompact = False
Log(xml.GetXml)
xml.EmitCompact = True

'  ----------------------------------------------------------
'  POST the XML to https://vrep1-t.cssz.cz/VREP/submission

Dim http As ChilkatHttp
http.Initialize("http")
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("POST", "https://vrep1-t.cssz.cz/VREP/submission", xml.GetXml, "utf-8", "application/xml", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  Examine the response status code (200 = success)
Dim statusCode As Int = resp.StatusCode
Log("Response status code = " & statusCode)

'  The response body should be XML.
'  Load it into a Chilkat XML object to get it in indented format for viewing..
xml.Clear
xml.LoadXml(resp.BodyStr)
xml.EmitCompact = False
Log(xml.GetXml)

'  Output is:
'  <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope">
'      <EnvelopeVersion>2.0</EnvelopeVersion>
'      <Header>
'          <MessageDetails>
'              <Class>CSSZ_PVPOJ</Class>
'              <Qualifier>acknowledgement</Qualifier>
'              <Function>submit</Function>
'              <TransactionID />
'              <CorrelationID>1B6336D5ACE949CDB944424CB2D54401</CorrelationID>
'              <ResponseEndPoint PollInterval="60">https://vrep1-t.cssz.cz/VREP/poll</ResponseEndPoint>
'              <GatewayTimestamp>2018-07-02T22:23:41.310</GatewayTimestamp>
'          </MessageDetails>
'          <SenderDetails />
'      </Header>
'      <GovTalkDetails>
'          <Keys />
'      </GovTalkDetails>
'      <Body>
'          <Signature xmlns="http://www.podani.gov.cz/TxE/timestamp" Version="1.0">
'              <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
'              <TimeStamp>
'                  <date>20180702</date>
'                  <time>22:23:41</time>
'              </TimeStamp>
'              <SignatureValue>MIIORwYJKoZIhvcNAQcCo ... bBNE6MeXmk2siMuvY=</SignatureValue>
'          </Signature>
'      </Body>
'  </GovTalkMessage>
'  

'  Hint: Use the online tool at http://tools.chilkat.io/xmlParse.cshtml
'  to generate XML parsing code based on a sample response..