B4X

SII GET boleta.electronica.semilla

See more SII Chile Examples

Obtención de la semilla B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("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

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 ChilkatStringBuilder
sbResponseBody.Initialize
success = http.QuickGetSb("https://apicert.sii.cl/recursos/v1/boleta.electronica.semilla", sbResponseBody)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim xmlResponse As ChilkatXml
xmlResponse.Initialize
xmlResponse.LoadSb(sbResponseBody, True)
Log(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 = xmlResponse.GetAttrValue("xmlns:SII")
Dim SEMILLA As String = xmlResponse.GetChildContent("SII:RESP_BODY|SEMILLA")
Dim ESTADO As Int = xmlResponse.GetChildIntValue("SII:RESP_HDR|ESTADO")