деревом » Поиск

Результаты по ключевому слову: деревом

Как открыть внешнюю обработку или отчет программно 1С УП?

В версии 8.2 и старше: приложение не работает непосредственно с локальными файлами, расположенными на компьютере. Файлы должны находиться на сервере.

Поэтому для открытия внешней обработки нужно выполнить следующую последовательность действий:

Передать файл внешней обработки на сервер
Подключить внешнюю обработку
Открыть форму внешней обработки

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

В четвертом параметре этого метода указывается признак интерактивного режима выбора файла внешней обработки. Если этот параметр Истина, то появляется диалог выбора файла, в котором можно выбрать файл для помещения в хранилище. В нашем примере этот параметр - Ложь, а путь к файлу, данные из которого будут помещены во временное хранилище, явно задан во втором параметре метода.

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

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

Для открытия формы внешней обработки используется метод глобального контекста ОткрытьФорму(), в который передается имя формы в виде следующей строки: "ВнешняяОбработка."+ ИмяОбработки +".Форма". В приведенном варианте открывается основная форма обработки.

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)



    //Помещаем обработку во временном хранилище

    АдресХранилища = "";

    Результат = ПоместитьФайл(АдресХранилища, "C:\ВнешняяОбработка.epf", , Ложь);

    ИмяОбработки = ПодключитьВнешнююОбработку(АдресХранилища);



    // Откроем форму подключенной внешней обработки

    ОткрытьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма");

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



&НаСервере

Функция ПодключитьВнешнююОбработку(АдресХранилища)

    Возврат ВнешниеОбработки.Подключить(АдресХранилища);

КонецФункции

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

Подробнее о режиме безопасного исполнения программного кода можно прочитать в документации: 1С:Предприятие 8.2. Руководство разработчика, Раздел 5.5.4.3: Объекты конфигурации - Ветвь конфигурации «Общие» - Роли и права доступа - Безопасный режим работы.

Подробнее об использовании метода ПоместитьФайл() можно прочитать в синтакс-помощнике: Глобальный контекст - Процедуры и функции работы с файлами.

Подробнее об использовании метода Подключить() можно прочитать в синтакс-помощнике: Прикладные объекты - Внешние обработки и отчеты - ВнешниеОбработкиМенеджер - Методы.

У объекта ВнешняяОбработкаОбъект, есть свойство ИспользуемоеИмяФайла, доступное в контексте сервера - может пригодиться.

Жизненный пример

Форма с деревом значений, в котором перечислены обработки из каталога на сервере:

При двойном щелчке по названию файла - происходит его программное открытие:

Код 1C v 8.3

 



&НаСервере

Функция ПодключитьВнешнююОбработку(АдресХранилища)

	Возврат ВнешниеОбработки.Подключить(АдресХранилища);

КонецФункции	





&НаСервере

Функция ПодключитьВнешнийОтчет(АдресХранилища)

	Возврат ВнешниеОтчеты.Подключить(АдресХранилища);

КонецФункции	





&НаКлиенте

Процедура дзФайловВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь; ВыбСтрока=Элемент.ТекущиеДанные;

	Если НЕ ВыбСтрока.ЭтоГруппа Тогда

		АдресХранилища = "";

		Если ВыбСтрока.Расширение = ".epf" Тогда

			Рез=ПоместитьФайл(АдресХранилища,ВыбСтрока.ПолноеИмя, ,Ложь);

			ИмяОбработки = ПодключитьВнешнююОбработку(АдресХранилища);

			ОткрытьФорму("ВнешняяОбработка."+ИмяОбработки+".Форма");  			

		ИначеЕсли ВыбраннаяСтрока.Расширение = ".erf" Тогда

			Рез=ПоместитьФайл(АдресХранилища,ВыбСтрока.ПолноеИмя, ,Ложь);

			ИмяОбработки = ПодключитьВнешнийОтчет(АдресХранилища);

			ОткрытьФорму("ВнешнийОтчет."+ИмяОбработки+".Форма"); 			

		КонецЕсли;		

	КонецЕсли; 	

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

Категория: Управляемое приложение, Тонкий клиент

Дерево значений в таблицу значений или в табличную часть и обратно

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

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

Для реализации такого механизма в ТЧ был добавлен реквизит “КлючСвязи” (обязательный реквизит) с типом число, куда помещался “НомерСтроки” (стандартный реквизит ТЧ) родителя (верхний уровень). А самый верхний элемент дерева имеет “КлючСвязи” равный 0.

