Соединение таблиц в запросе по условию "В иерархии" с использованием Nested Sets

Публикация № 642856

Разработка - Практика программирования

Запросы соединение таблиц иерархия в иерархии nested sets

Реализация метода хранения деревьев Nested Sets в 1С. Использование деревьев Nested Sets для соединения таблиц в запросах по условию "В иерархии".

В данной статья я расскажу о решении задачи, цель которой в проверке набора записей на сложные (комбинированные) условия вида "в иерархии", с акцентом на производительность решения (т.е. запросы в цикле не используем). Первая часть статьи - это постановка проблемы, вторая - это решение задачи с использованием метода Nested Sets. Если вам не интересны прелюдии, смело переходите ко второй части, там вся суть.

Часть 1. Формулирование проблемы.

Представьте себе задачу: необходимо проверить некоторый набор данных на условие иерархического вхождения его элементов (этого набора) в элементы более высокого уровня (например, группы), вот только групп может быть несколько и выбор той или иной группы также имеет определённые условия.

Чтобы было легче, вот более реальный пример (хотя пример все же выдуман, но для раскрытия темы будет вполне достаточно):

Есть справочник "Номенклатура". Справочник имеет иерархию Групп и элементов, уровень вложенности неограничен (на самом деле не важно, что это будет за иерархия: элементов или групп). Также, для произвольной группировки номенклатуры, имеется справочник "Сегменты номенклатуры". У справочника с сегментами есть табличная часть, где указывается какая номенклатура входит в данный сегмент, причем могут указываться как конкретные позиции номенклатуры, так и группы номенклатуры. Каждому сотруднику предприятия может быть указан один сегмент. Тем самым определяется доступная номенклатура, которую может заказать этот сотрудник. Сотрудники регулярно что-то заказывают, но делают это внесистемно – пишут служебки и относят их ответственному пользователю, который вводит один общий документ, где указывает сотрудников и то, что они заказывают. Документ имеет табличную часть с колонками «Сотрудник», «Номенклатура», «Количество». При проведении документа требуется реализовать проверку, которая убедится, что все заказали только то, что им разрешено.

Если не вдаваться в детали, то на первый взгляд решение задачи проблем не вызывает: взять таблицу из документа, для каждого пользователя определить сегмент и выяснить входит ли заказанная номенклатура в сегмент. Но есть нюанс. Так как в сегментах может быть определена группа, то это означает, что в запросе мы получим соединение таблиц, где проверка условия будет строится по выражению «В иерархии». Вот запрос, который бы решил задачу:

ВЫБРАТЬ

            ВТ_Заказы.Сотрудник КАК Сотрудник,

            ВТ_Заказы.Сегмент КАК Сегмент,

            ВТ_Заказы.Номенклатура КАК Номенклатура,

            СегментыСостав.Номенклатура КАК НоменклатураСегмента

ИЗ

            ВТ_Заказы КАК ВТ_Заказы

                        ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Сегменты.Состав КАК СегментыСостав

                        ПО ВТ_Заказы.Сегмент = СегментыСостав.Ссылка

                                    И (ВЫБОР

                                               КОГДА СегментыСостав.Номенклатура.ЭтоГруппа

                                                           ТОГДА ВТ_Заказы.Номенклатура В ИЕРАРХИИ (СегментыСостав.Номенклатура)

                                               ИНАЧЕ ВТ_Заказы.Номенклатура = СегментыСостав.Номенклатура

                                    КОНЕЦ)

ГДЕ

            СегментыСостав.Ссылка ЕСТЬ NULL

Но 1С так делать не умеет. Выражение в скобках после оператора «В ИЕРАРХИИ» (подчеркнуто и выделено жирным) может быть либо параметром, либо вложенным подзапросом. В обоих случаях нас это не устраивает. Так как еще есть условие на равенство сегмента, соответственно в выборке может быть много сегментов с различными группами.

Можно рассмотреть решение с запросом в цикле: первый запрос вернет требуемые сегменты, затем в цикле для каждого из них получить содержимое и сделать проверку на данных из документа. Но ведь каждый знает, что запрос в цикле — это моветон, кошмар для производительности.

Другой вариант, это реализовать регистр, который будет хранить пономенклатурный состав сегмента. В целом это спасает. Вопрос только как его поддерживать в актуальном состоянии: понятное дело обновлять при записи сегмента, но также нужно следить еще и за изменением структуры в самом справочнике с номенклатурой. Этот вариант тоже отложим в сторону.

Еще есть вариант использовать механизмы СКД (как это делается для сегментов ERP/УТ), но это не чистые запросы 1С и по сути получим тот же неявный запрос в цикле.

Наш вариант другой – научить 1С работать с Nested Sets деревьями!

Часть 2. Nested Sets в 1С.

Немного теории.

Хранить иерархические структуры в базах данных можно по-разному. 1С для этого использует вариант, когда для каждого элемента указывается его родитель. Данный метод называется "Adjacency List" (переводится как "Список смежных вершин"). Такой метод конечно имеет право на жизнь и для большинства задач он вполне достаточен, но, что касается выполнения условий на вхождения в группы, то здесь он просто ужасен (что видно из описанного выше примера). 

Для задач на проверку вхождения в иерархию гораздо лучше подходит метод Nested Sets (можно перевести как "Вложенные множества"). Данный метод подразумевает, что каждый элемент хранит в себе диапазон вложенных в него элементов. Это достигается путем использования пары ключей: lgt - left key и rgt - right key (см. картинку к статье). Соотвенно, left key (левый ключ) определяет начало диапазона, а right key (правый ключ) - его конец. Откуда же берутся ключи? Для того, чтобы получить ключи нужно обойти все дерево против часовой стрелки (слева направо) начиная с его корневого элемента. Это что-то вроде задачек для детей - нарисуй домик не отрывая карандаша, только вместо домика - граф (наше дерево). Так вот, ставим карандаш в корень (получаем первый левый ключ), далее спускаемся до ближаешего крайнего левого узла (получаем левый ключ номер два), далее еще ниже до тех пор пока не дойдем до самого крайнего элемента данной (крайней левой) ветки. От этого элемента начинаем подниматься назад вверх, при этом заполняются уже правые ключи. Поднимаемся до первой развилки и опять спускаемся вниз по тем элементам где еще не были. И так далее пока не будет обрисован весь граф (всё дерево).

В результате все ключи получаются уникальными, правый всегда больше левого, а диапазон ключей на любой элементе включает в себе диапазоны ключей всех вложенных внего узлов (см. картинку к статье).

Практика.

Для реализации структуры данных, которая будет хранить дерево в формате Nested Sets подойдет регистр сведений. Если продолжить рассматривать пример из первой части статьи то, для номенклатуры можно реализовать периодический (в пределах секунды) регистр сведений "Номенклатура Nested Sets": измерение "Номенклатура" (тип спр. "Номенклатура"); ресурсы: Левый ключ (Число(10,0)), Правый ключ (Число(10,0)), Уровень(Число(10,0)).

Итоговая конфигурация (выгрузка) приложена к статье.

При добавлении новых позиции номенклатуры и удаления существующих происходит пересчет ключей в Nested Sets. Для этого в обработчики событий "При записи" и "Перед удалением" добалены вызовы соответствующих процедур: "ДобавитьУзелВМножество(Номенклатура, Отказ)" и "УдалитьУзелИзМножества(Номенклатура, Отказ)". Сами процедуры вынесены в модуль менеджера рег. сведений "Номенклатура Nested Sets".

Все действия с пересчетом ключей можно разделить на 3 вида:

  • Добавление нового узла (реализовано в процедуре "ДобавитьУзелВМножество", если условия на проверку существования узла = Ложь);
  • Перемещение узла (изменение родителя) (реализовано в процедуре "ДобавитьУзелВМножество", если условия на проверку существования узла = Истина);
  • Удаление узла (реализовано в процедуре "УдалитьУзелИзМножества")

1. При добавлении нового узла определяется родитель. Если его нет (узел добавляется в корень), то берется максимальное значение правого ключа (по всему дереву) и добавляется "1" - таким образом получается значение левого ключа нового узла. При этом остальные узлы не пересчитываются. Если родитель определен, то берется правый ключ родителя и он становится значением левого ключа нового узла. После этого происходит пересчет ключей всех узлов, стоящих "справа" от нового (что логично, все ключи сдвигаются на 2, узлы "слева" не задействуются). Правый ключ нового узла определяется как Левый ключ + 1 (ведь мы добавили всего один узел без вложенной ветки).

