Sample code for 30+ languages & platforms
B4X Requires Chilkat v9.5.0.92+

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

Chilkat B4X Downloads

Download Chilkat for B4X
B4X 
Dim success As Boolean = False

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

'  Create the XML to be signed...
Dim xmlToSign As ChilkatXml
xmlToSign.Initialize
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")

Dim gen As ChilkatXmlDSigGen
gen.Initialize("gen")
success = True

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.
Dim object1 As ChilkatXml
object1.Initialize
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", True, "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", True, "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", True, "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", True, "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)
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


gen.SetX509Cert(cert, True)
gen.KeyInfoType = "X509Data+KeyValue"
gen.X509Type = "Certificate"

'  Load XML to be signed...
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
xmlToSign.GetXmlSb(sbXml)

gen.Behaviors = "CompactSignedXml"

'  Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If success = False Then
    Log(gen.LastErrorText)
    Return
End If


'  Save the signed XMl to a file.
success = sbXml.WriteFile("qa_output/signedXml.xml", "utf-8", False)

Log(sbXml.GetAsString)