На картинке ниже видно структуру дерева и структуру ТЧ

Нагрузка на сервер осуществляется при окрытии и при сохранении документа. А с деревом работают уже на клиенте.

На рабочей базе обрабатывается около 200 строк в одном документе.

Открытие и сохранение документа происходит моментально. С большем количеством строк не тестировалось.

Чтобы алгорит правильно работал, у рекизита фомы с типом дерево значений должны быть все реквизиты табличной части, кроме “КлючСвязи” и “НомерСтроки”. Иначе платформа выдаст ошибку. В дерево можо добавлять свои реквизиты отличные от ТЧ, они будут использоваться только в дереве.

Ниже приведен код преобразования дерева в таблицу и обратно.

Код 1C v 8.2 УП

 &НаКлиенте

Процедура КомандаТаблицуВДерево(Команда)

	КомандаТаблицуВДеревоНаСервере();

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





&НаСервере

Процедура КомандаТаблицуВДеревоНаСервере()

	Дерево = ТаблицаВДерево(РеквизитФормыВЗначение("Объект"), "Товары");//Товары - имя табличной части

	ЗначениеВРеквизитФормы(Дерево, "ДеревоЗначений");//ДеревоЗначений - реквизит формы с типом дерево значений

	Элементы.ДеревоЗначений.Обновить();

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





&НаКлиенте

Процедура КомандаДеревоВТаблицу(Команда)

	КомандаДеревоВТаблицуНаСервере();

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





&НаСервере

Процедура КомандаДеревоВТаблицуНаСервере()

	Объект.Товары.Очистить();

	ДОбъект = РеквизитФормыВЗначение("Объект");

	ДеревоВТаблицу(ДОбъект, РеквизитФормыВЗначение("ДеревоЗначений"), "Товары");

	ЗначениеВРеквизитФормы(ДОбъект, "Объект");

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

Формирование дерева из таблицы значений

Код 1C v 8.2 УП

 //ФОРМИРОВАНИЕ ДЕРЕВА ИЗ ТАБЛИЦЫ

&НаСервере

Функция ТаблицаВДерево(ДокОбъект, НаименованиеТабличнойЧастиДокумента, КлючСвязи = NULL, ЭлементРодитель = NULL) Экспорт	

	//ПОДГОТОВКА КОЛОНОК ДЕРЕВА

	КолонкиТаблицы = ДокОбъект.Метаданные().ТабличныеЧасти[НаименованиеТабличнойЧастиДокумента].Реквизиты;

	ДеревоЗначений2 = Новый ДеревоЗначений;

	Для каждого Кол из КолонкиТаблицы Цикл

		Если Кол.Имя = "НомерСтроки" ИЛИ Кол.Имя = "КлючСвязи" Тогда

			Продолжить;

		Иначе

			ДеревоЗначений2.Колонки.Добавить(Кол.Имя, Новый ОписаниеТипов(Кол.Тип));

		КонецЕсли;

	КонецЦикла;//ДеревоЗначений.Строки.Очистить();

	

	Если КлючСвязи = NULL И ЭлементРодитель = NULL Тогда

		//ПЕРВЫЙ ВЫЗОВ ПРОЦЕДУРЫ (КОРНЕВЫЕ ЭЛЕМЕНТЫ)

		ИсточникВыборки = ДеревоЗначений2.Строки;

		КлючСвязи = 0; // ЭЛЕМЕНТ ВЕРХНЕГО УРОВНЯ ИМЕЕТ НОМЕР СТРОКИ РОДИТЕЛЯ 0 (ОБЯЗАТЕЛЬНЫЙ РЕКВИЗИТ)

	Иначе

		//ВНУТРЕННИЙ ВЫЗОВ ПРОЦЕДУРЫ (ПОДЧИНЕННЫЕ ЭЛЕМЕНТЫ)

		ИсточникВыборки = ЭлементРодитель.Строки;

	КонецЕсли;

	Фильтр = Новый Структура("КлючСвязи", КлючСвязи);

	М = ДокОбъект[НаименованиеТабличнойЧастиДокумента].НайтиСтроки(Фильтр);

	Если М.Количество() = 0 Тогда

		Возврат ДеревоЗначений2;

	КонецЕсли;

	Для каждого Стр из М Цикл

		Элемент = ИсточникВыборки.Добавить();

		Для каждого Кол из КолонкиТаблицы Цикл

			Если Кол.Имя = "НомерСтроки" ИЛИ Кол.Имя = "КлючСвязи" Тогда

				Продолжить;

			Иначе

				Элемент[Кол.Имя] = Стр[Кол.Имя];

			КонецЕсли;

		КонецЦикла;

		ТаблицаВДерево(ДокОбъект, НаименованиеТабличнойЧастиДокумента, Стр.НомерСтроки, Элемент); //ДОБАВЛЕНИЕ ПОДЧИНЁННЫХ ЭЛЕМЕНТОВ В ДЕРЕВО

	КонецЦикла;

	Возврат ДеревоЗначений2;

