EDataBaseError...

[lroblesco]

Tienes toda la razon Marcos, me imagine que se podian usar ya que los Tables de los MDO herendan caracteristicas de los TTable del BDE.

Mi pregunta es como capturo la exception lanzada por el servidor Firebird, sin usar el try ...except en el evento OnPostError, y en base al error que sea pues actuar con la rutina correspondiente.

Puse este codigo y tampoco parece ser que entre, ya que parece ser E no es un EDBEngineError.

procedure TMDIChildException.TClientesOnPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if E is EDBEngineError then
if (E as EDBEngineError).Errors[1].NativeError = -803 then
begin
MessageDlg( 'You cannot delete an order that has already shipped',
mtError, [mbOK], 0);
action := daAbort;
end;
end;

Bueno espero me puedan echar la mano con esto, que ya tengo algo de tiempo
y quisiera saber si esto es posible.
Gracias de antemano.

[Alejandrina]

Hola a todos,
No estoy segura si este es el lugar adecuado pero bueno.
Lo que pasa es k ejecuto mi aplicacion y me sale el siguiente error:
Project XX.exe raised exception class EDatabaseError with message 'Field 'REFERENCIA_SUB' must have a value'. Process stopped. Use Step or Run to continue.

La verdad no se k kiere decir este error, no tengo ni idea de k revisar...
a kien me pueda iluminar... muchas gracias....

[marcoszorrilla]

Por lo que se ve un campo que es obligatorio cumplimentar lo estas dejando en blanco.

Un Saludo.

[Alejandrina]

Pero pk??? si el error se me esta presentando antes de permitirme seleccionar los datos a llevar para grabar!!!

[marcoszorrilla]

No tendrás un evento OnNewRecord que rellena otros campos y éste lo deja en blanco?

Un Saludo.

[Alejandrina]

No no tengo este evento pero la TblPruductoSub tiene una relación maestro detalle y un campo virtual...esto tendra algo que ver?