Дерево Значений в квадрате

@ТрисТан · Регистрация: 27.11.2012

Author24 — интернет-сервис помощи студентам

Народ помогите
Есть Дерево Значений (Иерархия) "Наборы"
и Есть Дерево Значений (Иерархия) "Конкуренты"
Нужно перекинуть данные с Наборов в Конкуренты
Пытаюсь таким вот

1C

Дерево  = ДанныеФормыВЗначение(Наборы,Тип("ДеревоЗначений"));
ДеревоКонкурентов  = ДанныеФормыВЗначение(Конкуренты,Тип("ДеревоЗначений"));
Для Каждого СтрокаДерева из Дерево.Строки Цикл
    Если СтрокаДерева.Комплектность = Ложь Тогда 
     СтрокаКонкурент = ДеревоКонкурентов.Строки.Добавить();
     СтрокаКонкурент.Набор = СтрокаДерева.Набор;
    КонецЕсли;
КонецЦикла;
ЗначениеВДанныеФормы(ДеревоКонкурентов,Конкуренты);

Не могу понять как программно перевязать Родителя и сохранить иерархию

@GreenkA · 27.04.2016, 17:14

ТрисТан, попробуйте так:

1C

ДеревоНаборы = РеквизитФормыВЗначение("Наборы");
ДеревоКонкуренты = РеквизитФормыВЗначение("Конкуренты");
ДеревоКонкуренты = ДеревоНаборы; //создаем копию дерева
ЗначениеВРеквизитФормы(ДеревоКонкуренты,"Конкуренты");

@ТрисТан · 28.04.2016, 12:13 **[ТС]**

Пробовал нюанс в том что мне нужно только иерархия по полю наборы
При возвращении реквизитов Ошибка
ЗначениеВРеквизитФормы(ДеревоКонкуренты,"Конкуренты");

{Документ.ЭР_КомплексныеЗакупкиКлиентов.Форма.ФормаДокумента.Форма(154)}: Ошибка при вызове метода контекста (ЗначениеВРеквизитФормы)
ЗначениеВРеквизитФормы(ДеревоКонкуренты,"Конкуренты");
по причине:
Недопустимое значение параметра (параметр номер '2')
Недопустимое значение параметра (параметр номер '2')

Добавлено через 5 минут
Там поля разные в таблицах

Добавлено через 2 часа 23 минуты

1C

Дерево  = ДанныеФормыВЗначение(Наборы,Тип("ДеревоЗначений"));
    ДеревоКонкурентов  = ДанныеФормыВЗначение(Конкуренты,Тип("ДеревоЗначений"));
    Для Каждого СтрокаДерева из Дерево.Строки Цикл
        Если СтрокаДерева.Комплектность = Ложь Тогда
            СтрокаКонкурент = ДеревоКонкурентов.Строки.Добавить();
            СтрокаКонкурент.Набор = СтрокаДерева.Набор;
            Для Каждого Строка из СтрокаДерева.Строки Цикл
                Если Строка.Комплектность = Ложь Тогда
                    СтрокаКонкурент = ДеревоКонкурентов.Строки.Добавить();
                    СтрокаКонкурент.Набор = Строка.Набор;
                    Строка.Набор.Владелец = Строка.Владелец; 
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;
    
    ЗначениеВДанныеФормы(ДеревоКонкурентов,Конкуренты);

Отрабатывает нормально только вот иерархия не сохраняется что делать ?

@GreenkA · 28.04.2016, 12:19

ТрисТан, тогда используем рекурсию:

1C

&НаКлиенте
Процедура Команда1(Команда)
    ИзОдногоДереваВДругое();
КонецПроцедуры
 
&НаСервере
Процедура ИзОдногоДереваВДругое()
    ДеревоНаборы = РеквизитФормыВЗначение("Наборы");
    ДеревоКонкуренты = РеквизитФормыВЗначение("Конкуренты");
    
    ЗаполнениеДерева(ДеревоНаборы, ДеревоКонкуренты);
    
    ЗначениеВРеквизитФормы(ДеревоКонкуренты,"Конкуренты");
КонецПроцедуры
 
&НаСервере
Процедура ЗаполнениеДерева(ДеревоНаборы, ДеревоКонкуренты)
    Для Каждого СтрокаДерева Из ДеревоНаборы.Строки Цикл
        Если СтрокаДерева.Комплектность = Ложь Тогда
            НоваяСтрока = ДеревоКонкуренты.Строки.Добавить();
            НоваяСтрока.Набор = СтрокаДерева.Набор;
            ЗаполнениеДерева(СтрокаДерева, НоваяСтрока);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

@ТрисТан · 28.04.2016, 15:54 **[ТС]**

Уже сделал спасибо тему можно считать закрытой

@ТрисТан 0 / 0 / 0 Регистрация: 27.11.2012 Сообщений: 92
	28.04.2016, 15:54 [ТС]	5
	Уже сделал спасибо тему можно считать закрытой 0