2. Перемещение узла самая сложная часть алгоритма. Следует разделить перемещение на 2 типа: вверх по дереву (с увеличением ключа новой позиции) и вниз по дереву (когда ключ позиции уменьшается). Перемещение всегда происходит  без добавления и удаления узлов. Существующий узел перемещается на новую позицию. Старая и новая позиции узла определяют левую и правую границы. Левая граница - ветка, на которую переместился узел при направлении перемещения "влево", либо ветка, с которой переместился узел при направлении перемещения "вправо". Правая граница - соответственно, ветка, на которую переместился узел при направлении перемещения "вправо", либо ветка, с которой переместился узел при направлении перемещения "влево".  Независимо от направления при перемещении всё множество узлов можно разделить на 5 групп: 

  1. Узлы, ключи которых не изменяются. Ведь если мы перемещаем ветку в пределах двух позиций, то все, что находится за этими позициями, не изменяется. Новые элементы не добавляются, старые не удаляются, количество элементов постоянно, вот и ключи элементов до начала левой границы смещения и после правой границы остаются прежними;
  2. Узлы, у которых изменяются 2 ключа сразу. Это узлы между левой и правой границей. При перемещении влево их индексы увеличиваются на дельту. Где дельта - это разница между правым и левым ключом перемещаемого узла плюс единица (длина ветки исходящей от узла). При перемещении вправо индексы уменьшаются на эту дельту;
  3. Узлы, у которых изменяется  правый ключ. Это узлы, которые проходят по левой границе смещения. Изменение происходит на величину дельты;
  4. Узлы, у которых изменяется левый ключ. Это узлы, которые проходят по правой границе смещения. Изменение происходит на величину дельты;
  5. Узлы, входящие в перемещаемую ветку. Их может и не быть если перемещается один только узел без вложенных элементов. Все такие узлы изменяются на величину смещения. Где смещение - это разница между старым левым ключом и новым левым ключем (длина переноса узла). Старый левый ключ - левый ключ старого положения узла, новый левый ключ - ключ нового положения. Следует учесть, что при перемещении вправо к смещеию добавляется величина дельты. В коде также используется понятие "БлижайшийПравыйКлюч" - под ним следует понимать правый ключ ближайшего элемента. Левый ключ нового узла равен "БлижайшийПравыйКлюч"  + 1.

    Стоит отметить, что в реализованном мною алгоритме не учитывается позиции, в которую перемещается узел в пределах родителя - узел всегда помещается как последний в пределах подчинения родителю. Для решения задач на вложенность элементов этого вполне достаточно.

Ниже приведен листинг процедуры "ДобавитьУзелВМножество":

