(Delphi ActiveX) Create XAdES Facturae 3.2 Signed Invoice

See more XAdES Examples

Demonstrates how to create a factura electrónica XAdES digital signature for Gobierno de España

Note: This example requires Chilkat v9.5.0.92 or greater. Problems specific to XML signatures for FacturaE in Spain were fixed in v9.5.0.92.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
xmlToSign: TChilkatXml;
gen: TChilkatXmlDSigGen;
success: Integer;
object1: TChilkatXml;
cert: TChilkatCert;
sbXml: TChilkatStringBuilder;

begin
// ----------------------------------------------------------------------
// IMPORTANT: This generated example requires Chilkat v9.5.0.75 or later.
// Contact support@chilkatsoft.com for a pre-release.
// ----------------------------------------------------------------------

// ---
// The following source code can be generated from sample XML using the XML Signature Code Generator at chilkat.io
// ---

// IMPORTANT: This example requires Chilkat v9.5.0.92 or greater.  Problems specific to XML signatures for FacturaE in Spain were fixed in v9.5.0.92.

// Create the XML to be signed...
xmlToSign := TChilkatXml.Create(Self);
xmlToSign.Tag := 'fe:Facturae';
xmlToSign.AddAttribute('xmlns:ds','http://www.w3.org/2000/09/xmldsig#');
xmlToSign.AddAttribute('xmlns:fe','http://www.facturae.es/Facturae/2009/v3.2/Facturae');
xmlToSign.UpdateChildContent('FileHeader|SchemaVersion','3.2');
xmlToSign.UpdateChildContent('FileHeader|Modality','I');
xmlToSign.UpdateChildContent('FileHeader|InvoiceIssuerType','EM');
xmlToSign.UpdateChildContent('FileHeader|Batch|BatchIdentifier','0000000000B2Emit-');
xmlToSign.UpdateChildContent('FileHeader|Batch|InvoicesCount','1');
xmlToSign.UpdateChildContent('FileHeader|Batch|TotalInvoicesAmount|TotalAmount','63.13');
xmlToSign.UpdateChildContent('FileHeader|Batch|TotalOutstandingAmount|TotalAmount','63.13');
xmlToSign.UpdateChildContent('FileHeader|Batch|TotalExecutableAmount|TotalAmount','63.13');
xmlToSign.UpdateChildContent('FileHeader|Batch|InvoiceCurrencyCode','EUR');
xmlToSign.UpdateChildContent('Parties|SellerParty|TaxIdentification|PersonTypeCode','J');
xmlToSign.UpdateChildContent('Parties|SellerParty|TaxIdentification|ResidenceTypeCode','R');
xmlToSign.UpdateChildContent('Parties|SellerParty|TaxIdentification|TaxIdentificationNumber','A82735122');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|CorporateName','Company Comp SA');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|TradeName','Comp');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Book','1');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|RegisterOfCompaniesLocation','12AP22');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Sheet','3');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Folio','15');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Section','2');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Volume','12');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|AdditionalRegistrationData','Sin datos');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|Address','C/ Mayour 33 15 E');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|PostCode','28001');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|Town','Argamasilla de Alba');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|Province','Ciudad Real');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|CountryCode','ESP');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|Telephone','917776665');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|TeleFax','917776666');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|WebAddress','www.facturae.es');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|ElectronicMail','facturae@mityc.es');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|ContactPersons','Fernando');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|CnoCnae','28000');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|INETownCode','2134AAB');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|AdditionalContactDetails','Otros datos');
xmlToSign.UpdateChildContent('Parties|BuyerParty|TaxIdentification|PersonTypeCode','F');
xmlToSign.UpdateChildContent('Parties|BuyerParty|TaxIdentification|ResidenceTypeCode','E');
xmlToSign.UpdateChildContent('Parties|BuyerParty|TaxIdentification|TaxIdentificationNumber','0000000000B');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreCode','1');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|RoleTypeCode','02');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|Name','Ruth');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|FirstSurname','Mauripo');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Address','Armenia 1922');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|PostCodeAndTown','00000 Buenos Aires');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Province','Capital Federal');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|CountryCode','ARG');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreDescription','Centro principal de recepcion');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|Name','Juana');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|FirstSurname','Mauripo');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|OverseasAddress|Address','Juncal 1315');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|OverseasAddress|PostCodeAndTown','00000 Buenos Aires');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|OverseasAddress|Province','Capital Federal');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|OverseasAddress|CountryCode','ARG');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|ContactDetails|Telephone','00547775554');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|ContactDetails|TeleFax','00547775555');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceHeader|InvoiceNumber','2');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceHeader|InvoiceSeriesCode','Emit-');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceHeader|InvoiceDocumentType','FC');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceHeader|InvoiceClass','OO');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|IssueDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|OperationDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PostCode','00000');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PlaceOfIssueDescription','Regalos');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|StartDate','2010-03-09');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|EndDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|InvoiceCurrencyCode','EUR');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|TaxCurrencyCode','EUR');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|LanguageName','es');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|TaxTypeCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|TaxRate','16.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|TaxableBase|TotalAmount','26.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|TaxAmount|TotalAmount','4.16');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurcharge','1.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount','0.26');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax[1]|TaxTypeCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax[1]|TaxRate','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax[1]|TaxableBase|TotalAmount','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesWithheld|Tax|TaxTypeCode','05');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesWithheld|Tax|TaxRate','4.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesWithheld|Tax|TaxableBase|TotalAmount','26.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesWithheld|Tax|TaxAmount|TotalAmount','1.04');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalGrossAmount','59.75');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalGeneralDiscounts','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalGeneralSurcharges','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalGrossAmountBeforeTaxes','59.75');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalTaxOutputs','4.42');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalTaxesWithheld','1.04');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|InvoiceTotal','63.13');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalOutstandingAmount','63.13');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalExecutableAmount','63.13');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|IssuerContractReference','A9938281');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|IssuerContractDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|IssuerTransactionReference','A9938282');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|IssuerTransactionDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ReceiverContractReference','BBBH-38271');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ReceiverContractDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionReference','BBBH-38272');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|FileReference','000298172');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|FileDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|SequenceNumber','1.0');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteNumber','132413842');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteNumber','987673211');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteDate','2010-03-09');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ItemDescription','Flores');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|Quantity','1.0');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|UnitOfMeasure','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|UnitPriceWithoutTax','25.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TotalCost','25.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountReason','Descuento');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountRate','5.0000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountAmount','1.250000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeReason','Cargo');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeAmount','10.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|GrossAmount','33.750000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxTypeCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxRate','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxableBase|TotalAmount','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxAmount|TotalAmount','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|AdditionalLineItemInformation','Contacto en Neuquen: Paulita');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventReason','Concepto exento por el motivo aqu definido');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ArticleCode','142');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|IssuerContractDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|IssuerTransactionDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|ReceiverContractDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|ReceiverTransactionDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|FileDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|SequenceNumber','2.0');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|ItemDescription','Mate');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|Quantity','2.0');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|UnitOfMeasure','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|UnitPriceWithoutTax','13.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TotalCost','26.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|GrossAmount','26.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxTypeCode','05');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxRate','4.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxableBase|TotalAmount','26.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxAmount|TotalAmount','1.04');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxTypeCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxRate','16.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxableBase|TotalAmount','26.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxAmount|TotalAmount','4.16');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurcharge','1.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount','0.26');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|ArticleCode','122');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|InstallmentDueDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|InstallmentAmount','25.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|PaymentMeans','19');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|IBAN','4322 3432 22 1341234212');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BankCode','4322');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BranchCode','3432');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Address','Juncal 1423 8 Z');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|PostCodeAndTown','01115 Capital Federal');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Province','Buenos Aires');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|CountryCode','ARG');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|PaymentReconciliationReference','12223');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|IBAN','1234 4312 22 33212341212314');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BankCode','1234');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BranchCode','4312');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|DebitReconciliationReference','12223');

