(PureBasic) SOAP sendBill Call to sunat.gob.pe

Demonstrates how to make a SOAP call to sunat.gob.pe for the sendBill method.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    ; This example requires the Chilkat 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

    success.i

    ; The SOAP XML will look like this:
    ; <?xml version="1.0" encoding="utf-8"?>
    ; <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ser="http://service.sunat.gob.pe">
    ;     <soapenv:Header/>
    ;     
    ;     <soapenv:Body>
    ;         <ser:sendBill>
    ;             <fileName>20601523999-03-B001-00000002.zip</fileName>
    ;             <contentFile>UEsDBBQ ... AAAAA==</contentFile>
    ;         </ser:sendBill>
    ;     </soapenv:Body>
    ; </soapenv:Envelope>

    ; Build the above SOAP XML.
    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::setCkTag(xml, "soapenv:Envelope")
    CkXml::ckAddAttribute(xml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
    CkXml::ckAddAttribute(xml,"xmlns:ser","http://service.sunat.gob.pe")
    CkXml::ckUpdateChildContent(xml,"soapenv:Header","")
    CkXml::ckUpdateChildContent(xml,"soapenv:Body|ser:sendBill|fileName","20601523999-03-B001-00000002.zip")
    CkXml::ckUpdateChildContent(xml,"soapenv:Body|ser:sendBill|contentFile","UEsDBBQ ... AAAAA==")

    ; Alternatively, load the XML from a file.  (Remove this line if you wish to build the XML as shown above.)
    success = CkXml::ckLoadXmlFile(xml,"qa_data/soap/envio_sunat_peru.xml")

    strXml.s = CkXml::ckGetXml(xml)

    CkHttp::ckSetRequestHeader(http,"SOAPAction","urn:sendBill")
    CkHttp::ckSetRequestHeader(http,"Content-Type","text/xml; charset=utf-8")

    endPoint.s = "https://e-beta.sunat.gob.pe/ol-ti-itcpfegem-beta/billService"

    resp.i = CkHttp::ckPostXml(http,endPoint,strXml,"utf-8")
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        Debug "LastHeader:"
        Debug CkHttp::ckLastHeader(http)
        CkHttp::ckDispose(http)
        CkXml::ckDispose(xml)
        ProcedureReturn
    EndIf

    responseStatusCode.i = CkHttpResponse::ckStatusCode(resp)

    ; You may wish to verify that the responseStatusCode equals 200...
    Debug "Response Status Code: " + Str(responseStatusCode)

    ; You may examine the exact HTTP header sent with the POST like this:
    Debug "LastHeader:"
    Debug CkHttp::ckLastHeader(http)

    ; Examine the XML returned by the web service:
    Debug "XML Response:"
    xmlResp.i = CkXml::ckCreate()
    If xmlResp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadXml(xmlResp,CkHttpResponse::ckBodyStr(resp))
    Debug CkXml::ckGetXml(xmlResp)

    ; Use this online tool to generate parsing code from response XML: 
    ; Generate Parsing Code from XML

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkXml::ckDispose(xml)
    CkXml::ckDispose(xmlResp)


    ProcedureReturn
EndProcedure