PureBasic

SOAP sendBill Call to sunat.gob.pe

See more HTTP Misc Examples

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

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

Procedure ChilkatExample()

    success.i = 0

    ; 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

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

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

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

    success = CkHttp::ckHttpStr(http,"POST",endPoint,strXml,"utf-8","text/xml",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkXml::ckDispose(xml)
        CkHttpResponse::ckDispose(resp)
        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


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


    ProcedureReturn
EndProcedure