В поиск. Этот вопрос очень часто задавался.

Glafira писал(а) 11. Июля 2007 :: 12:29:


Кнопка!(не быстрый) - среди кнопок сверху.
Строка поиска - "Уровень"
Сообщения - "За все время"(!! быстрый - за неделю?)
Раздел - "Прямые запросы"
Показывать по одному результату из темы - галочка

Должно быть 7 тем.

Ладно ладно, опозорили бедную девочку... И все равно только 1 нормальная ветка...

Решил для себя задачу так :
1. Добавил реквизит "Уровень" в справочник.
2. ПриНачалеРаботы :

	лЗапросODBC=СоздатьОбъект("ODBCRecordSet");
	лЗапросODBC.ВыполнитьИнструкцию("
|set nocount on
|declare @level as int, @idspr as char(9),@idparent_spr as char(9)
|declare @cur_id as char(9),@cur_idparent as char(9),@cur_level as int
|declare mcursor cursor local for
|   select  SprTMZ.id, SprTMZ.parentid, $SprTMZ.Уровень
|   from   $Справочник.ТМЦ as SprTMZ (nolock)
|open mcursor
| fetch next from mcursor into @cur_id,@cur_idparent,@cur_level
| while @@fetch_status=0
| begin
| select @level=0
| select @idparent_spr = @cur_id
|   while (@idparent_spr<>$ПустойИД)
|   begin
|      select  @idparent_spr = SprTMZ.parentid
|      from   $Справочник.ТМЦ as SprTMZ (nolock) where SprTMZ.id=@idparent_spr
|      select @level=@level+1
|   end
|   if (@level<>@cur_level)
|   begin
|    update SprTMZ_u
|    set $SprTMZ_u.Уровень = @level
|    from $Справочник.ТМЦ as SprTMZ_u where  SprTMZ_u.id = @cur_id
|   end
| fetch next from mcursor into @cur_id,@cur_idparent,@cur_level
| end
|close mcursor
|deallocate mcursor
|set nocount off
|");
	лЗапросODBC.Закрыть();

 

Замечания :
1. Это хорошо, когда справочники меняются редко.
2. Это можно вставить также в процедуру "приоткрытии"
3. По-хорошему, если справочник изменяется интенсивно, нужно писать тригера на добавление записи в справочник и на изменение поля parentid.
4. В процедуре "ПриЗаписи()", "ПриПереносеЭлементаВДругуюГруппу()" не забыть заполнить реквизит "Уровень".

Вот функция для вычисления уровня вложенности, где XXX - номер таблицы вашего справочника, YYY - название вашего справочника:

CREATE FUNCTION [dbo].[YYY_Уровень] (@ID char(9)) RETURNS int
AS
BEGIN
   DECLARE @PARENTID char(9)
   DECLARE @Уровень int
     SET @Уровень = 1
   SELECT @PARENTID = PARENTID FROM dbo.SCXXX WITH (NOLOCK) WHERE ID = @ID      
   WHILE @PARENTID <> '     0  '
       SELECT @PARENTID = PARENTID, @Уровень = @Уровень+1 FROM dbo.SCXXX WITH (NOLOCK) WHERE ID = @PARENTID      
   RETURN (@Уровень)
END

А, заодно и ещё две похожие функции:

CREATE FUNCTION [dbo].[YYY_ПолноеНаименование] (@ID char(9)) RETURNS varchar(1000)
AS
BEGIN
   DECLARE @PARENTID char(9)
   DECLARE @DESCR varchar(1000)
   SELECT @PARENTID = PARENTID, @DESCR = RTRIM(DESCR) FROM dbo.SCXXX WITH (NOLOCK) WHERE ID = @ID      
   WHILE @PARENTID <> '     0  '
       SELECT @PARENTID = PARENTID, @DESCR = RTRIM(DESCR)+'/'+RTRIM(@DESCR) FROM dbo.SCXXX WITH (NOLOCK) WHERE ID = @PARENTID      
   RETURN (RTRIM(@DESCR))
END


CREATE FUNCTION [dbo].[YYY_ПринадлежитГруппе] (@ID char(9), @ID_Группы char(9))
RETURNS int
AS
BEGIN
   DECLARE @PARENTID char(9)
   IF @ID_Группы = '     0  ' RETURN 1
   SELECT @PARENTID = PARENTID FROM SCXXX WITH (NOLOCK) WHERE ID = @ID      
   WHILE @PARENTID <> '     0  '
   BEGIN
       IF @PARENTID = @ID_Группы RETURN 1
       SELECT @PARENTID = PARENTID FROM SCXXX WITH (NOLOCK) WHERE ID = @PARENTID      
   END
   RETURN 0
END

KonstSV писал(а) 12. Июля 2007 :: 04:40:


Универсальную наверное было бы удобнее. Обратиться к таблице у которой имя задано в качестве переменной можно так:

DECLARE @SQL varchar(8000), @TABLE_NAME varchar(10)
SET @SQL = 'SELECT * FROM ' + @TABLE_NAME
exec(@SQL)