TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

Neftali [Germán.Estévez] · #1 31-03-2021

Cita:

Empezado por keys

El otro día en el curso pusieron la imagen que adjunto de donde comprobar en preproduccion.

Si. La tenía por ahí en la documentación.
A veces las cosas las tienes delante y son tabn evidentes que no las ves.

yaedev · #2 31-03-2021

(edito)

Sobre el escenario de Bizkaia:

Acabo de leer en las preguntas frecuentes que habéis colgado:

Cita:

En el caso de Bizkaia, el fichero XML TicketBAI no se envía directamente, sino que se envía en el campo “TicketBAI”, codificado en Base64, dentro de las anotaciones del LROE:
• 1.1 - Ingresos con factura con Software garante (modelo 140).
• 1.1 - Facturas emitidas con Software garante (modelo 240).

Eso quiere decir que el XML de la factura Ticket Bai se codifica a BASE64, y ese resultado se añade al modelo 240 o 140. ¿Y que es lo que se envía en zip?

Entonces, si el programa que genera las facturas no lleva temas contables ni de libros, por lo que no genera un modelo 240 o 140, ¿entonces como se envía?

keys · #3 31-03-2021

Cita:

Empezado por yaedev

Sobre el escenario de Bizkaia:

Según entiendo las facturas XML firmadas deben enviarse empaquetadas en un fichero zip, el cual se incluyen con el envío del modelo 240 o modelo 140 ¿correcto?

Entonces, si el programa que genera las facturas no lleva temas contables ni de libros, por lo que no genera un modelo 240 o 140, ¿entonces como se envía? ¿El cliente deberá facilitar el zip a su asesor o tener un programa contable puente?

Hola.

Lo podrá enviar directamente el cliente y luego el asesor podrá modificar solo los datos que no son de TicketBai (La factura) o podrá enviarselo al asesor para que le realice el envio completo. Por eso el envío en Bizkaia no es inmediato como en Gipuzkoa.

Lógicamente si el envío lo hace el cliente, este tiene que saber a que modelo enviarlo 140/240 y algún dato mínimo más, como por ejemplo el epigrafe de la actividad en el 140, aunque luego siempre lo podra cambiar.

Un Saludo.

benjy.sr · #4 12-04-2021

Buenas a todos, siguiendo vuestros ejemplos, no consigo obtener respuesta: Mi código es este

Código Delphi [-]  RequestBody:= TFileStream.Create(ficheroComprimido, fmOpenRead);

  NetHTTPClient1.SecureProtocols:= [THTTPSecureProtocol.TLS12];
  NetHTTPClient1.CustomHeaders['Accept-Encoding'] := 'gzip';
  NetHTTPClient1.CustomHeaders['Content-Encoding'] := 'gzip';
  NetHTTPClient1.CustomHeaders['Content-Type'] := 'application/octet-stream';
  NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-version'] := '1.0';
  NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-content-type'] := 'application/xml';

  //Formamos los parametros json de entrada
  json:='{"con": "LROE", "apa": "1.1", "inte": {"nif":  "XXXXXXXXX","nrs": "XXXXXXXXXXXXXXXXXXXXXXX",
         "ap1": "","ap2": ""},"drs":  {"mode": "240","ejer": "2021"}}';
  NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-data']:= json;

  AResponse:= NetHTTPClient1.Post(url,RequestBody);
  Memo1.Text:= aResponse.ContentAsString(TEncoding.UTF8);

Pero siempre obtengo el mismo error:

Error receiving data: (12030) La conexión con el servidor finalizó anormalmente.

He desactivado firewall, por si acaso, pero siempre me devuelve lo mismo, seguro que hay que tener en cuenta algo que se me está escapando, ¿Alguien puede darme una idea de qué puede estar ocurriendo?

Neftali [Germán.Estévez] · #5 12-04-2021

Cita:

Empezado por benjy.sr

