Error de Seguridad

[Gregorio Cíber]

Lo siento, en la vista previa el código delphi sale perfecto. Sin enbargo al enviar es un desasatre.

[roman]

Código Delphi [-]
procedure TDM.err_GeneralFIBErrorEvent(Sender: TObject; ErrorValue: EFIBError; KindIBError: TKindIBError; var DoRaise: Boolean);
begin
  // Caso de perder conexión con el servido
  if KindIBError = keLostConnect then
  begin
    // //
  end;

  if KindIBError = keUniqueViolation then
  begin
    // //
  end;

  if KindIBError = keSecurity then <--- Este es el error que salta.
  begin
    Mensaje('Error de seguridad al abrir tablas de la BD.');
    // //
  end;
end;

// Saludos

[[movorack]]

. .

Empezado por roman

Código Delphi [-]
procedure TDM.err_GeneralFIBErrorEvent(Sender: TObject; ErrorValue: EFIBError; KindIBError: TKindIBError; var DoRaise: Boolean);
begin
  // Caso de perder conexión con el servido
  if KindIBError = keLostConnect then
  begin
    // //
  end;

  if KindIBError = keUniqueViolation then
  begin
    // //
  end;

  if KindIBError = keSecurity then <--- Este es el error que salta.
  begin
          //Aquí puedes validar el mensaje que arroja el sistema. en lugar de solo sacar tu mensaje.
    Mensaje('Error de seguridad al abrir tablas de la BD.');
    // //
  end;
end;

// Saludos

[Gregorio Cíber]

Gracias, Miguel A. Valero.
Estaba obcecado mirando tablas y procedimientos, y no reparé en hacer lo mismo con los generadores. Ahí estaba el problema.
Gracias a todos por ayudarme.