(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Boolean iSuccess
    Variant vSbResponseBody
    Handle hoSbResponseBody
    Handle hoXmlResponse
    String sSII_RESPUESTA_xmlns_SII
    String sSEMILLA
    Integer iESTADO
    String sTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // 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

    Send ComSetRequestHeader To hoHttp "accept" "application/xml"

    // Use one of the following domains, depending on the environment:
    // apicert.sii.cl  - Certification Environment
    // api.sii.cl      - Production Environment
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
    If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
        Send CreateComObject of hoSbResponseBody
    End
    Get pvComObject of hoSbResponseBody to vSbResponseBody
    Get ComQuickGetSb Of hoHttp "https://apicert.sii.cl/recursos/v1/boleta.electronica.semilla" vSbResponseBody To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatXml)) To hoXmlResponse
    If (Not(IsComObjectCreated(hoXmlResponse))) Begin
        Send CreateComObject of hoXmlResponse
    End
    Get pvComObject of hoSbResponseBody to vSbResponseBody
    Get ComLoadSb Of hoXmlResponse vSbResponseBody True To iSuccess
    Get ComGetXml Of hoXmlResponse To sTemp1
    Showln sTemp1

    // 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

    Get ComGetAttrValue Of hoXmlResponse "xmlns:SII" To sSII_RESPUESTA_xmlns_SII
    Get ComGetChildContent Of hoXmlResponse "SII:RESP_BODY|SEMILLA" To sSEMILLA
    Get ComGetChildIntValue Of hoXmlResponse "SII:RESP_HDR|ESTADO" To iESTADO


End_Procedure