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

Дерево значений 1с

Дерево значений 1с относится к универсальным коллекциям значений. Отличие от Таблицы значений в том, что строки Дерева Значений могут быть подчинены друг другу.

ДеревоЗначений — это программный объект встроенного языка, позволяющий строить произвольные иерархические наборы данных в памяти компьютера, отображать их в табличном и\или древовидном виде, а также программно и интерактивно манипулировать ими (добавлять, редактировать, удалять и сортировать строки).

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

Строки и колонки имеют индексы, по которым к ним можно обращаться напрямую (начинаются с 0). Кроме этого, к колонкам можно обращаться по идентификатору.

Свойства Дерева Значений 1с

Свойство Колонки Дерева значений

Содержит коллекцию колонок дерева значений.

Свойство Строки Дерева значений

Содержит коллекцию корневых строк дерева значений.

Методы Дерева Значений 1с

метод Скопировать() Дерева значений

Создает новый объект копированием текущего (копируются все колонки и строки).

метод ВыбратьСтроку() Дерева значений

Открывает диалог для интерактивного выбора строки дерева значений.

Дерево значений серверный тип данных, поэтому доступ к нему получаем на стороне сервера.

&НаКлиенте Процедура Дерево(Команда) ДеревоНаСервере(); Конецпроцедуры &НаСервере Процедура ДеревоНаСервере() ДеревоЗнач=Новый ДеревоЗначений; ДеревоЗнач.Колонки.Добавить("Склад"); ДеревоЗнач.Колонки.Добавить("Ячейка"); ДеревоЗнач.Колонки.Добавить("Количество"); Строка=ДеревоЗнач.Строки.Добавить(); Строка.Склад="Оптовый"; Строка.Ячейка="10"; Строка.Количество=150; КонецПроцедуры

Добавим несколько вложенных значений:

СтрокаН=Строка.Строки.Добавить(); СтрокаН.Ячейка="15"; СтрокаН=Строка.Строки.Добавить(); СтрокаН.Ячейка="25";

Создаем реквизит Дерево тип ДеревоЗначений. Для Реквизита указываются колонки:

• Склад;
• Ячейка;
• Количество.

Далее перетаскиваем Реквизит на форму.

В Завершении в модуль процедуры на Сервере добавляем код. Этот код выполняется аналогично выгрузке Таблицей Значений:

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

В результате получим следующее Дерево значений:

Полный код работы с Деревом значений 1с:

Обработка дерева значений 1с

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

Во-первых команда на клиенте:

Во-вторых процедура на Сервере получающая Дерево значений:

&НаСервере Процедура Команда2НаСервере() ДеревоЗнач=новый ДеревоЗначений; ДеревоЗнач=ДанныеФормыВЗначение(объект.Дерево,Тип("ДеревоЗначений")); Строки=ДеревоЗнач.строки; ОбработатьДерево(Строки); КонецПроцедуры

В третьих рекурсивная процедура обрабатывающая строки Дерева Значений:

&НаСервере Процедура ОбработатьДерево(Строки) Для каждого Строка из Строки цикл Сообщить(Строка(Строка.Склад)+":"+Строка(Строка.Ячейка)+":" +Строка(Строка.Количество)); ОбработатьДерево(Строка.Строки); конеццикла; конецпроцедуры 

Полный код обработки Дерева значений:

Источник

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

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

Доступность

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

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

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

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

Читайте также:

Источник

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

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

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

Похожие FAQ

17 правил для составления оптимального ЗАПРОСа к данным базы 1С 50
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ 1C и Google Maps 21
была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш COM-подключение к базе 7.7 из 8.2 1С 6
Если код выполняется на стороне клиента, то необходимо наличие базы 7.7 на локальной машине. Пример (На форме объекта присутствует реквизит Таблица(ТаблицаЗначений)): НаКлиенте Процедура Загрузки() ПутьКБазе=» D:ВашаБаза1с77″ ; Пользователь= Excel файл как Внешний источник данных 16
Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто. 1. В конфигурации добавляет новый объект метаданных типа » Внешние источники данных» и назовем его просто » Excel» . https://helpf.pro/uploads/img Google maps : вывод точек на карту и режим панорамы 8
В отличие от яндекс карт в GMaps можно использовать панорамы — за что им большой плюс! Надеюсь в яндексе прочитают этот пост и тоже когда-нибудь это сделают! Для клиента нужно было сделать вывод объектов на карту С возможностью просмотра панора Посмотреть все результаты поиска похожих

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

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

Источник