No me funcionan los eventos (?)
 

Hola a todos...

El problema que tengo y no puedo encontrar el error es el siguiente:
(Trabajo con Delphi7, Firebird 1.5.3 y componentes FIBPlus)

Tengo definido este trigger:

CREATE TRIGGER "AsuntoNuevo" FOR FAM003 ACTIVE
AFTER INSERT POSITION 0
AS
BEGIN
post_event('IngAsunto');
END

Inserto un registro en la tabla FAM003:

dm.tr.startTransaction; // data module
Fam003.insert;
.
.
(Valores de los campos...)
.
.
Fam003.post;
dm.tr.commit;
Fam003.FullRefresh;

La Propiedad ReceiveEvent de la Tabla Fam003 tiene IngAsunto

El componente EventAlerter tiene este evento que nunca llega a ejecutarse

if EventName = 'IngAsunto' then
begin
MessageDlg('Nuevo registro ...', mtWarning, [mbOK], 0);
end;

Mucho agradeceré si alguien puede ayudarme
Saludos

Recuerda que para que funcionen tienes que registrarlos en el componente que maneja los eventos EventAlerter...

No recuerdo bien y no tengo Delphi a la mano pero creo que tiene una lista donde pones los eventos que deseas interceptar y luego llamas al metodo register o algo así.

Gracias Xander...

En el EventAlerter está registrado y tiene la opcion Autoregister activada...

Saludos