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
(Classic ASP) PEPPOL Document ValidationDemonstrates how to call a Web service to validate your PEPPOL documents according to the latest PEPPOL rules. The validation service requires UBL files. For more information, see https://peppol.helger.com/public/locale-en_US/menuitem-validation-ws2
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat HTTP API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' -------------------------------------------------------------------------------- ' Also see Chilkat's Online WSDL Code Generator ' to generate code and SOAP Request and Response XML for each operation in a WSDL. ' -------------------------------------------------------------------------------- ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") ' We are sending the following POST: ' POST /wsdvs HTTP/1.1 ' Host: peppol.helger.com ' Content-Type: application/soap+xml; charset=utf-8 ' Content-Length: <length> ' ' <?xml version="1.0"?> ' <S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"> ' <S:Body> ' <validateRequestInput xmlns="http://peppol.helger.com/ws/documentvalidationservice/201701/" VESID="eu.peppol.bis2:t10:3.3.0" displayLocale="en"> ' <XML>...ENTITY_ENCODED_INVOICE_XML_GOES_HERE...</XML> ' </validateRequestInput> ' </S:Body> ' </S:Envelope> ' Build the SOAP XML shown above. ' First load the PEPPOL invoice that will be the data contained in the <XML>...</XML> SOAP element. ' We are using the XML invoice obtained from https://github.com/austriapro/ebinterface-standards/blob/master/schemas/ebInterface5p0/samples/ebinterface_5p0_sample_ecosio.xml ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbPeppolInvoiceXml = Server.CreateObject("Chilkat.StringBuilder") success = sbPeppolInvoiceXml.LoadFile("qa_data/xml/peppol_invoice.xml","utf-8") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") xml.Tag = "S:Envelope" success = xml.AddAttribute("xmlns:S","http://schemas.xmlsoap.org/soap/envelope/") success = xml.UpdateAttrAt("S:Body|validateRequestInput",1,"xmlns","http://peppol.helger.com/ws/documentvalidationservice/201701/") success = xml.UpdateAttrAt("S:Body|validateRequestInput",1,"VESID","at.ebinterface:invoice:5.0") success = xml.UpdateAttrAt("S:Body|validateRequestInput",1,"displayLocale","en") xml.UpdateChildContent "S:Body|validateRequestInput|XML",sbPeppolInvoiceXml.GetAsString() ' Set the Content-Type of the request. http.SetRequestHeader "Content-Type","text/xml" ' We don't need to specify the Content-Length or Host headers. Chilkat automatically adds them. ' Send the request... ' resp is a Chilkat.HttpResponse Set resp = http.PostXml("https://peppol.helger.com/wsdvs",xml.GetXml(),"utf-8") If (http.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code = " & resp.StatusCode) & "</pre>" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set respXml = Server.CreateObject("Chilkat.Xml") success = respXml.LoadXml(resp.BodyStr) Response.Write "<pre>" & Server.HTMLEncode( "Response XML:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( respXml.GetXml()) & "</pre>" ' A success repsonse looks like this: ' <?xml version="1.0" encoding="UTF-8"?> ' <S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"> ' <S:Body> ' <validateResponseOutput xmlns="http://peppol.helger.com/ws/documentvalidationservice/201701/" success="true" interrupted="false" mostSevereErrorLevel="SUCCESS"> ' <Result success="true" artifactType="xsd" artifactPath="/schemas/ebinterface/ebinterface-5.0.xsd"/> ' </validateResponseOutput> ' </S:Body> ' </S:Envelope> %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.