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

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

Hay varios hilos en el foro sobre el componentes TElXMLSigner (que al final es el que debes usar).
Seguro que en las páginas de Blackbox también encuentras ayuda sobre la firma con este componente. Al final en un XML y los códigos y ejemplos de firmar deben ser similares.

https://www.nsoftware.com/kb/article...ntingxades.rst
https://www.nsoftware.com/kb/article...gdocuments.rst

Aquí en los foros, revisa estos mensajes; Te pueden servir de punto de partida:
https://www.clubdelphi.com/foros/sho...0&postcount=83
https://www.clubdelphi.com/foros/sho...1&postcount=84
https://www.clubdelphi.com/foros/sho...79&postcount=1

[juramisa]

Gracias por responder, creo que ya lo estoy sacando. El tema es que los nuevos componentes son TsbxXMLSigner y TsbxXAdESSigner. Es decir que han cambiado los componentes respecto a versiones anteriores, de ahí que lo que hace unos meses me funcionó con una versión de prueba, ayer con la licenciada, no funcionaba nada. Además de que al instalarlos, no lo hice desde el lugar adecuado. Desinstalar y reinstalar, y ya voy consiguiendo resultados. Os mantendré informados, por si alguien se encuentra en la misma situación. De todas formas gracias por los enlaces los miraré por si pueden ayudarme.

La nueva versión es SecureBlackbox 2020 Delphi Edition

[keys]

Hola a todos.

Me imagino que ya os habeis enterado pero Bizkaia está inscribiendo ya los software homologados para Ticket Bai. Mas informacion en www.batuz.eus

En teoria la fase de pruebas comienza en octubre.

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

El 01/10/2020 se abre la web para comprobación de facturas:
https://batuz.eus/QRTBAI/?id=TBAI-00...dcLGAF-237&s=T

[keys]

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

El 01/10/2020 se abre la web para comprobación de facturas:
https://batuz.eus/QRTBAI/?id=TBAI-00...dcLGAF-237&s=T

No se que facturas se van a comprobar! si las facturas no hay que empezar a mandarlas hasta el 2022. El periodo de prueba que empieza el 1 de octubre es solo para la generación de las facturas y no el envío a hacienda.

Estos de hacienda

Por cierto ¿de donde has sacado ese enlace?

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

Empezado por keys

No se que facturas se van a comprobar! si las facturas no hay que empezar a mandarlas hasta el 2022.

Perdón, pensaba que ya se podían empezar a enviar para los que estuvieran en fase de pruebas.

Aquí está la normativa: https://www.batuz.eus/es/normativa

Y en el tercer documento (11/09/2020) está la información (que ya teníamos) de formato, certificados, especificaciones,... y por ahí escondido está ese link; Es posible que ya lo tuvieramos en alguna anterior, pero no estaba activo. Al menos ahora ya sale algo...

[keys]

Ya lo encontré. Ya estaba de antes, nunca se me habría ocurrido probarlo.

[juramisa]

Buenos días
Como comente adquirimos SecureBlackBox 2020, y los componentes han cambiado respecto a la 16. Por si alguien se encuentra en la misma situación os dejo el código para la firma del TicketBai.

Código Delphi [-]
  T_Firmante = record
    r_Nombre_firma: String;
    r_ID: String;
    r_Metodo_Canonicalization: String;
    r_Hash_algorithm: String;
    // El fichero pdf en el que se encuentra en las políticas de firma. pulsando esa dirección
    // debería presentarnos dicho fichero pdf
    r_SigPolicyID: String; // https://ticketbai.eus/politicafirma
    // El fichero pdf completo calculamos su SHA256 y nos dará un valor hexadecimal, y otro en base64
    // Pasamos el valor hexadecimal
    r_SigPolicyHash: string; // 39D59C038EBB3B7DF6C61ED2F740B318F0C50F93ADCD35E26BE8FF8E76D21DA8
    // Algoritmo
    r_SigPolicyHashAlgorithm: string; //SHA256
    // Direccion URI de política de firma
    r_SigPolicyURI: string; //https://ticketbai.eus/politicafirma;

