Документооборот с контролирующими органами / Мастер гос орган изменится у всех / Модуль формы


#Область ОписаниеПеременных

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

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

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	ИмеющиеДоступ = Новый ФиксированныйМассив(Параметры.ИмеющиеДоступ);
	УправлениеФормойПриСозданииНаСервере(Параметры)
	
КонецПроцедуры

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

#Область ОбработчикиСобытийЭлементовШапкиФормы

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

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

&НаКлиенте
Процедура ОтменитьИзменение(Команда)
	Закрыть("Отмена");
КонецПроцедуры

&НаКлиенте
Процедура ИзменитьВсем(Команда)
	
	Закрыть("Изменить всем");
	
КонецПроцедуры

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

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

&НаСервере
Процедура УправлениеФормойПриСозданииНаСервере(Параметры)
	
	ЭтоПодключение = Параметры.Значение;
	
	Ссылка = Новый ФорматированнаяСтрока(НСтр("ru = 'пользователям'"),,,,"пользователи");
	
	Если ЭтоПодключение Тогда
		ПодставитьПараметры(ЭтотОбъект, НСтр("ru = 'Подключить'"), Параметры);
		
		Элементы.Пояснение.Заголовок = НСтр("ru = '%1 будет %2 пользователям, имеющим доступ ко всем гос. органам учетной записи. Продолжить подключение?'");
		ПодставитьПараметры(Элементы.Пояснение, НСтр("ru = 'подключен'"), Параметры);
		ПодставитьПараметры(Элементы.ЧтоДелать, НСтр("ru = 'подключить'"), Параметры);
		
		Элементы.ИзменитьВсем.Заголовок = "Подключить всем пользователям";
		
	Иначе
		
		ПодставитьПараметры(ЭтотОбъект, НСтр("ru = 'Отключить'"), Параметры);
		
		Элементы.Пояснение.Заголовок = НСтр("ru = '%1 будет %2 всем пользователям. Продолжить отключение?'");
		ПодставитьПараметры(Элементы.Пояснение, НСтр("ru = 'отключен'"), Параметры);
		ПодставитьПараметры(Элементы.ЧтоДелать, НСтр("ru = 'отключить'"), Параметры);
		
		Элементы.ИзменитьВсем.Заголовок = "Отключить всем пользователям";

	КонецЕсли;
	
	ДокументооборотСКОКлиентСервер.ЗаменитьСтрокуНаСсылку(
		Элементы.Пояснение.Заголовок, 
		НСтр("ru = 'пользователям'"), 
		Ссылка);
	
КонецПроцедуры

&НаСервере
Функция ПодставитьПараметры(Элемент, Действие, Параметры)
	
	Текст = Элемент.Заголовок;
	
	Текст = СтрЗаменить(Текст, "%2", Действие);
	Текст = СтрЗаменить(Текст, "%1", Параметры.ПредставлениеОргана);
	
	Элемент.Заголовок = Текст;
	
КонецФункции

&НаКлиенте
Процедура Пояснение1ОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
	
	СтандартнаяОбработка = Ложь;
	
	МультирежимКлиент.ПоказатьЗначения(ИмеющиеДоступ, НСтр("ru = 'Перечень пользователей:'"));
	
КонецПроцедуры


#КонецОбласти
Документооборот с контролирующими органами / Мастер гос орган изменится у всех / Модуль формы

Связанные материалы
