(Visual FoxPro) 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 ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows
LOCAL lnSuccess
LOCAL lcRegistroAlta_id
LOCAL loXml
LOCAL i
LOCAL loSbSigId
LOCAL loSbSigValueId
LOCAL loSbSignedPropsId
LOCAL loSbObjectRefId
LOCAL loGen
LOCAL loObject1
LOCAL loCert
LOCAL loSbXml
LOCAL loVerifier
LOCAL lnNumSigs
LOCAL lnVerifyIdx
LOCAL lnVerified

lnSuccess = 0

lnSuccess = 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>

lcRegistroAlta_id = "001-2020003408"

loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.AddAttribute("xmlns:sum","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd")
loXml.AddAttribute("xmlns:sum1","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
loXml.AddAttribute("xmlns:xd","http://www.w3.org/2000/09/xmldsig#")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon","XYZ STORE SL")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF","B99999999")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento","3333333333")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento","S")

* This Id is URI in the XML digital signature Reference.
loXml.UpdateAttrAt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta",1,"Id",lcRegistroAlta_id)

loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDVersion","1.0")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:IDEmisorFactura","89890001K")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:NumSerieFactura","12345678-G66")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:FechaExpedicionFactura","03-02-2025")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:NombreRazonEmisor","certificado uno telematicas")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Subsanacion","N")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:RechazoPrevio","N")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoFactura","R3")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoRectificativa","I")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:IDEmisorFactura","89890001K")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:NumSerieFactura","12345600-G66")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:FechaExpedicionFactura","01-04-2024")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaOperacion","03-02-2025")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:DescripcionOperacion","fecha entrega")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NombreRazon","certificado dos telematicas")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NIF","89890002E")

i = 0
loXml.I = i
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01)
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1")
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",4)
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",10)
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida","0.4")

i = i + 1
loXml.I = i
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01)
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1")
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",21)
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100)
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",21)

i = i + 1
loXml.I = i
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",05)
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion","S1")
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",10)
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100)
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",10)

loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:CuotaTotal","41.4")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:ImporteTotal","241.4")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:IDEmisorFactura","89890001K")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:NumSerieFactura","12345677-G33")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:FechaExpedicionFactura","15-04-2024")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:Huella","C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreRazon","CERTIFICADO UNO TELEMATICAS")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NIF","89890001K")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreSistemaInformatico","NombreSistemaInformatico")
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IdSistemaInformatico",77)
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:Version","1.0.03")
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NumeroInstalacion",383)
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleSoloVerifactu","S")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleMultiOT","N")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IndicadorMultiplesOT","N")
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaHoraHusoGenRegistro","2025-02-03T14:30:00+01:00")
loXml.UpdateChildContentInt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoHuella",01)
loXml.UpdateChildContent("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Huella","FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA")

* Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
loSbSigId = CreateObject('Chilkat.StringBuilder')
loSbSigId.Append("xmldsig-")
loSbSigId.AppendUuid(1)

* Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
loSbSigValueId = CreateObject('Chilkat.StringBuilder')
loSbSigValueId.AppendSb(loSbSigId)
loSbSigValueId.Append("-sigvalue")

* Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
loSbSignedPropsId = CreateObject('Chilkat.StringBuilder')
loSbSignedPropsId.AppendSb(loSbSigId)
loSbSignedPropsId.Append("-signedprops")

* Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
loSbObjectRefId = CreateObject('Chilkat.StringBuilder')
loSbObjectRefId.AppendSb(loSbSigId)
loSbObjectRefId.Append("-ref0")

loGen = CreateObject('Chilkat.XmlDSigGen')

loGen.SigLocation = "soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta"
loGen.SigLocationMod = 0
loGen.SigId = loSbSigId.GetAsString()
loGen.SigNamespacePrefix = "ds"
loGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
loGen.SigValueId = loSbSigValueId.GetAsString()
loGen.SignedInfoCanonAlg = "C14N"
loGen.SignedInfoDigestMethod = "sha256"

* Create an Object to be added to the Signature.
loObject1 = CreateObject('Chilkat.Xml')
loObject1.Tag = "xades:QualifyingProperties"
loObject1.AddAttribute("xmlns:xades","http://uri.etsi.org/01903/v1.3.2#")
loObject1.AddAttribute("xmlns:xades141","http://uri.etsi.org/01903/v1.4.1#")

* "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
loSbSigId.Prepend("#")
loObject1.AddAttribute("Target",loSbSigId.GetAsString())

