1_1_2_3

2011-03-25 09:20:00 +03:00
1 parent f2efbc46ba
commit c8749ea2e2
@@ -1,7 +1,92 @@

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