Ver Mensaje Individual
  #4  
Antiguo 23-04-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 25
egostar Va camino a la fama
Quiero agregar algo que hice,

Agregue un disparador así

Código SQL [-]
CREATE TRIGGER NUEVA_LLAMADA FOR LLAMADAS
ACTIVE AFTER INSERT POSITION 0
AS
begin
  post_event 'nueva_llamada';
  /* Trigger text */
end

Nota: Tambien lo puse en POSITION 1, por probar nadamas

Agregue un IBEvents y agregue en su propiedad Events "nueva_llamada"

En el código hice lo siguiente

Código Delphi [-]
procedure TDataModule1.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  if EventName='nueva_llamada' then
     showmessage('Registro nuevo en la base de datos')
end;

Pero nunca se dispara ese evento.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita