Delphi ActiveX
Delphi ActiveX
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 Delphi ActiveX Downloads
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;
...
procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
gen: TChilkatXmlDSigGen;
cert: TChilkatCert;
sbXml: TChilkatStringBuilder;
begin
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>
gen := TChilkatXmlDSigGen.Create(Self);
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 --------
gen.AddSameDocRef('','sha1','C14N','','');
// Provide a certificate + private key. (PFX password is test123)
cert := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('qa_data/pfx/cert_test123.pfx','test123');
if (success <> 1) then
begin
Memo1.Lines.Add(cert.LastErrorText);
Exit;
end;
gen.SetX509Cert(cert.ControlInterface,1);
gen.KeyInfoType := 'X509Data';
gen.X509Type := 'IssuerSerial';
// Load XML to be signed...
sbXml := TChilkatStringBuilder.Create(Self);
success := sbXml.LoadFile('qa_data/cfe.dgi.gub.uy/sample.xml','utf-8');
if (success = 0) then
begin
Memo1.Lines.Add('Failed to load input XML document.');
Exit;
end;
gen.Behaviors := 'IndentedSignature,CompactSignedXml';
// Sign the XML...
success := gen.CreateXmlDSigSb(sbXml.ControlInterface);
if (success <> 1) then
begin
Memo1.Lines.Add(gen.LastErrorText);
Exit;
end;
// -----------------------------------------------
// Save the signed XML to a file.
success := sbXml.WriteFile('qa_output/signed.xml','utf-8',0);
Memo1.Lines.Add(sbXml.GetAsString());
end;