[firebase-br] Dúvida Trigger no Firebird

[Júlio - Ampla Sistemas]

Olá pessoal,

 

Alguém sabe como passo a Trigger abaixo que está em SQL para Firebird?

O mais importante é como verifico que certo aplicativo está acessando o
banco de dados? Se este não estiver acessando tem que executar a trigger.

 

CREATE TRIGGER NOME_DA_TRIGGER

   ON  NOME_DA_TABELA

   AFTER DELETE

AS

BEGIN

    DECLARE @PROGRAMA VARCHAR(300)

 

    SELECT @PROGRAMA = PROGRAM_NAME FROM SYS.SYSPROCESSES WHERE SPID =
@@SPID

 

    IF @PROGRAMA <> 'VISUAL BASIC'

    BEGIN     

        -- AQUI SERÁ FEITO A INCLUSÃO DO REGISTRO QUE ESTÁ SENDO EXCLUÍDO NA
TABELA AUXILIAR PARA        

        -- QUE SEJA INCLUÍDO COM O CARACTER "?" NA GERAÇÃO DO ARQUIVO
ELETRÔNICO

    END

END

GO

 

Obrigado

 

Júlio C. Mendonça