Xbase++
Xbase++
Create SOAP with one VeriFactu Digitally Signed Registration Record
See more Verifactu Examples
Creates a SOAP message containing a single digitally signed invoice registration record, formatted according to the specifications for Spain's Veri*Factu system.Chilkat Xbase++ Downloads
LOCAL nSuccess
LOCAL cRegistroAlta_id
LOCAL oXml
LOCAL i
LOCAL oSbSigId
LOCAL oSbSigValueId
LOCAL oSbSignedPropsId
LOCAL oSbObjectRefId
LOCAL oGen
LOCAL oObject1
LOCAL oCert
LOCAL oSbXml
LOCAL oVerifier
LOCAL nNumSigs
LOCAL nVerifyIdx
LOCAL nVerified
nSuccess := 0
nSuccess := 1
// Create the following SOAP XML containing one Veri*Factu record to be signed...
// <?xml version="1.0" encoding="UTF-8"?>
// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:sum="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd" xmlns:sum1="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" xmlns:xd="http://www.w3.org/2000/09/xmldsig#">
// <soapenv:Header/>
// <soapenv:Body>
// <sum:RegFactuSistemaFacturacion>
// <sum:Cabecera>
// <sum1:ObligadoEmision>
// <sum1:NombreRazon>XYZ STORE SL</sum1:NombreRazon>
// <sum1:NIF>B99999999</sum1:NIF>
// </sum1:ObligadoEmision>
// <sum1:RemisionRequerimiento>
// <sum1:RefRequerimiento>3333333333</sum1:RefRequerimiento>
// <sum1:FinRequerimiento>S</sum1:FinRequerimiento>
// </sum1:RemisionRequerimiento>
// </sum:Cabecera>
// <sum:RegistroFactura>
// <sum1:RegistroAlta Id="001-2020003408">
// <sum1:IDVersion>1.0</sum1:IDVersion>
// <sum1:IDFactura>
// <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
// <sum1:NumSerieFactura>12345678-G66</sum1:NumSerieFactura>
// <sum1:FechaExpedicionFactura>03-02-2025</sum1:FechaExpedicionFactura>
// </sum1:IDFactura>
// <sum1:NombreRazonEmisor>certificado uno telematicas</sum1:NombreRazonEmisor>
// <sum1:Subsanacion>N</sum1:Subsanacion>
// <sum1:RechazoPrevio>N</sum1:RechazoPrevio>
// <sum1:TipoFactura>R3</sum1:TipoFactura>
// <sum1:TipoRectificativa>I</sum1:TipoRectificativa>
// <sum1:FacturasRectificadas>
// <sum1:IDFacturaRectificada>
// <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
// <sum1:NumSerieFactura>12345600-G66</sum1:NumSerieFactura>
// <sum1:FechaExpedicionFactura>01-04-2024</sum1:FechaExpedicionFactura>
// </sum1:IDFacturaRectificada>
// </sum1:FacturasRectificadas>
// <sum1:FechaOperacion>03-02-2025</sum1:FechaOperacion>
// <sum1:DescripcionOperacion>fecha entrega</sum1:DescripcionOperacion>
// <sum1:Destinatarios>
// <sum1:IDDestinatario>
// <sum1:NombreRazon>certificado dos telematicas</sum1:NombreRazon>
// <sum1:NIF>89890002E</sum1:NIF>
// </sum1:IDDestinatario>
// </sum1:Destinatarios>
// <sum1:Desglose>
// <sum1:DetalleDesglose>
// <sum1:ClaveRegimen>01</sum1:ClaveRegimen>
// <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
// <sum1:TipoImpositivo>4</sum1:TipoImpositivo>
// <sum1:BaseImponibleOimporteNoSujeto>10</sum1:BaseImponibleOimporteNoSujeto>
// <sum1:CuotaRepercutida>0.4</sum1:CuotaRepercutida>
// </sum1:DetalleDesglose>
// <sum1:DetalleDesglose>
// <sum1:ClaveRegimen>01</sum1:ClaveRegimen>
// <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
// <sum1:TipoImpositivo>21</sum1:TipoImpositivo>
// <sum1:BaseImponibleOimporteNoSujeto>100</sum1:BaseImponibleOimporteNoSujeto>
// <sum1:CuotaRepercutida>21</sum1:CuotaRepercutida>
// </sum1:DetalleDesglose>
// <sum1:DetalleDesglose>
// <sum1:ClaveRegimen>05</sum1:ClaveRegimen>
// <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
// <sum1:TipoImpositivo>10</sum1:TipoImpositivo>
// <sum1:BaseImponibleOimporteNoSujeto>100</sum1:BaseImponibleOimporteNoSujeto>
// <sum1:CuotaRepercutida>10</sum1:CuotaRepercutida>
// </sum1:DetalleDesglose>
// </sum1:Desglose>
// <sum1:CuotaTotal>41.4</sum1:CuotaTotal>
// <sum1:ImporteTotal>241.4</sum1:ImporteTotal>
// <sum1:Encadenamiento>
// <sum1:RegistroAnterior>
// <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
// <sum1:NumSerieFactura>12345677-G33</sum1:NumSerieFactura>
// <sum1:FechaExpedicionFactura>15-04-2024</sum1:FechaExpedicionFactura>
// <sum1:Huella>C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5</sum1:Huella>
// </sum1:RegistroAnterior>
// </sum1:Encadenamiento>
// <sum1:SistemaInformatico>
// <sum1:NombreRazon>CERTIFICADO UNO TELEMATICAS</sum1:NombreRazon>
// <sum1:NIF>89890001K</sum1:NIF>
// <sum1:NombreSistemaInformatico>NombreSistemaInformatico</sum1:NombreSistemaInformatico>
// <sum1:IdSistemaInformatico>77</sum1:IdSistemaInformatico>
// <sum1:Version>1.0.03</sum1:Version>
// <sum1:NumeroInstalacion>383</sum1:NumeroInstalacion>
// <sum1:TipoUsoPosibleSoloVerifactu>S</sum1:TipoUsoPosibleSoloVerifactu>
// <sum1:TipoUsoPosibleMultiOT>N</sum1:TipoUsoPosibleMultiOT>
// <sum1:IndicadorMultiplesOT>N</sum1:IndicadorMultiplesOT>
// </sum1:SistemaInformatico>
// <sum1:FechaHoraHusoGenRegistro>2025-02-03T14:30:00+01:00</sum1:FechaHoraHusoGenRegistro>
// <sum1:TipoHuella>01</sum1:TipoHuella>
// <sum1:Huella>FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA</sum1:Huella>
// </sum1:RegistroAlta>
// </sum:RegistroFactura>
// </sum:RegFactuSistemaFacturacion>
// </soapenv:Body>
// </soapenv:Envelope>
cRegistroAlta_id := "001-2020003408"
oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "soapenv:Envelope"
oXml:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXml:AddAttribute("xmlns:sum", "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd")
oXml:AddAttribute("xmlns:sum1", "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
oXml:AddAttribute("xmlns:xd", "http://www.w3.org/2000/09/xmldsig#")
oXml:UpdateChildContent("soapenv:Header", "")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon", "XYZ STORE SL")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF", "B99999999")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento", "3333333333")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento", "S")
// This Id is URI in the XML digital signature Reference.
oXml:UpdateAttrAt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta", 1, "Id", cRegistroAlta_id)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDVersion", "1.0")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:IDEmisorFactura", "89890001K")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:NumSerieFactura", "12345678-G66")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:FechaExpedicionFactura", "03-02-2025")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:NombreRazonEmisor", "certificado uno telematicas")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Subsanacion", "N")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:RechazoPrevio", "N")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoFactura", "R3")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoRectificativa", "I")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:IDEmisorFactura", "89890001K")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:NumSerieFactura", "12345600-G66")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:FechaExpedicionFactura", "01-04-2024")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaOperacion", "03-02-2025")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:DescripcionOperacion", "fecha entrega")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NombreRazon", "certificado dos telematicas")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NIF", "89890002E")
i := 0
oXml:I := i
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen", 01)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion", "S1")
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo", 4)
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto", 10)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida", "0.4")
i := i + 1
oXml:I := i
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen", 01)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion", "S1")
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo", 21)
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto", 100)
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida", 21)
i := i + 1
oXml:I := i
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen", 05)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion", "S1")
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo", 10)
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto", 100)
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida", 10)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:CuotaTotal", "41.4")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:ImporteTotal", "241.4")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:IDEmisorFactura", "89890001K")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:NumSerieFactura", "12345677-G33")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:FechaExpedicionFactura", "15-04-2024")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:Huella", "C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreRazon", "CERTIFICADO UNO TELEMATICAS")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NIF", "89890001K")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreSistemaInformatico", "NombreSistemaInformatico")
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IdSistemaInformatico", 77)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:Version", "1.0.03")
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NumeroInstalacion", 383)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleSoloVerifactu", "S")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleMultiOT", "N")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IndicadorMultiplesOT", "N")
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaHoraHusoGenRegistro", "2025-02-03T14:30:00+01:00")
oXml:UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoHuella", 01)
oXml:UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Huella", "FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA")
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
oSbSigId := CreateObject("Chilkat.StringBuilder")
oSbSigId:Append("xmldsig-")
oSbSigId:AppendUuid(1)
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
oSbSigValueId := CreateObject("Chilkat.StringBuilder")
oSbSigValueId:AppendSb(oSbSigId)
oSbSigValueId:Append("-sigvalue")
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
oSbSignedPropsId := CreateObject("Chilkat.StringBuilder")
oSbSignedPropsId:AppendSb(oSbSigId)
oSbSignedPropsId:Append("-signedprops")
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
oSbObjectRefId := CreateObject("Chilkat.StringBuilder")
oSbObjectRefId:AppendSb(oSbSigId)
oSbObjectRefId:Append("-ref0")
oGen := CreateObject("Chilkat.XmlDSigGen")
oGen:SigLocation := "soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta"
oGen:SigLocationMod := 0
oGen:SigId := oSbSigId:GetAsString()
oGen:SigNamespacePrefix := "ds"
oGen:SigNamespaceUri := "http://www.w3.org/2000/09/xmldsig#"
oGen:SigValueId := oSbSigValueId:GetAsString()
oGen:SignedInfoCanonAlg := "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#")
oObject1:AddAttribute("xmlns:xades141", "http://uri.etsi.org/01903/v1.4.1#")
// "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
oSbSigId:Prepend("#")
oObject1:AddAttribute("Target", oSbSigId:GetAsString())
oObject1:UpdateAttrAt("xades:SignedProperties", 1, "Id", oSbSignedPropsId:GetAsString())
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod", 1, "Algorithm", "http://www.w3.org/2000/09/xmldsig#sha1")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestMethod", 1, "Algorithm", "http://www.w3.org/2000/09/xmldsig#sha1")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestValue", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509IssuerName", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509SerialNumber", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestMethod", 1, "Algorithm", "http://www.w3.org/2000/09/xmldsig#sha1")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestValue", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509IssuerName", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509SerialNumber", "TO BE GENERATED BY CHILKAT")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier", "urn:oid:2.16.724.1.3.1.1.2.1.9")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description", "")
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", "G7roucf600+f03r/o0bAOQ6WAs0=")
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI", "https://sede.administracion.gob.es/politica_de_firma_anexo_1.pdf")
oSbObjectRefId:Prepend("#")
oObject1:UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat", 1, "ObjectReference", oSbObjectRefId:GetAsString())
oObject1:UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType", "text/xml")
oGen:AddObject("", oObject1:GetXml(), "", "")
// -------- Reference 1 --------
// The URI for this Reference is the registroAlta_id
oGen:AddSameDocRef(cRegistroAlta_id, "sha256", "", "", "")
// Remove the "#"
oSbObjectRefId:RemoveCharsAt(0, 1)
oGen:SetRefIdAttr(cRegistroAlta_id, oSbObjectRefId:GetAsString())
// -------- Reference 2 --------
oGen:AddObjectRef(oSbSignedPropsId:GetAsString(), "sha256", "C14N", "", "http://uri.etsi.org/01903#SignedProperties")
// 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
oXml:destroy()
oSbSigId:destroy()
oSbSigValueId:destroy()
oSbSignedPropsId:destroy()
oSbObjectRefId: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")
oXml:GetXmlSb(oSbXml)
oGen:Behaviors := "IndentedSignature,Base64Cr13Entity"
// Sign the XML...
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess == 0)
? oGen:LastErrorText
oXml:destroy()
oSbSigId:destroy()
oSbSigValueId:destroy()
oSbSignedPropsId:destroy()
oSbObjectRefId:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
RETURN
ENDIF
// -----------------------------------------------
// Save the signed XML to a file.
nSuccess := oSbXml:WriteFile("c:/temp/qa_output/signedSoapXml1.xml", "utf-8", 0)
? oSbXml:GetAsString()
// ----------------------------------------
// Verify the signatures we just produced...
oVerifier := CreateObject("Chilkat.XmlDSig")
nSuccess := oVerifier:LoadSignatureSb(oSbXml)
IF (nSuccess == 0)
? oVerifier:LastErrorText
oXml:destroy()
oSbSigId:destroy()
oSbSigValueId:destroy()
oSbSignedPropsId:destroy()
oSbObjectRefId:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
oVerifier:destroy()
RETURN
ENDIF
nNumSigs := oVerifier:NumSignatures
nVerifyIdx := 0
DO WHILE nVerifyIdx < nNumSigs
oVerifier:Selector := nVerifyIdx
nVerified := oVerifier:VerifySignature(1)
IF (nVerified != 1)
? oVerifier:LastErrorText
oXml:destroy()
oSbSigId:destroy()
oSbSigValueId:destroy()
oSbSignedPropsId:destroy()
oSbObjectRefId:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
oVerifier:destroy()
RETURN
ENDIF
nVerifyIdx := nVerifyIdx + 1
ENDDO
? "All signatures were successfully verified."
oXml:destroy()
oSbSigId:destroy()
oSbSigValueId:destroy()
oSbSignedPropsId:destroy()
oSbObjectRefId:destroy()
oGen:destroy()
oObject1:destroy()
oCert:destroy()
oSbXml:destroy()
oVerifier:destroy()