(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# ----------------------------------------------------------------------
# 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 = chilkat::CkXml->new();
$xmlToSign->put_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 = chilkat::CkXmlDSigGen->new();
$success = 1;

$gen->put_SigLocation("fe:Facturae");
$gen->put_SigLocationMod(0);
$gen->put_SigId("Signature869123");
$gen->AddSignatureNamespace("etsi","http://uri.etsi.org/01903/v1.3.2#");
$gen->put_SigNamespacePrefix("ds");
$gen->put_SigNamespaceUri("http://www.w3.org/2000/09/xmldsig#");
$gen->put_SignedInfoId("Signature-SignedInfo241096");
$gen->put_SignedInfoCanonAlg("EXCL_C14N");
$gen->put_SignedInfoDigestMethod("sha256");

# Create an Object to be added to the Signature.
$object1 = chilkat::CkXml->new();
$object1->put_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->put_KeyInfoId("Certificate1570061");
$gen->AddSameDocRef("Certificate1570061","sha1","","","");

$gen->AddSameDocRef("","sha1","","","");
$gen->SetRefIdAttr("","Reference-ID-670821");

# Provide a certificate + private key. (PFX password is test123)
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$gen->SetX509Cert($cert,1);
$gen->put_KeyInfoType("X509Data+KeyValue");
$gen->put_X509Type("Certificate");

# Load XML to be signed...
$sbXml = chilkat::CkStringBuilder->new();
$xmlToSign->GetXmlSb($sbXml);

$gen->put_Behaviors("CompactSignedXml");

# Sign the XML...
$success = $gen->CreateXmlDSigSb($sbXml);
if ($success != 1) {
    print $gen->lastErrorText() . "\r\n";
    exit;
}

# Save the signed XMl to a file.
$success = $sbXml->WriteFile("qa_output/signedXml.xml","utf-8",0);

print $sbXml->getAsString() . "\r\n";