Perl

palena.sii.cl getSeed SOAP Request

See more SII Chile Examples

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

use chilkat();

$success = 0;

$http = chilkat::CkHttp->new();

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

$http->put_UncommonOptions("AllowEmptyHeaders");
$http->SetRequestHeader("SOAPAction","");

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

$xml = chilkat::CkXml->new();
$xml->put_Tag("soapenv:Envelope");
$xml->AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance");
$xml->AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema");
$xml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$xml->AddAttribute("xmlns:def","http://DefaultNamespace");
$xml->UpdateChildContent("soapenv:Header","");
$xml->UpdateAttrAt("soapenv:Body|def:getSeed",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/");

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST",$endPoint,$xml->getXml(),"utf-8","text/xml",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$responseStatusCode = $resp->get_StatusCode();

print "Response Status Code: " . $responseStatusCode . "\r\n";

# You may examine the exact HTTP header sent with the POST like this:
print "LastHeader:" . "\r\n";
print $http->lastHeader() . "\r\n";

# Examine the XML returned by the web service:
print "XML Response:" . "\r\n";
$xmlResp = chilkat::CkXml->new();
$xmlResp->LoadXml($resp->bodyStr());
print $xmlResp->getXml() . "\r\n";

# 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 = $xmlResp->getChildContent("soapenv:Body|ns1:getSeedResponse|ns1:getSeedReturn");
print $embeddedXml . "\r\n";

# 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 = chilkat::CkXml->new();
$xml2->LoadXml($embeddedXml);
$seed = $xml2->getChildContent("SII:RESP_BODY|SEMILLA");
print "seed =  " . $seed . "\r\n";

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