SET TERM ^ ;

CREATE OR ALTER trigger ttbesteira_b06iu for tbesteira
active before insert or update position 0
AS
declare variable TIPO VARCHAR(10);
begin

    if(coalesce(NEW.TIPO_AGRUPAMENTO,'') <> '')then
    begin
        FOR
            SELECT
                T.TIPO_AGRUPAMENTO
            FROM TBESTEIRA T
            where t.codigo <> new.codigo
        INTO
            :TIPO
        DO
        BEGIN
            IF(NEW.TIPO_AGRUPAMENTO = :TIPO) THEN
            BEGIN
                EXCEPTION "..." 'TIPO DE AGRUPAMENTO JÁ EXISTENTE EM GRUPO DE PRODUÇÃO! OPERAÇÃO CANCELADA.';
            END
        END
    end
end
^

SET TERM ; ^