КонецФункции

Формирование таблицы из дерева

Код 1C v 8.2 УП

 //ФОРМИРОВАНИЕ ТАБЛИЦЫ ИЗ ДЕРЕВА

&НаСервере

Процедура ДеревоВТаблицу(ДокОбъект, ДеревоЗначений, НаименованиеТабличнойЧастиДокумента, СтрокаДерева = NULL, КлючСвязи = NULL) Экспорт

	Если СтрокаДерева = NULL И КлючСвязи = NULL Тогда

		//ПЕРВЫЙ ВЫЗОВ ПРОЦЕДУРЫ (КОРНЕВЫЕ ЭЛЕМЕНТЫ)

		ПервыйВызов = Истина;

		ДокОбъект[НаименованиеТабличнойЧастиДокумента].Очистить();

		ИсточникВыборки = ДеревоЗначений.Строки;

		КлючСвязи = 0; // ЭЛЕМЕНТ ВЕРХНЕГО УРОВНЯ ИМЕЕТ НОМЕР СТРОКИ РОДИТЕЛЯ 0 (ОБЯЗАТЕЛЬНЫЙ РЕКВИЗИТ)

	Иначе

		//ВНУТРЕННИЙ ВЫЗОВ ПРОЦЕДУРЫ (ПОДЧИНЕННЫЕ ЭЛЕМЕНТЫ)

		ПервыйВызов = Ложь;

		ИсточникВыборки = СтрокаДерева.Строки;

	КонецЕсли;

	Для каждого Стр из ИсточникВыборки Цикл

		НС = ДокОбъект[НаименованиеТабличнойЧастиДокумента].Добавить();

		Для каждого Кол из ДокОбъект.Метаданные().ТабличныеЧасти[НаименованиеТабличнойЧастиДокумента].Реквизиты Цикл

			Если Кол.Имя = "КлючСвязи" Тогда

				НС.КлючСвязи = КлючСвязи

			ИначеЕсли Кол.Имя = "НомерСтроки" Тогда

				Продолжить;

			Иначе 

				НС[Кол.Имя] = Стр[Кол.Имя];

			КонецЕсли;

		КонецЦикла;

		Если НЕ Стр.Строки.Количество() = 0 Тогда

			ДеревоВТаблицу(ДокОбъект,,НаименованиеТабличнойЧастиДокумента, Стр, НС.НомерСтроки);

		КонецЕсли;

	КонецЦикла;

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

Категория: Работа с Деревом Значений

Горячие клавиши 1С Разработчику [ Конфигуратор ] Категория: 1С Общие вопросы - Обычные формы

Программное использование универсальной обработки Выгрузка Загрузка Данных XML

Для работы, необходимо взять обработку "ВыгрузкаЗагрузкаДанныхXML", которая находится в шаблоне "Конвертация данных".

Пример обработки(автор Misha Macklaud): Скачивать файлы может только зарегистрированный пользователь!

а это ее код:

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	

	ОбработкаОбмен = Обработки.ВыгрузкаЗагрузкаДанныхXML.Создать();

	ОбработкаОбмен.Инициализация();

	ОбработкаОбмен.ОбработанныхКонстант = 0;

	ОбработкаОбмен.ОбработанныхНаборовЗаписей = 0;

	

	//отметки выгрузки Документов

	СписокОбъектовВыгрузки = Новый СписокЗначений;

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.РеализацияТоваровУслуг);

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.ПоступлениеТоваровУслуг);

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.ТребованиеНакладная);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.Выгружать=1;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

		//отбор

		Построитель = ОбработкаОбмен.ПодготовитьПостроительДляВыгрузки(СтрокаВыгрузки);

		СписокСсылокВыгрузки = Новый СписокЗначений;

		Для Каждого СтрокаТабДокументы Из ТабДокументы Цикл

			Если (СтрокаТабДокументы.Документ.Метаданные() = СписокОбъектовВыгрузки[й].Значение) И (СтрокаТабДокументы.ФлагВыгружать) Тогда

				СписокСсылокВыгрузки.Добавить(СтрокаТабДокументы.Документ.Ссылка);

			КонецЕсли;

		КонецЦикла;

		Отбор = Построитель.Отбор;

		Отбор.Добавить("Ссылка","Ссылка");

		Отбор[0].Использование 	= Истина;

		Отбор[0].ВидСравнения  	= ВидСравнения.ВСписке;

		Отбор[0].Значение		= СписокСсылокВыгрузки;

		

		СтрокаВыгрузки.НастройкиПостроителя = Построитель.ПолучитьНастройки();

		СтрокаВыгрузки.ИспользоватьОтбор = Истина;

	

	КонецЦикла;

	

	//отметки ОТМЕНЫ выгрузки Документов

	СписокОбъектовВыгрузки.Очистить();         

