(Perl) Sign Bolivia Invoice XML

See more XML Digital Signatures Examples

Demonstrates how to create an XML digital signature (XmlDSig) for a Bolivia invoice (factura).

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$success = 1;

# Create the following XML to be signed:

# <?xml version="1.0" encoding="UTF-8"?>
# <facturaElectronicaCompraVenta xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="facturaElectronicaCompraVenta.xsd">
#     <cabecera>
#         <nitEmisor>99999999</nitEmisor>
#         <razonSocialEmisor>Abc Xyz</razonSocialEmisor>
#         <municipio>Cochabamba - Cochabamba</municipio>
#         <telefono>4444444</telefono>
#         <numeroFactura>417</numeroFactura>
#         <cuf>ABABABABABABABABABABABABABABABABABABABABABABABABABABABABA</cuf>
#         <cufd>xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</cufd>
#         <codigoSucursal>0</codigoSucursal>
#         <direccion>aaa aaa aaa</direccion>
#         <codigoPuntoVenta>1</codigoPuntoVenta>
#         <fechaEmision>2023-04-13T22:43:22.417</fechaEmision>
#         <nombreRazonSocial>xyz</nombreRazonSocial>
#         <codigoTipoDocumentoIdentidad>1</codigoTipoDocumentoIdentidad>
#         <numeroDocumento>1234567</numeroDocumento>
#            <complemento xsi:nil="true"/>
#         <codigoCliente>1234567</codigoCliente>
#         <codigoMetodoPago>1</codigoMetodoPago>
#            <numeroTarjeta xsi:nil="true"/>
#         <montoTotal>22.00</montoTotal>
#         <montoTotalSujetoIva>22.00</montoTotalSujetoIva>
#         <codigoMoneda>1</codigoMoneda>
#         <tipoCambio>1.00</tipoCambio>
#         <montoTotalMoneda>22.00</montoTotalMoneda>
#            <montoGiftCard xsi:nil="true"/>
#         <descuentoAdicional>0.00</descuentoAdicional>
#            <codigoExcepcion>1</codigoExcepcion>
#            <cafc xsi:nil="true"/>
#         <leyenda>Ley N 453: El proveedor de servicios debe habilitar medios e instrumentos para efectuar consultas y reclamaciones.</leyenda>
#         <usuario>nromero</usuario>
#         <codigoDocumentoSector>1</codigoDocumentoSector>
#     </cabecera>
#     <detalle>
#         <actividadEconomica>620100</actividadEconomica>
#         <codigoProductoSin>123456</codigoProductoSin>
#         <codigoProducto>1</codigoProducto>
#         <descripcion>Economicos</descripcion>
#         <cantidad>1.00</cantidad>
#         <unidadMedida>58</unidadMedida>
#         <precioUnitario>22.00</precioUnitario>
#         <montoDescuento>0.00</montoDescuento>
#         <subTotal>22.00</subTotal>
#            <numeroSerie xsi:nil="true"/>
#            <numeroImei xsi:nil="true"/>
#     </detalle>
# </facturaElectronicaCompraVenta>

# Use this online tool to generate code from sample XML: 
# Generate Code to Create XML

