AutoIt

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

Local $bSuccess = False

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

$oHttp = ObjCreate("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
$oSbPeppolInvoiceXml = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oSbPeppolInvoiceXml.LoadFile("qa_data/xml/peppol_invoice.xml","utf-8")

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

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

; Send the request...
$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpStr("POST","https://peppol.helger.com/wsdvs",$oXml.GetXml(),"utf-8","text/xml",$oResp)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response Status Code = " & $oResp.StatusCode & @CRLF)

$oRespXml = ObjCreate("Chilkat.Xml")
$oRespXml.LoadXml($oResp.BodyStr)

ConsoleWrite("Response XML:" & @CRLF)
ConsoleWrite($oRespXml.GetXml() & @CRLF)

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