Tcl

PEPPOL Document Validation

See more HTTP Misc Examples

Demonstrates how to call a Web service to validate your PEPPOL documents according to the latest PEPPOL rules. The validation service requires UBL files. Tcl

load ./chilkat.dll

set success 0

# 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.
# --------------------------------------------------------------------------------

set http [new_CkHttp]

# 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
set sbPeppolInvoiceXml [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbPeppolInvoiceXml "qa_data/xml/peppol_invoice.xml" "utf-8"]

set xml [new_CkXml]

CkXml_put_Tag $xml "S:Envelope"
CkXml_AddAttribute $xml "xmlns:S" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_UpdateAttrAt $xml "S:Body|validateRequestInput" 1 "xmlns" "http://peppol.helger.com/ws/documentvalidationservice/201701/"
CkXml_UpdateAttrAt $xml "S:Body|validateRequestInput" 1 "VESID" "at.ebinterface:invoice:5.0"
CkXml_UpdateAttrAt $xml "S:Body|validateRequestInput" 1 "displayLocale" "en"
CkXml_UpdateChildContent $xml "S:Body|validateRequestInput|XML" [CkStringBuilder_getAsString $sbPeppolInvoiceXml]

# We don't need to specify the Content-Length or Host headers.  Chilkat automatically adds them.

# Send the request...
set resp [new_CkHttpResponse]

set success [CkHttp_HttpStr $http "POST" "https://peppol.helger.com/wsdvs" [CkXml_getXml $xml] "utf-8" "text/xml" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbPeppolInvoiceXml
    delete_CkXml $xml
    delete_CkHttpResponse $resp
    exit
}

puts "Response Status Code = [CkHttpResponse_get_StatusCode $resp]"

set respXml [new_CkXml]

CkXml_LoadXml $respXml [CkHttpResponse_bodyStr $resp]

puts "Response XML:"
puts [CkXml_getXml $respXml]

# 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>

delete_CkHttp $http
delete_CkStringBuilder $sbPeppolInvoiceXml
delete_CkXml $xml
delete_CkHttpResponse $resp
delete_CkXml $respXml