PureBasic
PureBasic
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 PureBasic Downloads
IncludeFile "CkXmlDSigGen.pb"
IncludeFile "CkXml.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkXmlDSig.pb"
IncludeFile "CkCert.pb"
Procedure ChilkatExample()
success.i = 0
success = 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>
registroAlta_id.s = "001-2020003408"
xml.i = CkXml::ckCreate()
If xml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(xml, "soapenv:Envelope")
CkXml::ckAddAttribute(xml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
CkXml::ckAddAttribute(xml,"xmlns:sum","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd")
CkXml::ckAddAttribute(xml,"xmlns:sum1","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
CkXml::ckAddAttribute(xml,"xmlns:xd","http://www.w3.org/2000/09/xmldsig#")
CkXml::ckUpdateChildContent(xml,"soapenv:Header","")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon","XYZ STORE SL")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF","B99999999")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento","3333333333")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento","S")
; This Id is URI in the XML digital signature Reference.
CkXml::ckUpdateAttrAt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta",1,"Id",registroAlta_id)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDVersion","1.0")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:IDEmisorFactura","89890001K")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:NumSerieFactura","12345678-G66")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:FechaExpedicionFactura","03-02-2025")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:NombreRazonEmisor","certificado uno telematicas")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Subsanacion","N")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:RechazoPrevio","N")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoFactura","R3")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoRectificativa","I")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:IDEmisorFactura","89890001K")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:NumSerieFactura","12345600-G66")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:FechaExpedicionFactura","01-04-2024")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaOperacion","03-02-2025")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:DescripcionOperacion","fecha entrega")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NombreRazon","certificado dos telematicas")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NIF","89890002E")
i.i = 0
CkXml::setCkI(xml, i)
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1")
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",4)
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",10)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida","0.4")
i = i + 1
CkXml::setCkI(xml, i)
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1")
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",21)
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100)
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",21)
i = i + 1
CkXml::setCkI(xml, i)
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",05)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1")
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",10)
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100)
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",10)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:CuotaTotal","41.4")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:ImporteTotal","241.4")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:IDEmisorFactura","89890001K")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:NumSerieFactura","12345677-G33")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:FechaExpedicionFactura","15-04-2024")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:Huella","C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreRazon","CERTIFICADO UNO TELEMATICAS")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NIF","89890001K")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreSistemaInformatico","NombreSistemaInformatico")
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IdSistemaInformatico",77)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:Version","1.0.03")
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NumeroInstalacion",383)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleSoloVerifactu","S")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleMultiOT","N")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IndicadorMultiplesOT","N")
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaHoraHusoGenRegistro","2025-02-03T14:30:00+01:00")
CkXml::ckUpdateChildContentInt(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoHuella",01)
CkXml::ckUpdateChildContent(xml,"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Huella","FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA")
; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
sbSigId.i = CkStringBuilder::ckCreate()
If sbSigId.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkStringBuilder::ckAppend(sbSigId,"xmldsig-")
CkStringBuilder::ckAppendUuid(sbSigId,1)
; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
sbSigValueId.i = CkStringBuilder::ckCreate()
If sbSigValueId.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkStringBuilder::ckAppendSb(sbSigValueId,sbSigId)
CkStringBuilder::ckAppend(sbSigValueId,"-sigvalue")
; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
sbSignedPropsId.i = CkStringBuilder::ckCreate()
If sbSignedPropsId.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkStringBuilder::ckAppendSb(sbSignedPropsId,sbSigId)
CkStringBuilder::ckAppend(sbSignedPropsId,"-signedprops")
; Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
sbObjectRefId.i = CkStringBuilder::ckCreate()
If sbObjectRefId.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkStringBuilder::ckAppendSb(sbObjectRefId,sbSigId)
CkStringBuilder::ckAppend(sbObjectRefId,"-ref0")
gen.i = CkXmlDSigGen::ckCreate()
If gen.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXmlDSigGen::setCkSigLocation(gen, "soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta")
CkXmlDSigGen::setCkSigLocationMod(gen, 0)
CkXmlDSigGen::setCkSigId(gen, CkStringBuilder::ckGetAsString(sbSigId))
CkXmlDSigGen::setCkSigNamespacePrefix(gen, "ds")
CkXmlDSigGen::setCkSigNamespaceUri(gen, "http://www.w3.org/2000/09/xmldsig#")
CkXmlDSigGen::setCkSigValueId(gen, CkStringBuilder::ckGetAsString(sbSigValueId))
CkXmlDSigGen::setCkSignedInfoCanonAlg(gen, "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#")
CkXml::ckAddAttribute(object1,"xmlns:xades141","http://uri.etsi.org/01903/v1.4.1#")
; "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
CkStringBuilder::ckPrepend(sbSigId,"#")
CkXml::ckAddAttribute(object1,"Target",CkStringBuilder::ckGetAsString(sbSigId))
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties",1,"Id",CkStringBuilder::ckGetAsString(sbSignedPropsId))
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier","urn:oid:2.16.724.1.3.1.1.2.1.9")
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description","")
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","G7roucf600+f03r/o0bAOQ6WAs0=")
CkXml::ckUpdateChildContent(object1,"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")
CkStringBuilder::ckPrepend(sbObjectRefId,"#")
CkXml::ckUpdateAttrAt(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",1,"ObjectReference",CkStringBuilder::ckGetAsString(sbObjectRefId))
CkXml::ckUpdateChildContent(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml")
CkXmlDSigGen::ckAddObject(gen,"",CkXml::ckGetXml(object1),"","")
; -------- Reference 1 --------
; The URI for this Reference is the registroAlta_id
CkXmlDSigGen::ckAddSameDocRef(gen,registroAlta_id,"sha256","","","")
; Remove the "#"
CkStringBuilder::ckRemoveCharsAt(sbObjectRefId,0,1)
CkXmlDSigGen::ckSetRefIdAttr(gen,registroAlta_id,CkStringBuilder::ckGetAsString(sbObjectRefId))
; -------- Reference 2 --------
CkXmlDSigGen::ckAddObjectRef(gen,CkStringBuilder::ckGetAsString(sbSignedPropsId),"sha256","C14N","","http://uri.etsi.org/01903#SignedProperties")
; 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(xml)
CkStringBuilder::ckDispose(sbSigId)
CkStringBuilder::ckDispose(sbSigValueId)
CkStringBuilder::ckDispose(sbSignedPropsId)
CkStringBuilder::ckDispose(sbObjectRefId)
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(xml,sbXml)
CkXmlDSigGen::setCkBehaviors(gen, "IndentedSignature,Base64Cr13Entity")
; Sign the XML...
success = CkXmlDSigGen::ckCreateXmlDSigSb(gen,sbXml)
If success = 0
Debug CkXmlDSigGen::ckLastErrorText(gen)
CkXml::ckDispose(xml)
CkStringBuilder::ckDispose(sbSigId)
CkStringBuilder::ckDispose(sbSigValueId)
CkStringBuilder::ckDispose(sbSignedPropsId)
CkStringBuilder::ckDispose(sbObjectRefId)
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,"c:/temp/qa_output/signedSoapXml1.xml","utf-8",0)
Debug CkStringBuilder::ckGetAsString(sbXml)
; ----------------------------------------
; Verify the signatures we just produced...
verifier.i = CkXmlDSig::ckCreate()
If verifier.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkXmlDSig::ckLoadSignatureSb(verifier,sbXml)
If success = 0
Debug CkXmlDSig::ckLastErrorText(verifier)
CkXml::ckDispose(xml)
CkStringBuilder::ckDispose(sbSigId)
CkStringBuilder::ckDispose(sbSigValueId)
CkStringBuilder::ckDispose(sbSignedPropsId)
CkStringBuilder::ckDispose(sbObjectRefId)
CkXmlDSigGen::ckDispose(gen)
CkXml::ckDispose(object1)
CkCert::ckDispose(cert)
CkStringBuilder::ckDispose(sbXml)
CkXmlDSig::ckDispose(verifier)
ProcedureReturn
EndIf
numSigs.i = CkXmlDSig::ckNumSignatures(verifier)
verifyIdx.i = 0
While verifyIdx < numSigs
CkXmlDSig::setCkSelector(verifier, verifyIdx)
verified.i = CkXmlDSig::ckVerifySignature(verifier,1)
If verified <> 1
Debug CkXmlDSig::ckLastErrorText(verifier)
CkXml::ckDispose(xml)
CkStringBuilder::ckDispose(sbSigId)
CkStringBuilder::ckDispose(sbSigValueId)
CkStringBuilder::ckDispose(sbSignedPropsId)
CkStringBuilder::ckDispose(sbObjectRefId)
CkXmlDSigGen::ckDispose(gen)
CkXml::ckDispose(object1)
CkCert::ckDispose(cert)
CkStringBuilder::ckDispose(sbXml)
CkXmlDSig::ckDispose(verifier)
ProcedureReturn
EndIf
verifyIdx = verifyIdx + 1
Wend
Debug "All signatures were successfully verified."
CkXml::ckDispose(xml)
CkStringBuilder::ckDispose(sbSigId)
CkStringBuilder::ckDispose(sbSigValueId)
CkStringBuilder::ckDispose(sbSignedPropsId)
CkStringBuilder::ckDispose(sbObjectRefId)
CkXmlDSigGen::ckDispose(gen)
CkXml::ckDispose(object1)
CkCert::ckDispose(cert)
CkStringBuilder::ckDispose(sbXml)
CkXmlDSig::ckDispose(verifier)
ProcedureReturn
EndProcedure