$xml = chilkat::CkXml->new();
$xml->put_Tag("facturaElectronicaCompraVenta");
$xml->AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance");
$xml->AddAttribute("xsi:noNamespaceSchemaLocation","facturaElectronicaCompraVenta.xsd");
$xml->UpdateChildContent("cabecera|nitEmisor","99999999");
$xml->UpdateChildContent("cabecera|razonSocialEmisor","Abc Xyz");
$xml->UpdateChildContent("cabecera|municipio","Cochabamba - Cochabamba");
$xml->UpdateChildContent("cabecera|telefono","4444444");
$xml->UpdateChildContent("cabecera|numeroFactura","417");
$xml->UpdateChildContent("cabecera|cuf","ABABABABABABABABABABABABABABABABABABABABABABABABABABABABA");
$xml->UpdateChildContent("cabecera|cufd","xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx");
$xml->UpdateChildContent("cabecera|codigoSucursal","0");
$xml->UpdateChildContent("cabecera|direccion","aaa aaa aaa");
$xml->UpdateChildContent("cabecera|codigoPuntoVenta","1");
$xml->UpdateChildContent("cabecera|fechaEmision","2023-04-13T22:43:22.417");
$xml->UpdateChildContent("cabecera|nombreRazonSocial","xyz");
$xml->UpdateChildContent("cabecera|codigoTipoDocumentoIdentidad","1");
$xml->UpdateChildContent("cabecera|numeroDocumento","1234567");
$xml->UpdateAttrAt("cabecera|complemento",1,"xsi:nil","true");
$xml->UpdateChildContent("cabecera|codigoCliente","1234567");
$xml->UpdateChildContent("cabecera|codigoMetodoPago","1");
$xml->UpdateAttrAt("cabecera|numeroTarjeta",1,"xsi:nil","true");
$xml->UpdateChildContent("cabecera|montoTotal","22.00");
$xml->UpdateChildContent("cabecera|montoTotalSujetoIva","22.00");
$xml->UpdateChildContent("cabecera|codigoMoneda","1");
$xml->UpdateChildContent("cabecera|tipoCambio","1.00");
$xml->UpdateChildContent("cabecera|montoTotalMoneda","22.00");
$xml->UpdateAttrAt("cabecera|montoGiftCard",1,"xsi:nil","true");
$xml->UpdateChildContent("cabecera|descuentoAdicional","0.00");
$xml->UpdateChildContent("cabecera|codigoExcepcion","1");
$xml->UpdateAttrAt("cabecera|cafc",1,"xsi:nil","true");
$xml->UpdateChildContent("cabecera|leyenda","Ley N 453: El proveedor de servicios debe habilitar medios e instrumentos para efectuar consultas y reclamaciones.");
$xml->UpdateChildContent("cabecera|usuario","nromero");
$xml->UpdateChildContent("cabecera|codigoDocumentoSector","1");
$xml->UpdateChildContent("detalle|actividadEconomica","620100");
$xml->UpdateChildContent("detalle|codigoProductoSin","123456");
$xml->UpdateChildContent("detalle|codigoProducto","1");
$xml->UpdateChildContent("detalle|descripcion","Economicos");
$xml->UpdateChildContent("detalle|cantidad","1.00");
$xml->UpdateChildContent("detalle|unidadMedida","58");
$xml->UpdateChildContent("detalle|precioUnitario","22.00");
$xml->UpdateChildContent("detalle|montoDescuento","0.00");
$xml->UpdateChildContent("detalle|subTotal","22.00");
$xml->UpdateAttrAt("detalle|numeroSerie",1,"xsi:nil","true");
$xml->UpdateAttrAt("detalle|numeroImei",1,"xsi:nil","true");

$gen = chilkat::CkXmlDSigGen->new();

$gen->put_SigLocation("facturaElectronicaCompraVenta");
$gen->put_SigLocationMod(0);
$gen->put_SigNamespacePrefix("");
$gen->put_SigNamespaceUri("http://www.w3.org/2000/09/xmldsig#");
$gen->put_SignedInfoCanonAlg("C14N");
$gen->put_SignedInfoDigestMethod("sha256");

$gen->AddSameDocRef("","sha256","C14N_WithComments","","");

# Provide your certificate + private key. (PFX password is test123)
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$gen->SetX509Cert($cert,1);

$gen->put_KeyInfoType("X509Data");
$gen->put_X509Type("Certificate");

$gen->put_Behaviors("EnvelopedTransformFirst");

# Load XML to be signed...
$sbXml = chilkat::CkStringBuilder->new();
$xml->put_EmitCompact(1);
$xml->GetXmlSb($sbXml);

# Sign the XML...
$success = $gen->CreateXmlDSigSb($sbXml);
if ($success != 1) {
    print $gen->lastErrorText() . "\r\n";
    exit;
}

# -----------------------------------------------

# Save the signed XML to a file.
$success = $sbXml->WriteFile("qa_output/signedXml.xml","utf-8",1);

print $sbXml->getAsString() . "\r\n";

# ----------------------------------------
# Verify the signatures we just produced...
$verifier = chilkat::CkXmlDSig->new();
$success = $verifier->LoadSignatureSb($sbXml);
if ($success != 1) {
    print $verifier->lastErrorText() . "\r\n";
    exit;
}

$numSigs = $verifier->get_NumSignatures();
$verifyIdx = 0;
while ($verifyIdx < $numSigs) {
    $verifier->put_Selector($verifyIdx);
    $verified = $verifier->VerifySignature(1);
    if ($verified != 1) {
        print $verifier->lastErrorText() . "\r\n";
        exit;
    }

    $verifyIdx = $verifyIdx + 1;
}

print "All signatures were successfully verified." . "\r\n";