ALTER TABLE TBEMPRESA
    ADD ORIGEM INTEGER DEFAULT 0 NOT NULL;

COMMENT ON COLUMN TBEMPRESA.ORIGEM IS
'ORIGEM DA INCLUSÃO DESSE REGISTRO:

0 - VIA TELA 12360
1 - VIA TELA 12241';

SET TERM ^ ;

CREATE OR ALTER trigger ttbempresa_b9i for tbempresa
active before insert position 9
AS
DECLARE VARIABLE VIA_ORIGEM VARCHAR(50);
begin
       VIA_ORIGEM = '';

       IF(NEW.ORIGEM = 1) THEN
       BEGIN
            VIA_ORIGEM = VIA_ORIGEM||' VIA TELA 12241';
       END ELSE
       BEGIN
            VIA_ORIGEM = VIA_ORIGEM||' VIA TELA 12360';
       END

       INSERT INTO TBHISTORICO (
       TABELA, TABELA_ID, USUARIO, IP, HISTORICO) VALUES (
      'TBEMPRESA', NEW.CODIGO,
      (Select First 1 MON$USER from mon$attachments where mon$attachment_id = current_connection),
      (Select First 1 MON$REMOTE_ADDRESS from mon$attachments where mon$attachment_id = current_connection),
       'Reg.Incluido'||:VIA_ORIGEM);

end
^

SET TERM ; ^