Процедура ДобавитьУзелВМножество(Номенклатура, Отказ) Экспорт
    // Проверка на то, стоит ли дальше продолжать...
	Если Отказ Или Номенклатура.ДополнительныеСвойства.Свойство("НеОбновлятьУзлыВNestedSets")Тогда
		Возврат;
	КонецЕсли;
	
    // Так как на ключи завязан контроль проведения, лучше перестраховаться и выполняться чтение-записи при исключительной блокировке
	Блокировка = Новый БлокировкаДанных;
	ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.НоменклатураNestedSets");
	ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;
	Блокировка.Заблокировать();
	
	Запрос = Новый Запрос;
	МВТ = Новый МенеджерВременныхТаблиц;
	Запрос.МенеджерВременныхТаблиц = МВТ;
	Запрос.Текст =
    // Первая часть запроса общая: проверка существования записи (если нет, то запись новая), получение ключей родителя и текущий записи
		"ВЫБРАТЬ
		|	НоменклатураNestedSets.Номенклатура КАК Номенклатура,
		|	НоменклатураNestedSets.ЛевыйКлюч КАК ЛевыйКлюч,
		|	НоменклатураNestedSets.ПравыйКлюч КАК ПравыйКлюч,
		|	НоменклатураNestedSets.Уровень КАК Уровень
		|ПОМЕСТИТЬ ВТ_СуществующаяЗапись
		|ИЗ
		|	РегистрСведений.НоменклатураNestedSets.СрезПоследних(, Номенклатура = &Узел) КАК НоменклатураNestedSets
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	НоменклатураNestedSets.Номенклатура КАК Номенклатура,
		|	НоменклатураNestedSets.ЛевыйКлюч КАК ЛевыйКлюч,
		|	НоменклатураNestedSets.ПравыйКлюч КАК ПравыйКлюч,
		|	НоменклатураNestedSets.Уровень КАК Уровень
		|ПОМЕСТИТЬ ВТ_ЗаписьРодителя
		|ИЗ
		|	РегистрСведений.НоменклатураNestedSets.СрезПоследних(
		|			,
		|			&РодительУказан
		|				И Номенклатура = &Родитель) КАК НоменклатураNestedSets
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	МАКСИМУМ(НоменклатураNestedSets.ПравыйКлюч) КАК ПравыйКлюч
		|ПОМЕСТИТЬ ВТ_МаксимальныйПравыйКлюч
		|ИЗ
		|	РегистрСведений.НоменклатураNestedSets.СрезПоследних(, НЕ &РодительУказан) КАК НоменклатураNestedSets
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	ВТ_ЗаписьРодителя.ПравыйКлюч - 1 КАК БлижайшийПравыйКлюч,
		|	ВТ_ЗаписьРодителя.Уровень + 1 КАК Уровень
		|ПОМЕСТИТЬ ВТ_НовоеПоложениеУзла
		|ИЗ
		|	ВТ_ЗаписьРодителя КАК ВТ_ЗаписьРодителя
		|ГДЕ
		|	НЕ ВТ_ЗаписьРодителя.ПравыйКлюч ЕСТЬ NULL
		|
		|ОБЪЕДИНИТЬ ВСЕ
		|
		|ВЫБРАТЬ
		|	ВТ_МаксимальныйПравыйКлюч.ПравыйКлюч,
		|	1
		|ИЗ
		|	ВТ_МаксимальныйПравыйКлюч КАК ВТ_МаксимальныйПравыйКлюч
		|ГДЕ
		|	НЕ ВТ_МаксимальныйПравыйКлюч.ПравыйКлюч ЕСТЬ NULL
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	1 КАК Поле1
		|ИЗ
		|	ВТ_СуществующаяЗапись КАК ВТ_СуществующаяЗапись";
	Запрос.УстановитьПараметр("Узел", Номенклатура.Ссылка);
	Запрос.УстановитьПараметр("Родитель", Номенклатура.Родитель);
	Запрос.УстановитьПараметр("РодительУказан", ЗначениеЗаполнено(Номенклатура.Родитель));		
	
	Если Запрос.Выполнить().Пустой() Тогда
		// Новый узел
		Запрос.Текст =
			"ВЫБРАТЬ
			|	&Период КАК Период,
			|	НоменклатураNestedSets.Номенклатура КАК Номенклатура,
			|	ВЫБОР
			|		КОГДА НоменклатураNestedSets.ЛевыйКлюч > ВТ_ЗаписьРодителя.ПравыйКлюч
			|			ТОГДА НоменклатураNestedSets.ЛевыйКлюч + 2
			|		ИНАЧЕ НоменклатураNestedSets.ЛевыйКлюч
			|	КОНЕЦ КАК ЛевыйКлюч,
			|	НоменклатураNestedSets.ПравыйКлюч + 2 КАК ПравыйКлюч,
			|	НоменклатураNestedSets.Уровень КАК Уровень
			|ИЗ
			|	ВТ_ЗаписьРодителя КАК ВТ_ЗаписьРодителя
			|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних КАК НоменклатураNestedSets
			|		ПО ВТ_ЗаписьРодителя.ПравыйКлюч <= НоменклатураNestedSets.ПравыйКлюч
			|;
			|
			|////////////////////////////////////////////////////////////////////////////////
			|ВЫБРАТЬ
			|	ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч + 1 КАК ЛевыйКлючНовогоУзла,
			|	ВТ_НовоеПоложениеУзла.Уровень КАК УровеньНовогоУзла
			|ИЗ
			|	ВТ_НовоеПоложениеУзла КАК ВТ_НовоеПоложениеУзла";
		ПериодЗаписи = ТекущаяДата();
		Запрос.УстановитьПараметр("Период", ПериодЗаписи);
		
		Пакет = Запрос.ВыполнитьПакет();
		ВыгрузкаСмещение = Пакет[0].Выгрузить(); // Данные для записи в регистр с учетом смещения ключей
		ВыборкаНовыйУзел = Пакет[1].Выбрать(); // Данные для вставки нового узла
		
		НаборЗаписей = РегистрыСведений.НоменклатураNestedSets.СоздатьНаборЗаписей();
		НаборЗаписей.Загрузить(ВыгрузкаСмещение);
		
		// Добавим в набор новый узел
		НоваяЗапись 				= НаборЗаписей.Добавить();
		НоваяЗапись.Номенклатура 	= Номенклатура.Ссылка;
		НоваяЗапись.Период 			= ПериодЗаписи;
		Если ВыборкаНовыйУзел.Следующий() Тогда
			НоваяЗапись.Уровень 		= ВыборкаНовыйУзел.УровеньНовогоУзла;
			НоваяЗапись.ЛевыйКлюч 		= ВыборкаНовыйУзел.ЛевыйКлючНовогоУзла;
			НоваяЗапись.ПравыйКлюч 		= НоваяЗапись.ЛевыйКлюч  + 1;
		Иначе
			// Первый (единственный) узел
			НоваяЗапись.Уровень 		= 1;
			НоваяЗапись.ЛевыйКлюч 		= 1;
			НоваяЗапись.ПравыйКлюч 		= 2;
		КонецЕсли;
		
		НаборЗаписей.Записать(Ложь); // Записываем с замещением, лишние записи потрем регл.заданием
	Иначе
		 // Перемещение узла
		 Запрос.Текст =
            /////////////// Определяем Смещение, Дельту, Ближайший правый ключ (см. теорию)
		 	"ВЫБРАТЬ
		 	|	ВТ_НовоеПоложениеУзла.Уровень - ВТ_СуществующаяЗапись.Уровень КАК СмещениеУровня,
		 	|	ВТ_СуществующаяЗапись.ПравыйКлюч - ВТ_СуществующаяЗапись.ЛевыйКлюч + 1 КАК Дельта,
		 	|	ВЫБОР
		 	|		КОГДА ВТ_СуществующаяЗапись.ПравыйКлюч > ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч
		 	|			ТОГДА ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч - ВТ_СуществующаяЗапись.ЛевыйКлюч + 1
		 	|		ИНАЧЕ ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч - ВТ_СуществующаяЗапись.ЛевыйКлюч + 1 - (ВТ_СуществующаяЗапись.ПравыйКлюч - ВТ_СуществующаяЗапись.ЛевыйКлюч + 1)
		 	|	КОНЕЦ КАК Смещение,
		 	|	ВЫБОР
		 	|		КОГДА ВТ_СуществующаяЗапись.ПравыйКлюч > ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч
		 	|			ТОГДА -1
		 	|		ИНАЧЕ 1
		 	|	КОНЕЦ КАК Направление,
		 	|	ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч КАК БлижайшийПравыйКлюч,
		 	|	ВТ_СуществующаяЗапись.ПравыйКлюч КАК СтарыйПравыйКлюч,
		 	|	ВТ_СуществующаяЗапись.ЛевыйКлюч КАК СтарыйЛевыйКлюч
		 	|ПОМЕСТИТЬ ВТ_ОтборыИСмещение
		 	|ИЗ
		 	|	ВТ_СуществующаяЗапись КАК ВТ_СуществующаяЗапись,
		 	|	ВТ_НовоеПоложениеУзла КАК ВТ_НовоеПоложениеУзла
		 	|;
		 	|
		 	|////////////////////////////////////////////////////////////////////////////////
            |////////// Перемещение влево ////////////////// 
		 	|ВЫБРАТЬ
		 	|	&Период КАК Период,
		 	|	НоменклатураNestedSets.Номенклатура КАК Номенклатура,
		 	|	ВЫБОР
		 	|		КОГДА НоменклатураNestedSets.ЛевыйКлюч >= ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.ЛевыйКлюч + ВТ_ОтборыИСмещение.Смещение
		 	|		КОГДА НоменклатураNestedSets.ЛевыйКлюч > ВТ_ОтборыИСмещение.БлижайшийПравыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.ЛевыйКлюч + ВТ_ОтборыИСмещение.Дельта
		 	|		ИНАЧЕ НоменклатураNestedSets.ЛевыйКлюч
		 	|	КОНЕЦ КАК ЛевыйКлюч,
		 	|	ВЫБОР
		 	|		КОГДА НоменклатураNestedSets.ЛевыйКлюч >= ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.ПравыйКлюч + ВТ_ОтборыИСмещение.Смещение
		 	|		КОГДА НоменклатураNestedSets.ПравыйКлюч < ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.ПравыйКлюч + ВТ_ОтборыИСмещение.Дельта
		 	|		ИНАЧЕ НоменклатураNestedSets.ПравыйКлюч
		 	|	КОНЕЦ КАК ПравыйКлюч,
		 	|	ВЫБОР
		 	|		КОГДА НоменклатураNestedSets.ЛевыйКлюч >= ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.Уровень + ВТ_ОтборыИСмещение.СмещениеУровня
		 	|		ИНАЧЕ НоменклатураNestedSets.Уровень
		 	|	КОНЕЦ КАК Уровень
		 	|ИЗ
		 	|	ВТ_ОтборыИСмещение КАК ВТ_ОтборыИСмещение
		 	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних(
		 	|				,
		 	|				1 В
		 	|					(ВЫБРАТЬ
		 	|						1
		 	|					ИЗ
		 	|						ВТ_ОтборыИСмещение КАК ВТ_ОтборыИСмещение
		 	|					ГДЕ
		 	|						ВТ_ОтборыИСмещение.Направление = -1)) КАК НоменклатураNestedSets
		 	|		ПО (НоменклатураNestedSets.ПравыйКлюч > ВТ_ОтборыИСмещение.БлижайшийПравыйКлюч)
		 	|			И (НоменклатураNestedSets.ЛевыйКлюч < ВТ_ОтборыИСмещение.СтарыйПравыйКлюч)
		 	|ГДЕ
		 	|	ВТ_ОтборыИСмещение.Направление = -1
		 	|
		 	|ОБЪЕДИНИТЬ ВСЕ
		 	|
            |////////// Перемещение вправо //////////////////
		 	|ВЫБРАТЬ
		 	|	&Период,
		 	|	НоменклатураNestedSets.Номенклатура,
		 	|	ВЫБОР
		 	|		КОГДА НоменклатураNestedSets.ПравыйКлюч <= ВТ_ОтборыИСмещение.СтарыйПравыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.ЛевыйКлюч + ВТ_ОтборыИСмещение.Смещение
		 	|		КОГДА НоменклатураNestedSets.ЛевыйКлюч > ВТ_ОтборыИСмещение.СтарыйПравыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.ЛевыйКлюч - ВТ_ОтборыИСмещение.Дельта
		 	|		ИНАЧЕ НоменклатураNestedSets.ЛевыйКлюч
		 	|	КОНЕЦ,
		 	|	ВЫБОР
		 	|		КОГДА НоменклатураNestedSets.ПравыйКлюч <= ВТ_ОтборыИСмещение.СтарыйПравыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.ПравыйКлюч + ВТ_ОтборыИСмещение.Смещение
		 	|		КОГДА НоменклатураNestedSets.ПравыйКлюч <= ВТ_ОтборыИСмещение.БлижайшийПравыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.ПравыйКлюч - ВТ_ОтборыИСмещение.Дельта
		 	|		ИНАЧЕ НоменклатураNestedSets.ПравыйКлюч
		 	|	КОНЕЦ,
		 	|	ВЫБОР
		 	|		КОГДА НоменклатураNestedSets.ПравыйКлюч <= ВТ_ОтборыИСмещение.СтарыйПравыйКлюч
		 	|			ТОГДА НоменклатураNestedSets.Уровень + ВТ_ОтборыИСмещение.СмещениеУровня
		 	|		ИНАЧЕ НоменклатураNestedSets.Уровень
		 	|	КОНЕЦ
		 	|ИЗ
		 	|	ВТ_ОтборыИСмещение КАК ВТ_ОтборыИСмещение
		 	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних(
		 	|				,
		 	|				1 В
		 	|					(ВЫБРАТЬ
		 	|						1
		 	|					ИЗ
		 	|						ВТ_ОтборыИСмещение КАК ВТ_ОтборыИСмещение
		 	|					ГДЕ
		 	|						ВТ_ОтборыИСмещение.Направление = 1)) КАК НоменклатураNestedSets
		 	|		ПО (НоменклатураNestedSets.ПравыйКлюч > ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч)
		 	|			И (НоменклатураNestedSets.ЛевыйКлюч <= ВТ_ОтборыИСмещение.БлижайшийПравыйКлюч)
		 	|ГДЕ
		 	|	ВТ_ОтборыИСмещение.Направление = 1";
		ПериодЗаписи = ТекущаяДата();
		Запрос.УстановитьПараметр("Период", ПериодЗаписи);
		
		ВыгрузкаСмещение = Запрос.Выполнить().Выгрузить(); // Данные для записи в регистр с учетом смещения ключей
		
		НаборЗаписей = РегистрыСведений.НоменклатураNestedSets.СоздатьНаборЗаписей();
		НаборЗаписей.Загрузить(ВыгрузкаСмещение);
		НаборЗаписей.Записать(Ложь); // Записываем с замещением, лишние записи потрем регл.заданием
	КонецЕсли;

