VBScript
VBScript
Sign XML for eFactura DGI Uruguay (cfe.dgi.gub.uy)
See more XAdES Examples
Demonstrates how to sign XML for eFactura DGI (Uruguay, cfe.dgi.gub.uy).Chilkat VBScript Downloads
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)
success = 0
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
success = 1
' <?xml version="1.0" encoding="utf-8"?>
' <DGICFE:EnvioCFE version="1.0" xsi:schemaLocation="http://cfe.dgi.gub.uy EnvioCFE_v1.30.xsd" xmlns:DGICFE="http://cfe.dgi.gub.uy" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
' <DGICFE:Caratula version="1.0">
' <DGICFE:RutReceptor>...</DGICFE:RutReceptor>
' <DGICFE:RUCEmisor>...</DGICFE:RUCEmisor>
' <DGICFE:Idemisor>...</DGICFE:Idemisor>
' <DGICFE:CantCFE>1</DGICFE:CantCFE>
' <DGICFE:Fecha>2020-07-29T08:24:34-03:00</DGICFE:Fecha>
' <DGICFE:X509Certificate>MIIGc...UJwsTEnI
' </DGICFE:X509Certificate>
' </DGICFE:Caratula>
' <CFE xmlns="http://cfe.dgi.gub.uy" version="1.0">
' <eFact>
' <TmstFirma>2020-07-21T12:34:01-03:00</TmstFirma>
' <Encabezado>
' <IdDoc>
' <TipoCFE>111</TipoCFE>
' <Serie>A</Serie>
' <Nro>...</Nro>
' <FchEmis>2020-07-21</FchEmis>
' <FmaPago>2</FmaPago>
' <FchVenc>2020-09-19</FchVenc>
' </IdDoc>
' <Emisor>
' <RUCEmisor>...</RUCEmisor>
' <RznSoc>...</RznSoc>
' <NomComercial>...</NomComercial>
' <GiroEmis>...</GiroEmis>
' <Telefono>(598)...</Telefono>
' <Telefono>(598)...</Telefono>
' <CorreoEmisor>...</CorreoEmisor>
' <EmiSucursal>...</EmiSucursal>
' <CdgDGISucur>7</CdgDGISucur>
' <DomFiscal>...</DomFiscal>
' <Ciudad>Montevideo</Ciudad>
' <Departamento>Montevideo</Departamento>
' </Emisor>
' <Receptor>
' <TipoDocRecep>2</TipoDocRecep>
' <CodPaisRecep>UY</CodPaisRecep>
' <DocRecep>...</DocRecep>
' <RznSocRecep>...</RznSocRecep>
' <DirRecep>...</DirRecep>
' <CiudadRecep>...</CiudadRecep>
' <DeptoRecep>...</DeptoRecep>
' <PaisRecep/>
' <CP>...</CP>
' <InfoAdicional/>
' <LugarDestEnt>...</LugarDestEnt>
' <CompraID>...</CompraID>
' </Receptor>
' <Totales>
' <TpoMoneda>UYU</TpoMoneda>
' <MntNoGrv>0.00</MntNoGrv>
' <MntExpoyAsim>0.00</MntExpoyAsim>
' <MntImpuestoPerc>0.00</MntImpuestoPerc>
' <MntIVaenSusp>0.00</MntIVaenSusp>
' <MntNetoIvaTasaMin>2701.71</MntNetoIvaTasaMin>
' <MntNetoIVATasaBasica>0.00</MntNetoIVATasaBasica>
' <MntNetoIVAOtra>0.00</MntNetoIVAOtra>
' <IVATasaMin>10.00</IVATasaMin>
' <IVATasaBasica>22.00</IVATasaBasica>
' <MntIVATasaMin>270.17</MntIVATasaMin>
' <MntIVATasaBasica>0.00</MntIVATasaBasica>
' <MntIVAOtra>0.00</MntIVAOtra>
' <MntTotal>2971.88</MntTotal>
' <MntTotRetenido>0.00</MntTotRetenido>
' <CantLinDet>1</CantLinDet>
' <MontoNF>0.11</MontoNF>
' <MntPagar>2971.99</MntPagar>
' </Totales>
' </Encabezado>
' <Detalle>
' <Item>
' <NroLinDet>1</NroLinDet>
' <IndFact>2</IndFact>
' <NomItem>...</NomItem>
' <DscItem>...</DscItem>
' <Cantidad>4.000</Cantidad>
' <UniMed/>
' <PrecioUnitario>662.185000</PrecioUnitario>
' <DescuentoPct>0.000</DescuentoPct>
' <DescuentoMonto>0.00</DescuentoMonto>
' <RecargoPct>2.000</RecargoPct>
' <RecargoMnt>52.97</RecargoMnt>
' <MontoItem>2701.71</MontoItem>
' </Item>
' </Detalle>
' <CAEData>
' <CAE_ID>90200658285</CAE_ID>
' <DNro>1015000</DNro>
' <HNro>1016999</HNro>
' <FecVenc>2022-05-07</FecVenc>
' </CAEData>
' </eFact>
' </CFE>
' </DGICFE:EnvioCFE>
set gen = CreateObject("Chilkat.XmlDSigGen")
gen.SigLocation = "DGICFE:EnvioCFE|CFE"
gen.SigLocationMod = 0
gen.SigNamespacePrefix = ""
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
gen.SignedInfoCanonAlg = "C14N"
gen.SignedInfoDigestMethod = "sha1"
' -------- Reference 1 --------
success = gen.AddSameDocRef("","sha1","C14N","","")
' Provide a certificate + private key. (PFX password is test123)
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success <> 1) Then
outFile.WriteLine(cert.LastErrorText)
WScript.Quit
End If
success = gen.SetX509Cert(cert,1)
gen.KeyInfoType = "X509Data"
gen.X509Type = "IssuerSerial"
' Load XML to be signed...
set sbXml = CreateObject("Chilkat.StringBuilder")
success = sbXml.LoadFile("qa_data/cfe.dgi.gub.uy/sample.xml","utf-8")
If (success = 0) Then
outFile.WriteLine("Failed to load input XML document.")
WScript.Quit
End If
gen.Behaviors = "IndentedSignature,CompactSignedXml"
' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success <> 1) Then
outFile.WriteLine(gen.LastErrorText)
WScript.Quit
End If
' -----------------------------------------------
' Save the signed XML to a file.
success = sbXml.WriteFile("qa_output/signed.xml","utf-8",0)
outFile.WriteLine(sbXml.GetAsString())
outFile.Close