create procedure get_tree_%Lower(%TableName) (
  MASTER_%TableName_ID INTEGER)
returns (%ForEachAtt(%TableName, ',')
 {
  %AttFieldName %AttDataType})
AS
begin
  for select %ForEachAtt(%TableName, ',')
    { %AttFieldName}
  from %TableName T
  where Base_%TableName_id =:MASTER_%TableName_id
  order by T.Location, T.FName_Short
  into %ForEachAtt(%TableName, ',')
  { :%AttFieldName}
   do begin
     suspend;
     if (Child_Count >  0 ) then
       for  select %ForEachAtt(%TableName, ',')
         { %AttFieldName}
       from get_tree_%Lower(%TableName)(:%TableName_id)
       into %ForEachAtt(%TableName, ',')
        { :%AttFieldName}
     do suspend;
   end
end

CREATE TABLE PART_CATEGORY (
    PART_CATEGORY_ID       T_PART_CATEGORY_ID NOT NULL /* T_PART_CATEGORY_ID 
= INTEGER */,
    BASE_PART_CATEGORY_ID  T_BASE_PART_CATEGORY_ID NOT NULL /* 
T_BASE_PART_CATEGORY_ID = INTEGER */,
    FNAME_SHORT            T_FNAME_SHORT NOT NULL /* T_FNAME_SHORT = 
VARCHAR(84) */,
    LOCATION               T_LOCATION /* T_LOCATION = INTEGER DEFAULT 0 */,
    CHILD_COUNT            T_CHILD_COUNT /* T_CHILD_COUNT = INTEGER DEFAULT 
0 NOT NULL */
);

create procedure get_tree_part_category (
  MASTER_Part_Category_ID INTEGER)
returns (part_category_id INTEGER,
  base_part_category_id INTEGER,
  fname_short VARCHAR( 84 ),
  location INTEGER,
  child_count INTEGER)
AS
begin
  for select part_category_id, base_part_category_id, fname_short, location, 
child_count
  from Part_Category T
  where Base_Part_Category_id =:MASTER_Part_Category_id
  order by T.Location, T.FName_Short
  into :part_category_id, :base_part_category_id, :fname_short, :location, 
:child_count
   do begin
     suspend;
     if (Child_Count >  0 ) then
       for  select part_category_id, base_part_category_id, fname_short, 
location, child_count
       from get_tree_part_category(:Part_Category_id)
       into :part_category_id, :base_part_category_id, :fname_short, 
:location, :child_count
     do suspend;
   end
end

%if(%==(%EntityProp(generate_id),yes))
  {create trigger %TableName_gen_id for %TableName before insert position  0 
/* Триггер для  заполнения ключевого поля */
as
begin
    IF (new.%TableName_id IS NULL) THEN
       new.%TableName_id = GEN_ID(%TableName_id_gen,  1 );
end ;
}
}

create trigger Part_Category_gen_id for Part_Category before insert position 
 0 
/* Триггер для  заполнения ключевого поля */
as
begin
    IF (new.Part_Category_id IS NULL) THEN
       new.Part_Category_id = GEN_ID(Part_Category_id_gen,  1 );
end ;