&НаКлиенте

Процедура ОтборПоТекущемуЗначению(Команда)

	

	ТекДанныеСписка = Элементы.СписокОтчетов.ТекущиеДанные;



	Если ТекДанныеСписка = Неопределено Тогда

		Предупреждение("Не указано значение отбора");

		Возврат;

	КонецЕсли;

	

	ИмяПараметраОтбора = СтрЗаменить(Элементы.СписокОтчетов.ТекущийЭлемент.Имя, "СписокОтчетов", "");

	

	ЗначениеПараметраОтбора = Неопределено;

	ТекДанныеСписка.Свойство(ИмяПараметраОтбора, ЗначениеПараметраОтбора);

	

	СписокОтчетов.Отбор.Элементы.Очистить();

	

	ЭлементОтбора = СписокОтчетов.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

	ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ИмяПараметраОтбора);

	ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;

	ЭлементОтбора.ПравоеЗначение = ЗначениеПараметраОтбора;

	ЭлементОтбора.Использование = Истина;

	

	Элементы.СписокОтчетов.Обновить();

	

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