Расширенные фильтры на форме отчета СКД

#Область СлужебныеПроцедуры

Процедура ИнициализироватьОтборыНаФорме(Форма) Экспорт

	СписокРеквизитов = Новый Структура();
	// создадим реквизиты отборов на форме
	СоздатьРеквизитыОтборовНаФорме(Форма,СписокРеквизитов);
	// расположим элементы на форме	
	РасположитьЭлементыНаФорме(Форма,СписокРеквизитов);
	
КонецПроцедуры

Процедура СоздатьРеквизитыОтборовНаФорме(Форма,СписокРеквизитов) 

	ДобавляемыеРеквизиты = Новый Массив;			
	Для Каждого ДоступноеПолеОтбора Из ЭтотОбъект.КомпоновщикНастроек.Настройки.ДоступныеПоляОтбора.Элементы Цикл	
		ИмяРеквизита = Строка(ДоступноеПолеОтбора.Поле);
		
		// добавим элемент отбора
		ДобавитьЭлементОтбора(ИмяРеквизита);
		// добавим реквизит "Использовать"
		ДобавитьРеквизитНаФорму(ДобавляемыеРеквизиты,"Использовать_"+ИмяРеквизита,Тип("Булево"));
		// добавим реквизит "ВидСравнения"
		ДобавитьРеквизитНаФорму(ДобавляемыеРеквизиты,"ВидСравнения_"+ИмяРеквизита,Тип("Неопределено"));
		// добавим реквизит "Использовать"
		ДобавитьРеквизитНаФорму(ДобавляемыеРеквизиты,"ПравоеЗначение_"+ИмяРеквизита,ДоступноеПолеОтбора.Тип);
		// добавим реквизит "Использовать"
		ДобавитьРеквизитНаФорму(ДобавляемыеРеквизиты,"ПравоеЗначениеСписок_"+ИмяРеквизита,Тип("СписокЗначений"));
		// сохраним данные создаваемго реквизита
		СписокРеквизитов.Вставить(ИмяРеквизита,ИмяРеквизита);
	КонецЦикла;
	
	Форма.ИзменитьРеквизиты(ДобавляемыеРеквизиты);	

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

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

Процедура ДобавитьРеквизитНаФорму(ДобавляемыеРеквизиты,ИмяРеквизита,Тип)
	
	МассивТипов = новый Массив;
	МассивТипов.Добавить(Тип);
	ОписаниеТипов = Новый ОписаниеТипов(МассивТипов);
	Если ТипЗнч(Тип) = ТИП("ОписаниеТипов") Тогда
		ОписаниеТипов = Тип;			
	КонецЕсли;	
	Реквизит = Новый РеквизитФормы("Отбор_" + ИмяРеквизита, ОписаниеТипов,,, Ложь);
	ДобавляемыеРеквизиты.Добавить(Реквизит);	
	
КонецПроцедуры

