PureBasic
PureBasic
SII POST boleta.electronica.token
See more SII Chile Examples
Obtener un token de at autenticación para el envío y consultas automatizadas de boletas electrónicas.Chilkat PureBasic Downloads
IncludeFile "CkXml.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkXmlDSigGen.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkCert.pb"
Procedure ChilkatExample()
success.i = 0
; 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 = CkCert::ckLoadPfxFile(cert,"qa_data/pfx/cert_test123.pfx","test123")
If success = 0
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 = 0
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 = CkHttpResponse::ckCreate()
If resp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkHttp::ckHttpSb(http,"POST",url,sbXml,"utf-8","application/xml",resp)
If success = 0
Debug CkHttp::ckLastErrorText(http)
CkXml::ckDispose(xmlToSign)
CkXmlDSigGen::ckDispose(gen)
CkCert::ckDispose(cert)
CkStringBuilder::ckDispose(sbXml)
CkHttp::ckDispose(http)
CkHttpResponse::ckDispose(resp)
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")
CkXml::ckDispose(xmlToSign)
CkXmlDSigGen::ckDispose(gen)
CkCert::ckDispose(cert)
CkStringBuilder::ckDispose(sbXml)
CkHttp::ckDispose(http)
CkHttpResponse::ckDispose(resp)
CkXml::ckDispose(xml)
ProcedureReturn
EndProcedure