Pero siempre obtengo el mismo error:

Error receiving data: (12030) La conexión con el servidor finalizó anormalmente.

He desactivado firewall, por si acaso, pero siempre me devuelve lo mismo, seguro que hay que tener en cuenta algo que se me está escapando, ¿Alguien puede darme una idea de qué puede estar ocurriendo?

Parece que tiene que ver con el certificado (o relacionado con TSL).
Revisa los mensajes de esta página:
http://www.clubdelphi.com/foros/show...=94264&page=17

Galaxian · #6 12-04-2021

Código Delphi [-]var
success: Boolean;
xmlToSign: HCkXml;
gen: HCkXmlDSigGen;
object1: HCkXml;
cert: HCkCert;
sbXml: HCkStringBuilder;
verifier: HCkXmlDSig;
numSigs: Integer;
verifyIdx: Integer;
verified: Boolean;

begin
success := True;
//  Load the XML to be signed from a file...
xmlToSign := CkXml_Create();
CkXml_LoadXmlFile(xmlToSign,'xmlToSign.xml');

gen := CkXmlDSigGen_Create();

CkXmlDSigGen_putSigLocation(gen,'T:TicketBai');
CkXmlDSigGen_putSigLocationMod(gen,0);
CkXmlDSigGen_putSigId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature');
CkXmlDSigGen_putSigNamespacePrefix(gen,'ds');
CkXmlDSigGen_putSigNamespaceUri(gen,'h_t_t_p:w_w_w_.w3.org/2000/09/xmldsig#');
CkXmlDSigGen_putSigValueId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignatureValue');
CkXmlDSigGen_putSignedInfoCanonAlg(gen,'C14N');
CkXmlDSigGen_putSignedInfoDigestMethod(gen,'sha256');

Galaxian · #7 12-04-2021

Código Delphi [-]//  Set the KeyInfoId before adding references..
CkXmlDSigGen_putKeyInfoId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo');

//  Create an Object to be added to the Signature.
object1 := CkXml_Create();
CkXml_putTag(object1,'xades:QualifyingProperties');
CkXml_AddAttribute(object1,'xmlns:xades','h_t_t_p://uri.etsi.org/01903/v1.3.2#');
CkXml_AddAttribute(object1,'Id','Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-QualifyingProperties');
CkXml_AddAttribute(object1,'Target','#Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature');
CkXml_AddAttribute(object1,'xmlns:ds','h_t_t_p://w_w_w.w3.org/2000/09/xmldsig#');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties',True,'Id','Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signi  ngTime','TO BE GENERATED BY CHILKAT');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCert  ificate|xades:Cert|xades:CertDigest|dsigestMethod',True,'Algorithm','h_t_t_p://w_w_w.w3.org/2001/04/xmlenc#sha512');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signi  ngCertificate|xades:Cert|xades:CertDigest|dsigestValue','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signi  ngCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signi  ngCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signa  turePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier','h_t_t_p_s://w_w_w.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signa  turePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xadesescription','');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePo  licyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|dsigestMethod',True,'Algorithm','h_t_t_  p://w_w_w.w3.org/2001/04/xmlenc#sha256');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:Signa  turePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|dsigestValue','Quzn98x3PMbSHwbUza  j5f5KOpiH0u8bvmwbbbNkO9Es=');

Galaxian · #8 12-04-2021

Código PHP:


			
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI','h_t_t_p_s://w_w_w.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat',True,'ObjectReference','#Reference-7e6f3481-4acc-47de-90fd-67878ad15e8e');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description','');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier',True,'Qualifier','OIDAsURN');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Identifier','urn:oid:1.2.840.10003.5.109.10');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:ObjectIdentifier|xades:Description','');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType','text/xml');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding','');

CkXmlDSigGen_AddObject(gen,'',CkXml__getXml(object1),'','');

Galaxian · #9 12-04-2021

