Три костыля. Сказ про фокусы в коде

Итак, перейдем к решению задачи. Начнем с изменения формы, далее опишем алгоритм получения итоговых значений.

Форма и интерфейс

Для начала подготовим форму документа для отображения итоговых полей. Для этого добавим два строковых реквизита формы "Рейтинг" и "Сумма".  

В данные реквизиты будут записываться итоговые значения по документам. Для отображения значений реквизитов в подвале динамического списка необходимо включить соответствующую опцию связанного элемента формы списка (см. следующий скриншот).

Далее нужно связать колонки подвала с соответствующими реквизитами формы, которые были созданы ранее. Для этого в свойствах колонок нужно установить путь к данным подвала.

Теперь нужно определиться по какому событию будет происходить обновление итогов в подвале списка. Для удобства разработки добавим команду "Обновить" и соответствующий ей элемент формы на командную панель. При выполнении этой команды будет происходить обновление итогов. В реальных задачах обновление итогов нужно делать на событиях "ПриПолученииДанныхНаСервере", "ПриАктивизацииСтроки" (о ужас!) или с помощью обработчика ожидания.

Пример Вы можете посмотреть в репозитории на GitHub. Также было добавлено событие обновления итогов при записи документа, при этом используется механизм оповещения форм. Подробнее на этом останавливаться не будем.

Алгоритм

Осталась самая проблематичная часть - нужно получить значения итогов. Поступим следующим образом: будем формировать запрос к базе данных на получение значений итоговых полей в соответствии с отбором, установленным в динамическом списке. Стоит учитывать, что в отборе может стоять сложное условие из групп.

Этапы формирования запроса для получения итогов следующие:

1. Получаем исходный запрос динамического списка.

Как мы видим, запрос выбирает все реквизиты документа. Для небольшого усложнения добавил собственное поле "УровеньРейтинга", формируемое конструкцией "ВЫБОР".

2. Формируем текст условий запроса (секция "ГДЕ") и подставляем в исходный запрос.

К полученному исходному тексту запроса нам необходимо добавить условия в соответствии с настроенным отбором динамического списка.

Для этого нужно рекурсивно обойти все используемые элементы отбора, включая группы, и сформировать текст условия. Подробно описывать созданный алгоритм не буду, его Вы можете посмотреть в тестовой конфигурации, опишу лишь важные моменты.

Рекурсивный обход элементов отбора осуществляется следующим способом.

// Устанавливаем условия запроса в соответствии с установленным отбором
ТекстУсловийЗапроса = "ГДЕ ";
Для Каждого Эл Из МассивИспользуемыхПолейОтбора Цикл 
	// Обрабатываем текущий элемент отбора верхнего уровня
	ОбработатьЭлементОтбора(Эл, ТекстУсловийЗапроса, "И",
							СтруктураТиповПолей, Запрос, ТекстЗапроса);		
КонецЦикла;
ТекстУсловийЗапроса = УбратьЛишнийОператорУсловия(ТекстУсловийЗапроса);

Здесь самым интересным является процедура "ОбработатьЭлементыОтбора", которая дописывает в строковую переменную "ТекстУсловийЗапроса" условия в соответствии с текущем элементом. Рассмотрим код данной процедуры.