gen := TChilkatXmlDSigGen.Create(Self);
success := 1;

gen.SigLocation := 'fe:Facturae';
gen.SigLocationMod := 0;
gen.SigId := 'Signature869123';
gen.AddSignatureNamespace('etsi','http://uri.etsi.org/01903/v1.3.2#');
gen.SigNamespacePrefix := 'ds';
gen.SigNamespaceUri := 'http://www.w3.org/2000/09/xmldsig#';
gen.SignedInfoId := 'Signature-SignedInfo241096';
gen.SignedInfoCanonAlg := 'EXCL_C14N';
gen.SignedInfoDigestMethod := 'sha256';

// Create an Object to be added to the Signature.
object1 := TChilkatXml.Create(Self);
object1.Tag := 'xades:QualifyingProperties';
object1.AddAttribute('xmlns:xades','http://uri.etsi.org/01903/v1.3.2#');
// The Id can be any unique string..
object1.AddAttribute('Id','QualifyingProperties-e01a8fee-1bee-4ff5-9570-3d57aa02f278');
object1.AddAttribute('Target','#Signature869123');
object1.UpdateAttrAt('xades:SignedProperties',1,'Id','Signature869123-SignedProperties787205');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime','TO BE GENERATED BY CHILKAT');
// Note: It may be that http://www.w3.org/2001/04/xmlenc#sha256 is needed in the following line instead of http://www.w3.org/2000/09/xmldsig#sha1
object1.UpdateAttrAt('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod',1,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue','TO BE GENERATED BY CHILKAT');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2','TO BE GENERATED BY CHILKAT');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier','http://www.facturae.es/politica_de_firma_formato_facturae/politica_de_firma_formato_facturae_v3_1.pdf');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description','Pol�tica de Firma FacturaE v3.1');
object1.UpdateAttrAt('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod',1,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue','Ohixl6upD6av8N7pEvDABhEL6hM=');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignerRole|xades:ClaimedRoles|xades:ClaimedRole','emisor');
object1.UpdateAttrAt('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat',1,'ObjectReference','#Reference-ID-670821');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description','Factura electr�nica');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType','text/xml');

gen.AddObject('Signature869123-Object629337',object1.GetXml(),'','');

gen.AddObjectRef('Signature869123-SignedProperties787205','sha1','','','http://uri.etsi.org/01903#SignedProperties');
gen.SetRefIdAttr('Signature869123-SignedProperties787205','SignedPropertiesID459347');

gen.KeyInfoId := 'Certificate1570061';
gen.AddSameDocRef('Certificate1570061','sha1','','','');

gen.AddSameDocRef('','sha1','','','');
gen.SetRefIdAttr('','Reference-ID-670821');

// 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+KeyValue';
gen.X509Type := 'Certificate';

// Load XML to be signed...
sbXml := TChilkatStringBuilder.Create(Self);
xmlToSign.GetXmlSb(sbXml.ControlInterface);

gen.Behaviors := '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/signedXml.xml','utf-8',0);

Memo1.Lines.Add(sbXml.GetAsString());
end;