(Visual Basic 6.0) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim success As Long
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

Dim xml As New ChilkatXml
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")

Dim gen As New ChilkatXmlDSigGen

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)
Dim cert As New ChilkatCert
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success <> 1) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

success = gen.SetX509Cert(cert,1)

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

gen.Behaviors = "EnvelopedTransformFirst"

' Load XML to be signed...
Dim sbXml As New ChilkatStringBuilder
xml.EmitCompact = 1
success = xml.GetXmlSb(sbXml)

' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success <> 1) Then
    Debug.Print gen.LastErrorText
    Exit Sub
End If

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

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

Debug.Print sbXml.GetAsString()

' ----------------------------------------
' Verify the signatures we just produced...
Dim verifier As New ChilkatXmlDSig
success = verifier.LoadSignatureSb(sbXml)
If (success <> 1) Then
    Debug.Print verifier.LastErrorText
    Exit Sub
End If

Dim numSigs As Long
numSigs = verifier.NumSignatures
Dim verifyIdx As Long
verifyIdx = 0
Do While verifyIdx < numSigs
    verifier.Selector = verifyIdx
    Dim verified As Long
    verified = verifier.VerifySignature(1)
    If (verified <> 1) Then
        Debug.Print verifier.LastErrorText
        Exit Sub
    End If

    verifyIdx = verifyIdx + 1
Loop
Debug.Print "All signatures were successfully verified."