B4X

Sign Bolivia Invoice XML

See more XML Digital Signatures Examples

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

Dim success As Boolean = False

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

success = True

'  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 ChilkatXml
xml.Initialize
xml.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", True, "xsi:nil", "true")
xml.UpdateChildContent("cabecera|codigoCliente", "1234567")
xml.UpdateChildContent("cabecera|codigoMetodoPago", "1")
xml.UpdateAttrAt("cabecera|numeroTarjeta", True, "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", True, "xsi:nil", "true")
xml.UpdateChildContent("cabecera|descuentoAdicional", "0.00")
xml.UpdateChildContent("cabecera|codigoExcepcion", "1")
xml.UpdateAttrAt("cabecera|cafc", True, "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", True, "xsi:nil", "true")
xml.UpdateAttrAt("detalle|numeroImei", True, "xsi:nil", "true")

Dim gen As ChilkatXmlDSigGen
gen.Initialize("gen")

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

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

'  Provide your certificate + private key. (PFX password is test123)
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
If success <> True Then
    Log(cert.LastErrorText)
    Return
End If

gen.SetX509Cert(cert, True)

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

gen.Behaviors = "EnvelopedTransformFirst"

'  Load XML to be signed...
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
xml.EmitCompact = True
xml.GetXmlSb(sbXml)

'  Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If success <> True Then
    Log(gen.LastErrorText)
    Return
End If

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

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

Log(sbXml.GetAsString)

'  ----------------------------------------
'  Verify the signatures we just produced...
Dim verifier As ChilkatXmlDSig
verifier.Initialize
success = verifier.LoadSignatureSb(sbXml)
If success <> True Then
    Log(verifier.LastErrorText)
    Return
End If


Dim numSigs As Int = verifier.NumSignatures
Dim verifyIdx As Int = 0
Do While verifyIdx < numSigs
    verifier.Selector = verifyIdx
    Dim verified As Boolean = verifier.VerifySignature(True)
    If verified <> True Then
        Log(verifier.LastErrorText)
        Return
    End If

    verifyIdx = verifyIdx + 1
Loop
Log("All signatures were successfully verified.")