Hola, les comento que estoy tratando de generar una rutina para capturar y personalizar los mensajes de error generados por firebird, les muestro lo que voy realizando y los resultados y problemas que tuve! (Uso los controles zeos)
Agrego un control ApplicationEvents y en OnException tengo lo siguiente.
Código Delphi
[-]
if (E is EZDatabaseError) then
if (EZDatabaseError(E).ErrorCode=-803) then
MessageDlg('Violación de clave única',mtError,[mbOk],0);
Esta parte funciona a la perfección, el problema es que al tratar de interceptar el error que genera cuando no se ingresa un valor a un campo requerido (NOT NULL), la excepción generada es EDatabaseError y no un EZDatabaseError, por lo tanto tendría que generar otra rutina para tal fin, alguna idea!? o sugerencia!, desde ya muchas gracias!
Nota: Estaría bueno crear una rutina para interceptar estos tipos de errores así podemos crear mensajes personalizados. De todas formas voy a seguir investigando por mi parte y notificare cualquier novedad, Gracias nuevamente!