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