Delphi ActiveX
Delphi ActiveX
Paraguay E-Invoicing Signed XML (SIFEN)
See more XML Digital Signatures Examples
Demonstrates how to sign XML for e-invoicing -- SISTEMA INTEGRADO DE FACTURACIÓN ELECTRÓNICA NACIONAL (SIFEN). This is for signing XML files that need to be submitted to a government agency (Country Paraguay, SIFEN / EKUATIA, Sistema Nacional de Facturacion Electrónica).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;
xmlToSign: TChilkatXml;
gen: TChilkatXmlDSigGen;
xml1: TChilkatXml;
cert: TChilkatCert;
sbXml: TChilkatStringBuilder;
verifier: TChilkatXmlDSig;
numSigs: Integer;
verifyIdx: Integer;
verified: Integer;
begin
success := 0;
success := 1;
// Create the XML to be signed...
// Use this online tool to generate code from sample XML:
// Generate Code to Create XML
xmlToSign := TChilkatXml.Create(Self);
xmlToSign.Tag := 'rDE';
xmlToSign.AddAttribute('xmlns','http://ekuatia.set.gov.py/sifen/xsd');
xmlToSign.AddAttribute('xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance');
xmlToSign.AddAttribute('xsi:schemaLocation','http://ekuatia.set.gov.py/sifen/xsd siRecepDE_v150.xsd');
xmlToSign.UpdateChildContent('dVerFor','150');
xmlToSign.UpdateAttrAt('DE',1,'Id','01800228774059001001501012022091519999999990');
xmlToSign.UpdateChildContent('DE|dDVId','0');
xmlToSign.UpdateChildContent('DE|dFecFirma','2022-09-15T10:23:05');
xmlToSign.UpdateChildContent('DE|dSisFact','1');
xmlToSign.UpdateChildContent('DE|gOpeDE|iTipEmi','1');
xmlToSign.UpdateChildContent('DE|gOpeDE|dDesTipEmi','Normal');
xmlToSign.UpdateChildContent('DE|gOpeDE|dCodSeg','999999999');
xmlToSign.UpdateChildContent('DE|gOpeDE|dInfoEmi','GENERADA DE PEDIDO 131043202');
xmlToSign.UpdateChildContent('DE|gTimb|iTiDE','1');
xmlToSign.UpdateChildContent('DE|gTimb|dDesTiDE','Factura electr�nica');
xmlToSign.UpdateChildContent('DE|gTimb|dNumTim','18889014');
xmlToSign.UpdateChildContent('DE|gTimb|dEst','059');
xmlToSign.UpdateChildContent('DE|gTimb|dPunExp','001');
xmlToSign.UpdateChildContent('DE|gTimb|dNumDoc','0015010');
xmlToSign.UpdateChildContent('DE|gTimb|dFeIniT','2022-05-25');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|dFeEmiDE','2022-09-15T10:22:57');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gOpeCom|iTipTra','1');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gOpeCom|dDesTipTra','Venta de mercader�a');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gOpeCom|iTImp','1');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gOpeCom|dDesTImp','IVA');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gOpeCom|cMoneOpe','PYG');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gOpeCom|dDesMoneOpe','Guarani');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dRucEm','80022877');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dDVEmi','4');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|iTipCont','1');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|cTipReg','1');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dNomEmi','ABCDEF SA');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dNomFanEmi','ABCDEF SA');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dDirEmi','Jos� Abcde Xyz N� 666 e/Abxyz123');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dNumCas','0');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dCompDir1','N/A');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dCompDir2','N/A');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|cDepEmi','12');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dDesDepEmi','CENTRAL');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|cDisEmi','153');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dDesDisEmi','CAPIATA');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|cCiuEmi','1234');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dDesCiuEmi','CAPIATA');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dTelEmi','(022) 1111 000');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dEmailE','somebody@example.com.py');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|dDenSuc','PUNTO 99');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|gActEco|cActEco','47721');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gEmis|gActEco|dDesActEco','COMERCIO AL POR MENOR DE PRODUCTOS');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|iNatRec','1');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|iTiOpe','2');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|cPaisRec','PRY');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|dDesPaisRe','Paraguay');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|iTiContRec','2');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|dRucRec','80082971');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|dDVRec','9');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|dNomRec','XXXXXXX');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|dNomFanRec','XXXXXXX');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|dNumCasRec','0');
xmlToSign.UpdateChildContent('DE|gDatGralOpe|gDatRec|dCodCliente','9999999');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamFE|iIndPres','1');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamFE|dDesIndPres','Operaci�n presencial');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|iCondOpe','1');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|dDCondOpe','Contado');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni|iTiPago','1');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni|dDesTiPag','Efectivo');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni|dMonTiPag','100000.0000');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni|cMoneTiPag','PYG');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni|dDMoneTiPag','Guarani');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni[1]|iTiPago','1');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni[1]|dDesTiPag','Efectivo');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni[1]|dMonTiPag','73600.0000');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni[1]|cMoneTiPag','PYG');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamCond|gPaConEIni[1]|dDMoneTiPag','Guarani');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|dCodInt','818181');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|dDesProSer','Widget Abc Xyz');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|cUniMed','77');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|dDesUniMed','UNI');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|dCantProSer','2.0000');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gValorItem|dPUniProSer','16500.0000');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gValorItem|dTotBruOpeItem','33000.0000');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gValorItem|gValorRestaItem|dDescItem','3300.0000');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gValorItem|gValorRestaItem|dPorcDesIt','20.0000');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gValorItem|gValorRestaItem|dTotOpeItem','26400.0000');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gCamIVA|iAfecIVA','1');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gCamIVA|dDesAfecIVA','Gravado IVA');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gCamIVA|dPropIVA','100');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gCamIVA|dTasaIVA','5');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gCamIVA|dBasGravIVA','25142.8571');
xmlToSign.UpdateChildContent('DE|gDtipDE|gCamItem|gCamIVA|dLiqIVAItem','1257.1429');
xmlToSign.UpdateChildContent('DE|gTotSub|dSubExe','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dSub5','26400.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dSub10','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dTotOpe','26400.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dTotDesc','6600.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dTotDescGlotem','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dTotAntItem','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dTotAnt','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dPorcDescTotal','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dDescTotal','6600.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dAnticipo','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dRedon','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dTotGralOpe','26400.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dIVA5','1257.1429');
xmlToSign.UpdateChildContent('DE|gTotSub|dIVA10','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dTotIVA','1257.1429');
xmlToSign.UpdateChildContent('DE|gTotSub|dBaseGrav5','25142.8571');
xmlToSign.UpdateChildContent('DE|gTotSub|dBaseGrav10','0.0000');
xmlToSign.UpdateChildContent('DE|gTotSub|dTBasGraIVA','25142.8571');
gen := TChilkatXmlDSigGen.Create(Self);
gen.SigLocation := 'rDE';
gen.SigLocationMod := 0;
gen.SigNamespacePrefix := '';
gen.SigNamespaceUri := 'http://www.w3.org/2000/09/xmldsig#';
gen.SignedInfoCanonAlg := 'C14N';
gen.SignedInfoDigestMethod := 'sha256';
// -------- Reference 1 --------
xml1 := TChilkatXml.Create(Self);
xml1.Tag := 'Transforms';
xml1.UpdateAttrAt('Transform',1,'Algorithm','http://www.w3.org/2000/09/xmldsig#enveloped-signature');
xml1.UpdateAttrAt('Transform[1]',1,'Algorithm','http://www.w3.org/2001/10/xml-exc-c14n#');
gen.AddSameDocRef2('01800228774059001001501012022091516941989060','sha256',xml1.ControlInterface,'');
// 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 := 'Certificate';
// Load XML to be signed...
sbXml := TChilkatStringBuilder.Create(Self);
xmlToSign.GetXmlSb(sbXml.ControlInterface);
gen.Behaviors := 'IndentedSignature';
// 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('c:/temp/qa_output/signedXml.xml','utf-8',0);
Memo1.Lines.Add(sbXml.GetAsString());
// ----------------------------------------
// Verify the signatures we just produced...
verifier := TChilkatXmlDSig.Create(Self);
success := verifier.LoadSignatureSb(sbXml.ControlInterface);
if (success <> 1) then
begin
Memo1.Lines.Add(verifier.LastErrorText);
Exit;
end;
numSigs := verifier.NumSignatures;
verifyIdx := 0;
while verifyIdx < numSigs do
begin
verifier.Selector := verifyIdx;
verified := verifier.VerifySignature(1);
if (verified <> 1) then
begin
Memo1.Lines.Add(verifier.LastErrorText);
Exit;
end;
verifyIdx := verifyIdx + 1;
end;
Memo1.Lines.Add('All signatures were successfully verified.');
end;