Как добавит строчку в строку дерева значений
По теме из базы знаний
- Дерево значений, которое негде посмотреть
- Восстановление развернутых строк ДереваЗначений после его обновления (управляемая форма)
- Редактор объектов информационной базы 8.3
- Картинки в строках дерева значений по условию (8.3)
- Программное копирование узла/строки дерева значений на управляемой форме (УФ, ДанныеФормыДерево, ДанныеФормыЭлементДерева) в вариантах на клиенте и на сервере
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Запросом заполняешь ТвоеДЗ
ОчиститьДеревоЗначений("ТвоеДЗ");
ДеревоЗначений = РеквизитФормыВЗначение("ТвоеДЗ");
ДеревоЗначений = РезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам);
ЗначениеВРеквизитФормы(ДеревоЗначений, "ТвоеДЗ");
//Общий модуль КФОбщий (Клиент, Сервер, Внешнее соединение)
Функция ДеревоВставитьЭлемент(Узел,КлючСтрокиПоследний,Индекс,Реквизиты) Экспорт
Элементы=Узел.ПолучитьЭлементы();
Если ТипЗнч(Узел)=Тип("ДанныеФормыДерево") Тогда
КлючСвязи=0;
Иначе
КлючСвязи=Узел.КлючСтроки;
КонецЕсли;
Эл=Элементы.Вставить(Индекс);
ЗаполнитьЗначенияСвойств(Эл,Реквизиты);
КлючСтрокиПоследний=КлючСтрокиПоследний+1;
Эл.КлючСтроки=КлючСтрокиПоследний;
Эл.КлючСвязи=КлючСвязи;
ДеревоПеренумеровать(Узел);
Возврат Эл;
КонецФункции
Функция ДеревоДобавитьЭлемент(Узел,КлючСтрокиПоследний,Реквизиты) Экспорт
Элементы=Узел.ПолучитьЭлементы();
Если ТипЗнч(Узел)=Тип("ДанныеФормыДерево") Тогда
КлючСвязи=0;
Иначе
КлючСвязи=Узел.КлючСтроки;
КонецЕсли;
Эл=Элементы.Добавить();
ЗаполнитьЗначенияСвойств(Эл,Реквизиты);
КлючСтрокиПоследний=КлючСтрокиПоследний+1;
Эл.КлючСтроки=КлючСтрокиПоследний;
Эл.КлючСвязи=КлючСвязи;
ДеревоПеренумеровать(Узел);
Возврат Эл;
КонецФункции
Процедура ДеревоПеренумеровать(Узел) Экспорт
Элементы=Узел.ПолучитьЭлементы();
Если ТипЗнч(Узел)=Тип("ДанныеФормыДерево") Тогда
Префикс="";
Иначе
Префикс=Узел.Номер+".";
КонецЕсли;
К=1;
Для каждого Эл Из Элементы Цикл
Эл.Номер=Префикс+К;
К=К+1;
ДеревоПеренумеровать(Эл);
КонецЦикла;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот