Sample code for 30+ languages & platforms
Xbase++ 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 Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oXmlToSign
LOCAL oGen
LOCAL oObject1
LOCAL oCert
LOCAL oSbXml

nSuccess := 0

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

oGen := CreateObject("Chilkat.XmlDSigGen")
nSuccess := 1

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

//  Create an Object to be added to the Signature.
oObject1 := CreateObject("Chilkat.Xml")
oObject1:Tag := "xades:QualifyingProperties"
oObject1:AddAttribute("xmlns:xades", "http://uri.etsi.org/01903/v1.3.2#")
//  The Id can be any unique string..
oObject1:AddAttribute("Id", "QualifyingProperties-e01a8fee-1bee-4ff5-9570-3d57aa02f278")
oObject1:AddAttribute("Target", "#Signature869123")
oObject1:UpdateAttrAt("xades:SignedProperties", 1, "Id", "Signature869123-SignedProperties787205")
oObject1: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
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod", 1, "Algorithm", "http://www.w3.org/2000/09/xmldsig#sha1")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2", "TO BE GENERATED BY CHILKAT")
oObject1: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")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description", "Polótica de Firma FacturaE v3.1")
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod", 1, "Algorithm", "http://www.w3.org/2000/09/xmldsig#sha1")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue", "Ohixl6upD6av8N7pEvDABhEL6hM=")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignerRole|xades:ClaimedRoles|xades:ClaimedRole", "emisor")
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat", 1, "ObjectReference", "#Reference-ID-670821")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description", "Factura electrónica")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType", "text/xml")

oGen:AddObject("Signature869123-Object629337", oObject1:GetXml(), "", "")

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

oGen:KeyInfoId := "Certificate1570061"
oGen:AddSameDocRef("Certificate1570061", "sha1", "", "", "")

oGen:AddSameDocRef("", "sha1", "", "", "")
oGen:SetRefIdAttr("", "Reference-ID-670821")

//  Provide a certificate + private key. (PFX password is test123)
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
IF (nSuccess == 0)
    ? oCert:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oObject1:destroy()
    oCert:destroy()
    RETURN
ENDIF

oGen:SetX509Cert(oCert, 1)
oGen:KeyInfoType := "X509Data+KeyValue"
oGen:X509Type := "Certificate"

//  Load XML to be signed...
oSbXml := CreateObject("Chilkat.StringBuilder")
oXmlToSign:GetXmlSb(oSbXml)

oGen:Behaviors := "CompactSignedXml"

//  Sign the XML...
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess == 0)
    ? oGen:LastErrorText
    oXmlToSign:destroy()
    oGen:destroy()
    oObject1:destroy()
    oCert:destroy()
    oSbXml:destroy()
    RETURN
ENDIF

//  Save the signed XMl to a file.
nSuccess := oSbXml:WriteFile("qa_output/signedXml.xml", "utf-8", 0)

? oSbXml:GetAsString()

oXmlToSign:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()