(Visual Basic 6.0) 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

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

Dim http As New ChilkatHttp
Dim success As Long

' 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 New ChilkatStringBuilder
success = http.QuickGetSb("https://apicert.sii.cl/recursos/v1/boleta.electronica.semilla",sbResponseBody)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim xmlResponse As New ChilkatXml
success = xmlResponse.LoadSb(sbResponseBody,1)
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

Dim SII_RESPUESTA_xmlns_SII As String
SII_RESPUESTA_xmlns_SII = xmlResponse.GetAttrValue("xmlns:SII")
Dim SEMILLA As String
SEMILLA = xmlResponse.GetChildContent("SII:RESP_BODY|SEMILLA")
Dim ESTADO As Long
ESTADO = xmlResponse.GetChildIntValue("SII:RESP_HDR|ESTADO")