DataFlex
DataFlex
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ñaChilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoXmlToSign
Handle hoGen
Handle hoObject1
Variant vCert
Handle hoCert
Variant vSbXml
Handle hoSbXml
String sTemp1
Move False To iSuccess
// ---
// 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...
Get Create (RefClass(cComChilkatXml)) To hoXmlToSign
If (Not(IsComObjectCreated(hoXmlToSign))) Begin
Send CreateComObject of hoXmlToSign
End
Set ComTag Of hoXmlToSign To "fe:Facturae"
Get ComAddAttribute Of hoXmlToSign "xmlns:ds" "http://www.w3.org/2000/09/xmldsig#" To iSuccess
Get ComAddAttribute Of hoXmlToSign "xmlns:fe" "http://www.facturae.es/Facturae/2009/v3.2/Facturae" To iSuccess
Send ComUpdateChildContent To hoXmlToSign "FileHeader|SchemaVersion" "3.2"
Send ComUpdateChildContent To hoXmlToSign "FileHeader|Modality" "I"
Send ComUpdateChildContent To hoXmlToSign "FileHeader|InvoiceIssuerType" "EM"
Send ComUpdateChildContent To hoXmlToSign "FileHeader|Batch|BatchIdentifier" "0000000000B2Emit-"
Send ComUpdateChildContent To hoXmlToSign "FileHeader|Batch|InvoicesCount" "1"
Send ComUpdateChildContent To hoXmlToSign "FileHeader|Batch|TotalInvoicesAmount|TotalAmount" "63.13"
Send ComUpdateChildContent To hoXmlToSign "FileHeader|Batch|TotalOutstandingAmount|TotalAmount" "63.13"
Send ComUpdateChildContent To hoXmlToSign "FileHeader|Batch|TotalExecutableAmount|TotalAmount" "63.13"
Send ComUpdateChildContent To hoXmlToSign "FileHeader|Batch|InvoiceCurrencyCode" "EUR"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|TaxIdentification|PersonTypeCode" "J"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|TaxIdentification|ResidenceTypeCode" "R"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|TaxIdentification|TaxIdentificationNumber" "A82735122"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|CorporateName" "Company Comp SA"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|TradeName" "Comp"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|RegistrationData|Book" "1"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|RegistrationData|RegisterOfCompaniesLocation" "12AP22"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|RegistrationData|Sheet" "3"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|RegistrationData|Folio" "15"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|RegistrationData|Section" "2"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|RegistrationData|Volume" "12"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|RegistrationData|AdditionalRegistrationData" "Sin datos"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|AddressInSpain|Address" "C/ Mayour 33 15 E"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|AddressInSpain|PostCode" "28001"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|AddressInSpain|Town" "Argamasilla de Alba"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|AddressInSpain|Province" "Ciudad Real"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|AddressInSpain|CountryCode" "ESP"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|ContactDetails|Telephone" "917776665"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|ContactDetails|TeleFax" "917776666"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|ContactDetails|WebAddress" "www.facturae.es"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|ContactDetails|ElectronicMail" "facturae@mityc.es"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|ContactDetails|ContactPersons" "Fernando"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|ContactDetails|CnoCnae" "28000"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|ContactDetails|INETownCode" "2134AAB"
Send ComUpdateChildContent To hoXmlToSign "Parties|SellerParty|LegalEntity|ContactDetails|AdditionalContactDetails" "Otros datos"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|TaxIdentification|PersonTypeCode" "F"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|TaxIdentification|ResidenceTypeCode" "E"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|TaxIdentification|TaxIdentificationNumber" "0000000000B"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreCode" "1"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|RoleTypeCode" "02"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|Name" "Ruth"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|FirstSurname" "Mauripo"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Address" "Armenia 1922"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|PostCodeAndTown" "00000 Buenos Aires"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Province" "Capital Federal"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|CountryCode" "ARG"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreDescription" "Centro principal de recepcion"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|Individual|Name" "Juana"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|Individual|FirstSurname" "Mauripo"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|Individual|OverseasAddress|Address" "Juncal 1315"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|Individual|OverseasAddress|PostCodeAndTown" "00000 Buenos Aires"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|Individual|OverseasAddress|Province" "Capital Federal"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|Individual|OverseasAddress|CountryCode" "ARG"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|Individual|ContactDetails|Telephone" "00547775554"
Send ComUpdateChildContent To hoXmlToSign "Parties|BuyerParty|Individual|ContactDetails|TeleFax" "00547775555"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceHeader|InvoiceNumber" "2"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceHeader|InvoiceSeriesCode" "Emit-"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceHeader|InvoiceDocumentType" "FC"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceHeader|InvoiceClass" "OO"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|IssueDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|OperationDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PostCode" "00000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PlaceOfIssueDescription" "Regalos"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|StartDate" "2010-03-09"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|EndDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|InvoiceCurrencyCode" "EUR"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|TaxCurrencyCode" "EUR"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceIssueData|LanguageName" "es"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax|TaxTypeCode" "01"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax|TaxRate" "16.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax|TaxableBase|TotalAmount" "26.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax|TaxAmount|TotalAmount" "4.16"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurcharge" "1.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount" "0.26"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax[1]|TaxTypeCode" "01"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax[1]|TaxRate" "0.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesOutputs|Tax[1]|TaxableBase|TotalAmount" "0.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesWithheld|Tax|TaxTypeCode" "05"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesWithheld|Tax|TaxRate" "4.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesWithheld|Tax|TaxableBase|TotalAmount" "26.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|TaxesWithheld|Tax|TaxAmount|TotalAmount" "1.04"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|TotalGrossAmount" "59.75"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|TotalGeneralDiscounts" "0.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|TotalGeneralSurcharges" "0.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|TotalGrossAmountBeforeTaxes" "59.75"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|TotalTaxOutputs" "4.42"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|TotalTaxesWithheld" "1.04"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|InvoiceTotal" "63.13"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|TotalOutstandingAmount" "63.13"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|InvoiceTotals|TotalExecutableAmount" "63.13"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|IssuerContractReference" "A9938281"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|IssuerContractDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|IssuerTransactionReference" "A9938282"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|IssuerTransactionDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|ReceiverContractReference" "BBBH-38271"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|ReceiverContractDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionReference" "BBBH-38272"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|FileReference" "000298172"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|FileDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|SequenceNumber" "1.0"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteNumber" "132413842"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteNumber" "987673211"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteDate" "2010-03-09"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|ItemDescription" "Flores"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|Quantity" "1.0"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|UnitOfMeasure" "01"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|UnitPriceWithoutTax" "25.000000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|TotalCost" "25.000000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountReason" "Descuento"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountRate" "5.0000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountAmount" "1.250000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeReason" "Cargo"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeAmount" "10.000000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|GrossAmount" "33.750000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxTypeCode" "01"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxRate" "0.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxableBase|TotalAmount" "0.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxAmount|TotalAmount" "0.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|AdditionalLineItemInformation" "Contacto en Neuquen: Paulita"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventCode" "01"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventReason" "Concepto exento por el motivo aqu definido"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine|ArticleCode" "142"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|IssuerContractDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|IssuerTransactionDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|ReceiverContractDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|ReceiverTransactionDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|FileDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|SequenceNumber" "2.0"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|ItemDescription" "Mate"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|Quantity" "2.0"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|UnitOfMeasure" "01"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|UnitPriceWithoutTax" "13.000000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TotalCost" "26.000000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|GrossAmount" "26.000000"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxTypeCode" "05"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxRate" "4.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxableBase|TotalAmount" "26.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxAmount|TotalAmount" "1.04"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxTypeCode" "01"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxRate" "16.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxableBase|TotalAmount" "26.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxAmount|TotalAmount" "4.16"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurcharge" "1.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount" "0.26"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|Items|InvoiceLine[1]|ArticleCode" "122"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|InstallmentDueDate" "2010-03-10"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|InstallmentAmount" "25.00"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|PaymentMeans" "19"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|IBAN" "4322 3432 22 1341234212"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BankCode" "4322"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BranchCode" "3432"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Address" "Juncal 1423 8 Z"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|PostCodeAndTown" "01115 Capital Federal"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Province" "Buenos Aires"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|CountryCode" "ARG"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|PaymentReconciliationReference" "12223"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|IBAN" "1234 4312 22 33212341212314"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BankCode" "1234"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BranchCode" "4312"
Send ComUpdateChildContent To hoXmlToSign "Invoices|Invoice|PaymentDetails|Installment|DebitReconciliationReference" "12223"
Get Create (RefClass(cComChilkatXmlDSigGen)) To hoGen
If (Not(IsComObjectCreated(hoGen))) Begin
Send CreateComObject of hoGen
End
Move True To iSuccess
Set ComSigLocation Of hoGen To "fe:Facturae"
Set ComSigLocationMod Of hoGen To 0
Set ComSigId Of hoGen To "Signature869123"
Get ComAddSignatureNamespace Of hoGen "etsi" "http://uri.etsi.org/01903/v1.3.2#" To iSuccess
Set ComSigNamespacePrefix Of hoGen To "ds"
Set ComSigNamespaceUri Of hoGen To "http://www.w3.org/2000/09/xmldsig#"
Set ComSignedInfoId Of hoGen To "Signature-SignedInfo241096"
Set ComSignedInfoCanonAlg Of hoGen To "EXCL_C14N"
Set ComSignedInfoDigestMethod Of hoGen To "sha256"
// Create an Object to be added to the Signature.
Get Create (RefClass(cComChilkatXml)) To hoObject1
If (Not(IsComObjectCreated(hoObject1))) Begin
Send CreateComObject of hoObject1
End
Set ComTag Of hoObject1 To "xades:QualifyingProperties"
Get ComAddAttribute Of hoObject1 "xmlns:xades" "http://uri.etsi.org/01903/v1.3.2#" To iSuccess
// The Id can be any unique string..
Get ComAddAttribute Of hoObject1 "Id" "QualifyingProperties-e01a8fee-1bee-4ff5-9570-3d57aa02f278" To iSuccess
Get ComAddAttribute Of hoObject1 "Target" "#Signature869123" To iSuccess
Get ComUpdateAttrAt Of hoObject1 "xades:SignedProperties" True "Id" "Signature869123-SignedProperties787205" To iSuccess
Send ComUpdateChildContent To hoObject1 "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
Get ComUpdateAttrAt Of hoObject1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod" True "Algorithm" "http://www.w3.org/2000/09/xmldsig#sha1" To iSuccess
Send ComUpdateChildContent To hoObject1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue" "TO BE GENERATED BY CHILKAT"
Send ComUpdateChildContent To hoObject1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2" "TO BE GENERATED BY CHILKAT"
Send ComUpdateChildContent To hoObject1 "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"
Send ComUpdateChildContent To hoObject1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description" "Polótica de Firma FacturaE v3.1"
Get ComUpdateAttrAt Of hoObject1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod" True "Algorithm" "http://www.w3.org/2000/09/xmldsig#sha1" To iSuccess
Send ComUpdateChildContent To hoObject1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue" "Ohixl6upD6av8N7pEvDABhEL6hM="
Send ComUpdateChildContent To hoObject1 "xades:SignedProperties|xades:SignedSignatureProperties|xades:SignerRole|xades:ClaimedRoles|xades:ClaimedRole" "emisor"
Get ComUpdateAttrAt Of hoObject1 "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat" True "ObjectReference" "#Reference-ID-670821" To iSuccess
Send ComUpdateChildContent To hoObject1 "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description" "Factura electrónica"
Send ComUpdateChildContent To hoObject1 "xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType" "text/xml"
Get ComGetXml Of hoObject1 To sTemp1
Get ComAddObject Of hoGen "Signature869123-Object629337" sTemp1 "" "" To iSuccess
Get ComAddObjectRef Of hoGen "Signature869123-SignedProperties787205" "sha1" "" "" "http://uri.etsi.org/01903#SignedProperties" To iSuccess
Get ComSetRefIdAttr Of hoGen "Signature869123-SignedProperties787205" "SignedPropertiesID459347" To iSuccess
Set ComKeyInfoId Of hoGen To "Certificate1570061"
Get ComAddSameDocRef Of hoGen "Certificate1570061" "sha1" "" "" "" To iSuccess
Get ComAddSameDocRef Of hoGen "" "sha1" "" "" "" To iSuccess
Get ComSetRefIdAttr Of hoGen "" "Reference-ID-670821" To iSuccess
// Provide a certificate + private key. (PFX password is test123)
Get Create (RefClass(cComChilkatCert)) To hoCert
If (Not(IsComObjectCreated(hoCert))) Begin
Send CreateComObject of hoCert
End
Get ComLoadPfxFile Of hoCert "qa_data/pfx/cert_test123.pfx" "test123" To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoCert To sTemp1
Showln sTemp1
Procedure_Return
End
Get pvComObject of hoCert to vCert
Get ComSetX509Cert Of hoGen vCert True To iSuccess
Set ComKeyInfoType Of hoGen To "X509Data+KeyValue"
Set ComX509Type Of hoGen To "Certificate"
// Load XML to be signed...
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbXml
If (Not(IsComObjectCreated(hoSbXml))) Begin
Send CreateComObject of hoSbXml
End
Get pvComObject of hoSbXml to vSbXml
Get ComGetXmlSb Of hoXmlToSign vSbXml To iSuccess
Set ComBehaviors Of hoGen To "CompactSignedXml"
// Sign the XML...
Get pvComObject of hoSbXml to vSbXml
Get ComCreateXmlDSigSb Of hoGen vSbXml To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoGen To sTemp1
Showln sTemp1
Procedure_Return
End
// Save the signed XMl to a file.
Get ComWriteFile Of hoSbXml "qa_output/signedXml.xml" "utf-8" False To iSuccess
Get ComGetAsString Of hoSbXml To sTemp1
Showln sTemp1
End_Procedure