//	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.Заявка);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.ВыгружатьПриНеобходимости = 0;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

	КонецЦикла;

	

	//отметки выгрузки Справочников

	СписокОбъектовВыгрузки.Очистить();         

	СписокОбъектовВыгрузки.Добавить(Метаданные.Справочники.Номенклатура);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.Выгружать=1;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

	КонецЦикла;

	

	

	ИмяФайлаЗагрузки = "D:\А-Б.xml";

	ОбработкаОбмен.ВыполнитьЗагрузку(ИмяФайлаЗагрузки);

	

	ИмяФайлаВыгрузки = "D:\Б-А.xml";

	ОбработкаОбмен.ВыполнитьВыгрузку(ИмяФайлаВыгрузки);

	

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



Процедура ВыбПериодНажатие(Элемент)

	НастройкаПериода = Новый НастройкаПериода;

	НастройкаПериода.РедактироватьКакИнтервал = Истина;

	НастройкаПериода.РедактироватьКакПериод = Истина;

	НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;

	НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));

	Если НастройкаПериода.Редактировать() Тогда

		НачПериода = НастройкаПериода.ПолучитьДатуНачала();

		КонПериода = НастройкаПериода.ПолучитьДатуОкончания();

	КонецЕсли;

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



Процедура ПриОткрытии()

	

	НачПериода = ТекущаяДата();	

	КонПериода = ТекущаяДата();

	

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





Процедура ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ)

	Запрос.Текст = "ВЫБРАТЬ

	               |	ОбъектЗапроса.Ссылка

	               |ИЗ

	               |	Документ."+ОбъектЗапроса+" КАК ОбъектЗапроса

	               |ГДЕ

	               |	ОбъектЗапроса.ПометкаУдаления = ЛОЖЬ И 

				   | 	ОбъектЗапроса.Дата МЕЖДУ &ДатаНач И &ДатаКон";

				   

	Запрос.УстановитьПараметр("ДатаНач",НачалоДня(НачПериода));

	Запрос.УстановитьПараметр("ДатаКон",КонецДня(КонПериода));

	Выборка = Запрос.Выполнить().Выбрать();

	Пока Выборка.Следующий() Цикл

		НоваяСтрока 			= ТЗ.Добавить();

		НоваяСтрока.Дата 		= Выборка.Ссылка.Дата;

		НоваяСтрока.Документ	= Выборка.Ссылка;

	КонецЦикла;			   

	

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



Процедура ЗаполнитьНажатие(Элемент)

	

	ТабДокументы.Очистить();

		

	ТЗ = Новый ТаблицаЗначений;

	ТЗ.Колонки.Добавить("Дата");

	ТЗ.Колонки.Добавить("Документ");

	

	Запрос = Новый Запрос;

	

	Если флРеализация Тогда

		ОбъектЗапроса = "РеализацияТоваровУслуг";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

				   

	Если флПоступление Тогда

		ОбъектЗапроса = "ПоступлениеТоваровУслуг";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

	

	Если флТребованиеНакладная Тогда

		ОбъектЗапроса = "ТребованиеНакладная";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

	

	ТЗ.Сортировать("Дата");

	Для Каждого Стр Из ТЗ Цикл

		НоваяСтрока = ТабДокументы.Добавить();

		НоваяСтрока.Документ = Стр.Документ;

		НоваяСтрока.ФлагВыгружать = Истина;

	КонецЦикла;

	

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

Категория: Конвертация данных, Обмен, Перенос

Примеры работы с Деревом значений в УП Категория: Работа с Деревом Значений

Преобразование дерева значений в таблицу значений и обратно

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

Код 1C v 8.х

 ////////////////////////////////////////////////////////////////////////////////

// ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ С ДЕРЕВОМ ЗНАЧЕНИЙ



