(PureBasic) palena.sii.cl getSeed SOAP Request

Demonstrates how to call getSeed SOAP request at palena.sii.cl

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    success.i = 0

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

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    responseStatusCode.i

    CkHttp::setCkUncommonOptions(http, "AllowEmptyHeaders")
    CkHttp::ckSetRequestHeader(http,"SOAPAction","")

    ; The endpoint for this soap service is:
    endPoint.s = "https://palena.sii.cl/DTEWS/CrSeed.jws"

    ; Send the following SOAP XML
    ; <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:def="http://DefaultNamespace">
    ;    <soapenv:Header/>
    ;    <soapenv:Body>
    ;       <def:getSeed soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
    ;    </soapenv:Body>
    ; </soapenv:Envelope>

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

    CkXml::setCkTag(xml, "soapenv:Envelope")
    CkXml::ckAddAttribute(xml,"xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
    CkXml::ckAddAttribute(xml,"xmlns:xsd","http://www.w3.org/2001/XMLSchema")
    CkXml::ckAddAttribute(xml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
    CkXml::ckAddAttribute(xml,"xmlns:def","http://DefaultNamespace")
    CkXml::ckUpdateChildContent(xml,"soapenv:Header","")
    CkXml::ckUpdateAttrAt(xml,"soapenv:Body|def:getSeed",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/")

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

    success = CkHttp::ckHttpStr(http,"POST",endPoint,CkXml::ckGetXml(xml),"utf-8","text/xml",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkXml::ckDispose(xml)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    responseStatusCode = CkHttpResponse::ckStatusCode(resp)

    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

    ; The response is:

    ; <?xml version="1.0" encoding="UTF-8"?>
    ; <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
    ;     <soapenv:Body>
    ;         <ns1:getSeedResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="http://DefaultNamespace">
    ;             <ns1:getSeedReturn xsi:type="xsd:string">&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;&lt;SII:RESPUESTA xmlns:SII=&quot;http://www.sii.cl/XMLSchema&quot;&gt;&lt;SII:RESP_BODY&gt;&lt;SEMILLA&gt;039159253918&lt;/SEMILLA&gt;&lt;/SII:RESP_BODY&gt;&lt;SII:RESP_HDR&gt;&lt;ESTADO&gt;00&lt;/ESTADO&gt;&lt;/SII:RESP_HDR&gt;&lt;/SII:RESPUESTA&gt;</ns1:getSeedReturn>
    ;         </ns1:getSeedResponse>
    ;     </soapenv:Body>
    ; </soapenv:Envelope>

    ; Get the XML contained in the getSeedReturn element:
    embeddedXml.s = CkXml::ckGetChildContent(xmlResp,"soapenv:Body|ns1:getSeedResponse|ns1:getSeedReturn")
    Debug embeddedXml

    ; The embedded XML is:

    ; <?xml version="1.0" encoding="UTF-8"?>
    ; <SII:RESPUESTA xmlns:SII="http://www.sii.cl/XMLSchema">
    ;     <SII:RESP_BODY>
    ;         <SEMILLA>039159397998</SEMILLA>
    ;     </SII:RESP_BODY>
    ;     <SII:RESP_HDR>
    ;         <ESTADO>00</ESTADO>
    ;     </SII:RESP_HDR>
    ; </SII:RESPUESTA>

    ; Get the seed:
    xml2.i = CkXml::ckCreate()
    If xml2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadXml(xml2,embeddedXml)
    seed.s = CkXml::ckGetChildContent(xml2,"SII:RESP_BODY|SEMILLA")
    Debug "seed =  " + seed

    ; --------------------------------------------------------------------------------
    ; Also see Chilkat's Online WSDL Code Generator
    ; to generate code and SOAP Request and Response XML for each operation in a WSDL.
    ; --------------------------------------------------------------------------------


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


    ProcedureReturn
EndProcedure