КонецПроцедуры

3. Удаление узла не сильно отличается от его добавления. Стоит лишь учесть, что при удалении узла удаляется вся ветка (все вложенные узлы). В системе такого не должно быть при нормальных условиях. Но если кто-то удалит группу не удостоверившись, что на нее ссылаются вложенные элементы, то тут как раз и отработает наш алгоритм сполна.

Ниже приведен листинг процедуры "ДобавитьУзелВМножество":

Процедура УдалитьУзелИзМножества(Номенклатура, Отказ) Экспорт
	Если Отказ Тогда
		Возврат;
	КонецЕсли;
	
	Запрос = Новый Запрос;
	Запрос.Текст =
		"ВЫБРАТЬ
		|	НоменклатураNestedSets.Номенклатура КАК Номенклатура,
		|	НоменклатураNestedSets.ЛевыйКлюч КАК ЛевыйКлюч,
		|	НоменклатураNestedSets.ПравыйКлюч КАК ПравыйКлюч,
		|	НоменклатураNestedSets.Уровень КАК Уровень,
		|	НоменклатураNestedSets.ПравыйКлюч - НоменклатураNestedSets.ЛевыйКлюч + 1 КАК Дельта
		|ПОМЕСТИТЬ ВТ_СуществующаяЗапись
		|ИЗ
		|	РегистрСведений.НоменклатураNestedSets.СрезПоследних(, Номенклатура = &Узел) КАК НоменклатураNestedSets
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	НоменклатураNestedSetsСрезПоследних.Номенклатура КАК Номенклатура
		|ИЗ
		|	ВТ_СуществующаяЗапись КАК ВТ_СуществующаяЗапись
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних КАК НоменклатураNestedSetsСрезПоследних
		|		ПО ВТ_СуществующаяЗапись.ЛевыйКлюч <= НоменклатураNestedSetsСрезПоследних.ЛевыйКлюч
		|			И ВТ_СуществующаяЗапись.ПравыйКлюч >= НоменклатураNestedSetsСрезПоследних.ПравыйКлюч
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	&Период КАК Период,
		|	НоменклатураNestedSetsСрезПоследних.Номенклатура КАК Номенклатура,
		|	ВЫБОР
		|		КОГДА НоменклатураNestedSetsСрезПоследних.ЛевыйКлюч > ВТ_СуществующаяЗапись.ЛевыйКлюч
		|			ТОГДА НоменклатураNestedSetsСрезПоследних.ЛевыйКлюч - ВТ_СуществующаяЗапись.Дельта
		|		ИНАЧЕ НоменклатураNestedSetsСрезПоследних.ЛевыйКлюч
		|	КОНЕЦ КАК ЛевыйКлюч,
		|	НоменклатураNestedSetsСрезПоследних.ПравыйКлюч - ВТ_СуществующаяЗапись.Дельта КАК ПравыйКлюч,
		|	НоменклатураNestedSetsСрезПоследних.Уровень КАК Уровень
		|ИЗ
		|	ВТ_СуществующаяЗапись КАК ВТ_СуществующаяЗапись
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних КАК НоменклатураNestedSetsСрезПоследних
		|		ПО ВТ_СуществующаяЗапись.ПравыйКлюч < НоменклатураNestedSetsСрезПоследних.ПравыйКлюч";
	Запрос.УстановитьПараметр("Узел", Номенклатура.Ссылка);
	ПериодЗаписи = ТекущаяДата();
	Запрос.УстановитьПараметр("Период", ПериодЗаписи);
	
	Пакет = Запрос.ВыполнитьПакет();
	ВыборкаКУдалению = Пакет[1].Выбрать();
	ВыгрузкаСмещение = Пакет[2].Выгрузить(); // Данные для записи в регистр с учетом смещения ключей

    // Здесь можно тоже оптимизнуть и удалить записи не в цикле, а допустим записать их в регистр с некой пометкой "к удалению",
    // но стоит учесть, что тогда придется дописать все остальные запросы и вместо того, чтобы просто брать срез, еще и отсеивать по этому новому признаку
	Пока ВыборкаКУдалению.Следующий() Цикл	
		// Удаляем узел (ветку)
		НаборЗаписей = РегистрыСведений.НоменклатураNestedSets.СоздатьНаборЗаписей();
		НаборЗаписей.Отбор.Номенклатура.Установить(ВыборкаКУдалению.Номенклатура);
		НаборЗаписей.Записать();
	КонецЦикла;
	
	НаборЗаписей = РегистрыСведений.НоменклатураNestedSets.СоздатьНаборЗаписей();
	НаборЗаписей.Загрузить(ВыгрузкаСмещение);
	НаборЗаписей.Записать(Ложь);
КонецПроцедуры

В моей реализации я сделал регистр сведений "НоменклатураNestedSets" периодическим с целью увеличения производительности. Объясню: в примерах по использованию Nested Sets в интернетах используется команда UPDATE SQL сервера, такого 1С не может. Либо записывай набор записей целиком на весь регистр, либо пиши по одной записи. Если рассматривать спр. Номенклатура, то он спокойно может перевалить за 100 000, и каждый раз писать весь набор (с предшествующим удалением) это будет накладно. Писать по одной записи, тоже плохо (обращение к СУБД в цикле). Остается вариант использование периодического регистра: записывать только измененные позиции на текущую секунду, везде в запросах брать срез последних по регистру, а регламентным заданием чистить регистр. Собственно, такой вариант я и выбрал. Конечно он не идеален (2 записи в одну секунду не осилит), но для того чтобы показать алгоритм работы с Nested Sets подойдет.

Ну и на конец сам проверка на вхождение в иерархию, сделал ее в обработке проведения документа. Листинг ниже:

Процедура ОбработкаПроведения(Отказ, РежимПроведения)
	Запрос = Новый Запрос;
	Запрос.Текст =
		"ВЫБРАТЬ
		|	ВЫРАЗИТЬ(ЗаявкиСотрудниковЗаказы.Сотрудник КАК Справочник.Сотрудники) КАК Сотрудник,
		|	ВЫРАЗИТЬ(ЗаявкиСотрудниковЗаказы.Номенклатура КАК Справочник.Номенклатура) КАК Номенклатура
		|ПОМЕСТИТЬ ВТ_Заказы
		|ИЗ
		|	&ТЗ КАК ЗаявкиСотрудниковЗаказы
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ РАЗЛИЧНЫЕ
		|	ВТ_Заказы.Сотрудник КАК Сотрудник,
		|	ВТ_Заказы.Сотрудник.Сегмент КАК Сегмент,
		|	СегментыСостав.Номенклатура КАК НоменклатураСегмента
		|ПОМЕСТИТЬ ВТ_ДанныеПоСегментам
		|ИЗ
		|	ВТ_Заказы КАК ВТ_Заказы
		|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Сегменты.Состав КАК СегментыСостав
		|		ПО ВТ_Заказы.Сотрудник.Сегмент = СегментыСостав.Ссылка
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	ВТ_ДанныеПоСегментам.Сотрудник КАК Сотрудник,
		|	ВТ_ДанныеПоСегментам.НоменклатураСегмента КАК НоменклатураСегмента,
		|	КлючиНоменклатурыСегмента.ЛевыйКлюч КАК ЛевыйКлюч,
		|	КлючиНоменклатурыСегмента.ПравыйКлюч КАК ПравыйКлюч
		|ПОМЕСТИТЬ ВТ_ДанныеПоСегментамСКлючами
		|ИЗ
		|	ВТ_ДанныеПоСегментам КАК ВТ_ДанныеПоСегментам
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних(
		|				,
		|				Номенклатура В
		|					(ВЫБРАТЬ
		|						ВТ_ДанныеПоСегментам.НоменклатураСегмента
		|					ИЗ
		|						ВТ_ДанныеПоСегментам КАК ВТ_ДанныеПоСегментам)) КАК КлючиНоменклатурыСегмента
		|		ПО ВТ_ДанныеПоСегментам.НоменклатураСегмента = КлючиНоменклатурыСегмента.Номенклатура
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	ВТ_Заказы.Сотрудник КАК Сотрудник,
		|	ВТ_Заказы.Номенклатура КАК Номенклатура,
		|	ВТ_ДанныеПоСегментамСКлючами.НоменклатураСегмента КАК НоменклатураСегмента
		|ИЗ
		|	ВТ_Заказы КАК ВТ_Заказы
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних(
		|				,
		|				Номенклатура В
		|					(ВЫБРАТЬ
		|						ВТ_Заказы.Номенклатура
		|					ИЗ
		|						ВТ_Заказы КАК ВТ_Заказы)) КАК КлючиНоменклатурыЗаказа
		|		ПО ВТ_Заказы.Номенклатура = КлючиНоменклатурыЗаказа.Номенклатура
		|		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ДанныеПоСегментамСКлючами КАК ВТ_ДанныеПоСегментамСКлючами
		|		ПО ВТ_Заказы.Сотрудник = ВТ_ДанныеПоСегментамСКлючами.Сотрудник
		|			И (КлючиНоменклатурыЗаказа.ЛевыйКлюч >= ВТ_ДанныеПоСегментамСКлючами.ЛевыйКлюч)
		|			И (КлючиНоменклатурыЗаказа.ПравыйКлюч <= ВТ_ДанныеПоСегментамСКлючами.ПравыйКлюч)
		|ГДЕ
		|	ВТ_ДанныеПоСегментамСКлючами.Сотрудник ЕСТЬ NULL";
	Запрос.УстановитьПараметр("ТЗ", Заказы.Выгрузить(,"Сотрудник, Номенклатура"));
	
	Результат = Запрос.Выполнить();
	
	Если Не Результат.Пустой() Тогда
		Отказ = Истина;
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Кто-то заказал что-то не то";		
		Сообщение.Сообщить();
	КонецЕсли;
КонецПроцедуры

Пример конфигурации, из которой взяты листинги, приложен к статье.

Спасибо за внимание, надеюсь для кого-то эта статья будет полезна.

Скачать файлы

Наименование Файл Версия Размер
Соединение таблиц в запросе по условию "В иерархии" с использованием Nested Sets:

.dt 53,67Kb
05.07.17
3
.dt 53,67Kb 3 Скачать

Специальные предложения

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Dmitri93 4 03.07.17 10:10 Сейчас в теме
Очень интересно было читать, описано доступным и понятным языком. Спасибо автору) честно говоря, я для себя пока не вижу конкретного практического применения этой технологи, но то что она кому-то может пригодиться это точно.
2. azhilichev 04.07.17 03:45 Сейчас в теме
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних(


Лучше это вынести во временную таблицу. Соединять основной запрос с виртуальными таблицами - плохая практика.

| Номенклатура В
| (ВЫБРАТЬ
| ВТ_Заказы.Номенклатура
| ИЗ
| ВТ_Заказы КАК ВТ_Заказы)


Тут нужны индексы (подзапрос в параметрах виртуальной таблицы - это тоже плохо, тем более из неиндексированной таблицы).

Ну и в целом по коду похожее наблюдается. Я понимаю, что это придирки, но вот это

Блокировка = Новый БлокировкаДанных;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.НоменклатураNestedSets");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;
Блокировка.Заблокировать();


довольно заметная для базы и пользователей операция. Особенно на больших данных. Поэтому оптимизировать эти алгоритмы нужно очень тщательно.

Но в целом довольно интересная статья, поэтому плюс вам.
4. kron.isant 48 04.07.17 14:19 Сейчас в теме
(2) Спасибо за комментарии.
3. bulpi 174 04.07.17 12:35 Сейчас в теме
Интересно, но на самом деле для решения исходной задачи поддерживать такой регистр - это стрелять из пушки по воробьям.
5. alon 171 05.07.17 13:54 Сейчас в теме
Начал читать, и не понял вот это
И (ВЫБОР

КОГДА ВТ_Заказы.Номенклатура.ЭтоГруппа

ТОГДА ВТ_Заказы.Номенклатура В ИЕРАРХИИ (СегментыСостав.Номенклатура)

ИНАЧЕ ВТ_Заказы.Номенклатура = СегментыСостав.Номенклатура

КОНЕЦ)
По идее проверка должна идти на СегментыСостав.Номенклатура.ЭтоГруппа
6. kron.isant 48 05.07.17 15:41 Сейчас в теме
Вы правы, спасибо, что заметили.
Запрос писал для примера в статью, разумеется проверить его не удалось:)
7. eugeniezheludkov 32 06.07.17 07:57 Сейчас в теме
Ваша статья хороша тем, что в подобной задаче я сделал запрос в цикле, а на код ревью обосновал это ссылкой на вашу статью, мол во что превратится код если уберу запрос из цикла ) ....
8. German_Tagil 20 07.07.17 17:04 Сейчас в теме
Пытаемся написать на базе КА 1.1 систему управления заявками - большая часть написана - тестируется.
Но возник такой интересный вопрос - в заказе поставщику одной позиции номенклатуры может соответствовать две - три четыре N количества заявок
Как реализовать список заявок,количество которое было заказано в табличном поле заказа поставщику ?
Я понимаю что это вопрос обсуждался и не раз и не два - но к сожалению ничего внятного не нашел
можно организовать регистр сведений и пихать туда всю инфу связанную с данной номенклатурой
но может есть другие варианты
надо поразмышлять - что-то очень близкое к тому что мне надо
10. starik-2005 2180 27.07.17 15:31 Сейчас в теме
(8)
Но возник такой интересный вопрос - в заказе поставщику одной позиции номенклатуры может соответствовать две - три четыре N количества заявок
Кто ясно мыслит - тот ясно излагает. Я вот, честно, ничего не понял.
9. starik-2005 2180 27.07.17 15:30 Сейчас в теме
Слишком сложная реализация достаточно простого механизма.
11. kron.isant 48 28.07.17 15:21 Сейчас в теме
(9) Механизм в понимании может быть и прост, но реализация его в среде 1С, на мой взгляд, выглядит именно так (как описано в статье).
Предложите более простой вариант реализации. Ну или хотя бы намекните, что здесь можно упростить, а то уж больно голословным получился Ваш комментарий.
16. German_Tagil 20 02.08.17 12:58 Сейчас в теме
(9) Sergey Andree - попробую изложить еще раз
есть спецификация покупных вразличных спецификациях могут повторяться
одноименная номенклатура - как отследить что пришло по той или иной заявке(спецификации)
перепахивать таблицы товара в заказах поставщик приходный ордер
в данном случае это вопрос - может кто-то подобное делал?
17. starik-2005 2180 02.08.17 13:26 Сейчас в теме
(16) Я, конечно, не филолог, но все-равно не могу понять, что это:
(16)
есть спецификация покупных
"Покупных" чего?
вразличных спецификациях могут повторяться одноименная номенклатура
"Могут" - это они. Они - это "покупные"? Или "они" - это "одноименная номенклатура" (тогда с какого хрена в единственном числе)?
(16)
как отследить что пришло по той или иной заявке(спецификации)
Заявка - это что? Спецификация? Или просто номенклатура? Пришло - это как? Документом каким-то? ПТУ? Или просто пришло и встало там в углу?

