Visual FoxPro
Visual FoxPro
palena.sii.cl getSeed SOAP Request
See more SII Chile Examples
Demonstrates how to call getSeed SOAP request at palena.sii.clChilkat Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loHttp
LOCAL lnResponseStatusCode
LOCAL lcEndPoint
LOCAL loXml
LOCAL loResp
LOCAL loXmlResp
LOCAL lcEmbeddedXml
LOCAL loXml2
LOCAL lcSeed
lnSuccess = 0
loHttp = CreateObject('Chilkat.Http')
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loHttp.UncommonOptions = "AllowEmptyHeaders"
loHttp.SetRequestHeader("SOAPAction","")
* The endpoint for this soap service is:
lcEndPoint = "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>
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.AddAttribute("xmlns:def","http://DefaultNamespace")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateAttrAt("soapenv:Body|def:getSeed",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/")
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST",lcEndPoint,loXml.GetXml(),"utf-8","text/xml",loResp)
IF (lnSuccess = 0) THEN
? loHttp.LastErrorText
RELEASE loHttp
RELEASE loXml
RELEASE loResp
CANCEL
ENDIF
lnResponseStatusCode = loResp.StatusCode
? "Response Status Code: " + STR(lnResponseStatusCode)
* You may examine the exact HTTP header sent with the POST like this:
? "LastHeader:"
? loHttp.LastHeader
* Examine the XML returned by the web service:
? "XML Response:"
loXmlResp = CreateObject('Chilkat.Xml')
loXmlResp.LoadXml(loResp.BodyStr)
? loXmlResp.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"><?xml version="1.0" encoding="UTF-8"?><SII:RESPUESTA xmlns:SII="http://www.sii.cl/XMLSchema"><SII:RESP_BODY><SEMILLA>039159253918</SEMILLA></SII:RESP_BODY><SII:RESP_HDR><ESTADO>00</ESTADO></SII:RESP_HDR></SII:RESPUESTA></ns1:getSeedReturn>
* </ns1:getSeedResponse>
* </soapenv:Body>
* </soapenv:Envelope>
* Get the XML contained in the getSeedReturn element:
lcEmbeddedXml = loXmlResp.GetChildContent("soapenv:Body|ns1:getSeedResponse|ns1:getSeedReturn")
? lcEmbeddedXml
* 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:
loXml2 = CreateObject('Chilkat.Xml')
loXml2.LoadXml(lcEmbeddedXml)
lcSeed = loXml2.GetChildContent("SII:RESP_BODY|SEMILLA")
? "seed = " + lcSeed
* --------------------------------------------------------------------------------
* Also see Chilkat's Online WSDL Code Generator
* to generate code and SOAP Request and Response XML for each operation in a WSDL.
* --------------------------------------------------------------------------------
RELEASE loHttp
RELEASE loXml
RELEASE loResp
RELEASE loXmlResp
RELEASE loXml2