(PureBasic) 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.

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkXml.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; 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
    sbPeppolInvoiceXml.i = CkStringBuilder::ckCreate()
    If sbPeppolInvoiceXml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkStringBuilder::ckLoadFile(sbPeppolInvoiceXml,"qa_data/xml/peppol_invoice.xml","utf-8")

    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::setCkTag(xml, "S:Envelope")
    CkXml::ckAddAttribute(xml,"xmlns:S","http://schemas.xmlsoap.org/soap/envelope/")
    CkXml::ckUpdateAttrAt(xml,"S:Body|validateRequestInput",1,"xmlns","http://peppol.helger.com/ws/documentvalidationservice/201701/")
    CkXml::ckUpdateAttrAt(xml,"S:Body|validateRequestInput",1,"VESID","at.ebinterface:invoice:5.0")
    CkXml::ckUpdateAttrAt(xml,"S:Body|validateRequestInput",1,"displayLocale","en")
    CkXml::ckUpdateChildContent(xml,"S:Body|validateRequestInput|XML",CkStringBuilder::ckGetAsString(sbPeppolInvoiceXml))

    ; Set the Content-Type of the request.
    CkHttp::ckSetRequestHeader(http,"Content-Type","text/xml")

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

    ; Send the request...
    resp.i = CkHttp::ckPostXml(http,"https://peppol.helger.com/wsdvs",CkXml::ckGetXml(xml),"utf-8")
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbPeppolInvoiceXml)
        CkXml::ckDispose(xml)
        ProcedureReturn
    EndIf

    Debug "Response Status Code = " + Str(CkHttpResponse::ckStatusCode(resp))

    respXml.i = CkXml::ckCreate()
    If respXml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadXml(respXml,CkHttpResponse::ckBodyStr(resp))
    CkHttpResponse::ckDispose(resp)

    Debug "Response XML:"
    Debug CkXml::ckGetXml(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>


    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbPeppolInvoiceXml)
    CkXml::ckDispose(xml)
    CkXml::ckDispose(respXml)


    ProcedureReturn
EndProcedure