// Функция формирует значение нового ключа строки табличной части.

//

// Параметры:

// Дерево - дерево значений

//

Функция ПолучитьНовыйКлючСтрокиДерева(Дерево, СписокКлючей = Неопределено) Экспорт



    Если СписокКлючей = Неопределено Тогда

        СписокКлючей = Новый СписокЗначений;

        СписокКлючей.Добавить(0);

    КонецЕсли;

    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        СписокКлючей.Добавить(СтрокаДерева.КлючСтроки);

        ПолучитьНовыйКлючСтрокиДерева(СтрокаДерева, СписокКлючей);

        СписокКлючей.СортироватьПоЗначению(НаправлениеСортировки.Убыв);

        МаксКлюч = СписокКлючей[0].Значение + 1;

    КонецЦикла;

    Возврат МаксКлюч;



КонецФункции // ПолучитьНовыйКлючСтрокиДерева()



// Процедура обновляет ключи связи в дереве значений

//

Процедура ОбновитьКлючиСвязиВДеревеЗначений(Дерево) Экспорт



    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        Попытка

            СтрокаДерева.КлючСвязи = СтрокаДерева.Родитель.КлючСтроки;

        Исключение

            СтрокаДерева.КлючСвязи = 0;

        КонецПопытки;

        ОбновитьКлючиСвязиВДеревеЗначений(СтрокаДерева);

    КонецЦикла;



КонецПроцедуры // ОбновитьКлючиСвязиВДеревеЗначений()



// Процедура обновляет ключи связи в дереве значений

//

Процедура ОбновитьКлючиСтрокВДеревеЗначений(Дерево, КлючСтроки = 1) Экспорт



    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        СтрокаДерева.КлючСтроки = КлючСтроки;

        КлючСтроки = КлючСтроки + 1;

        ОбновитьКлючиСтрокВДеревеЗначений(СтрокаДерева, КлючСтроки);

    КонецЦикла;



КонецПроцедуры // ОбновитьКлючиСвязиВДеревеЗначений()



// Процедура выгружает данные из дерева значений в таблицу значений

// данные выгружаются только в таблицу со сходным набором реквизитов

//

Функция ВыгрузитьДеревоЗначенийВТаблицуЗначений(Дерево, Таблица = Неопределено) Экспорт



    Если Таблица = Неопределено Тогда

        Таблица = Новый ТаблицаЗначений;

        Для Каждого Колонка Из Дерево.Колонки Цикл

            Таблица.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения);

        КонецЦикла;

    КонецЕсли;

    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        ЗаполнитьЗначенияСвойств(Таблица.Добавить(), СтрокаДерева);

        ВыгрузитьДеревоЗначенийВТаблицуЗначений(СтрокаДерева, Таблица);

    КонецЦикла;

    Возврат Таблица;



КонецФункции //ВыгрузитьДеревоЗначенийВТаблицуЗначений()



// Процедура выгружает данные из таблицы значений в дерево значений

// данные выгружаются только в таблицу со сходным набором реквизитов

//

// Параметры:

//

// КлючСтроки - имя колонки ТаблицыЗначений - уникальный идентификатор

// КлючСвязи - имя колонки ТаблицыЗначений - указатель привязки к строке Дерева,

// своего рода указатель на "Родителя"

//

Функция ВыгрузитьТаблицуЗначенийВДеревоЗначений(Таблица, КлючСтроки = "КлючСтроки", КлючСвязи = "КлючСвязи") Экспорт



    Дерево = Новый ДеревоЗначений;

    Для Каждого Колонка Из Таблица.Колонки Цикл

        Дерево.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения);

    КонецЦикла;

    Для Каждого СтрокаТаблицы Из Таблица Цикл

        СтрокаГруппировки = Дерево.Строки.Найти(СтрокаТаблицы[КлючСвязи], КлючСтроки,Истина);

        Если СтрокаГруппировки = Неопределено Тогда

            ЗаполнитьЗначенияСвойств(Дерево.Строки.Добавить(), СтрокаТаблицы);

        Иначе

            ЗаполнитьЗначенияСвойств(СтрокаГруппировки.Строки.Добавить(), СтрокаТаблицы);

        КонецЕсли;

    КонецЦикла;

    Возврат Дерево;



КонецФункции //ВыгрузитьТаблицуЗначенийВДеревоЗначений()



// Процедура устанавливает значение во всем дереве значений

//

