Sample code for 30+ languages & platforms
Classic ASP

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 Classic ASP Downloads

Download Chilkat for Classic ASP
Classic ASP 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

'  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

set xml = Server.CreateObject("Chilkat.Xml")
xml.Tag = "facturaElectronicaCompraVenta"
success = xml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
success = 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"
success = xml.UpdateAttrAt("cabecera|complemento",1,"xsi:nil","true")
xml.UpdateChildContent "cabecera|codigoCliente","1234567"
xml.UpdateChildContent "cabecera|codigoMetodoPago","1"
success = 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"
success = xml.UpdateAttrAt("cabecera|montoGiftCard",1,"xsi:nil","true")
xml.UpdateChildContent "cabecera|descuentoAdicional","0.00"
xml.UpdateChildContent "cabecera|codigoExcepcion","1"
success = 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"
success = xml.UpdateAttrAt("detalle|numeroSerie",1,"xsi:nil","true")
success = xml.UpdateAttrAt("detalle|numeroImei",1,"xsi:nil","true")

set gen = Server.CreateObject("Chilkat.XmlDSigGen")

gen.SigLocation = "facturaElectronicaCompraVenta"
gen.SigLocationMod = 0
gen.SigNamespacePrefix = ""
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SignedInfoCanonAlg = "C14N"
gen.SignedInfoDigestMethod = "sha256"

success = gen.AddSameDocRef("","sha256","C14N_WithComments","","")

'  Provide your certificate + private key. (PFX password is test123)
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

success = gen.SetX509Cert(cert,1)

gen.KeyInfoType = "X509Data"
gen.X509Type = "Certificate"

gen.Behaviors = "EnvelopedTransformFirst"

'  Load XML to be signed...
set sbXml = Server.CreateObject("Chilkat.StringBuilder")
xml.EmitCompact = 1
success = xml.GetXmlSb(sbXml)

'  Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( gen.LastErrorText) & "</pre>"
    Response.End
End If

'  -----------------------------------------------

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

Response.Write "<pre>" & Server.HTMLEncode( sbXml.GetAsString()) & "</pre>"

'  ----------------------------------------
'  Verify the signatures we just produced...
set verifier = Server.CreateObject("Chilkat.XmlDSig")
success = verifier.LoadSignatureSb(sbXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( verifier.LastErrorText) & "</pre>"
    Response.End
End If

numSigs = verifier.NumSignatures
verifyIdx = 0
Do While verifyIdx < numSigs
    verifier.Selector = verifyIdx
    verified = verifier.VerifySignature(1)
    If (verified <> 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( verifier.LastErrorText) & "</pre>"
        Response.End
    End If

    verifyIdx = verifyIdx + 1
Loop
Response.Write "<pre>" & Server.HTMLEncode( "All signatures were successfully verified.") & "</pre>"

%>
</body>
</html>