Процедура РасположитьЭлементыНаФорме(Форма,СписокРеквизитов)

	ГруппаФильтра = Форма.Элементы.Добавить("ГруппаФильтр", Тип("ГруппаФормы"));
	ГруппаФильтра.Вид = ВидГруппыФормы.ОбычнаяГруппа;
	ГруппаФильтра.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Горизонтальная;	
	ГруппаФильтра.ОтображатьЗаголовок = Ложь;
	ГруппаФильтра.Видимость = Ложь;
	
	ГруппаФильтраЛевая = Форма.Элементы.Добавить("ГруппаФильтрыЛево", Тип("ГруппаФормы"),ГруппаФильтра);
	ГруппаФильтраЛевая.Вид = ВидГруппыФормы.ОбычнаяГруппа;
	ГруппаФильтраЛевая.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;	
	ГруппаФильтраЛевая.ОтображатьЗаголовок = Ложь;
	
	ГруппаФильтраПравая = Форма.Элементы.Добавить("ГруппаФильтрыПраво", Тип("ГруппаФормы"),ГруппаФильтра);
	ГруппаФильтраПравая.Вид = ВидГруппыФормы.ОбычнаяГруппа;
	ГруппаФильтраПравая.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;	
	ГруппаФильтраПравая.ОтображатьЗаголовок = Ложь;
	
	Форма.Элементы.Переместить(ГруппаФильтра,Форма,Форма.Элементы.Результат);
	
	ЛеваяГруппа = Истина;
	Для Каждого Реквизит Из СписокРеквизитов Цикл
		ПолеОтбора = ЭтотОбъект.КомпоновщикНастроек.Настройки.ДоступныеПоляОтбора.Элементы.Найти(Реквизит.Значение);
		
		Если ПолеОтбора = Неопределено Тогда
			Продолжить;
		КонецЕсли;
		
		// Предустановим тип списка значений
		Форма["Отбор_ПравоеЗначениеСписок_" + Реквизит.Значение].ТипЗначения = ПолеОтбора.Тип;				
		
		Если ЛеваяГруппа Тогда
			ЭлементФормыГруппаФильтра = Форма.Элементы.Добавить("Отбор_ГруппаФильтра_" + Реквизит.Значение, Тип("ГруппаФормы"), Форма.Элементы.ГруппаФильтрыЛево);
		Иначе
			ЭлементФормыГруппаФильтра = Форма.Элементы.Добавить("Отбор_ГруппаФильтра_" + Реквизит.Значение, Тип("ГруппаФормы"), Форма.Элементы.ГруппаФильтрыПраво);
		КонецЕсли;
		
		ЛеваяГруппа = НЕ ЛеваяГруппа;
		
		// ГРУППА РАСПОЛОЖЕНИЯ ОТБОРА
		ЭлементФормыГруппаФильтра.Вид 						= ВидГруппыФормы.ОбычнаяГруппа;
		ЭлементФормыГруппаФильтра.ОтображатьЗаголовок 		= Ложь;
		ЭлементФормыГруппаФильтра.Группировка 				= ГруппировкаПодчиненныхЭлементовФормы.Горизонтальная;	
		ЭлементФормыГруппаФильтра.Отображение 				= ОтображениеОбычнойГруппы.Нет;
		ЭлементФормыГруппаФильтра.РастягиватьПоГоризонтали 	= Истина;
		ЭлементФормыГруппаФильтра.Объединенная 				= Ложь; 
		
		// ЭЛЕМЕНТ "Использовать"
		ЭлементФормы = Форма.Элементы.Добавить("Отбор_Использовать_" + Реквизит.Значение, Тип("ПолеФормы"), ЭлементФормыГруппаФильтра);
		ЭлементФормы.ПутьКДанным 					= "Отбор_Использовать_" + Реквизит.Значение; 
		ЭлементФормы.Вид 							= ВидПоляФормы.ПолеФлажка;
		ЭлементФормы.ПоложениеЗаголовка 			= ПоложениеЗаголовкаЭлементаФормы.Право;
		ЭлементФормы.ТолькоПросмотр 				= Ложь;
		ЭлементФормы.ВертикальноеПоложениеВГруппе 	= ВертикальноеПоложениеЭлемента.Центр;
		ЭлементФормы.Заголовок 						= " ";
		ЭлементФормы.УстановитьДействие("ПриИзменении","ОтборПриИзменении");
		
		// НАДПИСЬ С НАИМЕНОВАНИЕМ ОТБОРА
		НадписьРеквизита = Форма.Элементы.Добавить("Отбор_Наименование_" + Реквизит.Значение, Тип("ДекорацияФормы"), ЭлементФормыГруппаФильтра);
		НадписьРеквизита.Заголовок 						= ПолеОтбора.Заголовок;
		НадписьРеквизита.ВертикальноеПоложениеВГруппе 	= ВертикальноеПоложениеЭлемента.Центр;
		НадписьРеквизита.РастягиватьПоГоризонтали 		= Ложь;
		
		// ЭЛЕМЕНТ "Вид сравнения"
		ЭлементФормы = Форма.Элементы.Добавить("Отбор_ВидСравнения_" + Реквизит.Значение, Тип("ПолеФормы"), ЭлементФормыГруппаФильтра);
		ЭлементФормы.ПутьКДанным 			= "Отбор_ВидСравнения_" + Реквизит.Значение; 
		ЭлементФормы.Вид 					= ВидПоляФормы.ПолеВвода;
		ЭлементФормы.ПоложениеЗаголовка 	= ПоложениеЗаголовкаЭлементаФормы.Нет;
		ЭлементФормы.ТолькоПросмотр 		= Ложь;
		ЭлементФормы.РежимВыбораИзСписка 	= Истина;
		ЭлементФормы.РедактированиеТекста 	= Ложь; 
		ЭлементФормы.Ширина 				= 10;
		ЭлементФормы.Высота 				= 1;
		ЭлементФормы.РастягиватьПоГоризонтали = Ложь;
		ЭлементФормы.КнопкаВыбора 			= Ложь;
		ЭлементФормы.УстановитьДействие("ПриИзменении","ОтборПриИзменении");
		
		// заполним доступные виды сравнения
		Если ПолеОтбора.ТипЗначения.СодержитТип(ТИП("Число")) Тогда
			ЭлементФормы.СписокВыбора.Добавить(ВидСравненияКомпоновкиДанных.Больше);
			ЭлементФормы.СписокВыбора.Добавить(ВидСравненияКомпоновкиДанных.Меньше);
			ЭлементФормы.СписокВыбора.Добавить(ВидСравненияКомпоновкиДанных.Равно);
		Иначе
			Для Каждого СтрВидаСравнения Из ПолеОтбора.ДоступныеВидыСравнения Цикл
				ЭлементФормы.СписокВыбора.Добавить(СтрВидаСравнения.Значение);
			КонецЦикла;
		КонецЕсли;	
		// по умолчанию значение "Равно"
		Форма["Отбор_ВидСравнения_" + Реквизит.Значение] = ВидСравненияКомпоновкиДанных.Равно;
		
		// Группа "Правое значение"
		ЭлементФормыПраваяГруппа = Форма.Элементы.Добавить("Отбор_ГруппаПравоеЗначение_" + Реквизит.Значение, Тип("ГруппаФормы"), ЭлементФормыГруппаФильтра);
		ЭлементФормыПраваяГруппа.Вид 						= ВидГруппыФормы.ОбычнаяГруппа;
		ЭлементФормыПраваяГруппа.ОтображатьЗаголовок 		= Ложь;
		ЭлементФормыПраваяГруппа.Группировка 				= ГруппировкаПодчиненныхЭлементовФормы.Горизонтальная;	
		ЭлементФормыПраваяГруппа.Отображение 				= ОтображениеОбычнойГруппы.Нет;
		ЭлементФормыПраваяГруппа.РастягиватьПоГоризонтали 	= Истина;
		
		// ЭЛЕМЕНТ "Правое значение"
		ЭлементФормы = Форма.Элементы.Добавить("Отбор_ПравоеЗначение_" + Реквизит.Значение, Тип("ПолеФормы"), ЭлементФормыПраваяГруппа);
		ЭлементФормы.ПутьКДанным 					= "Отбор_ПравоеЗначение_" + Реквизит.Значение; 
		ЭлементФормы.Вид 							= ВидПоляФормы.ПолеВвода;
		ЭлементФормы.ПоложениеЗаголовка 			= ПоложениеЗаголовкаЭлементаФормы.Нет;
		ЭлементФормы.ТолькоПросмотр 				= Ложь;
		ЭлементФормы.РежимРедактирования 			= РежимРедактированияКолонки.Непосредственно; 
		ЭлементФормы.КнопкаОткрытия 				= Ложь;
		ЭлементФормы.АвтоМаксимальнаяШирина 		= Ложь;
		ЭлементФормы.РастягиватьПоГоризонтали 		= Истина;
		ЭлементФормы.Ширина 						= 15;
		ЭлементФормы.АвтоВыборНезаполненного 		= Ложь;
		ЭлементФормы.ОбновлениеТекстаРедактирования = ОбновлениеТекстаРедактирования.ПриИзмененииЗначения;
		ЭлементФормы.УстановитьДействие("ПриИзменении","ОтборПриИзменении");
		ЭлементФормы.УстановитьДействие("НачалоВыбора","ОтборНачалоВыбора");
		
		// ЭЛЕМЕНТ "Правое значение список"
		ЭлементФормы = Форма.Элементы.Добавить("Отбор_ПравоеЗначениеСписок_" + Реквизит.Значение, Тип("ПолеФормы"), ЭлементФормыПраваяГруппа);
		ЭлементФормы.ПутьКДанным 				= "Отбор_ПравоеЗначениеСписок_" + Реквизит.Значение; 
		ЭлементФормы.Вид 						= ВидПоляФормы.ПолеВвода;
		ЭлементФормы.ПоложениеЗаголовка 		= ПоложениеЗаголовкаЭлементаФормы.Нет;
		ЭлементФормы.ТолькоПросмотр 			= Ложь;
		ЭлементФормы.РежимРедактирования 		= РежимРедактированияКолонки.Непосредственно; 
		ЭлементФормы.КнопкаОткрытия 			= Ложь;
		ЭлементФормы.Видимость 					= Ложь;
		ЭлементФормы.АвтоМаксимальнаяШирина 	= Ложь;
		ЭлементФормы.РастягиватьПоГоризонтали 	= Истина;
		ЭлементФормы.Ширина 					= 15;
		ЭлементФормы.УстановитьДействие("ПриИзменении","ОтборПриИзменении");
		
	КонецЦикла;