Пока Вы не научитесь излагать мысли, мне Вам сложно будет что-то ответить (и, полагаю, не только мне).
Патриот; +1 Ответить
12. zels 171 29.07.17 12:12 Сейчас в теме
Можно первоначально назначить ключи с шагом 100, чтобы потом было, куда вставлять новые и тем самым ускорить модификацию дерева?
13. kron.isant 48 31.07.17 11:14 Сейчас в теме
(12) Ваш первый комментарий был о том, что реализация слишком сложна, при этом предложенный вами вариант (с шагом в 100) не упрощает, а, наоборот, усложняет реализацию.
Да, он выглядит более оптимальным с точки зрения производительности, но реализация уж точно усложняется:
1. остается старый подход в случае, когда мы вываливаемся за буфер (добавляется больше 100 элементов);
2. и добавляется новый "оптимизированный" код для включения в добавленный буфер (1..99).
14. zels 171 31.07.17 16:37 Сейчас в теме
(13) А где мой первый комментарий?
15. kron.isant 48 01.08.17 17:33 Сейчас в теме
(14) Прошу прощения, думал что Вы написали предыдущие комментарии :)
18. German_Tagil 20 02.08.17 13:33 Сейчас в теме
есть спецификация покупных материалов
в различных спецификациях может повторяться одноименная номенклатура
Заявка - это что - Документ в который заносится спецификация
19. starik-2005 2180 02.08.17 13:41 Сейчас в теме
(18) Ну так это азы!
Азы - это стандартные методы FIFO/LIFO и по-среднему. Был вот случай у меня: автозапчасти, много заявок с предоплатой или по-договоренности, одинаковые запчасти в заявках. Когда приход происходил, то сначала лучшему клиенту, потом хорошему, потом остальным (если осталось). Ну и срок учитывался (в пределах недели). Задача в принципе на спеца по платформе - можно в заказе партии с учетом спецификации создавать и по приходу распределять.
20. serg-lom89 60 22.11.19 12:28 Сейчас в теме
классная идея
а есть без периодического регистра?
21. serg-lom89 60 11.12.19 15:28 Сейчас в теме
кстати а если есть данные по какой то выгрузке с данными Nested Sets,как в 1С закинуть их ?)
Оставьте свое сообщение

См. также

Безопасная работа с транзакциями во встроенном языке Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

Разбираемся с опасностями использования транзакций во встроенном языке 1С. Познаем ошибку "В данной транзакции уже происходили ошибки". Учимся защищаться от них.

1 стартмани

25.03.2019    33122    tormozit    44    

Загрузка, скачивание, удаление файлов с помощью НачатьПомещениеФайлаНаСервер() и НачатьПолучениеФайлаССервера()

Практика программирования v8 1cv8.cf Абонемент ($m)

В платформе 8.3.15 появились новые методы НачатьПомещениеФайлаНаСервер() и НачатьПолучениеФайлаССервера(). В данной статье рассмотрено готовое решение проверенное и прекрасно работающее на тонком и веб-клиенте.

1 стартмани

25.07.2020    1574    Flashill    9    

Параллельные вычисления расчета факториала числа N

Практика программирования v8 1cv8.cf Абонемент ($m)

Распараллеливание алгоритма с помощью фоновых заданий (асинхронные вычисления)

1 стартмани

29.06.2020    2146    Rustig    17    

Методика обновления формы объекта данных при изменении объекта

Практика программирования v8 v8::УФ 1cv8.cf Абонемент ($m)

В формах объектов данных часто встречаются элементы, косвенно связанные с объектом. Логику обновления этих элементов при изменении объекта обычно вызывают из обработчиков ПриСозданнииНаСервере и ПриОткрытии, забывая про наличие других способов изменения объекта. В статье предложена методика для обычных и управляемых форм, учитывающая все способы.

1 стартмани

09.03.2020    6878    tormozit    13    

Как выполнить отчет на СКД через COM и получить данные отчета? Промо

Практика программирования v8 УПП1 Россия Абонемент ($m)

Для чего это нужно. Например, нужно в одной базе получить какой-либо показатель из другой базы. Этот показатель вычисляется в каком-либо сложном отчете, который написан на СКД. Можно, конечно, "скопипастить" текст запроса из другой базы, немного подправить его и выполнять в том же COM подключении. Но с этим теряется гибкость: если отчет изменился, то нужно помнить о том, что где-то есть его "немного модифицированная" копия. В статье будет рассмотрен пример получения данных из базы ЗУП.

2 стартмани

08.05.2018    26627    wowik    3    

Отправка уведомлений с помощью командной строки, Оповещения с сервера на клиент с помощью командной строки

Практика программирования v8 1cv8.cf Россия Абонемент ($m)

Отправка уведомлений с помощью команды командной строки msg. Оповестить пользователей из серверного модуля или регламентного задания, с помощью командной строки msg.

1 стартмани

05.03.2020    5056    user5300    3    

Вывод сообщений в HTML поле средствами 1С

Практика программирования v8 v8::УФ Абонемент ($m)

Пример использования вывода большого количества сообщений в поле HTML. С возможностью открывать ссылочные объекты и создавать новые объекты передавая параметры прямо из HTML поля. Протестировано на релизах 8.3.12 и 8.3.15+

2 стартмани

31.01.2020    5201    burni4    16    

Краткое руководство по внесению изменений в конфигурацию

Практика программирования v8 1cv8.cf Абонемент ($m)

Кратко описаны основополагающие моменты при старте групповой разработки конфигурации несколькими программистами. Полезно для проектной документации как требование к разработчикам или сопровождающей компании.

1 стартмани

13.01.2020    15926    sapervodichka    41    

Как нарисовать граф на 1С Промо

Практика программирования v8 Абонемент ($m)

Описывается реализация на языке запросов 1С метода расположения вершин графа на плоскости, основанного на использовании электромеханической аналогии. При этом вершины графа представляются одноименными электрическими зарядами, дуги - пружинками. Силы взаимодействия вершин в этой системе переводят их из случайного начального в нужное конечное положение. Приведена обработка рисования графов "ГрафОграф", реализующая данный подход, показывающая также динамику процесса. Граф можно задать списком ребер вручную, выбрать из нескольких предопределенных примеров или сформировать по данным информационной базы.

1 стартмани

09.08.2013    69842    ildarovich    117    

Универсальные функции: разложение произвольной строки адреса в структуру

Практика программирования Универсальные функции v8 1cv8.cf Абонемент ($m)

Процедуры и функции раскладывают произвольную строку адрес в структуру по ключевым словам.

1 стартмани

30.12.2019    3267    vik070777    10    

"Живые" картинки со Snap.SVG

Практика программирования WEB Работа с интерфейсом v8 Абонемент ($m)

В статье рассмотрен пример использования http-сервисов для визуализации данных

1 стартмани

24.10.2019    12919    blackhole321    7    

RLS - дубли условий в запросах к СУБД

Практика программирования Роли и права v8 v8::Права 1cv8.cf Абонемент ($m)

"Подводные камни", возникающие при бездумном копировании ролей с ограничениями RLS, как это отражается на производительности, разбор примера и инструмент для анализа.

1 стартмани

07.10.2019    8126    geron4    4    

Простой способ индексирования интервалов Промо

Практика программирования v8 Абонемент ($m)

Предлагается простой способ индексирования интервалов для решения задач выборки записей, включающих заданный момент времени, пересекающихся с заданным интервалом или множеством интервалов. Способ основан на добавлении к исходной таблице особого числового индексированного поля, рассчитываемого по специальной формуле. Приведен код функций, необходимых для расчетов поля поиска и параметров поисковых запросов. Приведены также результаты тестирования метода, доказывающие его высокую эффективность.

1 стартмани

28.09.2016    39060    ildarovich    22    

Полезные процедуры и функции для программиста

Практика программирования Универсальные функции v8 1cv8.cf Россия Абонемент ($m)

Все мы пишем программный код и часто используем процедуры, облегчающие его написание. Ниже приведена выборка таких полезных процедур и функций.

1 стартмани

07.10.2019    28165    HostHost    40    

Полное копирование одной формы в другую

Практика программирования Универсальные обработки Работа с интерфейсом v8 1cv8.cf Абонемент ($m)

Однажды я столкнулся с необходимостью открыть форму ЛЮБОГО документа с определенными изменениями, не зависящими от структуры объекта (например, заблокировать все кнопки). В интернете решения я не нашел. Обычно на форумах на запросы подобного рода отвечают чем-то вроде "покажи первоначальную задачу, а не спрашивай как реализовать то, что ты придумал". Тем не менее, мне стало интересно, как это можно сделать.

1 стартмани

03.10.2019    4545    nekit_rdx    23    

Многопоточная обработка данных на примере перепроведения документов

Обработка документов Практика программирования v8 ERP2 УТ11 КА2 Абонемент ($m)

