(Visual FoxPro) PEPPOL Document Validation

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

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://peppol.helger.com/public/locale-en_US/menuitem-validation-ws2

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL loSbPeppolInvoiceXml
LOCAL loXml
LOCAL loResp
LOCAL loRespXml

lnSuccess = 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.
* --------------------------------------------------------------------------------

loHttp = 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
loSbPeppolInvoiceXml = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbPeppolInvoiceXml.LoadFile("qa_data/xml/peppol_invoice.xml","utf-8")

loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "S:Envelope"
loXml.AddAttribute("xmlns:S","http://schemas.xmlsoap.org/soap/envelope/")
loXml.UpdateAttrAt("S:Body|validateRequestInput",1,"xmlns","http://peppol.helger.com/ws/documentvalidationservice/201701/")
loXml.UpdateAttrAt("S:Body|validateRequestInput",1,"VESID","at.ebinterface:invoice:5.0")
loXml.UpdateAttrAt("S:Body|validateRequestInput",1,"displayLocale","en")
loXml.UpdateChildContent("S:Body|validateRequestInput|XML",loSbPeppolInvoiceXml.GetAsString())

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

* Send the request...
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST","https://peppol.helger.com/wsdvs",loXml.GetXml(),"utf-8","text/xml",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbPeppolInvoiceXml
    RELEASE loXml
    RELEASE loResp
    CANCEL
ENDIF

? "Response Status Code = " + STR(loResp.StatusCode)

loRespXml = CreateObject('Chilkat.Xml')
loRespXml.LoadXml(loResp.BodyStr)

? "Response XML:"
? loRespXml.GetXml()

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

RELEASE loHttp
RELEASE loSbPeppolInvoiceXml
RELEASE loXml
RELEASE loResp
RELEASE loRespXml