Всем огромное спасибо, я уже сделал через неизменяемые представления.Замечательно работает. А вот с Exсeptoin в тригере на AfterInsert, для таблицы чего то подтормаживает. Может делаю чего не так
вот для представления
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
CREATE TRIGGER VIEW_LINKS_AI0 FOR VIEW_LINKS
INACTIVE AFTER INSERT POSITION 0
as
DECLARE VARIABLE A INTEGER;
begin
execute procedure getcaninsert(new. "father" ,new. "children" )
returning_values :A;
if (A= 1 ) then
begin
insert into "Links" ( "father" , "children" ) values (new. "father" ,new. "children" );
end
end
А вто для таблицы
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
CREATE TRIGGER "Links_AI0" FOR "Links"
ACTIVE AFTER INSERT POSITION 0
as
DECLARE VARIABLE A INTEGER;
begin
execute procedure getcaninsert(new. "father" ,new. "children" )
returning_values :A;
if (A= 0 ) then
EXCEPTION MY_EXCEPTION;
when exception MY_EXCEPTION do A= 0 ;
end