Дальнейшее развитие темы фоновой обработки данных - проведение документов в потоках. Настройка параметров и запуск основного процесса (менеджера потоков). Разбивка документов для проведения на не связанные друг с другом наборы и запуск дополнительных фоновых заданий для отдельных потоков. Отслеживание выполнения каждого потока в родительском сеансе.

1 стартмани

17.09.2019    8662    ids79    46    

Бесплатная проверка контрагентов в ФНС (общий модуль с алгоритмом). На примере выводим статус в список справочника контрагентов Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

Если вам интересно проверить контрагенте в ФНС, вам поможет данная публикация. Весь алгоритм работы строится на основе данных, полученных с сервиса http://npchk.nalog.ru совершенно бесплатно.

1 стартмани

01.02.2018    34602    rpgshnik    49    

Отображение истории выполнения по всем задачам комплексного процесса в документообороте

Документооборот и делопроизводство Практика программирования v8 ДО Абонемент ($m)

Коллеги, предлагаю вашему вниманию доработку для вывода полной истории в задачах комплексного процесса.

1 стартмани

15.09.2019    6427    pavelpribytkin96    8    

Описание формата внутреннего представления данных 1С в контексте обмена данными

Практика программирования Внешние источники данных v8 v8::УФ 1cv8.cf Абонемент ($m)

Фирма 1С не рекомендует использовать внутреннее представление данных для любых целей, которые отличны от обмена с 1С:Предприятием 7.7. Но сама возможность заглянуть на "внутреннюю кухню" платформы с помощью функций ЗначениеВСтрокуВнутр(), ЗначениеВФайл(), ЗначениеИзСтрокиВнутр() и ЗначениеИзФайла(), дала возможность сообществу программистов 1С разработать новые приемы разработки и анализа. Так, именно на использовании внутреннего представления был построен алгоритм "быстрого массива", который позволяет практически мгновенно создать массив в памяти на основании строки с разделителями. С помощью разбора внутреннего представления можно "на лету" программным кодом выполнить анализ обычной формы и даже сделать редактор графической схемы. Во внутреннем формате сохраняют свои данные между сеансами различные популярные внешние обработки. А еще это возможность сделать быстрый обмен с внешними системами.

1 стартмани

06.09.2019    18683    Dementor    30    

Удобный просмотр результата запроса с большим количеством временных таблиц

Практика программирования v8 Абонемент ($m)

Если Вам часто приходится просматривать в отладчике сложные пакетные запросы с большим количеством временных таблиц, то эта статья для Вас.

1 стартмани

27.08.2019    10562    ids79    21    

БСП: Дополнительная обработка (Регламенты), примеры от простого к сложному Промо

Практика программирования БСП (Библиотека стандартных подсистем) v8 1cv8.cf Абонемент ($m)

Очень много попадается странных решений, которые можно решить через БСП:Дополнительные отчеты и обработки. Я бы вообще БСП из-за этой подсистемы переименовал в «Большое Спасибо Программистам». Поработаем с подсистемой в части написания регламентных заданий.

1 стартмани

10.05.2018    43258    dsdred    36    

Запуск фонового задания во внешней обработке. Отключение предупреждений защиты от опасных действий в фоновом задании

Практика программирования v8 1cv8.cf Абонемент ($m)

Как запустить фоновое задание из модуля внешней обработки используя БСП. Как отключить безопасный режим и сообщения защиты от опасных действий независимо от профиля безопасности пользователя в фоновом задании во внешней обработке.

2 стартмани

24.08.2019    9767    BenGunn    22    

Изменяющееся контекстное меню в 1С 8.3

Практика программирования Работа с интерфейсом Разработка v8 v8::УФ Абонемент ($m)

В одной практической задаче мне пришлось разрабатывать контекстное меню таблицы управляемой формы, которое должно было меняться в зависимости от данных, находящихся в этой таблице. Ниже приведен мой способ решения этой задачи.

1 стартмани

06.08.2019    14743    signum2009    16    

Процедура ПриКомпоновкеРезультата

Практика программирования v8 1cv8.cf Абонемент ($m)

Коллекция кода

1 стартмани

26.07.2019    34686    vasilev2015    63    

Некоторая работа с данными через COM Промо

Практика программирования v8 Абонемент ($m)

В статье приведены примеры работы с Платформой 8.X через COM (точнее, через объект COMConnector). Примеры кода были использованы при реализации прикладных задач в процессе трудовой деятельности.

2 стартмани

05.12.2012    56912    wowik    32    

10 способов получить модуль числа (а может, и больше)

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

Пишем функцию вычисления модуля числа. Сколько способов существует? Давайте посчитаем!

1 стартмани

11.07.2019    7249    sam441    29    

Ловец дедлоков СУБД

Производительность и оптимизация (HighLoad) Практика программирования Разработка v8 Россия Абонемент ($m)

Анализ простейшего дедлока СУБД в рабочей базе с использованием ЦУП (центра управления производительностью) и profiler MS SQL (Microsoft SQL Server). Эта статья будет полезна людям, изучающим вопросы оптимизации работы 1С, или тем, у кого возникают дедлоки в рабочей базе. UPD 09.07.2019 добавлено воспроизведение блокировки в случае установки управляемой блокировки перед чтением набора записей регистра сведений. UPD 10.07.2019 добавлена тестовая база с примером.

1 стартмани

08.07.2019    10720    azazana    79    

Мониторинг производительности и искусственный интеллект

Производительность и оптимизация (HighLoad) Практика программирования Разработка v8 Абонемент ($m)

Расскажем и покажем практически, как использовать искусственный интеллект на страже мониторинга производительности. У вас появится возможность создать собственного помощника Ларису, которая возьмет на себя вопросы по контролю и диагностике состояния обслуживаемой системы.

1 стартмани

01.07.2019    8961    ivanov660    28    

Работа со схемой запроса Промо

Инструментарий разработчика Практика программирования v8 v8::Запросы Абонемент ($m)

Стандартом взаимодействия с реляционной базой данных стал язык SQL. Приемником SQL в 1С является язык запросов. Язык запросов, также как и SQL, является структурированным. Составляющие структуры запроса отвечают на разные вопросы о том, какие данные требуется получить и какие манипуляции с множествами данных необходимо произвести при получении. В простых случаях текст запроса можно написать вручную, однако в сложных случаях, а также при программном формировании, - лучше воспользоваться объектной моделью запроса и использовать объект "Схема запроса". В статье дается описание объектной модели и особенностей работы с ней, а также приводится решение, упрощающее взаимодействие с объектом "Схема запроса".

1 стартмани

24.04.2018    42560    kalyaka    34    

"Убер на складе": динамический расчет маршрутов с учетом реальных расстояний

Учет ТМЦ Практика программирования Учет ТМЦ v8 УУ Абонемент ($m)

Представляю методику и инструмент для динамического расчета маршрутов отбора на высоконагруженных складах для максимального повышения эффективности склада, ускорения проходимости и, как следствие, экономии денег. Это методика и обработка для интеграции в WMS решения. Тестировалось на 1С 8.3.14.1565.

3 стартмани

24.06.2019    14264    informa1555    17    

1С:Ассемблер. Немного летнего веселья!

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

Все вы, наверное, слышали, что 1С-ники жалуются на свою систему, считая язык 1С недостаточно низкоуровневым, скучным и т.п. Все они с тоской поглядывают в сторону "настоящих" языков программирования. Так вот, господа, они неправы. В системе 1С есть места, где можно размять программерский мозг и получить удовольствие от низкоуровневой техники. Предлагаю вам погрузиться в недра виртуальной машины 1С и понять, как она работает. Там есть свой "ассемблер" и мы попробуем его в действии!

1 стартмани

21.06.2019    27612    Evil Beaver    122    

Простые примеры сложных отчетов на СКД

Практика программирования v8 v8::СКД 1cv8.cf Абонемент ($m)

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

1 стартмани

12.06.2019    28389    Hatson    22    

Многопоточность. Универсальный «Менеджер потоков» (фреймворк) с отслеживанием зависимости объектов Промо

Практика программирования Математика и алгоритмы Универсальные функции Производительность и оптимизация (HighLoad) v8 1cv8.cf Россия Абонемент ($m)

Восстановление партий, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

26.05.2017    48519    DarkAn    86    

Графики работы из БСП

Практика программирования Разработка v8 1cv8.cf Россия Абонемент ($m)

Не очень давно на канале 1С:БСП была опубликована заметка по использованию Графиков работы и Календарных графиков.

