(Lianja) Create sii.cl Factura Electrónica (Chile Servicio de Impuestos Internos)

Demonstrates how to sign an XML invoice according to Chilean Internal Revenue Service regulations.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

// See: Apply 2nd Signature to sii.cl Factura Electr�nica (Chile Servicio de Impuestos Internos)
// for an example showing how to apply a 2nd signature.

// We want to sign XML that looks like the following:

// <?xml version="1.0" encoding="iso-8859-1"?>
// <DTE version="1.0" xmlns="http://www.sii.cl/SiiDte">
//     <Documento ID="F13T34">
//         <Encabezado>
//             <IdDoc>
//                 <TipoDTE>34</TipoDTE>
//                 <Folio>13</Folio>
//                 <FchEmis>2020-07-17</FchEmis>
//                 <FmaPago>1</FmaPago>
//                 <FchVenc>2020-07-17</FchVenc>
//             </IdDoc>
//             <Emisor>
//                 <RUTEmisor>...</RUTEmisor>
//                 <RznSoc>...</RznSoc>
//                 <GiroEmis>...</GiroEmis>
//                 <Acteco>...</Acteco>
//                 <DirOrigen>...</DirOrigen>
//                 <CmnaOrigen>...</CmnaOrigen>
//                 <CiudadOrigen>...</CiudadOrigen>
//             </Emisor>
//             <Receptor>
//                 <RUTRecep>...</RUTRecep>
//                 <RznSocRecep>...</RznSocRecep>
//                 <GiroRecep>...</GiroRecep>
//                 <Contacto/>
//                 <DirRecep>...</DirRecep>
//                 <CmnaRecep>...</CmnaRecep>
//                 <CiudadRecep>...</CiudadRecep>
//             </Receptor>
//             <Totales>
//                 <MntExe>14999</MntExe>
//                 <MntTotal>14999</MntTotal>
//             </Totales>
//         </Encabezado>
//         <Detalle>
//             <NroLinDet>1</NroLinDet>
//             <CdgItem>
//                 <TpoCodigo>INT</TpoCodigo>
//                 <VlrCodigo>1</VlrCodigo>
//             </CdgItem>
//             <NmbItem>Atenci�n profesional mes de Junio 2020</NmbItem>
//             <QtyItem>1</QtyItem>
//             <UnmdItem>UNI</UnmdItem>
//             <PrcItem>14999</PrcItem>
//             <MontoItem>14999</MontoItem>
//         </Detalle>
//         <TED version="1.0">
//             <DD>
//                 <RE>99972220-K</RE>
//                 <TD>34</TD>
//                 <F>13</F>
//                 <FE>2020-07-17</FE>
//                 <RR>99942999-2</RR>
//                 <RSR>...</RSR>
//                 <MNT>14999</MNT>
//                 <IT1>Atencion profesional mes de Junio 2020</IT1>
//                 <CAF version="1.0">
//                     <DA>
//                         <RE>99972220-K</RE>
//                         <RS>...</RS>
//                         <TD>34</TD>
//                         <RNG>
//                             <D>3</D>
//                             <H>12</H>
//                         </RNG>
//                         <FA>2019-10-10</FA>
//                         <RSAPK>
//                             <M>2zHVYpcVNQRvS2yFuqdrh...TEQZx/m0t9HVTgWKZvlc6LSQ==</M>
//                             <E>Aw==</E>
//                         </RSAPK>
//                         <IDK>300</IDK>
//                     </DA>
//                     <FRMA algoritmo="SHA1withRSA">LaVkjISGu...sBtsQL1jR9lw==</FRMA>
//                 </CAF>
//                 <TSTED>2020-07-17T13:19:10</TSTED>
//             </DD>
//             <FRMT algoritmo="SHA1withRSA">LxZr6zmXRZIfTz7...IXS6sp4vfz2fIsA==</FRMT>
//         </TED>
//         <TmstFirma>2020-07-17T13:19:10</TmstFirma>
//     </Documento>
// </DTE>

llSuccess = .T.

loGen = createobject("CkXmlDSigGen")

loGen.SigLocation = "DTE"
loGen.SigLocationMod = 0
loGen.SigNamespacePrefix = ""
loGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
loGen.SignedInfoCanonAlg = "C14N"
loGen.SignedInfoDigestMethod = "sha1"

// -------- Reference 1 --------
loGen.AddSameDocRef("F13T34","sha1","","","")

// Provide a certificate + private key. (PFX password is test123)
loCert = createobject("CkCert")
llSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loGen
    release loCert
    return
endif

loGen.SetX509Cert(loCert,.T.)

loGen.KeyInfoType = "X509Data+KeyValue"
loGen.X509Type = "Certificate"

// Load XML to be signed...
loSbXml = createobject("CkStringBuilder")
llSuccess = loSbXml.LoadFile("qa_data/xml_dsig/sii_cl/xmlToSign.xml","iso-8859-1")
if (llSuccess = .F.) then
    ? "Failed to load XML file."
    release loGen
    release loCert
    release loSbXml
    return
endif

loGen.Behaviors = "IndentedSignature"

// Sign the XML...
llSuccess = loGen.CreateXmlDSigSb(loSbXml)
if (llSuccess <> .T.) then
    ? loGen.LastErrorText
    release loGen
    release loCert
    release loSbXml
    return
endif

// -----------------------------------------------

// Save the signed XML to a file.
llSuccess = loSbXml.WriteFile("qa_data/xml_dsig/sii_cl/signed1.xml","iso-8859-1",.F.)

? loSbXml.GetAsString()

// ----------------------------------------
// Verify the signatures we just produced...
loVerifier = createobject("CkXmlDSig")
llSuccess = loVerifier.LoadSignatureSb(loSbXml)
if (llSuccess <> .T.) then
    ? loVerifier.LastErrorText
    release loGen
    release loCert
    release loSbXml
    release loVerifier
    return
endif

lnNumSigs = loVerifier.NumSignatures
lnVerifyIdx = 0
do while lnVerifyIdx < lnNumSigs
    loVerifier.Selector = lnVerifyIdx
    llVerified = loVerifier.VerifySignature(.T.)
    if (llVerified <> .T.) then
        ? loVerifier.LastErrorText
        release loGen
        release loCert
        release loSbXml
        release loVerifier
        return
    endif

    lnVerifyIdx = lnVerifyIdx + 1
enddo
? "All signatures were successfully verified."


release loGen
release loCert
release loSbXml
release loVerifier