// Процедура обрабатывает переданный элемент отбора
// Параметры:
//	1. Эл - элемент отбора (группа или поле отбора)
//	2. ТекстУсловийЗапроса - строковая переменная, в которую добисываются условия запроса
//	3. ВидСравненияУсловия - вид сравнения в условии (зависит от группы элементов отбора)
//	4. СтруктураТиповПолей - структура, содержащая описание типов полей для полей отбора
//	5. Запрос - класс запроса, который будет в дальнейшем выполнен для получения результата
//	6. ТекстЗапроса - исходный текст запроса динамического списка
//
&НаСервереБезКонтекста
Процедура ОбработатьЭлементОтбора(Эл, ТекстУсловийЗапроса, ВидСравненияУсловияВерхнийУровень, СтруктураТиповПолей, Запрос, ТекстЗапроса) 	
	// Если это группа элементов отбора
	Если ТипЗнч(Эл) = Тип("ГруппаЭлементовОтбораКомпоновкиДанных") Тогда  		
		ВидСравненияУсловия = "";
		Отрицание = "";
		Если Эл.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ Тогда
			ВидСравненияУсловия = "И";
		ИначеЕсли Эл.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИли Тогда 
			ВидСравненияУсловия = "ИЛИ"; 	
		ИначеЕсли Эл.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаНе Тогда
			ВидСравненияУсловия = "И";
			Отрицание = " НЕ ";
		КонецЕсли;

		ТекстУсловийЗапроса = ТекстУсловийЗапроса + Отрицание +"(";   		
		ЭлементыГруппы = Эл.Элементы;     		
		МассивЭлементовОтбора = ПолучитьМассивВключенныхЭлементов(ЭлементыГруппы);		
		Если МассивЭлементовОтбора.Количество() = 0 Тогда
			ТекстУсловийЗапроса = ТекстУсловийЗапроса + "ИСТИНА"
		Иначе
			Для Каждого ЭлГр Из Эл.Элементы Цикл 				
				Если ЭлГр.Использование Тогда
					ОбработатьЭлементОтбора(ЭлГр, ТекстУсловийЗапроса, ВидСравненияУсловия, СтруктураТиповПолей, Запрос, ТекстЗапроса);			
				КонецЕсли; 				
			КонецЦикла;    			
			ТекстУсловийЗапроса = Лев(ТекстУсловийЗапроса, СтрДлина(ТекстУсловийЗапроса)-(СтрДлина(ВидСравненияУсловия)+1)); 
		КонецЕсли;     				
		ТекстУсловийЗапроса = ТекстУсловийЗапроса + ") " + ВидСравненияУсловияВерхнийУровень;   		
	Иначе // Если это поле отбора              		
		ИмяПоляОтбора = Строка(Эл.ЛевоеЗначение); 		
		ТекстУсловийЗапроса = ТекстУсловийЗапроса
		+ " " +ПолучитьТекстПоляПоПредставлению(ТекстЗапроса, ИмяПоляОтбора) // Получаем текст поля, по которому делается отбор
		        // Получаем выражение сравнения для полученного ранее поля отбора
		+ " " + ПолучитьВидСравненияИЗначение(Эл.ВидСравнения, Эл.ПравоеЗначение, ИмяПоляОтбора, ВидСравненияУсловияВерхнийУровень); 
		// Если "ВидСравнения" - "Заполнено" или "Не заполнено", тогда в условие сравнения подставляем пустое значение для поля отбора по его типу
		Если Эл.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено ИЛИ 
			Эл.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено Тогда  			
			Запрос.УстановитьПараметр("Заполнено"+ИмяПоляОтбора, 
								СтруктураТиповПолей[СтрЗаменить(ИмяПоляОтбора, "Заполнено", "")].ПривестиЗначение());    			
		Иначе // Иначе устанавливаем значение параметра в соответствии с переданным значением      			
						                                         // Получаем значение для передачи в запрос параметром
			Запрос.УстановитьПараметр(СтрЗаменить(ИмяПоляОтбора, ".", ""), ПолучитьЗначениеДляПараметра(Эл.ПравоеЗначение, ИмяПоляОтбора));				
		КонецЕсли;
	КонецЕсли;   	
КонецПроцедуры

В зависимости от типа переданного элемента отбора (группа или элемент отбора) формирует соответствующий текст условия. Все условия в группе обрамляются скобками, входящие группу также обрамляются круглыми скобками. Условия между выражениями зависят от вышестоящей группы (между верхними в иерархии элементами ставится условие "И").

Если у элемента установлен флаг использования (свойство "Использование") тогда элемент обрабатывается. Формируемый текст зависит также от условия сравнения (Равно, не равно, в списке и прочее). Зависимость формируемого текста условия от вида сравнения можно увидеть в следующей функции.

