(VB.NET) palena.sii.cl getSeed SOAP Request

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

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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 Integer

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 = "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"
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",True,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/")

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


responseStatusCode = resp.StatusCode

Debug.WriteLine("Response Status Code: " & responseStatusCode)

' You may examine the exact HTTP header sent with the POST like this:
Debug.WriteLine("LastHeader:")
Debug.WriteLine(http.LastHeader)

' Examine the XML returned by the web service:
Debug.WriteLine("XML Response:")
Dim xmlResp As New Chilkat.Xml
xmlResp.LoadXml(resp.BodyStr)
Debug.WriteLine(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 = xmlResp.GetChildContent("soapenv:Body|ns1:getSeedResponse|ns1:getSeedReturn")
Debug.WriteLine(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
xml2.LoadXml(embeddedXml)
Dim seed As String = xml2.GetChildContent("SII:RESP_BODY|SEMILLA")
Debug.WriteLine("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.
' --------------------------------------------------------------------------------