loObject1.UpdateAttrAt("xades:SignedProperties",1,"Id",loSbSignedPropsId.GetAsString())
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT")

loObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT")

loObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT")

loObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestValue","TO BE GENERATED BY CHILKAT")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509IssuerName","TO BE GENERATED BY CHILKAT")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509SerialNumber","TO BE GENERATED BY CHILKAT")

loObject1.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")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description","")
loObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",1,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue","G7roucf600+f03r/o0bAOQ6WAs0=")

loObject1.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")

loSbObjectRefId.Prepend("#")

loObject1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",1,"ObjectReference",loSbObjectRefId.GetAsString())
loObject1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml")

loGen.AddObject("",loObject1.GetXml(),"","")

* -------- Reference 1 --------
* The URI for this Reference is the registroAlta_id
loGen.AddSameDocRef(lcRegistroAlta_id,"sha256","","","")

* Remove the "#"
loSbObjectRefId.RemoveCharsAt(0,1)
loGen.SetRefIdAttr(lcRegistroAlta_id,loSbObjectRefId.GetAsString())

* -------- Reference 2 --------
loGen.AddObjectRef(loSbSignedPropsId.GetAsString(),"sha256","C14N","","http://uri.etsi.org/01903#SignedProperties")

* Provide a certificate + private key. (PFX password is test123)
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loXml
    RELEASE loSbSigId
    RELEASE loSbSigValueId
    RELEASE loSbSignedPropsId
    RELEASE loSbObjectRefId
    RELEASE loGen
    RELEASE loObject1
    RELEASE loCert
    CANCEL
ENDIF

loGen.SetX509Cert(loCert,1)

loGen.KeyInfoType = "X509Data+KeyValue"
loGen.X509Type = "Certificate"

* Load XML to be signed...
loSbXml = CreateObject('Chilkat.StringBuilder')
loXml.GetXmlSb(loSbXml)

loGen.Behaviors = "IndentedSignature,Base64Cr13Entity"

* Sign the XML...
lnSuccess = loGen.CreateXmlDSigSb(loSbXml)
IF (lnSuccess = 0) THEN
    ? loGen.LastErrorText
    RELEASE loXml
    RELEASE loSbSigId
    RELEASE loSbSigValueId
    RELEASE loSbSignedPropsId
    RELEASE loSbObjectRefId
    RELEASE loGen
    RELEASE loObject1
    RELEASE loCert
    RELEASE loSbXml
    CANCEL
ENDIF

* -----------------------------------------------

* Save the signed XML to a file.
lnSuccess = loSbXml.WriteFile("c:/temp/qa_output/signedSoapXml1.xml","utf-8",0)

? loSbXml.GetAsString()

* ----------------------------------------
* Verify the signatures we just produced...
loVerifier = CreateObject('Chilkat.XmlDSig')
lnSuccess = loVerifier.LoadSignatureSb(loSbXml)
IF (lnSuccess = 0) THEN
    ? loVerifier.LastErrorText
    RELEASE loXml
    RELEASE loSbSigId
    RELEASE loSbSigValueId
    RELEASE loSbSignedPropsId
    RELEASE loSbObjectRefId
    RELEASE loGen
    RELEASE loObject1
    RELEASE loCert
    RELEASE loSbXml
    RELEASE loVerifier
    CANCEL
ENDIF

lnNumSigs = loVerifier.NumSignatures
lnVerifyIdx = 0
DO WHILE lnVerifyIdx < lnNumSigs
    loVerifier.Selector = lnVerifyIdx
    lnVerified = loVerifier.VerifySignature(1)
    IF (lnVerified <> 1) THEN
        ? loVerifier.LastErrorText
        RELEASE loXml
        RELEASE loSbSigId
        RELEASE loSbSigValueId
        RELEASE loSbSignedPropsId
        RELEASE loSbObjectRefId
        RELEASE loGen
        RELEASE loObject1
        RELEASE loCert
        RELEASE loSbXml
        RELEASE loVerifier
        CANCEL
    ENDIF

    lnVerifyIdx = lnVerifyIdx + 1
ENDDO
? "All signatures were successfully verified."

RELEASE loXml
RELEASE loSbSigId
RELEASE loSbSigValueId
RELEASE loSbSignedPropsId
RELEASE loSbObjectRefId
RELEASE loGen
RELEASE loObject1
RELEASE loCert
RELEASE loSbXml
RELEASE loVerifier