// Получаем вид сравнения по имени поля и значению отбора, а также виду сравнения в сусловии
// Параметры:
//	1. ВидСравненияОтбор - вид сравнения в поле отбора (тип "ВидСравненияКомпоновкиДанных")
//	2. ЗначениеСравнения - ПравоеЗначение из элемента отбора
//	3. ИмяПоляОтбора - имя поля в отборе
//	4. ВидСравненияУсловия - вид сравнения условия в зависимости от текущей родительской 
// группы элементов в отборе (корневая группа - условие "И")
//
&НаСервереБезКонтекста
Функция ПолучитьВидСравненияИЗначение(ВидСравненияОтбор, ЗначениеСравнения,
												ИмяПоляОтбора, ВидСравненияУсловия)
	
	ДопИмя = СтрЗаменить(Строка(ВидСравненияОтбор), " ", "");
	ИмяПоляОтбора = СтрЗаменить(ИмяПоляОтбора, ".", "")+ДопИмя;
	
	Если ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.Равно Тогда
		Возврат "= &" + ИмяПоляОтбора + " "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.НеРавно Тогда
		Возврат "<> &" + ИмяПоляОтбора + " "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.ВИерархии Тогда
		Возврат "В ИЕРАРХИИ (&" + ИмяПоляОтбора + ") "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.НеВИерархии Тогда
		Возврат "НЕ В ИЕРАРХИИ (&" + ИмяПоляОтбора + ") "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.Меньше Тогда
		Возврат "< &" + ИмяПоляОтбора + " "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.МеньшеИлиРавно Тогда
		Возврат "<= &" + ИмяПоляОтбора + " "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.Больше Тогда
		Возврат "> &" + ИмяПоляОтбора + " "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.БольшеИлиРавно Тогда
		Возврат ">= &" + ИмяПоляОтбора + " "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.ВСписке Тогда
		Возврат "В (&" + ИмяПоляОтбора + ") "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.НеВСписке Тогда
		Возврат "НЕ В (&" + ИмяПоляОтбора + ") "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.Содержит Тогда
		Возврат "ПОДОБНО (""%" + ЗначениеСравнения + "%"") "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.НеСодержит Тогда
		Возврат "НЕ ПОДОБНО (""%" + ЗначениеСравнения + "%"") "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.Заполнено Тогда
		Возврат "<> &" + "Заполнено"+ИмяПоляОтбора + " "+ВидСравненияУсловия+" ";
	ИначеЕсли ВидСравненияОтбор = ВидСравненияКомпоновкиДанных.НеЗаполнено Тогда
		Возврат "= &" + "Заполнено"+ИмяПоляОтбора + " "+ВидСравненияУсловия+" ";
	КонецЕсли;
	
КонецФункции

Еще одной интересной, на мой взгляд, функцией является "ПолучитьТекстПоляПоПредставлению". Нужна она для того, чтобы подставлять в условия запроса поля, которые формируются выражениями языка запроса. Выше в исходный запрос мной было добавлено поле "УровеньРейтинга". Если пользователь будет использовать его в отборе, то в условие запроса нужно подставлять полностью все выражение. Данная функция получает текст поля из запроса по его представлению. Для таких сложных полей она вернет полностью весь текст выражения.

Подробнее алгоритм смотрите в тестовой конфигурации, приложенной к статье. Ниже приведу скриншот настроек отбора и сформированных для них условий запроса.

Сформированный текст условий присоединяется к исходному запросу динамического списка. Результат запроса помещается во временную таблицу.

3. Первый запрос помещаем во временную таблицу и выполняем группировку по итоговым полям с необходимыми агрегатными функциями.

Напомню, что нам нужно получить среднее значение по полю "Рейтинг" и общую сумму по полю "Сумма". Запрос с учетом отборов мы уже сформировали, осталось произвести подсчет итоговых значений. Делается это следующим запросом:

После выполнения запроса обрабатываем полученный результат и записываем в реквизиты формы, которые мы создали ранее. В конечном счете, мы получили отображение итогов в подвале динамического списка.

Представленное решение далеко не идеальное и может быть улучшено:

1. Оптимизация запроса для получения итогов.
2. Клиент-серверный вызов для получения итогов.
3. Кэширование данных.
4. Отказ от "ручного" сбора запроса.
5. И многое другое.

Но общий принцип должен быть понятен.

Согласитесь, это тот еще костыль!

Ниже полный листинг кода для чтения наборов запросом. Кстати, там внизу используется "костыль" для проверки наличия свойств, о котором мы ранее говорили.

Процедура ПрочитатьНаборРегистраЗапросом(НаборРегистра) Экспорт
     
    // Получаем имя типа регистра и имя его метаданных
    МетаданныеРегистра = НаборРегистра.Метаданные();   
    ВидОбъекта = Неопределено;
	ЭтоРегистрБухгалтерии = Ложь;
    Если ОбщегоНазначения.ЭтоРегистрНакопления(МетаданныеРегистра) Тогда
        ВидОбъекта = "РегистрНакопления";
    ИначеЕсли ОбщегоНазначения.ЭтоРегистрСведений(МетаданныеРегистра) Тогда
        ВидОбъекта = "РегистрСведений";
    ИначеЕсли ОбщегоНазначения.ЭтоРегистрБухгалтерии(МетаданныеРегистра) Тогда
        ВидОбъекта = "РегистрБухгалтерии";
		ЭтоРегистрБухгалтерии = Истина;
    ИначеЕсли ОбщегоНазначения.ЭтоРегистрРасчета(МетаданныеРегистра) Тогда
        ВидОбъекта = "РегистрРасчета";
    КонецЕсли;
     
    // Если переданный объект не является регистром, то чтение не выполняем
    Если ВидОбъекта = Неопределено Тогда
        Возврат;
    КонецЕсли;
     
    // Формируем текст запроса для получения записей регистра
    ЗапросДанныхРегистра = Новый Запрос;
	Если ЭтоРегистрБухгалтерии Тогда
	    ЗапросДанныхРегистра.Текст =
	        "Выбрать * 
	        |   Из " + ВидОбъекта + "." + МетаданныеРегистра.Имя + ".ДвиженияССубконто(, , {УсловияОтбора}, , )
	        |ГДЕ
	        | {УсловияОтбора}";
	Иначе
	    ЗапросДанныхРегистра.Текст =
	        "Выбрать * 
	        |   Из " + ВидОбъекта + "." + МетаданныеРегистра.Имя + "
	        |ГДЕ
	        | {УсловияОтбора}";
	КонецЕсли;
    // Условия отбора регистра формируем отдельно по коллекции элементов
    // отбора переданного набора записей
    ТекстОтбора = "";
    Для Каждого ЭлОтбора Из НаборРегистра.Отбор Цикл
        ОбработатьУсловиеОтбора(ЭлОтбора, ЗапросДанныхРегистра, ТекстОтбора);          
    КонецЦикла;
    Если ЗапросДанныхРегистра.Параметры.Количество() > 0 Тогда
        ЗапросДанныхРегистра.Текст = СтрЗаменить(ЗапросДанныхРегистра.Текст, "{УсловияОтбора}", ТекстОтбора);
    Иначе
        ЗапросДанныхРегистра.Текст = СтрЗаменить(ЗапросДанныхРегистра.Текст, "{УсловияОтбора}", " ИСТИНА ");       
    КонецЕсли;
     
    // Получаем результат запроса в виде выборки и заполняем
    // набор записей
    ВыборкаДанныхРегистра = ЗапросДанныхРегистра.Выполнить().Выбрать();
    НаборРегистра.Очистить();
	Если ЭтоРегистрБухгалтерии Тогда
		Пока ВыборкаДанныхРегистра.Следующий() Цикл
			// Заполняем таблицу движений
			НоваяЗапись = НаборРегистра.Добавить();
			ЗаполнитьЗначенияСвойств(НоваяЗапись, ВыборкаДанныхРегистра);
			// Заполняем таблицу субконто
			ЕстьПоляСубконто = Истина;
			НомерСубконто = 1;
			Пока ЕстьПоляСубконто Цикл
				ИмяПоляСубконтоКт = "СубконтоКт"+Формат(НомерСубконто,"ЧГ=0");
				ИмяПоляСубконтоДт = "СубконтоДт"+Формат(НомерСубконто,"ЧГ=0");
				ЕстьСубконтоКт = СодержитСвойство(ВыборкаДанныхРегистра, ИмяПоляСубконтоКт);
				ЕстьСубконтоДт = СодержитСвойство(ВыборкаДанныхРегистра, ИмяПоляСубконтоДт);
				Если ЕстьСубконтоДт ИЛИ ЕстьСубконтоКт Тогда
					Если ЕстьСубконтоДт Тогда
						ЗначениеСубконто = ВыборкаДанныхРегистра[ИмяПоляСубконтоДт];
						ВидСубконто = ВыборкаДанныхРегистра["Вид"+ИмяПоляСубконтоДт];
						НоваяЗапись.СубконтоДт[ВидСубконто] = ЗначениеСубконто;	
					КонецЕсли;
					Если ЕстьСубконтоКт Тогда
						ЗначениеСубконто = ВыборкаДанныхРегистра[ИмяПоляСубконтоКт];
						ВидСубконто = ВыборкаДанныхРегистра["Вид"+ИмяПоляСубконтоКт];
						НоваяЗапись.СубконтоКт[ВидСубконто] = ЗначениеСубконто;	
					КонецЕсли;
				Иначе
					ЕстьПоляСубконто = Ложь;	
				КонецЕсли;
				НомерСубконто = НомерСубконто + 1;
			КонецЦикла;			
		КонецЦикла;
	Иначе
   		Пока ВыборкаДанныхРегистра.Следующий() Цикл
	        НовСтр = НаборРегистра.Добавить();
	        ЗаполнитьЗначенияСвойств(НовСтр, ВыборкаДанныхРегистра);
		КонецЦикла;
	КонецЕсли;
     