Процедура УстановитьЗначениеКолонкиДерева(Дерево, Колонка, Значение) Экспорт



    Для каждого СтрокаДерева Из Дерево.Строки Цикл

        СтрокаДерева[Колонка] = Значение;

        УстановитьЗначениеКолонкиДерева(СтрокаДерева, Колонка, Значение);

    КонецЦикла;



КонецПроцедуры //УстановитьЗначениеКолонкиДерева()



// Процедура копирует подчиненные строки дерева значений

//

Процедура СкопироватьПодчиненныеСтроки(СтрокаПриемник, СтрокаИсточник)



    Для каждого Строка Из СтрокаИсточник.Строки Цикл

        НоваяСтрока = СтрокаПриемник.Строки.Добавить();

        НоваяСтрока.КлючСвязи = СтрокаПриемник.КлючСтроки;

        ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);

        СкопироватьПодчиненныеСтроки(НоваяСтрока, Строка);

    КонецЦикла;



КонецПроцедуры // СкопироватьПодчиненныеСтроки()



// Процедура переносит выделенные строки дерева значений в указанную ветку

//

Процедура ПеренестиСтрокиДереваЗначений(СтрокаПриемник, ВыделенныеСтроки) Экспорт



    Если НЕ СтрокаПриемник = Неопределено Тогда

        МассивСтрок = Новый Массив;

        Для Каждого СтрокаПереноса Из ВыделенныеСтроки Цикл

            МассивСтрок.Добавить(СтрокаПереноса);

            НоваяСтрока = СтрокаПриемник.Строки.Добавить();

            СкопироватьПодчиненныеСтроки(НоваяСтрока, СтрокаПереноса);

            ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаПереноса);

            НоваяСтрока.КлючСвязи = СтрокаПриемник.КлючСтроки;

        КонецЦикла;

        Для Каждого СтрокаДерева Из МассивСтрок Цикл

            Если СтрокаДерева.Родитель = Неопределено Тогда

                СтрокаДерева.Строки.Удалить(СтрокаДерева);

            Иначе

                СтрокаДерева.Родитель.Строки.Удалить(СтрокаДерева);

            КонецЕсли;

        КонецЦикла;

    КонецЕсли;



КонецПроцедуры //ПеренестиСтрокиДереваЗначений()

Александр Синцов (Sintson)

Категория: Работа с Деревом Значений

Как самостоятельно заполнить дерево значений?

Код 1C v 8.х

 Процедура ЗаполнениеДерева(Кнопка) 

	Дерево.Колонки.Очистить(); 

	Дерево.Колонки.Добавить("ИмяКолонки"); 



	// Создать первую строку. Правильнее сказать создать элемент 

	// коллекции. Он помещается в переменную "СтрокаВерхнегоУровня". 

	СтрокаВерхнегоУровня = Дерево.Строки.Добавить(); 



	// В колонку "ИмяКолонки" записать значение "Старшая". 

	СтрокаВерхнегоУровня.ИмяКолонки = "Старшая"; 



	// Создать строку подчиненную "Старшей". 

	ПодчиненнаяСтрока =СтрокаВерхнегоУровня.Строки.Добавить(); 

	ПодчиненнаяСтрока.ИмяКолонки = "Первая подчиненная"; 



	ПодчиненнаяВторогоУровня = ПодчиненнаяСтрока.Строки.Добавить(); 

	ПодчиненнаяВторогоУровня.ИмяКолонки = "Первая нижняя"; 



	ПодчиненнаяВторогоУровня = ПодчиненнаяСтрока.Строки.Добавить(); 

	ПодчиненнаяВторогоУровня.ИмяКолонки = "Вторая нижняя"; 



	ПодчиненнаяСтрока = СтрокаВерхнегоУровня.Строки.Добавить(); 

	ПодчиненнаяСтрока.ИмяКолонки = "Вторая подчиненная"; 



	// Использование метода позволит увидеть результат работы 

	// с деревом значений в табличном поле. 

	ЭлементыФормы.Дерево.СоздатьКолонки(); 



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



Процедура ОткрытиеВетки(Кнопка) 



	// Сделать текущим именно элемент коллекции "Строки". 

	РезультатПоиска = Дерево.Строки.Найти("Первая нижняя", "ИмяКолонки", Истина); 



	Если РезультатПоиска <> Неопределено Тогда 

		ЭлементыФормы.Дерево.ТекущаяСтрока = РезультатПоиска; 

	КонецЕсли; 



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

Категория: Работа с Деревом Значений

Формирование списка зарегистрированных информационных баз системы 1Cv8 Категория: Полезные, Универсальные Функции