(Xojo Plugin) palena.sii.cl getSeed SOAP Request

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM

Dim http As New Chilkat.Http

Dim success As Boolean

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

Dim responseStatusCode As Int32

http.UncommonOptions = "AllowEmptyHeaders"
http.SetRequestHeader "SOAPAction",""

http.SetRequestHeader "Content-Type","text/xml; charset=utf-8"

// The endpoint for this soap service is:
Dim endPoint As String
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>

Dim xml As New Chilkat.Xml
xml.Tag = "soapenv:Envelope"
success = xml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
success = xml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
success = xml.AddAttribute("xmlns:def","http://DefaultNamespace")
xml.UpdateChildContent "soapenv:Header",""
success = xml.UpdateAttrAt("soapenv:Body|def:getSeed",True,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/")

Dim resp As Chilkat.HttpResponse
resp = http.PostXml(endPoint,xml.GetXml(),"utf-8")
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    System.DebugLog("LastHeader:")
    System.DebugLog(http.LastHeader)
    Return
End If

responseStatusCode = resp.StatusCode

System.DebugLog("Response Status Code: " + Str(responseStatusCode))

// You may examine the exact HTTP header sent with the POST like this:
System.DebugLog("LastHeader:")
System.DebugLog(http.LastHeader)

// Examine the XML returned by the web service:
System.DebugLog("XML Response:")
Dim xmlResp As New Chilkat.Xml
success = xmlResp.LoadXml(resp.BodyStr)
System.DebugLog(xmlResp.GetXml())

// 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:
Dim embeddedXml As String
embeddedXml = xmlResp.GetChildContent("soapenv:Body|ns1:getSeedResponse|ns1:getSeedReturn")
System.DebugLog(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:
Dim xml2 As New Chilkat.Xml
success = xml2.LoadXml(embeddedXml)
Dim seed As String
seed = xml2.GetChildContent("SII:RESP_BODY|SEMILLA")
System.DebugLog("seed =  " + seed)