(PureBasic) SII POST boleta.electronica.token

Obtener un token de at autenticación para el envío y consultas automatizadas de boletas electrónicas.

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkXmlDSigGen.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkCert.pb"

Procedure ChilkatExample()

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

    ; Create the XML to be signed...
    ; The following XML is created:
    ; 
    ;   <?xml version="1.0" encoding="UTF-8"?>
    ;   <getToken><item><Semilla>030530912644</Semilla></item></getToken>
    ; 
    xmlToSign.i = CkXml::ckCreate()
    If xmlToSign.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::setCkTag(xmlToSign, "getToken")
    CkXml::ckUpdateChildContent(xmlToSign,"item|Semilla","030530912644")

    ; Sign the XML.
    ; 
    ; We wish to create the following signed XML:

    ;   <?xml version="1.0" encoding="UTF-8"?>
    ;   <getToken>
    ;   	<item>
    ;   		<Semilla>030530912644</Semilla>
    ;   	</item>
    ;   	<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
    ;   		<SignedInfo>
    ;   			<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315">
    ;   			</CanonicalizationMethod>
    ;   			<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1">
    ;   			</SignatureMethod>
    ;   			<Reference URI="">
    ;   				<Transforms>
    ;   					<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature">
    ;   					</Transform>
    ;   				</Transforms>
    ;   				<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1">
    ;   				</DigestMethod>
    ;   				<DigestValue>l2s9BqLppHaWo+w1Al1J5SsYScs=</DigestValue>
    ;   			</Reference>
    ;   		</SignedInfo>
    ;   		<SignatureValue>jlbzatIIBLW8AjH++5uVTTrGIMVwGButuoAR88y/hvSc1+6/eW1K864fK3cKi76oArqk7lAM4pP okoXme0JT/hRXXGo6ecuKzO18z2WfPWwgnN0f3ac03TDu7PwfqiDG9mhQpYfIkNp6GNJIiqlg9PG2w1fOJ1QoypsrQmKq6 YU=</SignatureValue>
    ;   		<KeyInfo>
    ;   			<KeyValue>
    ;   				<RSAKeyValue>
    ;   					<Modulus>2Pb4kEB19m7NmOUYew9f36325yrTLTPMU7qzYG2A0/BsubxDdgQw2Op0x6zXvOVX sYI9KkPXtD5orKJMjwxYRv9wUWdyiE776Rv4ljfJO7EQhIK1fDQDnPt0HefBS06Xzg2QLBvLR+pe1vc6C02Dr99v+lnLA8 mnZiJlRHndhNU=</Modulus>
    ;   					<Exponent>AQAB</Exponent>
    ;   				</RSAKeyValue>
    ;   			</KeyValue>
    ;   			<X509Data>
    ;   				<X509Certificate>MIIF1DCCBLygAwIBAgIDAQNtMA0GCSqGSIb3DQEBBQUAMIHGMQswCQYDVQQG
    ;   EwJDTDEYMBYGA1UEChMPQWNlcHRhLmNvbSBTLkEuMTgwNgYDVQQLEy9BdXRv
    ;   cmlkYWQgY2VydGlmaWNhZG9yYSBDbGFzZSAzIHBlcnNvbmEgbmF0dXJhbDFD
    ;   MEEGA1UEAxM6QWNlcHRhLmNvbSBBdXRvcmlkYWQgY2VydGlmaWNhZG9yYSBD
    ;   bGFzZSAzIHBlcnNvbmEgbmF0dXJhbDEeMBwGCSqGSIb3DQEJARYPaW5mb0Bh
    ;   Y2VwdGEuY29tMB4XDTAxMDkyNTIxMDgxMloXDTAyMDkyNTIxMDgxMlowgZ8x
    ;   CzAJBgNVBAYTAkNMMRgwFgYDVQQKEw9BY2VwdGEuY29tIFMuQS4xLDAqBgNV
    ;   BAsTI0NlcnRpZmljYWRvIENsYXNlIDMgUGVyc29uYSBOYXR1cmFsMRwwGgYJ
    ;   KoZIhvcNAQkBFg1uY2hlbGVAc2lpLmNsMSowKAYDVQQDEyFOSUNPTEFTIFpB
    ;   UFJJQU4gQ0hFTEVCSUZTS0kgQkFFWkEwgZ8wDQYJKoZIhvcNAQEBBQADgY0A
    ;   MIGJAoGBANj2+JBAdfZuzZjlGHsPX9+t9ucq0y0zzFO6s2BtgNPwbLm8Q3YE
    ;   MNjqdMes17zlV7GCPSpD17Q+aKyiTI8MWEb/cFFncohO++kb+JY3yTuxEISC
    ;   tXw0A5z7dB3nwUtOl84NkCwby0fqXtb3OgtNg6/fb/pZywPJp2YiZUR53YTV
    ;   AgMBAAGjggJyMIICbjAdBggrBgEEAbVrDwQRFg9BY2VwdGEuY29tIFMuQS4w
    ;   JQYDVR0RBB4wHKAaBggrBgEEAcEBAaAOFgwxMC40MTEuODcxLTIwDwYIKwYB
    ;   Jh0z1DR3Pl3xOiaFIjSXsQO2PSzcA3wZXYF+KDrMul8e5lAF2NNiLmMVtXEx
    ;   ZykMaTGGWS0ZETDhJmBwEZGpP4+lt/JhgwF1Sb6wdrXp7MFCJUc1Tj+/5JqH
    ;   1kP0E63/hVElrcP0g8Zn8Z+vr/PMGW1kKgE0IyS4iJ8eIhNSK5phFyKJUn0l
    ;   BmIZX7u89d5u7X8=
    ;   </X509Certificate>
    ;   			</X509Data>
    ;   		</KeyInfo>
    ;   	</Signature>
    ;   </getToken>

    gen.i = CkXmlDSigGen::ckCreate()
    If gen.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXmlDSigGen::setCkSigLocation(gen, "getToken")
    CkXmlDSigGen::setCkSigLocationMod(gen, 0)
    CkXmlDSigGen::setCkSigNamespacePrefix(gen, "")
    CkXmlDSigGen::setCkSigNamespaceUri(gen, "http://www.w3.org/2000/09/xmldsig#")
    CkXmlDSigGen::setCkSignedInfoCanonAlg(gen, "C14N")
    CkXmlDSigGen::setCkSignedInfoDigestMethod(gen, "sha1")

    ; -------- Reference 1 --------
    CkXmlDSigGen::ckAddSameDocRef(gen,"","sha1","","","")

    ; Provide a certificate + private key. (PFX password is test123)
    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkCert::ckLoadPfxFile(cert,"qa_data/pfx/cert_test123.pfx","test123")
    If success <> 1
        Debug CkCert::ckLastErrorText(cert)
        CkXml::ckDispose(xmlToSign)
        CkXmlDSigGen::ckDispose(gen)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    CkXmlDSigGen::ckSetX509Cert(gen,cert,1)

    CkXmlDSigGen::setCkKeyInfoType(gen, "X509Data+KeyValue")
    CkXmlDSigGen::setCkX509Type(gen, "Certificate")

    ; Load XML to be signed...
    sbXml.i = CkStringBuilder::ckCreate()
    If sbXml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckGetXmlSb(xmlToSign,sbXml)

    CkXmlDSigGen::setCkBehaviors(gen, "IndentedSignature")

    ; Sign the XML...
    success = CkXmlDSigGen::ckCreateXmlDSigSb(gen,sbXml)
    If success <> 1
        Debug CkXmlDSigGen::ckLastErrorText(gen)
        CkXml::ckDispose(xmlToSign)
        CkXmlDSigGen::ckDispose(gen)
        CkCert::ckDispose(cert)
        CkStringBuilder::ckDispose(sbXml)
        ProcedureReturn
    EndIf

    Debug CkStringBuilder::ckGetAsString(sbXml)

    ; Send the POST with signed XML in the request body
    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::ckSetRequestHeader(http,"accept","application/xml")

    ; Use one of the following domains, depending on the environment:
    ; apicert.sii.cl  - Certification Environment
    ; api.sii.cl      - Production Environment
    url.s = "https://apicert.sii.cl/recursos/v1/boleta.electronica.token"
    resp.i = CkHttp::ckPostXml(http,url,CkStringBuilder::ckGetAsString(sbXml),"utf-8")
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkXml::ckDispose(xmlToSign)
        CkXmlDSigGen::ckDispose(gen)
        CkCert::ckDispose(cert)
        CkStringBuilder::ckDispose(sbXml)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; Examine the response status code:
    Debug "response status code = " + Str(CkHttpResponse::ckStatusCode(resp))

    ; Examine the response body:
    Debug "response body: " + CkHttpResponse::ckBodyStr(resp)

    ; We expect a response like this:
    ;   <?xml version="1.0" encoding="UTF-8"?>
    ;   <SII:RESPUESTA xmlns:SII="http://www.sii.cl/XMLSchema">
    ;   	<SII:RESP_HDR>
    ;   		<ESTADO>00</ESTADO>
    ;   		<GLOSA>Token Creado</GLOSA>
    ;   	</SII:RESP_HDR>
    ;   	<SII:RESP_BODY>
    ;   		<TOKEN>XAuSbYXiNh9Ik</TOKEN>
    ;   	</SII:RESP_BODY>
    ;   </SII:RESPUESTA>

    ; Parse the XML response.
    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadXml(xml,CkHttpResponse::ckBodyStr(resp))
    ESTADO.i = CkXml::ckGetChildIntValue(xml,"SII:RESP_HDR|ESTADO")
    GLOSA.s = CkXml::ckGetChildContent(xml,"SII:RESP_HDR|GLOSA")
    TOKEN.s = CkXml::ckGetChildContent(xml,"SII:RESP_BODY|TOKEN")

    CkHttpResponse::ckDispose(resp)



    CkXml::ckDispose(xmlToSign)
    CkXmlDSigGen::ckDispose(gen)
    CkCert::ckDispose(cert)
    CkStringBuilder::ckDispose(sbXml)
    CkHttp::ckDispose(http)
    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure