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