КонецПроцедуры
	
#КонецОбласти

#Область ОбработчикиФормы

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	ОтчетОбъект = РеквизитФормыВЗначение("Отчет");
	ОтчетОбъект.ИнициализироватьОтборыНаФорме(ЭтаФорма);
КонецПроцедуры

#КонецОбласти

#Область ПодключаемыеОбработчикиОтборов

&НаКлиенте
Процедура ПоказатьНастройки(Команда)
	
	Если Элементы.ГруппаФильтр.Видимость Тогда
		Элементы.ФормаПоказатьНастройки.Заголовок = "Показать фильтры";
	Иначе
		Элементы.ФормаПоказатьНастройки.Заголовок = "Скрыть фильтры";
	КонецЕсли;
	Элементы.ГруппаФильтр.Видимость = Не Элементы.ГруппаФильтр.Видимость;
	
КонецПроцедуры

&НаКлиенте
Процедура ОтборПриИзменении(Элемент)
	
	ОтборПриИзмененииНаСервере(Строка(Элемент.Имя));		
	
КонецПроцедуры

&НаСервере
Процедура ОтборПриИзмененииНаСервере(Имя)
	
	Если НЕ Найти(Имя,"Отбор") = 0 Тогда
		Имя = Сред(Имя,7);
		ПоложениеПробела = СтрНайти(Имя,"_");
		Если ПоложениеПробела = 0 Тогда
			Сообщение = Новый СообщениеПользователю;
			Сообщение.Текст = "Ошибка применения фильтра";
			Сообщение.Сообщить();
			Возврат;
		КонецЕсли;	
		ИмяПоля = Сред(Имя,1,ПоложениеПробела-1);
		ИмяРеквизита = Сред(Имя,ПоложениеПробела+1);
		
		Если ИмяПоля = "ВидСравнения" Тогда
			ТекущееЗначение = ЭтаФорма["Отбор_ВидСравнения_" + ИмяРеквизита];
			Если Найти(ВРег(ТекущееЗначение), "СПИС") = 0 Тогда
				Элементы["Отбор_ПравоеЗначение_" + ИмяРеквизита].Видимость = Истина;
				Элементы["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита].Видимость = Ложь;
				Если Не ЭтаФорма["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита].Количество() = 0 Тогда
					ЭтаФорма["Отбор_ПравоеЗначение_" + ИмяРеквизита] = ЭтаФорма["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита][0].Значение;
					ЭтаФорма["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита].Очистить();
				КонецЕсли;
			Иначе
				Элементы["Отбор_ПравоеЗначение_" + ИмяРеквизита].Видимость = Ложь;
				Элементы["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита].Видимость = Истина;					
				Если ЭтаФорма["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита].Количество() = 0 И ЗначениеЗаполнено(ЭтаФорма["Отбор_ПравоеЗначение_" + ИмяРеквизита]) Тогда
					ЭтаФорма["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита].Добавить(ЭтаФорма["Отбор_ПравоеЗначение_" + ИмяРеквизита]);
					ЭтаФорма["Отбор_ПравоеЗначение_" + ИмяРеквизита] = Неопределено;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
		
		ТекущийОтбор = Неопределено;
		//Найдем отбор
		Для Каждого СтрОтбор Из Отчет.КомпоновщикНастроек.Настройки.Отбор.Элементы Цикл
			Если Строка(СтрОтбор.ЛевоеЗначение) = ИмяРеквизита	Тогда
				ТекущийОтбор = СтрОтбор;
			КонецЕсли;
		КонецЦикла;
		Если Не ТекущийОтбор = Неопределено Тогда
			Если Не (ЭтаФорма["Отбор_Использовать_" + ИмяРеквизита] = Ложь И ТекущийОтбор.Использование = Ложь) Тогда
				Если Не ЭтаФорма["Отбор_ВидСравнения_" + ИмяРеквизита] = Неопределено Тогда
					Попытка
							ТекущийОтбор.ВидСравнения = ЭтаФорма["Отбор_ВидСравнения_" + ИмяРеквизита];	
							ТекЗначениеВидаСравнения = ЭтаФорма["Отбор_ВидСравнения_" + ИмяРеквизита];
							Если Найти(ВРег(ТекЗначениеВидаСравнения), "СПИС") = 0 Тогда
								ТекущийОтбор.ПравоеЗначение = ЭтаФорма["Отбор_ПравоеЗначение_" + ИмяРеквизита];
							Иначе
								ТекущийОтбор.ПравоеЗначение = ЭтаФорма["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита];
							КонецЕсли;
							ТекущийОтбор.Использование = ЭтаФорма["Отбор_Использовать_" + ИмяРеквизита];
					Исключение
						ЭтаФорма["Отбор_Использовать_" + ИмяРеквизита] = Ложь;
					КонецПопытки;
				Иначе
					ЭтаФорма["Отбор_Использовать_" + ИмяРеквизита] = Ложь;
				КонецЕсли;
			Иначе
				ТекЗначениеВидаСравнения = ЭтаФорма["Отбор_ВидСравнения_" + ИмяРеквизита];
				Если Найти(ВРег(ТекЗначениеВидаСравнения), "СПИС") = 0 Тогда						
					Если ЗначениеЗаполнено(ЭтаФорма["Отбор_ПравоеЗначение_" + ИмяРеквизита]) И ЗначениеЗаполнено(ЭтаФорма["Отбор_ВидСравнения_" + ИмяРеквизита]) Тогда
						Если ЭтаФорма["Отбор_Использовать_" + ИмяРеквизита] = Ложь Тогда
							ЭтаФорма["Отбор_Использовать_" + ИмяРеквизита] = Истина;
							ТекущийОтбор.ВидСравнения = ТекЗначениеВидаСравнения;
							ТекущийОтбор.ПравоеЗначение = ЭтаФорма["Отбор_ПравоеЗначение_" + ИмяРеквизита];
							ТекущийОтбор.Использование = Истина;
						КонецЕсли;
					КонецЕсли;
				Иначе
					Если ЗначениеЗаполнено(ЭтаФорма["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита]) 
						И ЗначениеЗаполнено(ЭтаФорма["Отбор_ВидСравнения_" + ИмяРеквизита]) Тогда 
						Если ЭтаФорма["Отбор_Использовать_" + ИмяРеквизита] = Ложь Тогда
							ЭтаФорма["Отбор_Использовать_" + ИмяРеквизита] = Истина;
							ТекущийОтбор.ВидСравнения = ТекЗначениеВидаСравнения;
							ТекущийОтбор.ПравоеЗначение = ЭтаФорма["Отбор_ПравоеЗначениеСписок_" + ИмяРеквизита];
							ТекущийОтбор.Использование = Истина;
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	
КонецПроцедуры

#КонецОбласти