PureBasic
PureBasic
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 PureBasic Downloads
IncludeFile "CkCert.pb"
IncludeFile "CkXml.pb"
IncludeFile "CkXmlDSigGen.pb"
IncludeFile "CkStringBuilder.pb"
Procedure ChilkatExample()
success.i = 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...
xmlToSign.i = CkXml::ckCreate()
If xmlToSign.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(xmlToSign, "fe:Facturae")
CkXml::ckAddAttribute(xmlToSign,"xmlns:ds","http://www.w3.org/2000/09/xmldsig#")
CkXml::ckAddAttribute(xmlToSign,"xmlns:fe","http://www.facturae.es/Facturae/2009/v3.2/Facturae")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|SchemaVersion","3.2")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|Modality","I")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|InvoiceIssuerType","EM")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|Batch|BatchIdentifier","0000000000B2Emit-")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|Batch|InvoicesCount","1")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|Batch|TotalInvoicesAmount|TotalAmount","63.13")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|Batch|TotalOutstandingAmount|TotalAmount","63.13")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|Batch|TotalExecutableAmount|TotalAmount","63.13")
CkXml::ckUpdateChildContent(xmlToSign,"FileHeader|Batch|InvoiceCurrencyCode","EUR")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|TaxIdentification|PersonTypeCode","J")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|TaxIdentification|ResidenceTypeCode","R")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|TaxIdentification|TaxIdentificationNumber","A82735122")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|CorporateName","Company Comp SA")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|TradeName","Comp")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|RegistrationData|Book","1")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|RegistrationData|RegisterOfCompaniesLocation","12AP22")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|RegistrationData|Sheet","3")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|RegistrationData|Folio","15")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|RegistrationData|Section","2")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|RegistrationData|Volume","12")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|RegistrationData|AdditionalRegistrationData","Sin datos")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|AddressInSpain|Address","C/ Mayour 33 15 E")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|AddressInSpain|PostCode","28001")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|AddressInSpain|Town","Argamasilla de Alba")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|AddressInSpain|Province","Ciudad Real")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|AddressInSpain|CountryCode","ESP")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|ContactDetails|Telephone","917776665")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|ContactDetails|TeleFax","917776666")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|ContactDetails|WebAddress","www.facturae.es")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|ContactDetails|ElectronicMail","facturae@mityc.es")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|ContactDetails|ContactPersons","Fernando")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|ContactDetails|CnoCnae","28000")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|ContactDetails|INETownCode","2134AAB")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|SellerParty|LegalEntity|ContactDetails|AdditionalContactDetails","Otros datos")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|TaxIdentification|PersonTypeCode","F")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|TaxIdentification|ResidenceTypeCode","E")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|TaxIdentification|TaxIdentificationNumber","0000000000B")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreCode","1")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|RoleTypeCode","02")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|Name","Ruth")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|FirstSurname","Mauripo")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Address","Armenia 1922")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|PostCodeAndTown","00000 Buenos Aires")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Province","Capital Federal")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|CountryCode","ARG")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreDescription","Centro principal de recepcion")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|Individual|Name","Juana")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|Individual|FirstSurname","Mauripo")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|Individual|OverseasAddress|Address","Juncal 1315")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|Individual|OverseasAddress|PostCodeAndTown","00000 Buenos Aires")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|Individual|OverseasAddress|Province","Capital Federal")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|Individual|OverseasAddress|CountryCode","ARG")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|Individual|ContactDetails|Telephone","00547775554")
CkXml::ckUpdateChildContent(xmlToSign,"Parties|BuyerParty|Individual|ContactDetails|TeleFax","00547775555")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceHeader|InvoiceNumber","2")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceHeader|InvoiceSeriesCode","Emit-")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceHeader|InvoiceDocumentType","FC")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceHeader|InvoiceClass","OO")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|IssueDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|OperationDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PostCode","00000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PlaceOfIssueDescription","Regalos")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|StartDate","2010-03-09")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|EndDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|InvoiceCurrencyCode","EUR")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|TaxCurrencyCode","EUR")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceIssueData|LanguageName","es")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax|TaxTypeCode","01")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax|TaxRate","16.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax|TaxableBase|TotalAmount","26.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax|TaxAmount|TotalAmount","4.16")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurcharge","1.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount","0.26")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax[1]|TaxTypeCode","01")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax[1]|TaxRate","0.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesOutputs|Tax[1]|TaxableBase|TotalAmount","0.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesWithheld|Tax|TaxTypeCode","05")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesWithheld|Tax|TaxRate","4.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesWithheld|Tax|TaxableBase|TotalAmount","26.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|TaxesWithheld|Tax|TaxAmount|TotalAmount","1.04")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|TotalGrossAmount","59.75")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|TotalGeneralDiscounts","0.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|TotalGeneralSurcharges","0.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|TotalGrossAmountBeforeTaxes","59.75")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|TotalTaxOutputs","4.42")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|TotalTaxesWithheld","1.04")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|InvoiceTotal","63.13")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|TotalOutstandingAmount","63.13")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|InvoiceTotals|TotalExecutableAmount","63.13")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|IssuerContractReference","A9938281")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|IssuerContractDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|IssuerTransactionReference","A9938282")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|IssuerTransactionDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|ReceiverContractReference","BBBH-38271")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|ReceiverContractDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionReference","BBBH-38272")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|FileReference","000298172")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|FileDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|SequenceNumber","1.0")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteNumber","132413842")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteNumber","987673211")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteDate","2010-03-09")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|ItemDescription","Flores")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|Quantity","1.0")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|UnitOfMeasure","01")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|UnitPriceWithoutTax","25.000000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|TotalCost","25.000000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountReason","Descuento")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountRate","5.0000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountAmount","1.250000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeReason","Cargo")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeAmount","10.000000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|GrossAmount","33.750000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxTypeCode","01")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxRate","0.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxableBase|TotalAmount","0.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxAmount|TotalAmount","0.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|AdditionalLineItemInformation","Contacto en Neuquen: Paulita")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventCode","01")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventReason","Concepto exento por el motivo aqu definido")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine|ArticleCode","142")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|IssuerContractDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|IssuerTransactionDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|ReceiverContractDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|ReceiverTransactionDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|FileDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|SequenceNumber","2.0")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|ItemDescription","Mate")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|Quantity","2.0")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|UnitOfMeasure","01")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|UnitPriceWithoutTax","13.000000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TotalCost","26.000000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|GrossAmount","26.000000")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxTypeCode","05")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxRate","4.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxableBase|TotalAmount","26.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxAmount|TotalAmount","1.04")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxTypeCode","01")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxRate","16.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxableBase|TotalAmount","26.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxAmount|TotalAmount","4.16")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurcharge","1.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount","0.26")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|Items|InvoiceLine[1]|ArticleCode","122")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|InstallmentDueDate","2010-03-10")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|InstallmentAmount","25.00")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|PaymentMeans","19")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|IBAN","4322 3432 22 1341234212")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BankCode","4322")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BranchCode","3432")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Address","Juncal 1423 8 Z")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|PostCodeAndTown","01115 Capital Federal")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Province","Buenos Aires")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|CountryCode","ARG")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|PaymentReconciliationReference","12223")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|IBAN","1234 4312 22 33212341212314")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BankCode","1234")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BranchCode","4312")
CkXml::ckUpdateChildContent(xmlToSign,"Invoices|Invoice|PaymentDetails|Installment|DebitReconciliationReference","12223")
gen.i = CkXmlDSigGen::ckCreate()
If gen.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = 1
CkXmlDSigGen::setCkSigLocation(gen, "fe:Facturae")
CkXmlDSigGen::setCkSigLocationMod(gen, 0)
CkXmlDSigGen::setCkSigId(gen, "Signature869123")
CkXmlDSigGen::ckAddSignatureNamespace(gen,"etsi","http://uri.etsi.org/01903/v1.3.2#")
CkXmlDSigGen::setCkSigNamespacePrefix(gen, "ds")
CkXmlDSigGen::setCkSigNamespaceUri(gen, "http://www.w3.org/2000/09/xmldsig#")
CkXmlDSigGen::setCkSignedInfoId(gen, "Signature-SignedInfo241096")
CkXmlDSigGen::setCkSignedInfoCanonAlg(gen, "EXCL_C14N")
CkXmlDSigGen::setCkSignedInfoDigestMethod(gen, "sha256")
; Create an Object to be added to the Signature.
object1.i = CkXml::ckCreate()
If object1.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(object1, "xades:QualifyingProperties")
CkXml::ckAddAttribute(object1,"xmlns:xades","http://uri.etsi.org/01903/v1.3.2#")
; The Id can be any unique string..
CkXml::ckAddAttribute(object1,"Id","QualifyingProperties-e01a8fee-1bee-4ff5-9570-3d57aa02f278")
CkXml::ckAddAttribute(object1,"Target","#Signature869123")
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties",1,"Id","Signature869123-SignedProperties787205")
CkXml::ckUpdateChildContent(object1,"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
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"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")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description","Polótica de Firma FacturaE v3.1")
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue","Ohixl6upD6av8N7pEvDABhEL6hM=")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignerRole|xades:ClaimedRoles|xades:ClaimedRole","emisor")
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",1,"ObjectReference","#Reference-ID-670821")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description","Factura electrónica")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml")
CkXmlDSigGen::ckAddObject(gen,"Signature869123-Object629337",CkXml::ckGetXml(object1),"","")
CkXmlDSigGen::ckAddObjectRef(gen,"Signature869123-SignedProperties787205","sha1","","","http://uri.etsi.org/01903#SignedProperties")
CkXmlDSigGen::ckSetRefIdAttr(gen,"Signature869123-SignedProperties787205","SignedPropertiesID459347")
CkXmlDSigGen::setCkKeyInfoId(gen, "Certificate1570061")
CkXmlDSigGen::ckAddSameDocRef(gen,"Certificate1570061","sha1","","","")
CkXmlDSigGen::ckAddSameDocRef(gen,"","sha1","","","")
CkXmlDSigGen::ckSetRefIdAttr(gen,"","Reference-ID-670821")
; Provide a certificate + private key. (PFX password is test123)
cert.i = CkCert::ckCreate()
If cert.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkCert::ckLoadPfxFile(cert,"qa_data/pfx/cert_test123.pfx","test123")
If success = 0
Debug CkCert::ckLastErrorText(cert)
CkXml::ckDispose(xmlToSign)
CkXmlDSigGen::ckDispose(gen)
CkXml::ckDispose(object1)
CkCert::ckDispose(cert)
ProcedureReturn
EndIf
CkXmlDSigGen::ckSetX509Cert(gen,cert,1)
CkXmlDSigGen::setCkKeyInfoType(gen, "X509Data+KeyValue")
CkXmlDSigGen::setCkX509Type(gen, "Certificate")
; Load XML to be signed...
sbXml.i = CkStringBuilder::ckCreate()
If sbXml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::ckGetXmlSb(xmlToSign,sbXml)
CkXmlDSigGen::setCkBehaviors(gen, "CompactSignedXml")
; Sign the XML...
success = CkXmlDSigGen::ckCreateXmlDSigSb(gen,sbXml)
If success = 0
Debug CkXmlDSigGen::ckLastErrorText(gen)
CkXml::ckDispose(xmlToSign)
CkXmlDSigGen::ckDispose(gen)
CkXml::ckDispose(object1)
CkCert::ckDispose(cert)
CkStringBuilder::ckDispose(sbXml)
ProcedureReturn
EndIf
; Save the signed XMl to a file.
success = CkStringBuilder::ckWriteFile(sbXml,"qa_output/signedXml.xml","utf-8",0)
Debug CkStringBuilder::ckGetAsString(sbXml)
CkXml::ckDispose(xmlToSign)
CkXmlDSigGen::ckDispose(gen)
CkXml::ckDispose(object1)
CkCert::ckDispose(cert)
CkStringBuilder::ckDispose(sbXml)
ProcedureReturn
EndProcedure