(Visual FoxPro) SII GET boleta.electronica.semilla

Obtención de la semilla

For more information, see https://www4c.sii.cl/bolcoreinternetui/api/

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL lnSuccess
LOCAL loSbResponseBody
LOCAL loXmlResponse
LOCAL lcSII_RESPUESTA_xmlns_SII
LOCAL lcSEMILLA
LOCAL lnESTADO

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* Implements the following CURL command:

* curl -X GET "https://apicert.sii.cl/recursos/v1/boleta.electronica.semilla" -H  "accept: application/xml"

* Use the following online tool to generate HTTP code from a CURL command
* Convert a cURL Command to HTTP Source Code

loHttp.SetRequestHeader("accept","application/xml")

* Use one of the following domains, depending on the environment:
* apicert.sii.cl  - Certification Environment
* api.sii.cl      - Production Environment
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://apicert.sii.cl/recursos/v1/boleta.electronica.semilla",loSbResponseBody)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbResponseBody
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXmlResponse = CreateObject('Chilkat.Xml')
loXmlResponse.LoadSb(loSbResponseBody,1)
? loXmlResponse.GetXml()

* Sample XML response:
* (Sample code for parsing the XML response is shown below)

* <?xml version="1.0" encoding="UTF-8"?>
* <SII:RESPUESTA xmlns:SII="http://www.sii.cl/XMLSchema">
*     <SII:RESP_BODY>
*         <SEMILLA>030530912644</SEMILLA>
*     </SII:RESP_BODY>
*     <SII:RESP_HDR>
*         <ESTADO>0</ESTADO>
*     </SII:RESP_HDR>
* </SII:RESPUESTA>

* Sample code for parsing the XML response...
* Use the following online tool to generate parsing code from sample XML:
* Generate Parsing Code from XML

lcSII_RESPUESTA_xmlns_SII = loXmlResponse.GetAttrValue("xmlns:SII")
lcSEMILLA = loXmlResponse.GetChildContent("SII:RESP_BODY|SEMILLA")
lnESTADO = loXmlResponse.GetChildIntValue("SII:RESP_HDR|ESTADO")

RELEASE loHttp
RELEASE loSbResponseBody
RELEASE loXmlResponse