1с дерево значений выгрузить колонку

Содержание

ДеревоЗначений.Строки Метод ВыгрузитьКолонку()
Доступность
Пример использования
Читайте также:
Преобразование дерева значений в таблицу значений и обратно
Дерево значений в таблицу значений
Таблица значений в дерево значений
1С 8.x : Преобразование дерева значений в таблицу значений и обратно
Похожие FAQ
Еще в этой же категории

ДеревоЗначений.Строки
Метод ВыгрузитьКолонку()

Метод ВыгрузитьКолонку() копирует значения из определенной колонки коллекции строк дерева значений в массив. Значения выгружаются в порядке следования индексов строк коллекции.

Доступность

Сервер, толстый клиент, внешнее соединение, мобильное приложение(сервер).

Пример использования

Пример кода с использованием метода ВыгрузитьКолонку() :

//создание нового дерева значений ДеревоЗначений = Новый ДеревоЗначений; //добавляем колонки ДеревоЗначений.Колонки.Добавить("Наименование"); ДеревоЗначений.Колонки.Добавить("КодТовара"); // //. // мСтроки = ДеревоЗначений.Строки.ВыгрузитьКолонку("Наименование"); //или мСтроки = ДеревоЗначений.Строки.ВыгрузитьКолонку(0);

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

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

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

Дано: дерево значений (2 колонки) и таблица значений (4 колонки). Две дополнительные колонки в таблице значений нужны для обратного преобразования, если оно не требуется то и колонки не нужны.

ПреобразоватьВТЗРекурсия(тДерево, тТаблица, Новый УникальныйИдентификатор(«00000000-0000-0000-0000-000000000000»));

В колонку «ГУИД» таблицы значений записывается уникальный идентификатор строки (он просто генерируется), а в колонку «Родитель» записывается уникальный идентификатор строки-родителя (для строк верхнего уровня — нулевой уникальный идентификатор).

Таблица значений в дерево значений

Обратное преобразование производится при помощи двух лишних колонок («ГУИД» и «Родитель») если из таблицы значений была удалена какая-то строка, то все подчиненные ей строки также будут удалены.

ПреобразоватьВДЗРекурсия(тДерево, тТаблица, Новый УникальныйИдентификатор(«00000000-0000-0000-0000-000000000000»));

Работу приведенного выше кода можно посмотреть в маленькой обработке.

На этом все, надеюсь статья Вам помогла.

Если Вы нашли ошибку или неточность, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.

(оценок: 18, средняя оценка: 4,44 из 5)

Источник

1С 8.x : Преобразование дерева значений в таблицу значений и обратно

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

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

Еще в этой же категории

Примеры работы с Деревом значений в УП 11
Так как работа с ДеревомЗначений и ТаблицейЗначений в данном контексте практически не отличается, в примере будет использоваться ДеревоЗначений, все тоже самое за исключением иерархии применимо и к ТаблицеЗначений. Как известно, в платформе 1С 8.1 н Как в дереве значений строку перекинуть в другой родитель? 5
Процедура ПереместитьСтрокуДерева(Дерево, ПеремещаемаяСтрока, НовыйРодитель, Уровень = 0) Если Уровень = 0 Тогда НоваяСтрока = НовыйРодитель.Строки.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтрока, ПеремещаемаяСтрока); ПереместитьСтрокуДерева(Де Как Свернуть, Развернуть узлы Дерева значений на форме? 4
Как программно свернуть/развернуть дерево значений на управляемой форме? Желательно НаКлиенте. КоллекцияЭлементовДерева=ДеревоНоменклатуры.ПолучитьЭлементы(); //Свернуть дерево Для Каждого Строка Из КоллекцияЭлементовДерева Цикл ИдентификаторСт ДеревоЗначений в ТекстовыйДокумент 3
// Выводит данные ДереваЗначений в ТекстовыйДокумент, пригодный к рассмотрению в отладчике, окне сообщений и показу. // // Параметры: // рВетка — дерево значений, подлежащее выводу. Может иметь почти любую глубину иерархии, количество и тип ко Как вывести в справочник в виде дерева значений 1
Дерево = Новый ДеревоЗначений; Запрос = Новый Запрос; Запрос.Текст=» ВЫБРАТЬ |Ном.Ссылка как ссылка |ИЗ | Справочник.Номенклатура КАК Ном |Упорядочить По |Ном.Ссылка Иерархия» ; // Или Запрос.Текст icon-exclamation-sign»> Посмотреть все в категории Работа с Деревом Значений