SET TERM ^ ;

CREATE trigger ttbgestao_notif_cliente_b01iu for tbgestao_notif_cliente
active before insert or update position 1
AS
DECLARE VARIABLE JA_EXISTENTE VARCHAR(500);
BEGIN

    IF(INSERTING) THEN
    BEGIN

        :JA_EXISTENTE = COALESCE((
                SELECT FIRST 1
                    'SERVIDOR '||FB.DESCRICAO||' JA VINCULADO A EMPRESA: '||E.NOMEFANTASIA||' - '||'RAZAO SOCIAL: '||E.RAZAOSOCIAL||'. OPERACAO CANCELADA.'
                FROM TBGESTAO_NOTIF_CLIENTE I, TBEMPRESA E, TBFIREBIRD_ADMIN_DB FB
                WHERE E.CODIGO = I.EMPRESA_ID
                AND FB.EMPRESA_ID = I.EMPRESA_ID
                AND I.EMPRESA_ID = NEW.EMPRESA_ID
        ), '');

        IF(CHAR_LENGTH(:JA_EXISTENTE) > 0) THEN
        BEGIN
            EXCEPTION "...":JA_EXISTENTE;

        END

    END ELSE
    BEGIN
        :JA_EXISTENTE = COALESCE((
                SELECT FIRST 1
                    'SERVIDOR '||FB.DESCRICAO||' JA VINCULADO A EMPRESA: '||E.NOMEFANTASIA||' - '||'RAZAO SOCIAL: '||E.RAZAOSOCIAL||'. OPERACAO CANCELADA.'
                FROM TBGESTAO_NOTIF_CLIENTE I, TBEMPRESA E, TBFIREBIRD_ADMIN_DB FB
                WHERE E.CODIGO = I.EMPRESA_ID
                AND FB.EMPRESA_ID = I.EMPRESA_ID
                AND I.EMPRESA_ID = NEW.EMPRESA_ID
                AND I.ID <> NEW.ID
        ), '');

        IF(CHAR_LENGTH(:JA_EXISTENTE) > 0) THEN
        BEGIN
            EXCEPTION "...":JA_EXISTENTE;
        END

    END
        
    
END
^

SET TERM ; ^