// Позволяет определить есть ли среди реквизитов шапки Объекта реквизит с переданным именем.

Функция ЕстьРеквизитОбъекта(ИмяРеквизита, Объект) Экспорт



МетаданныеОбъекта = Объект.Метаданные();

Если МетаданныеОбъекта.Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда

Возврат Ложь;

Иначе

Возврат Истина;

КонецЕсли; 



КонецФункции    

 // Позволяет определить есть ли среди реквизитов шапки документа

// реквизит с переданным именем.

//

// Параметры: 

//  ИмяРеквизита - строковое имя искомого реквизита, 

//  МетаданныеДокумента - объект описания метаданных документа, среди реквизитов которого производится поиск.

//

// Возвращаемое значение:

//  Истина - нашли реквизит с таким именем, Ложь - не нашли.

//

Функция ЕстьРеквизитДокумента(ИмяРеквизита, МетаданныеДокумента) Экспорт



Если МетаданныеДокумента.Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда

Возврат Ложь;

Иначе

Возврат Истина;

КонецЕсли; 



КонецФункции   

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

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

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

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

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

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

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

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

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

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

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

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

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

                КонецЕсли;



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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



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

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

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

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

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

                               КонецЕсли;

                КонецЦикла;

                

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

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

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



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

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

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

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

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



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

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

 

// Универсальная процедура, которая инициирует механизм подбора

// номенклатуры в документы (открывает основную форму обработки подбор).

//

// Параметры:

//  ФормаДокумента - форма документа, в который осуществляется подбор,

//  СтруктураПараметров - параметры, которые передаются в форму подбора.

//

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



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

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



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



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



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



		КонецЕсли;



	КонецЦикла;



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

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

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

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



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