КоллекцияЭлементовДерева=ДеревоНоменклатуры.ПолучитьЭлементы();

//Свернуть дерево 

Для Каждого Строка Из КоллекцияЭлементовДерева Цикл

     ИдентификаторСтроки=Строка.ПолучитьИдентификатор();

     Элементы.ДеревоНоменклатуры.Свернуть(ИдентификаторСтроки);

КонецЦикла;



//Развернуть дерево 

Для Каждого Строка Из КоллекцияЭлементовДерева Цикл    

    ИдентификаторСтроки=Строка.ПолучитьИдентификатор();

    Элементы.ДеревоНоменклатуры.Развернуть(ИдентификаторСтроки);

КонецЦикла;   

 // Разворот текущей строки в дереве:

Строка = ЭлементыФормы.ТабличноеПоле.ТекущаяСтрока;

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



// Определим, развернут ли узел дерева в указанной строке.

УзелРазвернут = ЭлементыФормы.ТабличноеПоле.Развернут(Строка);

Если УзелРазвернут Тогда

// Если Развернут, то Свернуть

ЭлементыФормы.ТабличноеПоле.Свернуть(Строка);

КонецЕсли;   

  //перебором свернуть все Выделенные строки дерева Табличного поля

Для каждого  Строка Из ЭлеменетыФормы.ТабличноеПоле1.ВыделенныеСтроки Цикл

   ЭлементыФормы.ТабличноеПоле.Свернуть(Строка);

КонецЦикла;   

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

                ДействиеПодбор(Товары);

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

 Процедура ДействиеПодбор(ТабличнаяЧасть)

                Перем Команда, Валюта;

                ЕстьЦена  = Истина;

                Если ТабличнаяЧасть = Товары Тогда

                               Команда         = "ПодборВТабличнуюЧастьТовары";

                               Валюта          = ВалютаДокумента;

                               СпособЗаполненияЦен = Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатуры;

                               ИмяТабличнойЧасти = "Товары";

                ИначеЕсли ТабличнаяЧасть = ВозвратнаяТара Тогда

                               //.................Прочие условия и т.д.

                КонецЕсли;



                СписокВидовПодбора = СформироватьСписокЗапросовДляПодбора(ТабличнаяЧасть);

                ПредставлениеДок = Метаданные().Представление();

                СтруктураПараметровПодбора = Новый Структура();

                СтруктураПараметровПодбора.Вставить("Команда"            , Команда);

                СтруктураПараметровПодбора.Вставить("СписокВидовПодбора" , СписокВидовПодбора);

                // Параметры запросов.

                ВременнаяДатаРасчетов = ?(НачалоДня(Дата) = НачалоДня(ТекущаяДата()), Неопределено, Дата);

                СтруктураПараметровПодбора.Вставить("ДатаРасчетов"         , ВременнаяДатаРасчетов);

                СтруктураПараметровПодбора.Вставить("Склад"                , Склад);

                СтруктураПараметровПодбора.Вставить("ТипЦен"               , ТипЦен);

                СтруктураПараметровПодбора.Вставить("ДоговорКонтрагента", ДоговорКонтрагента);

                СтруктураПараметровПодбора.Вставить("Контрагент"           ,Контрагент);

                СтруктураПараметровПодбора.Вставить("Организация"          , Организация);

                СтруктураПараметровПодбора.Вставить("СпособЗаполненияЦен"  , СпособЗаполненияЦен);

                СтруктураПараметровПодбора.Вставить("ЕстьЦена"             , ЕстьЦена);

                СтруктураПараметровПодбора.Вставить("ВалютаДокумента"      , Валюта);

                СтруктураПараметровПодбора.Вставить("Заголовок", "Подбор номенклатуры в документ " + ПредставлениеДок + " № " + Номер + " (" + ИмяТабличнойЧасти + ")");



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

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

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



                // Добавляем обработчики в форму

                МетаданныеДокумента = ФормаДокумента.ДокументОбъект.Метаданные();

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

                               Если ОбщегоНазначения.ЕстьРеквизитДокумента(ЭлементСтруктурыПараметров.Ключ, МетаданныеДокумента) Тогда

                                               ФормаДокумента.ПодключитьОбработчикИзмененияДанных(ЭлементСтруктурыПараметров.Ключ, "ОбновитьФормуПодбора", Ложь);

                               КонецЕсли;

                КонецЦикла;

                

                // Открываем форму подбора.

                ФормаПодбора = Обработки.ПодборНоменклатуры.ПолучитьФорму("ОсновнаяФорма", ФормаДокумента, ФормаДокумента);

                ФормаПодбора.ОбработкаОбъект.СтруктураИсходныхПараметров = СтруктураПараметров;



                //- НАЧАЛО Изменения для Установки Родителя В Подборе

                //НУЖНО чтобы при открытии Подбора номенклатуры Открывалась номенклатура из Групы Оргтехника (код 00000013608)

                // НА ФОРМЕ ВЫБОРА СЛЕВА ЕСТЬ ДЕРЕВО ГРУПП, установим значение нужного нам Родителя в нем:

                 ФормаПодбора.ЭлементыФормы.ДеревоНоменклатуры.ТекущаяСтрока = Справочники.Номенклатура.НайтиПоКоду("00000013608");

                // - КОНЕЦ Изменений



                ФормаПодбора.Открыть();

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