No entra al evento OnPostError

[marcoszorrilla]

Pues tiene que funcionar, lo que puede pasar es que estés haciendo la prueba en tiempo de diseño y entonces te saldrá antes el mensaje de Delphi, pero si pulsas Aceptar y luego F8 al final se verá tu mensaje.

Un Saludo.

[Pablo Carlos]

Gracias por responder

Empezado por marcoszorrilla

Pues tiene que funcionar, lo que puede pasar es que estés haciendo la prueba en tiempo de diseño.-

Te comento que no funciona tanto dentro o fuera de delphi.- (corriendo normal o ejecutando desde delphi)
Saludos

[marcoszorrilla]

Lo cierto es que yo acabo de probarlo y si me funciona, lo que he hecho es duplicar un registro con un campo con clave única.

Primer erro:.......Key violation.
F8
Erroorr

Código Delphi [-]
 procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
   var Action: TDataAction);
 begin
 ShowMessage('Errooor.');
 end;

Un Saludo.

[Pablo Carlos]

Empezado por marcoszorrilla

Lo cierto es que yo acabo de probarlo y si me funciona, lo que he hecho es duplicar un registro con un campo con clave única.

Te comento, aunque parezca cosas de brujas, he creado una tabla nueva (paradox) con tres campos uno autoincremental, uno apellido y otro fecha.
En OnPostError de la tabla nueva pongo el ShowMessage y lleno mal el campo fecha (00/00/0000) y dentro o fuera de delphi no sale el mensaje
Gracias por responder tan rápido
Saludos

[[Lepe]]

claro que no da error.

Al campo apellido, en el database desktop, marcale la casilla Required. Despues de eso, añade un registro, deja el apellido en blanco y dale a guardar. Ahora si sale el error.

El BDE solo mostrará los errores cuando:
- Un campo es requerido (lo dicho anteriormente)
- un campo en cuestion, tiene un índice único creado, y se repite el valor en 2 registros.
- La clave primaria de la tabla se repite. En tu caso, es un autoincremento, por tanto, jamás vas a tener problemas de clave primaria ...(salvo errores graves)

Para introducir una fecha correcta, tu aplicación debe tener un TdateTimePicker, por ejemplo, para validar que la fecha que se guarde, sea una correcta.

Un saludo

[[Lepe]]

bueno.... en realidad puede dar muchos más errores el BDE. El tema está en que el BDE debe entender si "debe lanzar un error o no", y para ello, se lo tienes que decir tú de alguna forma (indices únicos, requerir un campo, etc.)

Si no pones ninguna restricción, el BDE acepta barco como animal acuático

Un saludo de nuevo

[Pablo Carlos]

Hola Lepe... gracias por responder... te comento que me parece que si debería capturar el error de la fecha. Mira este código, es de la demo de delphi

Código Delphi [-]
const
  {Declare constants we're interested in}
  eKeyViol = 9729;
  eRequiredFieldMissing = 9732;
  eForeignKey = 9733;
  eDetailsExist = 9734;
  eFechaNoValidad = 10059;


implementation

{$R *.DFM}

procedure TDM.CustomerPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  if (E is EDBEngineError) then
    if (E as EDBEngineError).Errors[0].Errorcode = eFechaNoValida then
    begin
      MessageDlg('Fecha no valida.', mtWarning, [mbOK], 0);
      Abort;
    end;
 end;

A la Const le agrego el 10059 que corresponde a fecha no válida (y esto sacado de delphi, usando la demo, y tampoco me lo captura
Saludos

[Pablo Carlos]

Hola... hice la prueba de ponerle campo requerido y tampoco sale el error, es como si mi OnPostError no existe, fallecio, crepo, colgo los tenis, se puso el sobretodo de madera, etc, etc...
Saludos

[[Lepe]]

Alguna tontería estará pasando, porque eso debe fallar fijo.

Código Delphi [-]
if E is EDBEngineError then
   form1.label4.Caption := IntToStr((E as EDBEngineError).Errors[0].Errorcode)
else 
  raise;