(Excel) SII GET boleta.electronica.semilla

Obtención de la semilla

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

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' 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

http.SetRequestHeader "accept","application/xml"

' Use one of the following domains, depending on the environment:
' apicert.sii.cl  - Certification Environment
' api.sii.cl      - Production Environment
Dim sbResponseBody As Chilkat.StringBuilder
Set sbResponseBody = Chilkat.NewStringBuilder
success = http.QuickGetSb("https://apicert.sii.cl/recursos/v1/boleta.electronica.semilla",sbResponseBody)
If (success = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim xmlResponse As Chilkat.Xml
Set xmlResponse = Chilkat.NewXml
Dim success As Boolean
success = xmlResponse.LoadSb(sbResponseBody,True)
Debug.Print xmlResponse.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


SII_RESPUESTA_xmlns_SII = xmlResponse.GetAttrValue("xmlns:SII")

SEMILLA = xmlResponse.GetChildContent("SII:RESP_BODY|SEMILLA")

ESTADO = xmlResponse.GetChildIntValue("SII:RESP_HDR|ESTADO")