Ограничение ДинамическогоСписка по Роли

&НаКлиенте
Процедура ПриОткрытии(Отказ)

	УстановитьОтборПоОтветственному()	

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

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

&НаКлиенте
Процедура ПриОткрытии(Отказ)

Если РольДоступна("ПолныеПрава") Тогда
Отказ = Истина;
КонецЕсли	

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

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

// Общие модули - вчПрава

&НаСервере
Функция ЕстьПрофиль(Знач НаименованиеПрофиляГруппДоступа=Неопределено, Пользователь=Неопределено, ПропуститьАдминистраторы=Ложь) Экспорт
	// При вызове без параметров проверяет входит ли Пользователь в Группу "Администраторы" или "Делопроизводители"
	Если Пользователь=Неопределено Тогда	
		Пользователь = Пользователи.ТекущийПользователь();
	КонецЕсли;
	
	// Если использование прав доступа включено, то выполняется получение прав доступа
	УстановитьПривилегированныйРежим(Истина);
	
	Если НЕ ПропуститьАдминистраторы Тогда
		// Вначале проверим входит ли Пользователь в Группу "Администраторы" или "Делопроизводители"
		Запрос = Новый Запрос;
		Запрос.Текст = " 	
		| ВЫБРАТЬ 
		| ГруппыДоступаПользователи.Ссылка КАК ГруппаДоступа,	
		|    ГруппыДоступаПользователи.Пользователь,
		|    ГруппыДоступа.Профиль
	    |  ИЗ
		|    Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
		|    ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ГруппыДоступа КАК ГруппыДоступа
		|          ПО ГруппыДоступаПользователи.Ссылка = ГруппыДоступа.Ссылка
	    |  ГДЕ ГруппыДоступаПользователи.Ссылка в (&Администраторы)
	    |    И ГруппыДоступаПользователи.Пользователь = &ТекущийПользователь";	
		
		
		Администраторы_ = Новый Массив;
		Администраторы_.Добавить(ГруппаДоступа("Администраторы"));
		Администраторы_.Добавить(ГруппаДоступа("Делопроизводители"));
		Запрос.УстановитьПараметр("Администраторы",Администраторы_);

		//Запрос.УстановитьПараметр("Администраторы", ГруппаДоступа("Делопроизводители") );
		Запрос.УстановитьПараметр("ТекущийПользователь", Пользователь );
		РезультатЗапроса = Запрос.Выполнить();
		Выборка = РезультатЗапроса.Выбрать();
		
		Если Выборка.Количество()<>0 Тогда
			Возврат Истина;		
		КонецЕсли;
	КонецЕсли;
	
	Если НаименованиеПрофиляГруппДоступа=Неопределено Тогда
		Возврат Ложь;
	КонецЕсли;
	
	// Теперь получим всех пользователей Профиля;
	Запрос = Новый Запрос;
	Запрос.Текст = " 	
	| ВЫБРАТЬ 
	|   ГруппыДоступаПользователи.Ссылка КАК ГруппаДоступа,	
	|   ГруппыДоступаПользователи.Пользователь,
	|   ГруппыДоступа.Профиль
    | ИЗ
	|   Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
	|   ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ГруппыДоступа КАК ГруппыДоступа
	|         ПО ГруппыДоступаПользователи.Ссылка = ГруппыДоступа.Ссылка
    | ГДЕ ГруппыДоступа.Профиль = &Профиль";
	
	ПрофильГрупп = ПрофильГруппДоступа(НаименованиеПрофиляГруппДоступа);
	Запрос.УстановитьПараметр("Профиль", ПрофильГрупп );
	
	РезультатЗапроса = Запрос.Выполнить();
	Выборка = РезультатЗапроса.Выбрать();
	
	ЕстьПрофильДляДоступа = Ложь;
	Пока Выборка.Следующий() И НЕ ЕстьПрофильДляДоступа Цикл
		Если ТипЗнч(Выборка.Пользователь) = Тип("СправочникСсылка.Пользователи") Тогда
			Если Выборка.Пользователь = Пользователь Тогда
				ЕстьПрофильДляДоступа = Истина;
				Прервать;
			КонецЕсли;
		ИначеЕсли ТипЗнч(Выборка.Пользователь) = Тип("СправочникСсылка.ГруппыПользователей") Тогда
			Для Каждого СтрокаСостав из Выборка.Пользователь.Состав Цикл
				Если СтрокаСостав.Пользователь = Пользователь Тогда
					ЕстьПрофильДляДоступа = Истина;
					Прервать;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
	КонецЦикла;
	
	Возврат ЕстьПрофильДляДоступа;	
КонецФункции

&НаСервере
Функция ПрофильГруппДоступа(Наименование)
	Запрос = Новый Запрос;
	Запрос.Текст = "
	| ВЫБРАТЬ
	|   ПрофилиГруппДоступа.Ссылка КАК Профиль
	| ИЗ
	|   Справочник.ПрофилиГруппДоступа КАК ПрофилиГруппДоступа	
	| ГДЕ (ПрофилиГруппДоступа.Наименование = &Наименование)";
	Запрос.УстановитьПараметр("Наименование", Наименование );
	РезультатЗапроса = Запрос.Выполнить();
	Выборка = РезультатЗапроса.Выбрать();
	Выборка.Следующий();
	
	Возврат Выборка.Профиль;
КонецФункции

&НаСервере
Функция ГруппаДоступа(Наименование)
	Запрос = Новый Запрос;
	Запрос.Текст = "
	| ВЫБРАТЬ
 	|   ГруппыДоступа.Ссылка КАК ГруппаДоступа
    | ИЗ
	|   Справочник.ГруппыДоступа КАК ГруппыДоступа	   
	| ГДЕ (ГруппыДоступа.Наименование = &Наименование)";
	Запрос.УстановитьПараметр("Наименование", Наименование );
	РезультатЗапроса = Запрос.Выполнить();
	Выборка = РезультатЗапроса.Выбрать();
	Выборка.Следующий();
	
	Возврат Выборка.ГруппаДоступа;
КонецФункции