(Tcl) palena.sii.cl getSeed SOAP Request

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set http [new_CkHttp]

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

CkHttp_put_UncommonOptions $http "AllowEmptyHeaders"
CkHttp_SetRequestHeader $http "SOAPAction" ""

CkHttp_SetRequestHeader $http "Content-Type" "text/xml; charset=utf-8"

# The endpoint for this soap service is:
set endPoint "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>

set xml [new_CkXml]

CkXml_put_Tag $xml "soapenv:Envelope"
CkXml_AddAttribute $xml "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance"
CkXml_AddAttribute $xml "xmlns:xsd" "http://www.w3.org/2001/XMLSchema"
CkXml_AddAttribute $xml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_AddAttribute $xml "xmlns:def" "http://DefaultNamespace"
CkXml_UpdateChildContent $xml "soapenv:Header" ""
CkXml_UpdateAttrAt $xml "soapenv:Body|def:getSeed" 1 "soapenv:encodingStyle" "http://schemas.xmlsoap.org/soap/encoding/"

# resp is a CkHttpResponse
set resp [CkHttp_PostXml $http $endPoint [CkXml_getXml $xml] "utf-8"]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    puts "LastHeader:"
    puts [CkHttp_lastHeader $http]
    delete_CkHttp $http
    delete_CkXml $xml
    exit
}

set responseStatusCode [CkHttpResponse_get_StatusCode $resp]

puts "Response Status Code: $responseStatusCode"

# You may examine the exact HTTP header sent with the POST like this:
puts "LastHeader:"
puts [CkHttp_lastHeader $http]

# Examine the XML returned by the web service:
puts "XML Response:"
set xmlResp [new_CkXml]

CkXml_LoadXml $xmlResp [CkHttpResponse_bodyStr $resp]
puts [CkXml_getXml $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:
set embeddedXml [CkXml_getChildContent $xmlResp "soapenv:Body|ns1:getSeedResponse|ns1:getSeedReturn"]
puts "$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:
set xml2 [new_CkXml]

CkXml_LoadXml $xml2 $embeddedXml
set seed [CkXml_getChildContent $xml2 "SII:RESP_BODY|SEMILLA"]
puts "seed =  $seed"

delete_CkHttpResponse $resp

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

delete_CkHttp $http
delete_CkXml $xml
delete_CkXml $xmlResp
delete_CkXml $xml2