Как добавит строчку в строку дерева значений

Форум Программирование Общие вопросы программирования (Dev)

Конфигурации 1cv8

1. furman2000 16 20.04.23 16:42 Сейчас в теме

Всем доброго времени суток!
Сильно не пинайте, но ни разу с деревом значений не работал.
Хочу откорректировать печатную форму в ЗУП.
как в переменную ДанныеНаПечать тип СтрокаДереваЗначений
Добавить свою строку.

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. TheOldGuard 12 20.04.23 16:48 Сейчас в теме

Запросом заполняешь ТвоеДЗ

ОчиститьДеревоЗначений("ТвоеДЗ");
ДеревоЗначений = РеквизитФормыВЗначение("ТвоеДЗ");
ДеревоЗначений = РезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам);
ЗначениеВРеквизитФормы(ДеревоЗначений, "ТвоеДЗ");

3. furman2000 16 20.04.23 16:51 Сейчас в теме

(2)

ДЗСравнения

Мне нужно оставить те значения и добавить еще свое.

4. TheOldGuard 12 20.04.23 16:52 Сейчас в теме

(3) ДЗ заполняется запросом, добавь значение в выборку запроса

5. furman2000 16 20.04.23 16:54 Сейчас в теме

(4) Только запросом?
И ни как по другому?

6. TheOldGuard 12 20.04.23 16:55 Сейчас в теме

(5) https://infostart.ru/1c/articles/1066223/

7. VZyryanov 20.04.23 17:29 Сейчас в теме

//Общий модуль КФОбщий (Клиент, Сервер, Внешнее соединение)

Функция ДеревоВставитьЭлемент(Узел,КлючСтрокиПоследний,Индекс,Реквизиты) Экспорт
	Элементы=Узел.ПолучитьЭлементы();
	Если ТипЗнч(Узел)=Тип("ДанныеФормыДерево") Тогда
		КлючСвязи=0;
	Иначе
		КлючСвязи=Узел.КлючСтроки;
	КонецЕсли;
	Эл=Элементы.Вставить(Индекс);
	ЗаполнитьЗначенияСвойств(Эл,Реквизиты);
	КлючСтрокиПоследний=КлючСтрокиПоследний+1;
	Эл.КлючСтроки=КлючСтрокиПоследний;
	Эл.КлючСвязи=КлючСвязи;
	ДеревоПеренумеровать(Узел);
	Возврат Эл;
КонецФункции

Функция ДеревоДобавитьЭлемент(Узел,КлючСтрокиПоследний,Реквизиты) Экспорт
	Элементы=Узел.ПолучитьЭлементы();
	Если ТипЗнч(Узел)=Тип("ДанныеФормыДерево") Тогда
		КлючСвязи=0;
	Иначе
		КлючСвязи=Узел.КлючСтроки;
	КонецЕсли;
	Эл=Элементы.Добавить();
	ЗаполнитьЗначенияСвойств(Эл,Реквизиты);
	КлючСтрокиПоследний=КлючСтрокиПоследний+1;
	Эл.КлючСтроки=КлючСтрокиПоследний;
	Эл.КлючСвязи=КлючСвязи;
	ДеревоПеренумеровать(Узел);
	Возврат Эл;
КонецФункции

Процедура ДеревоПеренумеровать(Узел) Экспорт
	Элементы=Узел.ПолучитьЭлементы();
	Если ТипЗнч(Узел)=Тип("ДанныеФормыДерево") Тогда
		Префикс="";
	Иначе
		Префикс=Узел.Номер+".";
	КонецЕсли;
	К=1;
	Для каждого Эл Из Элементы Цикл
		Эл.Номер=Префикс+К;
		К=К+1;
		ДеревоПеренумеровать(Эл);
	КонецЦикла;
КонецПроцедуры

Показать

8. user1826630 20.04.23 18:49 Сейчас в теме

ВнешнееСоединение?? Ммм...

Оставьте свое сообщение

E-mail: