SET TERM ^ ;

CREATE OR ALTER trigger ttbmodelo_cor_b01d for tbmodelo_cor
active before delete position 0
AS
DECLARE VARIABLE TEM_KIT INTEGER;
DECLARE VARIABLE KIT_ID INTEGER;
BEGIN
    FOR SELECT FIRST 1 T.ID FROM TBMODELO_KIT T WHERE T.MODELO_ID = OLD.MODELO_ID AND T.COR_ID = OLD.COR_ID
    INTO
        :KIT_ID
    DO
    BEGIN
        IF(:KIT_ID > 0) THEN
        BEGIN
            EXCEPTION "..." 'COR VINCULADA AO KIT '||:KIT_ID||'. EXCLUSÃO NÃO PERMITIDA';
        END
    END
END
^

SET TERM ; ^

