v8.2 УП: Как правильно установить отбор в списке

 // Год - реквизит формы списка.

&НаКлиенте

Процедура ГодПриИзменении(Элемент)

 //очистим отборы

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

 // Установим отбор

 ОтфильтроватьПоГоду(Год);    

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



&НаСервере

Процедура ОтфильтроватьПоГоду(СсылкаНаГод)

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

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

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

    ЭлементОтбора.ПравоеЗначение = СсылкаНаГод;

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

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

 // Основная таблица для Список  Справочник.Корпуса

// Основная таблица для СписокПомещений  Справочник.Помещения



// В форме списка справочника корпуса

&НаКлиенте

Процедура СписокПриАктивизацииСтроки(Элемент)

      Если Элементы.Список.ТекущаяСтрока <> Неопределено Тогда

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

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

      КонецЕсли;

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





// Устанавливает отбор у отбора системы компоновки данных.

//

//  Пример использования:

//   ОбщегоНазначенияКлиентСервер.УстановитьОтборУСпискаНаРавенство(

//                   Список.Отбор,

//                   Новый ПолеКомпоновкиДанных("ИмяСвойства"),

//                   ЗначениеОтбора);

//

&НаКлиенте

Процедура УстановитьОтборУСпискаНаРавенство(ОтборСКД,

                                            знач ЛевоеЗначение,

                                            знач ПравоеЗначение) Экспорт

     

      ЭлементыОтбора = ОтборСКД.Элементы;

      ЭлементОтбораДанных = Неопределено;

     

      Для Каждого ЭлементОтбора Из ЭлементыОтбора Цикл

            Если ЭлементОтбора.ЛевоеЗначение = ЛевоеЗначение Тогда

                  Если ЭлементОтбораДанных = Неопределено Тогда

                        ЭлементОтбораДанных = ЭлементОтбора;

                  Иначе

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

                  КонецЕсли;

            КонецЕсли;

      КонецЦикла;

     

      Если ЭлементОтбораДанных = Неопределено Тогда

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

            ЭлементОтбораДанных.ЛевоеЗначение = ЛевоеЗначение;

      КонецЕсли;

     

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

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

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

     

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

 

СписокДляОтбора=Новый СписокЗначений;

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

    	СписокДляОтбора.Добавить(ВыборкаДетальныеЗаписи.МестоХранения.ссылка);

	КонецЦикла;



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

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

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

			ЭлементОтбора.ПравоеЗначение = СписокДляОтбора;

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

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