Sample code for 30+ languages & platforms
Classic ASP

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 Classic ASP Downloads

Download Chilkat for Classic ASP
Classic ASP 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 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...
set xmlToSign = Server.CreateObject("Chilkat.Xml")
xmlToSign.Tag = "fe:Facturae"
success = xmlToSign.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#")
success = 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"

set gen = Server.CreateObject("Chilkat.XmlDSigGen")
success = 1

gen.SigLocation = "fe:Facturae"
gen.SigLocationMod = 0
gen.SigId = "Signature869123"
success = 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.
set object1 = Server.CreateObject("Chilkat.Xml")
object1.Tag = "xades:QualifyingProperties"
success = object1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#")
' The Id can be any unique string..
success = object1.AddAttribute("Id","QualifyingProperties-e01a8fee-1bee-4ff5-9570-3d57aa02f278")
success = object1.AddAttribute("Target","#Signature869123")
success = 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
success = 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"
success = 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"
success = 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"

success = gen.AddObject("Signature869123-Object629337",object1.GetXml(),"","")

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

gen.KeyInfoId = "Certificate1570061"
success = gen.AddSameDocRef("Certificate1570061","sha1","","","")

success = gen.AddSameDocRef("","sha1","","","")
success = gen.SetRefIdAttr("","Reference-ID-670821")

' Provide a certificate + private key. (PFX password is test123)
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

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

' Load XML to be signed...
set sbXml = Server.CreateObject("Chilkat.StringBuilder")
success = xmlToSign.GetXmlSb(sbXml)

gen.Behaviors = "CompactSignedXml"

' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( gen.LastErrorText) & "</pre>"
    Response.End
End If

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

Response.Write "<pre>" & Server.HTMLEncode( sbXml.GetAsString()) & "</pre>"

%>
</body>
</html>