|
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
(VBScript) POST GovTalk XML to https://vrep1-t.cssz.cz/VREP/submissionDemonstrates 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
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' 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 & 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> ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = CreateObject("Chilkat.Xml") xml.Tag = "pvpoj" success = xml.AddAttribute("xmlns","http://schemas.cssz.cz/POJ/PVPOJ2016") success = xml.UpdateAttrAt("prehled",1,"verze","2016.0") success = xml.UpdateAttrAt("prehled",1,"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 = 1 xml.EmitXmlDecl = 0 ' Emit the XML into bd. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData") set bd = CreateObject("Chilkat.BinData") success = bd.AppendString(xml.GetXml(),"utf-8") ' GZip compress the bd contents. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Gzip") set gzip = CreateObject("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" success = gzip.CompressBd(bd) ' Encrypt the contents using the government provided cert. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert") set cert = CreateObject("Chilkat.Cert") success = cert.LoadFromFile("qa_data/govs/czech/pvpoj/DISCSSZ2019.cer") If (success <> 1) Then outFile.WriteLine(cert.LastErrorText) WScript.Quit End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2") set crypt = CreateObject("Chilkat.Crypt2") crypt.CryptAlgorithm = "pki" crypt.Pkcs7CryptAlg = "aes" crypt.KeyLength = 256 success = crypt.SetEncryptCert(cert) If (success <> 1) Then outFile.WriteLine(crypt.LastErrorText) WScript.Quit End If success = crypt.EncryptBd(bd) If (success <> 1) Then outFile.WriteLine(crypt.LastErrorText) WScript.Quit 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" success = 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","" success = xml.UpdateAttrAt("Header|MessageDetails|ResponseEndPoint",1,"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" success = xml.UpdateAttrAt("GovTalkDetails|Keys|Key",1,"Type","vars") xml.UpdateChildContent "GovTalkDetails|Keys|Key","9992888999" xml.UpdateChildContent "GovTalkDetails|GatewayAdditions","" success = xml.UpdateAttrAt("Body|Message",1,"xmlns","http://www.cssz.cz/XMLSchema/envelope") success = xml.UpdateAttrAt("Body|Message",1,"version","1.2") success = xml.UpdateAttrAt("Body|Message",1,"eType","PVPOJ16") success = xml.UpdateAttrAt("Body|Message|Header|Signature",1,"xmlns:dt","urn:schemas-microsoft-com:datatypes") success = xml.UpdateAttrAt("Body|Message|Header|Signature",1,"dt:dt","bin.base64") xml.UpdateChildContent "Body|Message|Header|Signature","Signature goes here" success = xml.UpdateAttrAt("Body|Message|Header|Vendor",1,"productName","Abc xyz. s r.o. JKL .NET Client") success = xml.UpdateAttrAt("Body|Message|Header|Vendor",1,"version","6.0.2.0") success = xml.UpdateAttrAt("Body|Message|Body",1,"xmlns:dt","urn:schemas-microsoft-com:datatypes") success = xml.UpdateAttrAt("Body|Message|Body",1,"encrypted","yes") success = xml.UpdateAttrAt("Body|Message|Body",1,"contentEncoding","gzip") success = xml.UpdateAttrAt("Body|Message|Body",1,"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 = 0 outFile.WriteLine(xml.GetXml()) xml.EmitCompact = 1 ' ---------------------------------------------------------- ' POST the XML to https://vrep1-t.cssz.cz/VREP/submission ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = CreateObject("Chilkat.Http") ' resp is a Chilkat.HttpResponse Set resp = http.PostXml("https://vrep1-t.cssz.cz/VREP/submission",xml.GetXml(),"utf-8") If (http.LastMethodSuccess <> 1) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If ' Examine the response status code (200 = success) statusCode = resp.StatusCode outFile.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 success = xml.LoadXml(resp.BodyStr) xml.EmitCompact = 0 outFile.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.. outFile.Close |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.