Código Delphi
[-]
procedure TfrmFacturacion.CERRARTURNO1Click(Sender: TObject);
var
E:EDataBaseError;
begin
try
DataModule1.IBQueryMarcTurno.Close;
DataModule1.IBQueryMarcTurno.Open;
except
on E:exception do
ShowMessage(e.Message);
end;
end;
Aca lo que estoy tratando de hacer es que el query accione un trigger que me devuelve una exception. Hasta aca funciona, pero como hago para distingir una exception de otra cuando el Trigger me devuelve varias.
Estoy con Delphi 6 y Firebird 1.5.
La Exception en la base se llama EXC_TURNOS_COMPLETOS
Y EL NUMERO DE EXCEPCION ES 2.
Desde ya, muchas gracias.