SET TERM ^ ;

CREATE OR ALTER trigger ttbmodelo_kit_b03i for tbmodelo_kit
active before insert position 0
AS
declare variable EXISTE_COR_NO_MODELO INTEGER;
begin
    FOR
        SELECT FIRST 1
            T.ID
        FROM TBMODELO_COR T
        WHERE T.MODELO_ID = NEW.MODELO_ID
        AND T.COR_ID = NEW.COR_ID
    INTO
        :EXISTE_COR_NO_MODELO
    DO
    BEGIN
        IF(:EXISTE_COR_NO_MODELO > 0) THEN
        BEGIN
            EXCEPTION "..." 'O MODELO JÁ POSSUI KIT CADASTRADO COM COR SELECIONADA. OPERAÇÃO CANCELADA!';
        END
    END
end
^

SET TERM ; ^