Código Delphi [-]
procedure p_firmar_xml(el_fichero : string; el_firmante : T_Firmante);
var
  CertificateStorage: TsbxCertificateStorage;  // Nuevo componente SecureBlackBox 2020
  sbxXAdESSigner1 : TsbxXAdESSigner;  // Nuevo componente SecureBlackBox 2020

  cert : TsbxCertificate;
  i : Integer;
  encontrado : Boolean;
  function bintostr(const bin: array of byte): string;
  const
    HexSymbols = '0123456789ABCDEF';
  var
    i: integer;
  begin
    SetLength(Result, 2 * Length(bin));
    for i := 0 to Length(bin) - 1 do
    begin
      Result[1 + 2 * i + 0] := HexSymbols[1 + bin[i] shr 4];
      Result[1 + 2 * i + 1] := HexSymbols[1 + bin[i] and $0F];
    end;
  end;
begin
  sbxXAdESSigner1 := TsbxXAdESSigner.Create(nil);
  sbxXAdESSigner1.InputFile := el_fichero;
  sbxXAdESSigner1.OutputFile := el_fichero;
  CertificateStorage := TsbxCertificateStorage.Create(nil);
  if CertificateStorage.Opened then
     CertificateStorage.Close(True);
  CertificateStorage.Open('system://currentuser@localhost/?store=MY');
  encontrado := False;
  for i := 0 to CertificateStorage.Certificates.Count - 1 do
  begin
    cert := CertificateStorage.Certificates[i];
    if bintostr(Cert.SerialNumber) = el_firmante.r_ID then
    begin
      sbxXAdESSigner1.SigningCertificate := cert;
      encontrado := True;
    end;
  end;
  if not encontrado then
  begin
    Application.MessageBox('Firma no encontrada',
      'Proceso de firma', MB_OK + MB_ICONWARNING
      + MB_DEFBUTTON2);
    Exit;
  end;

  sbxXAdESSigner1.SignatureType := cxstEnveloped;

  sbxXAdESSigner1.CanonicalizationMethod := cxcmCanon;

  sbxXAdESSigner1.HashAlgorithm := el_firmante.r_Hash_algorithm;  // SHA256

  sbxXAdESSigner1.XMLElement := '';  // Todo el documento

  sbxXAdESSigner1.EnableXAdES := True;

  sbxXAdESSigner1.XAdESVersion := xav132;

  sbxXAdESSigner1.XAdESForm := xafEPES;

  sbxXAdESSigner1.Config('SigPolicyID=' + el_firmante.r_SigPolicyID); // https://ticketbai.eus/politicafirma');

  sbxXAdESSigner1.Config('SigPolicyHash=' + el_firmante.r_SigPolicyHash); // 39D59C038EBB3B7DF6C61ED2F740B318F0C50F93ADCD35E26BE8FF8E76D21DA8; 
  sbxXAdESSigner1.Config('SigPolicyHashAlgorithm=' + el_firmante.r_SigPolicyHashAlgorithm); //=SHA256;

  sbxXAdESSigner1.Config('SigPolicyURI=' + el_firmante.r_SigPolicyURI); //https://ticketbai.eus/politicafirma;

  try
    sbxXAdESSigner1.Sign();
  except
      MessageDlg('Error en el proceso de firma', mtError, [mbOK], 0);
  end;
end;

Espero os sirva,

Saludos

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

Gracias por el aporte.

[keys]

Hola a todos.
¿Alguien a obtenido ya el certificado o a realizado el proceso de firmar el software? Estoy un poco pez en los sistemas para firmar la aplicación.

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

Busca información sobre la herramienta SignTool. Viene con Visualstudio, pero me imagino que también se puede descargar por separado de MSDN.
https://docs.microsoft.com/es-es/dot...s/signtool-exe

Aquí mismo en el club tienes mensajes sobre el tema. Aquí puedes ver un código de ejemplo para firmar.

AÑADO: SignTool forma parte de este SDK.

[keys]

Gracias.

Ya me había leido todo ese tema del foro. Más que nada era por si alguien ha firmado ya sus programas para TicketBai y que sistemas ha utilizado. Yo estoy hablando con izenpe que parece que ellos también ofrecen alguna solución.

Cuando termine el proceso comentaré mi experiencia. Que por cierto creo que esto de firmar el software solo es para vender certificados de izenpe