КоллекцияЭлементовДерева=ДеревоНоменклатуры.ПолучитьЭлементы();
//Свернуть дерево 
Для Каждого Строка Из КоллекцияЭлементовДерева Цикл
     ИдентификаторСтроки=Строка.ПолучитьИдентификатор();
     Элементы.ДеревоНоменклатуры.Свернуть(ИдентификаторСтроки);
КонецЦикла;

//Развернуть дерево 
Для Каждого Строка Из КоллекцияЭлементовДерева Цикл    
    ИдентификаторСтроки=Строка.ПолучитьИдентификатор();
    Элементы.ДеревоНоменклатуры.Развернуть(ИдентификаторСтроки);
КонецЦикла;   

 // Разворот текущей строки в дереве:
Строка = ЭлементыФормы.ТабличноеПоле.ТекущаяСтрока;
ЭлементыФормы.ТабличноеПоле.Развернуть(Строка, Истина);

// Определим, развернут ли узел дерева в указанной строке.
УзелРазвернут = ЭлементыФормы.ТабличноеПоле.Развернут(Строка);
Если УзелРазвернут Тогда
// Если Развернут, то Свернуть
ЭлементыФормы.ТабличноеПоле.Свернуть(Строка);
КонецЕсли;   

  //перебором свернуть все Выделенные строки дерева Табличного поля
Для каждого  Строка Из ЭлеменетыФормы.ТабличноеПоле1.ВыделенныеСтроки Цикл
   ЭлементыФормы.ТабличноеПоле.Свернуть(Строка);
КонецЦикла;   

 Процедура КоманднаяПанельТоварыДействиеПодбор(Кнопка)
                ДействиеПодбор(Товары);
КонецПроцедуры   

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

                СписокВидовПодбора = СформироватьСписокЗапросовДляПодбора(ТабличнаяЧасть);
                ПредставлениеДок = Метаданные().Представление();
                СтруктураПараметровПодбора = Новый Структура();
                СтруктураПараметровПодбора.Вставить("Команда"            , Команда);
                СтруктураПараметровПодбора.Вставить("СписокВидовПодбора" , СписокВидовПодбора);
                // Параметры запросов.
                ВременнаяДатаРасчетов = ?(НачалоДня(Дата) = НачалоДня(ТекущаяДата()), Неопределено, Дата);
                СтруктураПараметровПодбора.Вставить("ДатаРасчетов"         , ВременнаяДатаРасчетов);
                СтруктураПараметровПодбора.Вставить("Склад"                , Склад);
                СтруктураПараметровПодбора.Вставить("ТипЦен"               , ТипЦен);
                СтруктураПараметровПодбора.Вставить("ДоговорКонтрагента", ДоговорКонтрагента);
                СтруктураПараметровПодбора.Вставить("Контрагент"           ,Контрагент);
                СтруктураПараметровПодбора.Вставить("Организация"          , Организация);
                СтруктураПараметровПодбора.Вставить("СпособЗаполненияЦен"  , СпособЗаполненияЦен);
                СтруктураПараметровПодбора.Вставить("ЕстьЦена"             , ЕстьЦена);
                СтруктураПараметровПодбора.Вставить("ВалютаДокумента"      , Валюта);
                СтруктураПараметровПодбора.Вставить("Заголовок", "Подбор номенклатуры в документ " + ПредставлениеДок + " № " + Номер + " (" + ИмяТабличнойЧасти + ")");

                РаботаСДиалогами.ОткрытьПодборНоменклатуры(ЭтаФорма, СтруктураПараметровПодбора, мФормаПодбораНоменклатуры);
КонецПроцедуры   

 Процедура ОткрытьПодборНоменклатуры(ФормаДокумента, СтруктураПараметров, ФормаПодбора = Неопределено) Экспорт

                // Добавляем обработчики в форму
                МетаданныеДокумента = ФормаДокумента.ДокументОбъект.Метаданные();
                Для Каждого ЭлементСтруктурыПараметров Из СтруктураПараметров Цикл
                               Если ОбщегоНазначения.ЕстьРеквизитДокумента(ЭлементСтруктурыПараметров.Ключ, МетаданныеДокумента) Тогда
                                               ФормаДокумента.ПодключитьОбработчикИзмененияДанных(ЭлементСтруктурыПараметров.Ключ, "ОбновитьФормуПодбора", Ложь);
                               КонецЕсли;
                КонецЦикла;
                
                // Открываем форму подбора.
                ФормаПодбора = Обработки.ПодборНоменклатуры.ПолучитьФорму("ОсновнаяФорма", ФормаДокумента, ФормаДокумента);
                ФормаПодбора.ОбработкаОбъект.СтруктураИсходныхПараметров = СтруктураПараметров;

                //- НАЧАЛО Изменения для Установки Родителя В Подборе
                //НУЖНО чтобы при открытии Подбора номенклатуры Открывалась номенклатура из Групы Оргтехника (код 00000013608)
                // НА ФОРМЕ ВЫБОРА СЛЕВА ЕСТЬ ДЕРЕВО ГРУПП, установим значение нужного нам Родителя в нем:
                 ФормаПодбора.ЭлементыФормы.ДеревоНоменклатуры.ТекущаяСтрока = Справочники.Номенклатура.НайтиПоКоду("00000013608");
                // - КОНЕЦ Изменений

                ФормаПодбора.Открыть();
КонецПроцедуры