Sample code for 30+ languages & platforms
VB.NET

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 VB.NET Downloads

Download Chilkat for VB.NET
VB.NET 
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 New Chilkat.Xml
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 New Chilkat.BinData
bd.AppendString(xml.GetXml(),"utf-8")

' GZip compress the bd contents.
Dim gzip As New Chilkat.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 New Chilkat.Cert
success = cert.LoadFromFile("qa_data/govs/czech/pvpoj/DISCSSZ2019.cer")
If (success = False) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If


Dim crypt As New Chilkat.Crypt2
crypt.CryptAlgorithm = "pki"

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

success = crypt.SetEncryptCert(cert)
If (success = False) Then
    Debug.WriteLine(crypt.LastErrorText)
    Exit Sub
End If


success = crypt.EncryptBd(bd)
If (success = False) Then
    Debug.WriteLine(crypt.LastErrorText)
    Exit Sub
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
Debug.WriteLine(xml.GetXml())
xml.EmitCompact = True

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

Dim http As New Chilkat.Http
Dim resp As New Chilkat.HttpResponse
success = http.HttpStr("POST","https://vrep1-t.cssz.cz/VREP/submission",xml.GetXml(),"utf-8","application/xml",resp)
If (success = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


' Examine the response status code (200 = success)
Dim statusCode As Integer = resp.StatusCode
Debug.WriteLine("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
Debug.WriteLine(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..