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

Как-то так

   ЭлементОтбора = ОбщегоНазначенияУТКлиентСервер.ДобавитьОтбор(Элементы.Список.Отбор,
                       "Дата",
                       НачалоДня(Дата),
                       ВидСравненияКомпоновкиДанных.МеньшеИлиРавно,
                       Истина);

v8: 8.2 Отбор в управляемой форме (форма списка)
v8: Управляемая форма: Отбор в списке
И прочего куча.....

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

теперь как мне найти элемент отбора Контрагент и заменить у него???
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии;
на
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.НЕВИерархии;

up

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

&НаКлиенте
Процедура ОтборРНУчет(Команда)
   УстановитьОтборПоКолонке("Контрагент", ВидСравненияКомпоновкиДанных.ВИерархии,"000000005");
КонецПроцедуры

&НаКлиенте
Процедура ОтборВнешЗаказчики(Команда)
   УстановитьОтборПоКолонке("Контрагент", ВидСравненияКомпоновкиДанных.НеВИерархии,"000000005");
КонецПроцедуры

(5) Феерично. А воспользоваться готовой из типовой понты не позволили?