КонецПроцедуры
 
// Формируем текст условия запроса с учетом элементов отбора регистра, а также
// устанавливаем все необходимые параметры запроса
//  Параметры:
//      ЭлОтбора - элемент обора из коллекции "НаборЗаписейРегистра.Отбор"
//      ЗапросДанныхРегистра - объект типа "Запрос", с помощью которого будет 
//          выполнено получение данных записей регистра
//      ТекстОтбора - переменная, в которую будут записаны сформированные
//          условия запроса строкой
//
Функция ОбработатьУсловиеОтбора(ЭлОтбора, ЗапросДанныхРегистра, ТекстОтбора)
     
    ТекстОтбора = ?(ЗапросДанныхРегистра.Параметры.Количество() > 0, " И ", "") +
        ТекстОтбора +
        ЭлОтбора.ПутьКДанным;
         
    УсловиеОтбора = " = ";
    Если ЭлОтбора.ВидСравнения = ВидСравнения.Больше Тогда
        УсловиеОтбора = " > (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.БольшеИлиРавно Тогда
        УсловиеОтбора = " >= (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.ВИерархии Тогда
        УсловиеОтбора = " В ИЕРАРХИИ (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.ВСписке Тогда
        УсловиеОтбора = " В (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.ВСпискеПоИерархии Тогда
        УсловиеОтбора = " В ИЕРАРХИИ (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.Интервал Тогда
        УсловиеОтбора = " МЕЖДУ &" + ЭлОтбора.Имя+"ЗначениеС И &" + ЭлОтбора.Имя+"ЗначениеПо";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя+"ЗначениеС", ЭлОтбора.ЗначениеС);
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя+"ЗначениеПо", ЭлОтбора.ЗначениеПо);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.ИнтервалВключаяГраницы Тогда
        УсловиеОтбора = " " + ЭлОтбора.Имя + " >= &"+ЭлОтбора.Имя+"ЗначениеС И " + ЭлОтбора.Имя + " <= &"+ЭлОтбора.Имя+"ЗначениеПо ";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя+"ЗначениеС", ЭлОтбора.ЗначениеС);
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя+"ЗначениеПо", ЭлОтбора.ЗначениеПо);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.ИнтервалВключаяНачало Тогда
        УсловиеОтбора = " " + ЭлОтбора.Имя + " >= &"+ЭлОтбора.Имя+"ЗначениеС И " + ЭлОтбора.Имя + " < &"+ЭлОтбора.Имя+"ЗначениеПо ";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя+"ЗначениеС", ЭлОтбора.ЗначениеС);
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя+"ЗначениеПо", ЭлОтбора.ЗначениеПо);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.ИнтервалВключаяОкончание Тогда
        УсловиеОтбора = " " + ЭлОтбора.Имя + " > &"+ЭлОтбора.Имя+"ЗначениеС И " + ЭлОтбора.Имя + " <= &"+ЭлОтбора.Имя+"ЗначениеПо ";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя+"ЗначениеС", ЭлОтбора.ЗначениеС);
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя+"ЗначениеПо", ЭлОтбора.ЗначениеПо);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.Меньше Тогда
        УсловиеОтбора = " < (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.МеньшеИлиРавно Тогда
        УсловиеОтбора = " <= (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.НеВИерархии Тогда
        УсловиеОтбора = " НЕ В ИЕРАРХИИ (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.НеВСписке Тогда
        УсловиеОтбора = " НЕ В (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.НеВСпискеПоИерархии Тогда
        УсловиеОтбора = " НЕ В ИЕРАРХИИ (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.НеРавно Тогда
        УсловиеОтбора = " <> (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.НеСодержит Тогда
        УсловиеОтбора = " НЕ ПОДОБНО (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.Равно Тогда
        УсловиеОтбора = " = (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    ИначеЕсли ЭлОтбора.ВидСравнения = ВидСравнения.Содержит Тогда
        УсловиеОтбора = " ПОДОБНО (&" + ЭлОтбора.Имя + ")";
        ЗапросДанныхРегистра.УстановитьПараметр(ЭлОтбора.Имя, ЭлОтбора.Значение);
    КонецЕсли;
     
    ТекстОтбора = ТекстОтбора +
        УсловиеОтбора;
     