1 стартмани

23.05.2019    3032    fenixnow    0    

Создание внешней печатной формы в формате документа Word

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

В статье написано, как создать внешнюю печатную форму (для конфигураций с БСП) в формате Word.

1 стартмани

17.05.2019    11838    ВикторП    20    

Пример настройки шаблонов и реализации печати отчетов в документ MS Word используя функциональную часть "Библиотеки Стандартных Подсистем 1С" (БСП)

Практика программирования Разработка v8 Россия Абонемент ($m)

В конфигурации выбраны и использованы только необходимые объекты библиотеки стандартных подсистем для реализации вывода отчёта, с табличными частями, в документ MS Word. Показан пример создания необходимых областей в шаблоне для вывода параметров в отчёт.

1 стартмани

23.04.2019    5734    olegpkc    11    

Новый запрос и новая таблица значений как функции Промо

Практика программирования v8 Абонемент ($m)

Предлагается две простые функции, использование которых уменьшает объем кода в конфигурациях на платформе «1С:Предприятие 8». Эти функции можно добавлять к своему общему модулю, что сделает процесс программирования более эффективным.

1 стартмани

27.11.2012    44907    ildarovich    46    

Ops средствами 1С:Предприятие

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

В статье описан программный пакет "Автоматизация ИТ-процессов" (АИТП), позволяющий автоматизировать задачи по администрированию, управлению и обслуживанию ИТ-инфраструктуры.

1 стартмани

23.04.2019    17048    blackhole321    28    

1C + Python + Django Rest Framework + Vue.js. Опыт несложной full-stack разработки

Практика программирования Внешние источники данных Обмен через XML WEB Разработка v8 1cv8.cf Абонемент ($m)

В этой статье мы рассмотрим путь и основные моменты создания небольшого вэб-сервиса, который мы называем "Онлайн Прайс-лист". Выгрузка из 1С, бэкенд, фронтенд, получение заказов в 1С.

1 стартмани

22.04.2019    31424    riposte    63    

Вывод вариантов СКД в таблицы на управляемой форме

Практика программирования Работа с интерфейсом v8 v8::УФ v8::СКД 1cv8.cf Абонемент ($m)

Задача стояла такая: есть 2 различных запроса, результаты которых выгружаются на форму обработки в таблицы значений (далее ТЗ) и программно "соприкасаются" между собой определенным образом (как именно- в рамках данной статьи неважно). Нюанс в том, что запросы должны иметь свой компоновщик настроек и могут интерактивно на форме изменяться пользователем. На оригинальность публикации не претендую - изначально в рамках поставленной задачи пытался найти что-то подобное (уже готовый шаблон) на инфостарте, возможно "плохо искал" ;)

05.04.2019    10533    artkor    1    

Уровни, глубина, прародители, циклы и аналоги запросом Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

В продолжение публикации «Транзитивное замыкание запросом» [http://infostart.ru/public/158512/] добавлены другие варианты использования того же приема. Приведены запросы для быстрого определения уровней всех элементов справочника, максимальной глубины справочника, прародителей произвольных элементов справочника, запрос для быстрого определения циклов (на примере справочника спецификаций «1С:Управление производственным предприятием») и определения множеств аналогов номенклатуры (также на примере конфигурации «1С:Управление производственным предприятием»).

1 стартмани

13.11.2012    110538    ildarovich    98    

Функциональное программирование в 1С

Практика программирования Математика и алгоритмы Разработка v8 1cv8.cf Абонемент ($m)

Статья о функциональном программировании в 1С. Добавляем новые возможности. Пример передачи функций в качестве аргумента.

1 стартмани

28.03.2019    8164    alexey.kutya    26    

[EnterpriseData] Антисвертка характеристик номенклатуры при выгрузке в Бухгалтерию

Практика программирования Перенос данных из 1C8 в 1C8 Разработка v8 v8::ПВХ КД УНФ БП3.0 Россия БУ Абонемент ($m)

Рассмотрена выгрузка каждой пары значений Номенклатура - Характерстика из УНФ 1.6 в отдельную номенклатуру в Бухгалтерию 3.0 путём доработки правил обмена в формате EnterpriseData.

1 стартмани

27.03.2019    4345    nforce    4    

Интеграция 1С и SharePoint

Практика программирования Разработка v8 УНФ ДО ERP2 БП3.0 УТ11 УХ КА2 Россия Абонемент ($m)

Заказчики поставили задачу автоматизации согласования заявок на оплату в программе 1С:Бухгалтерия предприятия 3.0. Согласно ТЗ, данные должны подтягиваться из действующей электронной системы документаоборота на MS SharePoint (в дальнейшем СЭД MS SP).

1 стартмани

22.03.2019    5178    -I-    4    

Неоплаченные долги при распределении оплаты по правилу ФИФО одним запросом и намного быстрее, чем Вы думали Промо

Практика программирования Дебиторская и кредиторская задолженность Дебиторская и кредиторская задолженность v8 v8::СКД КА1 УТ10 УПП1 УУ Абонемент ($m)

Предлагается метод для быстрого нахождения неоплаченных долгов при распределении оплаты по правилу ФИФО, основанный на дихотомии. Описывается реализация метода в виде достаточно простого запроса, решающего за линейное время указанную задачу, считавшуюся ранее существенно более трудоемкой. Приводятся примеры использования запроса в отчетах на СКД для конфигураций УТ, КА, УПП.

1 стартмани

28.02.2014    67672    ildarovich    123    

Легкий "тюнинг" УТ 10.3

Практика программирования Разработка v8 v8::ОУ УТ10 Россия УУ Абонемент ($m)

Вариант программной реализации изменения форм типовых объектов для конфигурации Управление торговлей 10.3.

1 стартмани

15.03.2019    4242    pm74    6    

Пример использования СКД и данных расшифровки на мобильной платформе

Практика программирования Разработка v8 v8::Mobile v8::СКД 1cv8.cf Россия Абонемент ($m)

СКД в мобильном приложении и меню действий на основе данных расшифровки (отчет, совместимый с мобильной платформой 8.3.13.45).

1 стартмани

12.03.2019    5343    majoram    0    

Программное создание реквизита управляемой формы с помощью механизма расширений

Практика программирования Разработка v8 v8::УФ 1cv8.cf Абонемент ($m)

В ЗУП 3 возникла задача добавить реквизит в справочник не внося изменений в конфигурацию. БСП с механизмом дополнительных реквизитов использовать было нежелательно, поэтому был использован механизм расширений. Для вывода данного реквизита на форму добавлять саму форму в расширение не хотелось по ряду причин, описанных ниже. Создание реквизита и элемента формы, соответствующего данному реквизиту было решено сделать программно в самом расширении, следуя принципу минимального воздействия на конфигурацию.

1 стартмани

12.03.2019    32274    ni_cola    29    

Транзитивное замыкание запросом Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

В частности, показывается, как одним пакетным запросом найти ВСЕХ предков (потомков) в иерархическом справочнике. Аналогично можно определять входимость деталей в узлы и готовые изделия по их спецификациям, определять подмножества аналогичных запчастей по цепочке аналогов, решать другие подобные задачи. Приложен файл с примером отчета для замыкания иерархии произвольного справочника, позволяющий протестировать быстродействие запроса в разных условиях.

1 стартмани

29.10.2012    83561    ildarovich    118    

Иерархия библиотек. Автоматическое обновление или как отказаться от переопределяемых модулей

Практика программирования Математика и алгоритмы Разработка v8 Абонемент ($m)

В статье рассмотрен один из вариантов библиотечного подхода к разработке, позволяющий организовать иерархический вызов библиотечных процедур и упростить автоматическую сборку готового продукта из нескольких библиотек. Предлагаемый подход может служить одним из элементов CI/CD при разработке ПО на платформе 1С.

1 стартмани

04.03.2019    5618    Alxby    4    

Асинхронная работа с текстовыми файлами в 1С 8.3

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

В этой статье я рассмотрю основные моменты работы с текстовым файлом в 1С 8.3. (загрузка - выгрузка) в режиме отключенной модальности (асинхронно).

1 стартмани

28.02.2019    7003    signum2009    6    

Баг или фича? Неожиданное поведение платформы

Практика программирования Тестирование и исправление Разработка v8 1cv8.cf Абонемент ($m)

Рассмотрим несколько случаев неожиданного поведения платформы 1С, а также что с этим можно cделать.

18.02.2019    22589    YPermitin    89