(Unicode C) 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 C/C++ Library Downloads

MS Visual C/C++

C++ Builder

Linux C/C++

Alpine Linux C/C++

MacOS C/C++

iOS C/C++

Android C/C++

MinGW C/C++
#include <C_CkXmlW.h>
#include <C_CkStringBuilderW.h>
#include <C_CkXmlDSigGenW.h>
#include <C_CkCertW.h>
#include <C_CkXmlDSigW.h>

void ChilkatSample(void)
    {
    BOOL success;
    const wchar_t *registroAlta_id;
    HCkXmlW xml;
    int i;
    HCkStringBuilderW sbSigId;
    HCkStringBuilderW sbSigValueId;
    HCkStringBuilderW sbSignedPropsId;
    HCkStringBuilderW sbObjectRefId;
    HCkXmlDSigGenW gen;
    HCkXmlW object1;
    HCkCertW cert;
    HCkStringBuilderW sbXml;
    HCkXmlDSigW verifier;
    int numSigs;
    int verifyIdx;
    BOOL verified;

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

    registroAlta_id = L"001-2020003408";

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

    // This Id is URI in the XML digital signature Reference.
    CkXmlW_UpdateAttrAt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta",TRUE,L"Id",registroAlta_id);

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

    i = 0;
    CkXmlW_putI(xml,i);
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01);
    CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion",L"S1");
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",4);
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",10);
    CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",L"0.4");

    i = i + 1;
    CkXmlW_putI(xml,i);
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",01);
    CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion",L"S1");
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",21);
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100);
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",21);

    i = i + 1;
    CkXmlW_putI(xml,i);
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen",05);
    CkXmlW_UpdateChildContent(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion",L"S1");
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo",10);
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto",100);
    CkXmlW_UpdateChildContentInt(xml,L"soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida",10);

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

    // Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
    sbSigId = CkStringBuilderW_Create();
    CkStringBuilderW_Append(sbSigId,L"xmldsig-");
    CkStringBuilderW_AppendUuid(sbSigId,TRUE);

    // Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
    sbSigValueId = CkStringBuilderW_Create();
    CkStringBuilderW_AppendSb(sbSigValueId,sbSigId);
    CkStringBuilderW_Append(sbSigValueId,L"-sigvalue");

    // Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
    sbSignedPropsId = CkStringBuilderW_Create();
    CkStringBuilderW_AppendSb(sbSignedPropsId,sbSigId);
    CkStringBuilderW_Append(sbSignedPropsId,L"-signedprops");

    // Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
    sbObjectRefId = CkStringBuilderW_Create();
    CkStringBuilderW_AppendSb(sbObjectRefId,sbSigId);
    CkStringBuilderW_Append(sbObjectRefId,L"-ref0");

    gen = CkXmlDSigGenW_Create();

    CkXmlDSigGenW_putSigLocation(gen,L"soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta");
    CkXmlDSigGenW_putSigLocationMod(gen,0);
    CkXmlDSigGenW_putSigId(gen,CkStringBuilderW_getAsString(sbSigId));
    CkXmlDSigGenW_putSigNamespacePrefix(gen,L"ds");
    CkXmlDSigGenW_putSigNamespaceUri(gen,L"http://www.w3.org/2000/09/xmldsig#");
    CkXmlDSigGenW_putSigValueId(gen,CkStringBuilderW_getAsString(sbSigValueId));
    CkXmlDSigGenW_putSignedInfoCanonAlg(gen,L"C14N");
    CkXmlDSigGenW_putSignedInfoDigestMethod(gen,L"sha256");

    // Create an Object to be added to the Signature.
    object1 = CkXmlW_Create();
    CkXmlW_putTag(object1,L"xades:QualifyingProperties");
    CkXmlW_AddAttribute(object1,L"xmlns:xades",L"http://uri.etsi.org/01903/v1.3.2#");
    CkXmlW_AddAttribute(object1,L"xmlns:xades141",L"http://uri.etsi.org/01903/v1.4.1#");

    // "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
    CkStringBuilderW_Prepend(sbSigId,L"#");
    CkXmlW_AddAttribute(object1,L"Target",CkStringBuilderW_getAsString(sbSigId));

    CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties",TRUE,L"Id",CkStringBuilderW_getAsString(sbSignedPropsId));
    CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime",L"TO BE GENERATED BY CHILKAT");

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

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

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

    CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier",L"urn:oid:2.16.724.1.3.1.1.2.1.9");
    CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description",L"");
    CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod",TRUE,L"Algorithm",L"http://www.w3.org/2000/09/xmldsig#sha1");
    CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue",L"G7roucf600+f03r/o0bAOQ6WAs0=");

    CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI",L"https://sede.administracion.gob.es/politica_de_firma_anexo_1.pdf");

    CkStringBuilderW_Prepend(sbObjectRefId,L"#");

    CkXmlW_UpdateAttrAt(object1,L"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",TRUE,L"ObjectReference",CkStringBuilderW_getAsString(sbObjectRefId));
    CkXmlW_UpdateChildContent(object1,L"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType",L"text/xml");

    CkXmlDSigGenW_AddObject(gen,L"",CkXmlW_getXml(object1),L"",L"");

    // -------- Reference 1 --------
    // The URI for this Reference is the registroAlta_id
    CkXmlDSigGenW_AddSameDocRef(gen,registroAlta_id,L"sha256",L"",L"",L"");

    // Remove the "#"
    CkStringBuilderW_RemoveCharsAt(sbObjectRefId,0,1);
    CkXmlDSigGenW_SetRefIdAttr(gen,registroAlta_id,CkStringBuilderW_getAsString(sbObjectRefId));

    // -------- Reference 2 --------
    CkXmlDSigGenW_AddObjectRef(gen,CkStringBuilderW_getAsString(sbSignedPropsId),L"sha256",L"C14N",L"",L"http://uri.etsi.org/01903#SignedProperties");

    // Provide a certificate + private key. (PFX password is test123)
    cert = CkCertW_Create();
    success = CkCertW_LoadPfxFile(cert,L"qa_data/pfx/cert_test123.pfx",L"test123");
    if (success == FALSE) {
        wprintf(L"%s\n",CkCertW_lastErrorText(cert));
        CkXmlW_Dispose(xml);
        CkStringBuilderW_Dispose(sbSigId);
        CkStringBuilderW_Dispose(sbSigValueId);
        CkStringBuilderW_Dispose(sbSignedPropsId);
        CkStringBuilderW_Dispose(sbObjectRefId);
        CkXmlDSigGenW_Dispose(gen);
        CkXmlW_Dispose(object1);
        CkCertW_Dispose(cert);
        return;
    }

    CkXmlDSigGenW_SetX509Cert(gen,cert,TRUE);

    CkXmlDSigGenW_putKeyInfoType(gen,L"X509Data+KeyValue");
    CkXmlDSigGenW_putX509Type(gen,L"Certificate");

    // Load XML to be signed...
    sbXml = CkStringBuilderW_Create();
    CkXmlW_GetXmlSb(xml,sbXml);

    CkXmlDSigGenW_putBehaviors(gen,L"IndentedSignature,Base64Cr13Entity");

    // Sign the XML...
    success = CkXmlDSigGenW_CreateXmlDSigSb(gen,sbXml);
    if (success == FALSE) {
        wprintf(L"%s\n",CkXmlDSigGenW_lastErrorText(gen));
        CkXmlW_Dispose(xml);
        CkStringBuilderW_Dispose(sbSigId);
        CkStringBuilderW_Dispose(sbSigValueId);
        CkStringBuilderW_Dispose(sbSignedPropsId);
        CkStringBuilderW_Dispose(sbObjectRefId);
        CkXmlDSigGenW_Dispose(gen);
        CkXmlW_Dispose(object1);
        CkCertW_Dispose(cert);
        CkStringBuilderW_Dispose(sbXml);
        return;
    }

    // -----------------------------------------------

    // Save the signed XML to a file.
    success = CkStringBuilderW_WriteFile(sbXml,L"c:/temp/qa_output/signedSoapXml1.xml",L"utf-8",FALSE);

    wprintf(L"%s\n",CkStringBuilderW_getAsString(sbXml));

    // ----------------------------------------
    // Verify the signatures we just produced...
    verifier = CkXmlDSigW_Create();
    success = CkXmlDSigW_LoadSignatureSb(verifier,sbXml);
    if (success == FALSE) {
        wprintf(L"%s\n",CkXmlDSigW_lastErrorText(verifier));
        CkXmlW_Dispose(xml);
        CkStringBuilderW_Dispose(sbSigId);
        CkStringBuilderW_Dispose(sbSigValueId);
        CkStringBuilderW_Dispose(sbSignedPropsId);
        CkStringBuilderW_Dispose(sbObjectRefId);
        CkXmlDSigGenW_Dispose(gen);
        CkXmlW_Dispose(object1);
        CkCertW_Dispose(cert);
        CkStringBuilderW_Dispose(sbXml);
        CkXmlDSigW_Dispose(verifier);
        return;
    }

    numSigs = CkXmlDSigW_getNumSignatures(verifier);
    verifyIdx = 0;
    while (verifyIdx < numSigs) {
        CkXmlDSigW_putSelector(verifier,verifyIdx);
        verified = CkXmlDSigW_VerifySignature(verifier,TRUE);
        if (verified != TRUE) {
            wprintf(L"%s\n",CkXmlDSigW_lastErrorText(verifier));
            CkXmlW_Dispose(xml);
            CkStringBuilderW_Dispose(sbSigId);
            CkStringBuilderW_Dispose(sbSigValueId);
            CkStringBuilderW_Dispose(sbSignedPropsId);
            CkStringBuilderW_Dispose(sbObjectRefId);
            CkXmlDSigGenW_Dispose(gen);
            CkXmlW_Dispose(object1);
            CkCertW_Dispose(cert);
            CkStringBuilderW_Dispose(sbXml);
            CkXmlDSigW_Dispose(verifier);
            return;
        }

        verifyIdx = verifyIdx + 1;
    }

    wprintf(L"All signatures were successfully verified.\n");


    CkXmlW_Dispose(xml);
    CkStringBuilderW_Dispose(sbSigId);
    CkStringBuilderW_Dispose(sbSigValueId);
    CkStringBuilderW_Dispose(sbSignedPropsId);
    CkStringBuilderW_Dispose(sbObjectRefId);
    CkXmlDSigGenW_Dispose(gen);
    CkXmlW_Dispose(object1);
    CkCertW_Dispose(cert);
    CkStringBuilderW_Dispose(sbXml);
    CkXmlDSigW_Dispose(verifier);

    }