КонецФункции

// Универсальная функция для проверки наличия свойств у значения любого типа данных
// Переменные:
// 1. Переменная - переменная любого типа, для которой необходимо проверить наличие свойства
// 2. ИмяСвойства - переменная типа "Строка", содержащая искомое свойства
// 
Функция СодержитСвойство(Переменная, ИмяСвойства) Экспорт
	
	// Инициализируем структуру для теста с ключом (значение переменной "ИмяСвойства") и значением произвольного GUID'а
	GUIDПроверка = Новый УникальныйИдентификатор;
	СтруктураПроверка = Новый Структура;
	СтруктураПроверка.Вставить(ИмяСвойства, GUIDПроверка);
	
	ЗаполнитьЗначенияСвойств(СтруктураПроверка, Переменная);
	// Если значение для свойства структуры осталось NULL, то искомое свойство не найдено, и наоборот.
	Если СтруктураПроверка[ИмяСвойства] = GUIDПроверка Тогда
		Возврат Ложь;
	Иначе
		Возврат Истина;
	КонецЕсли;

КонецФункции

Много, много кода. Все сводится к тому, что в зависимости от типа регистра, его настроек, установленных отборов и некоторых других особенностей формируется текст запроса для получения данных. После данные из выборки запроса переносятся в сам набор.

Для удобства использования можно перенести функции в общий модуль.