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