Código PHP:


			
//  -------- Reference 1 --------
CkXmlDSigGen_AddSameDocRef(gen,'','sha512','C14N','','h_t_t_p://w_w_w.w3.org/2000/09/xmldsig#Object');
CkXmlDSigGen_SetRefIdAttr(gen,'','Reference-7e6f3481-4acc-47de-90fd-67878ad15e8e');

//  -------- Reference 2 --------
CkXmlDSigGen_AddObjectRef(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties','sha512','','','h_t_t_p://uri.etsi.org/01903#SignedProperties');

//  -------- Reference 3 --------
CkXmlDSigGen_AddSameDocRef(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo','sha512','','','');

//  Load a certificate that has been pre-installed on the Windows system
//  This includes certificates on smartcards and USB tokens
cert := CkCert_Create();
success := CkCert_LoadByCommonName(cert,'The cert Subject CN');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;
CkXmlDSigGen_SetX509Cert(gen,cert,True);

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

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

CkXmlDSigGen_putBehaviors(gen,'IndentedSignature,TransformSignatureXPath');

//  Sign the XML...
success := CkXmlDSigGen_CreateXmlDSigSb(gen,sbXml);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXmlDSigGen__lastErrorText(gen));
    Exit;
  end;
//  -----------------------------------------------

//  Save the signed XML to a file.
success := CkStringBuilder_WriteFile(sbXml,'qa_output\signedXml.xml','utf-8',False);

Memo1.Lines.Add(CkStringBuilder__getAsString(sbXml));

Kang · #10 09-12-2021

Cita:

Empezado por Galaxian

Código Delphi [-]var
success: Boolean;
xmlToSign: HCkXml;
gen: HCkXmlDSigGen;
object1: HCkXml;
cert: HCkCert;
sbXml: HCkStringBuilder;
verifier: HCkXmlDSig;
numSigs: Integer;
verifyIdx: Integer;
verified: Boolean;

begin
success := True;
//  Load the XML to be signed from a file...
xmlToSign := CkXml_Create();
CkXml_LoadXmlFile(xmlToSign,'xmlToSign.xml');

gen := CkXmlDSigGen_Create();

CkXmlDSigGen_putSigLocation(gen,'T:TicketBai');
CkXmlDSigGen_putSigLocationMod(gen,0);
CkXmlDSigGen_putSigId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature');
CkXmlDSigGen_putSigNamespacePrefix(gen,'ds');
CkXmlDSigGen_putSigNamespaceUri(gen,'h_t_t_p:w_w_w_.w3.org/2000/09/xmldsig#');
CkXmlDSigGen_putSigValueId(gen,'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignatureValue');
CkXmlDSigGen_putSignedInfoCanonAlg(gen,'C14N');
CkXmlDSigGen_putSignedInfoDigestMethod(gen,'sha256');

Utilicé el código anterior, pero no puedo completar la firma y no hay cambios en el archivo XML. ¿Hay algo que me haya perdido?

YellowStone · #11 09-12-2021

Esta es una función que me he montado en una DLL externa para firmar los XML con las Chilkat, por si te sirve de ayuda. Me base en los posts de Galaxian, aunque haciendo ciertas modificaciones porque tampoco me iban, aparte de que hay que retocar direcciones por vienen, por ejemplo, con h_t_t_p y no http.

Código PHP:


			
function Firma_CLK(var Hacienda: WideString; var Pfx: WideString; var Password: WideString; var Fichero: WideString): boolean; stdcall;

var

  xmlToSign: HCkXml;

  gen: HCkXmlDSigGen;

  object1: HCkXml;

  cert: HCkCert;

  sbXml: HCkStringBuilder;

begin



  //  Load the XML to be signed from a file...

  xmlToSign := CkXml_Create();

  try

    CkXml_LoadXmlFile(xmlToSign, PWideChar(Fichero));



    gen := CkXmlDSigGen_Create();

    CkXmlDSigGen_putBehaviors(gen, 'TransformSignatureXPath, LocalSigningTime, IndentedSignature'); // Añadido LocalSigningTime para que salga la hora como con Autofirma



    CkXmlDSigGen_putSigLocation(gen, 'T:TicketBai');

    CkXmlDSigGen_putSigLocationMod(gen, 0);

    CkXmlDSigGen_putSigId(gen, 'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature');

    CkXmlDSigGen_putSigValueId(gen, 'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignatureValue');

    CkXmlDSigGen_putSigNamespacePrefix(gen, 'ds');

    CkXmlDSigGen_putSigNamespaceUri(gen, 'http://www.w3.org/2000/09/xmldsig#');  // Aquí faltaban las '//' despues de http:

    CkXmlDSigGen_putSignedInfoCanonAlg(gen, 'C14N');

    CkXmlDSigGen_putSignedInfoDigestMethod(gen, 'sha512'); // Cambiado a sha512, en el ejemplo viene sha256



    //  Set the KeyInfoId before adding references..

    CkXmlDSigGen_putKeyInfoId(gen, 'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo');



    //  Create an Object to be added to the Signature.

    object1 := CkXml_Create();



    CkXml_putTag(object1, 'xades:QualifyingProperties');

    CkXml_AddAttribute(object1, 'Id', 'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-QualifyingProperties');

    CkXml_AddAttribute(object1, 'Target', '#Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-Signature');

    CkXml_AddAttribute(object1, 'xmlns:ds', 'http://www.w3.org/2000/09/xmldsig#');

    CkXml_AddAttribute(object1, 'xmlns:xades', 'http://uri.etsi.org/01903/v1.3.2#');

    CkXml_UpdateAttrAt(object1, 'xades:SignedProperties', True, 'Id', 'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties');

    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/2001/04/xmlenc#sha512');

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



    // Según la Hacienda Foral

    if Hacienda = '01' then // Araba

      CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier', 'https://ticketbai.araba.eus/tbai/sinadura/')

    else if Hacienda = '20' then // Gipuzkoa

      CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier', 'https://www.gipuzkoa.eus/ticketbai/sinadura')

    else if Hacienda = '48' then // Bizkaia

      CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier', 'https://www.batuz.eus/fitxategiak/batuz/ticketbai/sinadura_elektronikoaren_zehaztapenak_especificaciones_de_la_firma_electronica_v1_0.pdf');



    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/2001/04/xmlenc#sha256');



    // Según la Hacienda Foral

    if Hacienda = '01' then // Araba

      CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue', 'iOgvkX7/yHIDRRiPy/LYQ0UUn7QV8/11D1BFbs8yMuQ=')

    else if Hacienda = '20' then // Gipuzkoa

      CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue', '6NrKAm60o7u62FUQwzZew24ra2ve9PRQYwC21AM6In0=')

    else if Hacienda = '48' then // Bizkaia

      CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue', 'Quzn98x3PMbSHwbUzaj5f5KOpiH0u8bvmwbbbNkO9Es=');



    CkXml_UpdateAttrAt(object1, 'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat', True, 'ObjectReference', '#Reference-7e6f3481-4acc-47de-90fd-67878ad15e8e');

    CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description', '');

    CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType', 'application/octet-stream'); // Cambio a octet-stream como Autofirma

    CkXml_UpdateChildContent(object1, 'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Encoding', '');



    CkXmlDSigGen_AddObject(gen, '', CkXml__getXml(object1), '', '');



    //  -------- Reference 1 --------

    CkXmlDSigGen_AddSameDocRef(gen, '', 'sha512', 'C14N', '', 'http://www.w3.org/2000/09/xmldsig#Object');

    CkXmlDSigGen_SetRefIdAttr(gen, '', 'Reference-7e6f3481-4acc-47de-90fd-67878ad15e8e');



    //  -------- Reference 2 --------

    CkXmlDSigGen_AddObjectRef(gen, 'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-SignedProperties', 'sha512', '', '', 'http://uri.etsi.org/01903#SignedProperties');



    //  -------- Reference 3 --------

    CkXmlDSigGen_AddSameDocRef(gen, 'Signature-63c35f38-2b5f-4600-b3da-3ddee86d62b3-KeyInfo', 'sha512' , '', '', '');



    //  Load a certificate that has been pre-installed on the Windows system

    //  This includes certificates on smartcards and USB tokens

    cert := CkCert_Create();

    result := CkCert_LoadPfxFile(cert, PWideChar(Pfx), PWideChar(Password));

    if (not result) then

      begin

        ShowMessage('Fallo al cargar el certificado PFX: '+Pfx+' / '+Password);

        Exit;

      end;



    CkXmlDSigGen_SetX509Cert(gen, cert, True);



    // Cambiado Certificate a CertChain para que salgan todos los certificados incluidos,

    // porque en certificados como los de UANATACA se incluyen varios certificados en x509Certificate

    // y con Certificate sólo aparece el primero, que no tiene porque ser el que necesitamos

    CkXmlDSigGen_putX509Type(gen,'CertChain');

    CkXmlDSigGen_putKeyInfoType(gen,'X509Data+KeyValue');



    //  Load XML to be signed...

    sbXml := CkStringBuilder_Create();

    CkXml_GetXmlSb(xmlToSign, sbXml);



    //  Sign the XML...

    result := CkXmlDSigGen_CreateXmlDSigSb(gen, sbXml);



    if (not result) then

      begin

        ShowMessage('Fallo en la firma');

        Exit;

      end;



    // Save the signed XML to a file.

    // Utilizo el mismo fichero de entrada

    // El último parámetro es False (no BOM o true BOM)

    result := CkStringBuilder_WriteFile(sbXml, PWideChar(Fichero), 'utf-8', False);

  except

    ShowMessage('Error de excepcion');

    result := False;

  end;



end;

YellowStone · #12 09-12-2021

Aunque pone que es PHP, es Delphi; con el código DELPHI pone emoticonos en ciertas partes del código que lo hacen ilegible, y no permite más de 10 y no se puede subir.

benjy.sr · #13 12-04-2021

Cita:

Empezado por Neftali [Germán.Estévez]

Parece que tiene que ver con el certificado (o relacionado con TSL).

Pues parece que si era por eso, muchas gracias Neftali.
Ahora me pide el certificado, pero la respuesta es vacía, revisando la respuesta el código es el 500, y el texto es "Internal server error",..... no sé qué puede ser

Pau Haro · #14 12-04-2021

Buenas,

Tengo problemas con el envio a Bizkaia, llega la solicitud al servidor pero la respuesta es incorrecta, por que el Id="xmldsig-bb95c614-22fb-4afe-9e6f-b46f4c46f971" no esta bien generado, esta cadena la genero usando el siguiente codigo en Java -> "xmldsig-" + UUID.randomUUID().toString();

Esto no esta funcionando y a diferencia de Guipuzkoa, Bizakaia no me retorna respuesta correcta por tener el ID mal. Estoy usando SecureBlackBox para realizar la firma de mi documento, si alguien me pudiera decir como generar el ID con SecureBackBox o con metodos nativos de Java, se lo agradeceria.

Saludos!

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice	newtron	Internet	3716	19-01-2026 20:01:34
Como utilizar la ayuda del nuevo Sistema Operativo	gluglu	Humor	3	24-09-2007 09:39:05
Aplicacion Agencia De Viajes	ArdiIIa	Varios	9	20-01-2007 16:49:53
El Vasco Aguirre	Al González	La Taberna	5	26-05-2006 09:22:28
Microsoft ha lanzado su nuevo sistema operativo	DarkByte	Humor	0	25-01-2004 09:21:14