2_2_3_44

SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаСписка/Module.bsl

@@ -4,72 +4,13 @@
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 	
+	УстановитьУсловноеОформление();
 	Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа.
 		Возврат;
 	КонецЕсли;
 	
-	ПредставлениеТиповПлановОбмена = "";
-	ПредставлениеУзловПлановОбмена = "";
-	Для каждого ТипПользователя Из Метаданные.РегистрыСведений.ДатыЗапретаИзменения.Измерения.Пользователь.Тип.Типы() Цикл
-		ОбъектМетаданных = Метаданные.НайтиПоТипу(ТипПользователя);
-		Если НЕ Метаданные.ПланыОбмена.Содержит(ОбъектМетаданных) Тогда
-			Продолжить;
-		КонецЕсли;
-		//
-		ПредставлениеТиповПлановОбмена = ПредставлениеТиповПлановОбмена + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
-		"
-		|	КОГДА ДатыЗапретаИзменения.Пользователь = ЗНАЧЕНИЕ(%1.ПустаяСсылка)
-		|		ТОГДА ""%2""",
-		ОбъектМетаданных.ПолноеИмя(),
-		ОбъектМетаданных.Представление() + ": " + НСтр("ru = '<Все узлы>'"));
-		//
-		ПредставлениеУзловПлановОбмена = ПредставлениеУзловПлановОбмена + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
-		"
-		|	КОГДА ТИПЗНАЧЕНИЯ(ДатыЗапретаИзменения.Пользователь) = Тип(%1)
-		|		ТОГДА ""%2: "" + ВЫРАЗИТЬ(ДатыЗапретаИзменения.Пользователь КАК %1).Наименование",
-		ОбъектМетаданных.ПолноеИмя(),
-		ОбъектМетаданных.Представление());
-	КонецЦикла;
-	ПредставлениеПлановОбмена = ПредставлениеТиповПлановОбмена + ПредставлениеУзловПлановОбмена;
-	
-	ПользовательПредставление = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
-	"ВЫБОР
-	|	КОГДА ДатыЗапретаИзменения.Пользователь = НЕОПРЕДЕЛЕНО
-	|		ТОГДА ""%1""
-	|	КОГДА ДатыЗапретаИзменения.Пользователь = ЗНАЧЕНИЕ(Справочник.Пользователи.ПустаяСсылка)
-	|		ТОГДА ""%2""
-	|	КОГДА ДатыЗапретаИзменения.Пользователь = ЗНАЧЕНИЕ(Справочник.ГруппыПользователей.ПустаяСсылка)
-	|		ТОГДА ""%3""
-	|	КОГДА ДатыЗапретаИзменения.Пользователь = ЗНАЧЕНИЕ(Справочник.ВнешниеПользователи.ПустаяСсылка)
-	|		ТОГДА ""%4""
-	|	КОГДА ДатыЗапретаИзменения.Пользователь = ЗНАЧЕНИЕ(Справочник.ГруппыВнешнихПользователей.ПустаяСсылка)
-	|		ТОГДА ""%5""
-	|	КОГДА ДатыЗапретаИзменения.Пользователь = Значение(Перечисление.ВидыНазначенияДатЗапрета.ДляВсехПользователей)
-	|		ТОГДА ""%6""
-	|	КОГДА ДатыЗапретаИзменения.Пользователь = Значение(Перечисление.ВидыНазначенияДатЗапрета.ДляВсехИнформационныхБаз)
-	|		ТОГДА ""%7""
-	|	КОГДА ТИПЗНАЧЕНИЯ(ДатыЗапретаИзменения.Пользователь) = ТИП(Справочник.Пользователи)
-	|			ИЛИ ТИПЗНАЧЕНИЯ(ДатыЗапретаИзменения.Пользователь) = ТИП(Справочник.ГруппыПользователей)
-	|			ИЛИ ТИПЗНАЧЕНИЯ(ДатыЗапретаИзменения.Пользователь) = ТИП(Справочник.ВнешниеПользователи)
-	|			ИЛИ ТИПЗНАЧЕНИЯ(ДатыЗапретаИзменения.Пользователь) = ТИП(Справочник.ГруппыВнешнихПользователей)
-	|		ТОГДА ПРЕДСТАВЛЕНИЕ(ДатыЗапретаИзменения.Пользователь)
-	|%8
-	|	ИНАЧЕ ""%9""
-	|КОНЕЦ",
-	НСтр("ru = 'Неопределено'"),
-	НСтр("ru = 'Пустой пользователь'"),
-	НСтр("ru = 'Пустая группа пользователей'"),
-	НСтр("ru = 'Пустой внешний пользователь'"),
-	НСтр("ru = 'Пустая группа внешних пользователей'"),
-	"<" + Перечисления.ВидыНазначенияДатЗапрета.ДляВсехПользователей + ">",
-	"<" + Перечисления.ВидыНазначенияДатЗапрета.ДляВсехИнформационныхБаз + ">",
-	ПредставлениеПлановОбмена,
-	НСтр("ru = 'Неизвестный тип'"));
-	
-	Список.ТекстЗапроса = СтрЗаменить(Список.ТекстЗапроса, "&ПользовательПредставление", ПользовательПредставление);
-	
 	// Настройка команды
-	СвойстваРазделов = ДатыЗапретаИзмененияПовтИсп.СвойстваРазделов();
+	СвойстваРазделов = ДатыЗапретаИзмененияСлужебныйПовтИсп.СвойстваРазделов();
 	Элементы.ФормаДатыЗапретаЗагрузкиДанных.Видимость = СвойстваРазделов.ИспользоватьДатыЗапретаЗагрузкиДанных;
 	
 	// Настройка порядка
@@ -79,19 +20,19 @@
 	Порядок.Элементы.Очистить();
 	
 	ЭлементПорядка = Порядок.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных"));
-	ЭлементПорядка.Поле = Новый ПолеКомпоновкиДанных("Пользователь");
+	ЭлементПорядка.Поле = Новый ПолеКомпоновкиДанных(Элементы.СписокПользователь.Имя);
 	ЭлементПорядка.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр;
 	ЭлементПорядка.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
 	ЭлементПорядка.Использование = Истина;
 	
 	ЭлементПорядка = Порядок.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных"));
-	ЭлементПорядка.Поле = Новый ПолеКомпоновкиДанных("Раздел");
+	ЭлементПорядка.Поле = Новый ПолеКомпоновкиДанных(Элементы.СписокРаздел.Имя);
 	ЭлементПорядка.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр;
 	ЭлементПорядка.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
 	ЭлементПорядка.Использование = Истина;
 	
 	ЭлементПорядка = Порядок.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных"));
-	ЭлементПорядка.Поле = Новый ПолеКомпоновкиДанных("Объект");
+	ЭлементПорядка.Поле = Новый ПолеКомпоновкиДанных(Элементы.СписокОбъект.Имя);
 	ЭлементПорядка.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр;
 	ЭлементПорядка.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
 	ЭлементПорядка.Использование = Истина;
@@ -129,3 +70,62 @@
 КонецПроцедуры
 
 #КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаСервере
+Процедура УстановитьУсловноеОформление()
+	
+	УсловноеОформление.Элементы.Очистить();
+	
+	Для каждого ТипПользователя Из Метаданные.РегистрыСведений.ДатыЗапретаИзменения.Измерения.Пользователь.Тип.Типы() Цикл
+		ОбъектМетаданных = Метаданные.НайтиПоТипу(ТипПользователя);
+		Если НЕ Метаданные.ПланыОбмена.Содержит(ОбъектМетаданных) Тогда
+			Продолжить;
+		КонецЕсли;
+		
+		ОформитьЗначение(ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(ОбъектМетаданных.ПолноеИмя()).ПустаяСсылка(),
+			ОбъектМетаданных.Представление() + ": " + НСтр("ru = '<Все информационные базы>'"));
+	КонецЦикла;
+	
+	ОформитьЗначение(Неопределено,
+		НСтр("ru = 'Неопределено'"));
+	
+	ОформитьЗначение(Справочники.Пользователи.ПустаяСсылка(),
+		НСтр("ru = 'Пустой пользователь'"));
+	
+	ОформитьЗначение(Справочники.ГруппыПользователей.ПустаяСсылка(),
+		НСтр("ru = 'Пустая группа пользователей'"));
+	
+	ОформитьЗначение(Справочники.ВнешниеПользователи.ПустаяСсылка(),
+		НСтр("ru = 'Пустой внешний пользователь'"));
+	
+	ОформитьЗначение(Справочники.ГруппыВнешнихПользователей.ПустаяСсылка(),
+		НСтр("ru = 'Пустая группа внешних пользователей'"));
+	
+	ОформитьЗначение(Перечисления.ВидыНазначенияДатЗапрета.ДляВсехПользователей,
+		"<" + Перечисления.ВидыНазначенияДатЗапрета.ДляВсехПользователей + ">");
+	
+	ОформитьЗначение(Перечисления.ВидыНазначенияДатЗапрета.ДляВсехИнформационныхБаз,
+		"<" + Перечисления.ВидыНазначенияДатЗапрета.ДляВсехИнформационныхБаз + ">");
+	
+КонецПроцедуры
+
+&НаСервере
+Процедура ОформитьЗначение(Значение, Текст)
+	
+	Элемент = УсловноеОформление.Элементы.Добавить();
+	
+	ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
+	ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СписокПользователь.Имя);
+	
+	ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
+	ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Список.Пользователь");
+	ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
+	ОтборЭлемента.ПравоеЗначение = Значение;
+	
+	Элемент.Оформление.УстановитьЗначениеПараметра("Текст", Текст);
+	
+КонецПроцедуры
+
+#КонецОбласти