Sample code for 30+ languages & platforms
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 Downloads

C
#include <C_CkXml.h>
#include <C_CkStringBuilder.h>
#include <C_CkXmlDSigGen.h>
#include <C_CkCert.h>
#include <C_CkXmlDSig.h>

void ChilkatSample(void)
    {
    BOOL success;
    const char *registroAlta_id;
    HCkXml xml;
    int i;
    HCkStringBuilder sbSigId;
    HCkStringBuilder sbSigValueId;
    HCkStringBuilder sbSignedPropsId;
    HCkStringBuilder sbObjectRefId;
    HCkXmlDSigGen gen;
    HCkXml object1;
    HCkCert cert;
    HCkStringBuilder sbXml;
    HCkXmlDSig 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 = "001-2020003408";

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

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

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

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

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

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

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

    // Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
    sbSigId = CkStringBuilder_Create();
    CkStringBuilder_Append(sbSigId,"xmldsig-");
    CkStringBuilder_AppendUuid(sbSigId,TRUE);

    // Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
    sbSigValueId = CkStringBuilder_Create();
    CkStringBuilder_AppendSb(sbSigValueId,sbSigId);
    CkStringBuilder_Append(sbSigValueId,"-sigvalue");

    // Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
    sbSignedPropsId = CkStringBuilder_Create();
    CkStringBuilder_AppendSb(sbSignedPropsId,sbSigId);
    CkStringBuilder_Append(sbSignedPropsId,"-signedprops");

    // Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
    sbObjectRefId = CkStringBuilder_Create();
    CkStringBuilder_AppendSb(sbObjectRefId,sbSigId);
    CkStringBuilder_Append(sbObjectRefId,"-ref0");

    gen = CkXmlDSigGen_Create();

    CkXmlDSigGen_putSigLocation(gen,"soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta");
    CkXmlDSigGen_putSigLocationMod(gen,0);
    CkXmlDSigGen_putSigId(gen,CkStringBuilder_getAsString(sbSigId));
    CkXmlDSigGen_putSigNamespacePrefix(gen,"ds");
    CkXmlDSigGen_putSigNamespaceUri(gen,"http://www.w3.org/2000/09/xmldsig#");
    CkXmlDSigGen_putSigValueId(gen,CkStringBuilder_getAsString(sbSigValueId));
    CkXmlDSigGen_putSignedInfoCanonAlg(gen,"C14N");
    CkXmlDSigGen_putSignedInfoDigestMethod(gen,"sha256");

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

    // "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
    CkStringBuilder_Prepend(sbSigId,"#");
    CkXml_AddAttribute(object1,"Target",CkStringBuilder_getAsString(sbSigId));

    CkXml_UpdateAttrAt(object1,"xades:SignedProperties",TRUE,"Id",CkStringBuilder_getAsString(sbSignedPropsId));
    CkXml_UpdateChildContent(object1,"xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime","TO BE GENERATED BY CHILKAT");

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

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

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

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

    CkXml_UpdateChildContent(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_Prepend(sbObjectRefId,"#");

    CkXml_UpdateAttrAt(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat",TRUE,"ObjectReference",CkStringBuilder_getAsString(sbObjectRefId));
    CkXml_UpdateChildContent(object1,"xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType","text/xml");

    CkXmlDSigGen_AddObject(gen,"",CkXml_getXml(object1),"","");

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

    // Remove the "#"
    CkStringBuilder_RemoveCharsAt(sbObjectRefId,0,1);
    CkXmlDSigGen_SetRefIdAttr(gen,registroAlta_id,CkStringBuilder_getAsString(sbObjectRefId));

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

    // Provide a certificate + private key. (PFX password is test123)
    cert = CkCert_Create();
    success = CkCert_LoadPfxFile(cert,"qa_data/pfx/cert_test123.pfx","test123");
    if (success == FALSE) {
        printf("%s\n",CkCert_lastErrorText(cert));
        CkXml_Dispose(xml);
        CkStringBuilder_Dispose(sbSigId);
        CkStringBuilder_Dispose(sbSigValueId);
        CkStringBuilder_Dispose(sbSignedPropsId);
        CkStringBuilder_Dispose(sbObjectRefId);
        CkXmlDSigGen_Dispose(gen);
        CkXml_Dispose(object1);
        CkCert_Dispose(cert);
        return;
    }

    CkXmlDSigGen_SetX509Cert(gen,cert,TRUE);

    CkXmlDSigGen_putKeyInfoType(gen,"X509Data+KeyValue");
    CkXmlDSigGen_putX509Type(gen,"Certificate");

    // Load XML to be signed...
    sbXml = CkStringBuilder_Create();
    CkXml_GetXmlSb(xml,sbXml);

    CkXmlDSigGen_putBehaviors(gen,"IndentedSignature,Base64Cr13Entity");

    // Sign the XML...
    success = CkXmlDSigGen_CreateXmlDSigSb(gen,sbXml);
    if (success == FALSE) {
        printf("%s\n",CkXmlDSigGen_lastErrorText(gen));
        CkXml_Dispose(xml);
        CkStringBuilder_Dispose(sbSigId);
        CkStringBuilder_Dispose(sbSigValueId);
        CkStringBuilder_Dispose(sbSignedPropsId);
        CkStringBuilder_Dispose(sbObjectRefId);
        CkXmlDSigGen_Dispose(gen);
        CkXml_Dispose(object1);
        CkCert_Dispose(cert);
        CkStringBuilder_Dispose(sbXml);
        return;
    }

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

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

    printf("%s\n",CkStringBuilder_getAsString(sbXml));

    // ----------------------------------------
    // Verify the signatures we just produced...
    verifier = CkXmlDSig_Create();
    success = CkXmlDSig_LoadSignatureSb(verifier,sbXml);
    if (success == FALSE) {
        printf("%s\n",CkXmlDSig_lastErrorText(verifier));
        CkXml_Dispose(xml);
        CkStringBuilder_Dispose(sbSigId);
        CkStringBuilder_Dispose(sbSigValueId);
        CkStringBuilder_Dispose(sbSignedPropsId);
        CkStringBuilder_Dispose(sbObjectRefId);
        CkXmlDSigGen_Dispose(gen);
        CkXml_Dispose(object1);
        CkCert_Dispose(cert);
        CkStringBuilder_Dispose(sbXml);
        CkXmlDSig_Dispose(verifier);
        return;
    }

    numSigs = CkXmlDSig_getNumSignatures(verifier);
    verifyIdx = 0;
    while (verifyIdx < numSigs) {
        CkXmlDSig_putSelector(verifier,verifyIdx);
        verified = CkXmlDSig_VerifySignature(verifier,TRUE);
        if (verified != TRUE) {
            printf("%s\n",CkXmlDSig_lastErrorText(verifier));
            CkXml_Dispose(xml);
            CkStringBuilder_Dispose(sbSigId);
            CkStringBuilder_Dispose(sbSigValueId);
            CkStringBuilder_Dispose(sbSignedPropsId);
            CkStringBuilder_Dispose(sbObjectRefId);
            CkXmlDSigGen_Dispose(gen);
            CkXml_Dispose(object1);
            CkCert_Dispose(cert);
            CkStringBuilder_Dispose(sbXml);
            CkXmlDSig_Dispose(verifier);
            return;
        }

        verifyIdx = verifyIdx + 1;
    }

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


    CkXml_Dispose(xml);
    CkStringBuilder_Dispose(sbSigId);
    CkStringBuilder_Dispose(sbSigValueId);
    CkStringBuilder_Dispose(sbSignedPropsId);
    CkStringBuilder_Dispose(sbObjectRefId);
    CkXmlDSigGen_Dispose(gen);
    CkXml_Dispose(object1);
    CkCert_Dispose(cert);
    CkStringBuilder_Dispose(sbXml);
    CkXmlDSig_Dispose(verifier);

    }