iBase.ru Forum

Код: Выделить всё

CREATE TRIGGER STRUCT_EL_BI_BU_TRIG FOR STRUCT_EL
ACTIVE BEFORE INSERT OR UPDATE POSITION 1 //для этой таблицы
    //имеется также триггер BeforeInsert, формирующий new.id_good
as
declare variable full_goods_name varchar(251);
begin
   select g.full_goods_name from Getfullname(1) g
   where g.Id_child_Good = NEW.Id_good
   into :full_goods_name;

   new.FullPath = :full_goods_name;
end

Код: Выделить всё

CREATE PROCEDURE GETFULLNAME (ID_GOOD2SHOW INTEGER)
RETURNS (FULL_GOODS_NAME VARCHAR(250), ID_CHILD_GOOD INTEGER)
AS
DECLARE VARIABLE CURR_CHILD_NAME VARCHAR(35);
begin
   /*организуем внешний цикл For Select по непосредственным потомкам товара с ID_GOOD = ID_GOOD2SHOW*/
   for select gt.id_good, gt.good_name
       from GoodsTree gt
       where gt.id_parent=:Id_Good2Show
       into :ID_CHILD_GOOD, :full_goods_name
   do
       begin
       /*если у найденного узла с ID_PARENT_GOOD = ID_CHILD_GOOD нет потомков, то он является "листом" дерева
и попадает в результаты*/
          if (not exists (select * from GoodsTree
                          where GoodsTree.Id_parent_good=:id_child_good))
            then
               begin
                 /* Передаём лист дерева в результаты */
                 suspend;
               end
            else
               begin
                 /* сохраняем имя узла-родителя во временной переменной */
                 curr_child_name = full_goods_name;
                 /* рекурсивно запускаем эту процедуру */
                 for
                    select ID_CHILD_GOOD, full_goods_name
                    from GETFULLNAME (:ID_CHILD_GOOD)
                    into :ID_CHILD_GOOD, :full_goods_name
                 do
                    begin
                       /*добавляем имя узла-родителя к найденному имени потомка*/
                       full_goods_name = curr_child_name||'/'||full_goods_name;
                       suspend; /* возвращаем полное имя товара*/
                    end
               end
       end
end

Код: Выделить всё

----------------------------------------------
CREATE TRIGGER STRUCT_EL_BI_TRIG FOR STRUCT_EL
ACTIVE BEFORE INSERT POSITION 1
as
declare variable new_path varchar(251);
begin
   /* если элемент находится в самой верхушке дерева,
    тогда путь будет равен названию этого элемента*/
   if (new.kod_parent = 0) then
       new.path = new.name;
   /* иначе новый путь будет складываться из пути родителя
    + '\' + название нового элемента*/
   else
      begin
         select path
         from struct_el
         where kod = new.kod_parent
         into :new_path;
         new.path = :new_path||'\'||new.name;
      end
end
-----------------------------------------------
CREATE TRIGGER STRUCT_EL_BU_TRIG FOR STRUCT_EL
ACTIVE BEFORE UPDATE POSITION 0
as
declare variable new_path varchar(251);
begin
   /* если у данного элемента сменился родитель или название, тогда ...*/
   if ((new.kod_parent <> old.kod_parent) or
      (new.name <> old.name)) then
       if (new.kod_parent = 0) then
           new.path = new.name;
       else
          begin
             select path
             from struct_el
             where kod = new.kod_parent
             into :new_path;
             new.path = :new_path||'\'||new.name;
          end
end
-----------------------------------------------
CREATE TRIGGER STRUCT_EL_AU_TRIG FOR STRUCT_EL
ACTIVE AFTER UPDATE POSITION 0
as
begin
   if (new.path <> old.path) then
   update struct_el
   set path = new.path||'\'||name
   where kod_parent = new.kod;
end
------------------------------------------------