Sample code for 30+ languages & platforms
B4X

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 B4X Downloads

Download Chilkat for B4X
B4X 
Dim success As Boolean = False

success = True

'  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>

Dim registroAlta_id As String = "001-2020003408"

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

'  This Id is URI in the XML digital signature Reference.
xml.UpdateAttrAt("soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta", True, "Id", registroAlta_id)

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

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

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

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

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

'  Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
Dim sbSigId As ChilkatStringBuilder
sbSigId.Initialize
sbSigId.Append("xmldsig-")
sbSigId.AppendUuid(True)

'  Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
Dim sbSigValueId As ChilkatStringBuilder
sbSigValueId.Initialize
sbSigValueId.AppendSb(sbSigId)
sbSigValueId.Append("-sigvalue")

'  Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
Dim sbSignedPropsId As ChilkatStringBuilder
sbSignedPropsId.Initialize
sbSignedPropsId.AppendSb(sbSigId)
sbSignedPropsId.Append("-signedprops")

'  Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
Dim sbObjectRefId As ChilkatStringBuilder
sbObjectRefId.Initialize
sbObjectRefId.AppendSb(sbSigId)
sbObjectRefId.Append("-ref0")

Dim gen As ChilkatXmlDSigGen
gen.Initialize("gen")

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

'  Create an Object to be added to the Signature.
Dim object1 As ChilkatXml
object1.Initialize
object1.Tag = "xades:QualifyingProperties"
object1.AddAttribute("xmlns:xades", "http://uri.etsi.org/01903/v1.3.2#")
object1.AddAttribute("xmlns:xades141", "http://uri.etsi.org/01903/v1.4.1#")

'  "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
sbSigId.Prepend("#")
object1.AddAttribute("Target", sbSigId.GetAsString)

object1.UpdateAttrAt("xades:SignedProperties", True, "Id", sbSignedPropsId.GetAsString)
object1.UpdateChildContent("xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime", "TO BE GENERATED BY CHILKAT")

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

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

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

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

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

sbObjectRefId.Prepend("#")

object1.UpdateAttrAt("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat", True, "ObjectReference", sbObjectRefId.GetAsString)
object1.UpdateChildContent("xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType", "text/xml")

gen.AddObject("", object1.GetXml, "", "")

'  -------- Reference 1 --------
'  The URI for this Reference is the registroAlta_id
gen.AddSameDocRef(registroAlta_id, "sha256", "", "", "")

'  Remove the "#"
sbObjectRefId.RemoveCharsAt(0, 1)
gen.SetRefIdAttr(registroAlta_id, sbObjectRefId.GetAsString)

'  -------- Reference 2 --------
gen.AddObjectRef(sbSignedPropsId.GetAsString, "sha256", "C14N", "", "http://uri.etsi.org/01903#SignedProperties")

'  Provide a certificate + private key. (PFX password is test123)
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


gen.SetX509Cert(cert, True)

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

'  Load XML to be signed...
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
xml.GetXmlSb(sbXml)

gen.Behaviors = "IndentedSignature,Base64Cr13Entity"

'  Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If success = False Then
    Log(gen.LastErrorText)
    Return
End If


'  -----------------------------------------------

'  Save the signed XML to a file.
success = sbXml.WriteFile("c:/temp/qa_output/signedSoapXml1.xml", "utf-8", False)

Log(sbXml.GetAsString)

'  ----------------------------------------
'  Verify the signatures we just produced...
Dim verifier As ChilkatXmlDSig
verifier.Initialize
success = verifier.LoadSignatureSb(sbXml)
If success = False Then
    Log(verifier.LastErrorText)
    Return
End If


Dim numSigs As Int = verifier.NumSignatures
Dim verifyIdx As Int = 0
Do While verifyIdx < numSigs
    verifier.Selector = verifyIdx
    Dim verified As Boolean = verifier.VerifySignature(True)
    If verified <> True Then
        Log(verifier.LastErrorText)
        Return
    End If

    verifyIdx = verifyIdx + 1
Loop
Log("All signatures were successfully verified.")