пользователи%программно » Поиск

Результаты по ключевому слову: пользователи%программно

Ограничение доступа на уровне записей - RLS (Отбор по организации)

Часто возникает необходимость в частичном ограничении доступа к данным. Например, когда пользователь должен видеть документы только своей организации. В таких случаях в 1С используется механизм ограничения доступа на уровне записей (так называемый, RLS – Record Level Securiy).

Для примера предположим, что перед нами стоит следующая задача. На предприятии ведется многофирменный учет и каждый контрагент и пользователь базы данных относится к определенной организации. Необходимо обеспечить доступ к справочнику “Контрагенты” таким образом, чтобы каждый пользователь мог просматривать, редактировать и добавлять контрагентов только своей организации.

Для решения задачи будем использовать платформу “1С:Предприятие 8.2″. Создадим новую конфигурацию в свойствах которой в качестве основного режима запуска будет выбран вариант “Управляемое приложение”.

Далее создадим справочник “Организации” и ещё два справочника – “Контрагенты” и “Пользователи” с реквизитом “Организация”. Кроме справочников нам понадобятся два параметра сеанса – “Организация” и “Пользователь” (соответствующих типов). Значения этих параметров устанавливаются при запуске сеанса работы с конфигурацией и хранятся до его завершения. Именно значения этих параметров мы и будем использовать при добавлении условий ограничения доступа на уровне записей.

Установка параметров сеанса выполняется в специальном модуле – “Модуль сеанса”

В этом модуле опишем предопределенную процедуру “УстановкаПараметровСеанса” в которой вызовем функцию заранее подготовленного общего модуля “ПолныеПрава”. Это необходимо в силу особенностей работы базы данных в режиме управляемого приложения, когда часть программного кода может выполняться только на стороне сервера (подробно на объяснении этих принципов в данной статье я останавливаться не буду).

Код 1C v 8.х

 Процедура УстановкаПараметровСеанса(ТребуемыеПараметры)

    ПолныеПрава.УстановитьПараметрыСеанса();

КонецПроцедуры<br>

В свойствах модуля “ПолныеПрава” необходимо отметить флажки “Сервер”, “Вызов сервера” и “Привилегированный” (последнее означает, что процедуры и функций данного модуля будут выполнятся без контроля прав доступа). Текст модуля будет выглядеть так:

Код 1C v 8.х

 Функция ОпределитьТекущегоПользователя()

    ТекПользователь = Справочники.Пользователи.НайтиПоНаименованию(ИмяПользователя(),Истина);

    Возврат ТекПользователь;

КонецФункции





Процедура УстановитьПараметрыСеанса() Экспорт

    ТекущийПользователь = ОпределитьТекущегоПользователя();

    ТекущаяОрганизация = Справочники.Организации.ПустаяСсылка();

    Если ЗначениеЗаполнено(ТекущийПользователь) Тогда

        ТекущаяОрганизация = ТекущийПользователь.Организация;

    КонецЕсли;

    ПараметрыСеанса.Пользователь = ТекущийПользователь;

    ПараметрыСеанса.Организация = ТекущаяОрганизация;

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





Функция ПараметрСеансаУстановлен(ИмяПараметра) Экспорт

    Возврат ЗначениеЗаполнено(ПараметрыСеанса[ИмяПараметра]);

КонецФункции





Функция РольДоступнаПользователю(ИмяРоли) Экспорт

    Возврат РольДоступна(ИмяРоли);

КонецФункции<br>

В модуле управляемого приложения будем проверять наличие пользователя конфигурации в справочнике “Пользователи” (для простоты будем искать его по наименованию) и завершать работу системы если он не найден. Это необходимо для того, чтобы обеспечить заполнение параметров сеанса.

Код 1C v 8.х

 Процедура ПередНачаломРаботыСистемы(Отказ)

    // всех кроме администратора будем проверять на наличие в справочнике "Пользователи"

    Если Не ПолныеПрава.РольДоступнаПользователю("ПолныеПрава") Тогда

        Если НЕ ПолныеПрава.ПараметрСеансаУстановлен("Пользователь") Тогда

            Предупреждение("Пользователь """ + ИмяПользователя() + """ не найден в справочнике!");

            Отказ = Истина;

            Возврат;

        КонецЕсли;

    КонецЕсли;

КонецПроцедуры<br>

Теперь можем перейти непосредственно к описанию ограничений доступа. Для этого создадим роль “Пользователь” и перейдем на закладку “Шаблоны ограничений”, где добавим новый шаблон “КонтрагентыЧтениеИзменение” со следующим текстом шаблона: ГДЕ Организация =Организация #Параметр(1)

Текст шаблона ограничений является расширением языка запросов. В отличии от обычного запроса, текст ограничения должен в обязательном порядке содержать условие “ГДЕ”. В качестве значений параметров запроса (в нашем случае это “&Организация”) используются значения одноименных параметров сеанса. Конструкция вида #Параметр(1) означает, что на это место система подставит текст, переданный в качестве первого параметра в месте использования шаблона. С помощь приведенного шаблона будет выполняться проверка каждой записи таблицы (в нашем случае это будет справочник “Контрагены”). Для записей, значение реквизита “Организация” которых совпадает с заданным в соответствующем параметре сеанса, условие описанное в шаблоне будет выполняться. Таким образом эти записи будут доступны для чтения, изменения или добавления (в зависимости от того для какого из этих прав применяется шаблон). Продемонстрирую вышеизложенное на нашем примере.

Перейдем на закладку “Права” роли “Пользователь” и откроем список прав справочника “Контрагенты”. Будем использовать шаблон ограничений “КонтрагентыЧтениеИзменеие” для прав “Чтение”, “Изменение” и “Доблавление”.

Для права “Чтение” будем использовать шаблон с параметром “ИЛИ ЭтоГруппа”. При этом пользователям данной роли будет разрешено чтение не только элементов справочника “Контрагенты” своей организации, но и всех групп этого справочника.

#КонтрагентыЧтениеИзменение("ИЛИ ЭтоГруппа")

Поскольку при добавлении новых элементов справочника системой выполняется неявное чтение предопределенных реквизитов (это нужно, например, для нумерации), то необходимо обеспечить беспрепятственное чтение этих полей. Для этого добавим дополнительную строку с пустым текстом ограничения в таблицу ограничения доступа к данным и перечислим поля для которых действует данное правило – Ссылка, Версия данных, Родитель, Код.

Таким образом, поставленная задача ограничения доступа на уровне записей решена. Пользователи с действующими ограничениями получат доступ на просмотр и редактирование данных только своей организации.

Источник

Категория: Пользователь, роль доступа, интерфейс

Как программно создать нового пользователя или скопировать настройки существующего?

Часто встречаю вопросы касаемые программного создания и настройки прав пользователей.

В этот статье я приведу примеры для Обычного и Управляемого приложений, которые программно создают пользователя в конфигураторе и в режиме Предприятие (справочник пользователи) и установку Групп пользователей.

В приложении к статье обработки, код которых приведен ниже: Скачать обработки

Обработки были написаны под УТ, но, при необходимости, вы можете их легко доработать под другие конфигурации.

Управляемое приложение:

В конфигурациях на управляемом интерфейсе (Такси) изменили подход к ведению пользователей. Если вы добавляете не программно, то добавлять нужно из режима Предприятия - тогда пользователь ИБ у вас сам создатся. И если раньше, в обычном приложении, достаточно будет добавить польз в конфигураторе - и при заходе в Предприятие, этот польз сам создавался в спр Пользователи, то с управляемым приложением такой фокус не прокатит - система не даст зайти под пользователем ИБ, которого нет в справочнике Пользователи.

! В типовых конфигурациях для работы с пользователями активно используется БСП !

В общем модуле Пользователи используется программный интерфейс процедур и функций НовоеОписаниеПользователяИБ, ПрочитатьПользователяИБ, ЗаписатьПользователяИБ иУдалитьПользователяИБ.

Код создания нового пользователя с использованием БСП:

Код 1C v 8.3

 &НаСервере

Функция КопированиеВсехНастроек(ПользовательСсылка,ПользовательПриемник)

	

	Пользователь = Обработки.НастройкиПользователей.ИмяПользователяИБ(ПользовательСсылка);

	

	Приемники = Новый Массив;

	ТаблицаПользователей = Новый ТаблицаЗначений;

	ТаблицаПользователей.Колонки.Добавить("Пользователь");

	ТаблицаПользователей = Обработки.НастройкиПользователей.ПользователиДляКопирования(ПользовательСсылка, ТаблицаПользователей, 

	ТипЗнч(ПользовательСсылка) = Тип("СправочникСсылка.ВнешниеПользователи"));

	

	Для Каждого СтрокаТаблицы Из ТаблицаПользователей Цикл

		Приемники.Добавить(ПользовательПриемник);

	КонецЦикла;

	

	КопируемыеНастройки = Новый Массив;

	КопируемыеНастройки.Добавить("НастройкиОтчетов");

	КопируемыеНастройки.Добавить("НастройкиВнешнегоВида");

	КопируемыеНастройки.Добавить("ПерсональныеНастройки");

	КопируемыеНастройки.Добавить("Избранное");

	КопируемыеНастройки.Добавить("НастройкиПечати");

	КопируемыеНастройки.Добавить("ПрочиеПользовательскиеНастройки");

	

	НастройкиСкопированы = Обработки.НастройкиПользователей.

	КопированиеНастроекПользователей(ПользовательСсылка, Приемники, КопируемыеНастройки);

		

	Возврат НастройкиСкопированы;

	

КонецФункции





Функция СоздатьНовыйУровеньДоступа(ФИО)

	

	 Рез = Справочники.CRM_УровниДоступа.НайтиПоНаименованию(ФИО);

	 Если Рез = Неопределено ИЛИ Рез = Справочники.CRM_УровниДоступа.ПустаяСсылка() Тогда

		 НовыйОбъект = Справочники.CRM_УровниДоступа.СоздатьЭлемент();

		 НовыйОбъект.Наименование = ФИО;

		 НовыйОбъект.Записать();

		 возврат НовыйОбъект.Ссылка;

	 КонецЕсли;	 

		 

КонецФункции	





Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)

	

	Если ПользовательНастроек = Неопределено Тогда

		Возврат;

	КонецЕсли;

	

	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(Объект.ФИОСоздаваемогоПользователя);

	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда

		

	Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Наименование));





	ОписаниеПользователяИБ            = Пользователи.НовоеОписаниеПользователяИБ();

	ПользовательИБСуществует          = Ложь;

	ДоступКИнформационнойБазеРазрешен = Ложь;

	

	// Заполнение начальных значений свойств пользователяИБ.

	Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда

		ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора = Ложь;

	Иначе

		ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора =

			НЕ Константы.ИспользоватьВнешнихПользователей.Получить();

	КонецЕсли;

	ОписаниеПользователяИБ.АутентификацияСтандартная = Истина;

	ОписаниеПользователяИБ.Роли = Новый Массив;

	ПрочитанныеСвойства               = Неопределено;

	Если Пользователи.ПрочитатьПользователяИБ(

		         ПользовательНастроек.ИдентификаторПользователяИБ,ПрочитанныеСвойства

		         ) Тогда

			

			// Установка связи пользователем ИБ.

			//ДоступКИнформационнойБазеРазрешен = Истина;

			

			// Копирование свойств и ролей пользователяИБ.

			ЗаполнитьЗначенияСвойств(

				ОписаниеПользователяИБ,

				ПрочитанныеСвойства,

				"АутентификацияOpenID,

				|АутентификацияСтандартная,

				|ЗапрещеноИзменятьПароль,

				|ПоказыватьВСпискеВыбора,

				|АутентификацияОС,

				|РежимЗапуска,

				|Язык,

				|Роли");

	КонецЕсли;

	

	ОписаниеПользователяИБ.Вставить("Действие", "Записать");

	ОписаниеПользователяИБ.Вставить("Имя", Объект.ФИОСоздаваемогоПользователя);

	





		НовыйПользователь = Справочники.Пользователи.СоздатьЭлемент();

		НовыйПользователь.Наименование 					= Объект.ФИОСоздаваемогоПользователя;

		НовыйПользователь.ТекущееПодразделение			= ПользовательНастроек.ТекущееПодразделение;

		НовыйПользователь.CRM_УровеньДоступа			= СоздатьНовыйУровеньДоступа(Объект.ФИОСоздаваемогоПользователя);

		НовыйПользователь.Недействителен				= ложь;





		НовыйПользователь.ДополнительныеСвойства.Вставить(

			"ОписаниеПользователяИБ", ОписаниеПользователяИБ);

			

		НовыйПользователь.Записать();

				

		Запрос = Новый Запрос;

		Запрос.Текст = 

		"ВЫБРАТЬ

		|	ГруппыПользователейПользователиГруппы.Ссылка

		|ИЗ

		|	Справочник.ГруппыПользователей.Состав КАК ГруппыПользователейПользователиГруппы

		|ГДЕ

		|	ГруппыПользователейПользователиГруппы.Пользователь =Пользователь

		|

		|СГРУППИРОВАТЬ ПО

		|	ГруппыПользователейПользователиГруппы.Ссылка";

		

		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);

		

		РезультатЗапроса = Запрос.Выполнить();

		

		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

		

		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();

			НоваяСтрока = объ.Состав.Добавить();

			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;

			объ.Записать();

		КонецЦикла;

		

		Запрос.Текст = 

		"ВЫБРАТЬ

		|	ГруппыДоступаПользователи.Ссылка

		|ИЗ

		|	Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи

		|ГДЕ

		|	ГруппыДоступаПользователи.Пользователь =Пользователь

		|

		|СГРУППИРОВАТЬ ПО

		|	ГруппыДоступаПользователи.Ссылка";

		

		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);

		

		РезультатЗапроса = Запрос.Выполнить();

		

		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

		

		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();

			НоваяСтрока = объ.Пользователи.Добавить();

			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;

			объ.Записать();

		КонецЦикла;





		КопированиеВсехНастроек(ПользовательНастроек,НовыйПользователь.Ссылка);

		

	Иначе

		сообщить("Указанное ФИО Пользователя уже используется !!! ");

	КонецЕсли;

		

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





&НаКлиенте

Процедура СоздатьПользователя(Команда)

	СоздатьПользователяНаСервере();

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





&НаСервере

Процедура СоздатьПользователяНаСервере()

	

	Если НЕ ЗначениеЗаполнено(Объект.ШаблонПользователяДляСозданияНового) Тогда

		Возврат;

	КонецЕсли;





	// настройки устанавливаются на форму

	ОбновитьДанныеПользователяИБ(Объект.ШаблонПользователяДляСозданияНового, Ложь);

	

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





&НаСервере

Процедура СкопироватьНастройкиНаСервере(ИзменяемыйПользователь,ШаблонПользователяДляКопирования)

	//Копируем роли пользователя

	тИзменяемыйПользователь = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ИзменяемыйПользователь.Наименование));

	тШаблонПользователяДляКопирования = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ШаблонПользователяДляКопирования.Наименование));

	

	//Очищаем роли

	тИзменяемыйПользователь.Роли.Очистить();

	// Копируем

	СписокДоступныхРолейПользователяИБ = Новый СписокЗначений;  	

	Для Каждого мРоль Из Метаданные.Роли Цикл

		СтрокаСписокаДоступныхРолей = СписокДоступныхРолейПользователяИБ.Добавить();

		СтрокаСписокаДоступныхРолей.Представление = мРоль.Представление();

		СтрокаСписокаДоступныхРолей.Значение = мРоль;

	КонецЦикла; 

	

	Для Каждого СтрокаСпискаДоступныхРолей Из СписокДоступныхРолейПользователяИБ Цикл

		Если тШаблонПользователяДляКопирования.Роли.Содержит(СтрокаСпискаДоступныхРолей.Значение) Тогда

			тИзменяемыйПользователь.Роли.Добавить(СтрокаСпискаДоступныхРолей.Значение);		

		КонецЕсли;	

	КонецЦикла; 

	тИзменяемыйПользователь.Записать();





	//Копируем настройки БСП

	КопированиеВсехНастроек(ШаблонПользователяДляКопирования,ИзменяемыйПользователь);  

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





&НаКлиенте

Процедура СкопироватьНастройки(Команда)

	СкопироватьНастройкиНаСервере(Объект.ИзменяемыйПользователь, Объект.ШаблонПользователяДляКопирования);

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

Обычное приложение:

В обычном все проще:

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)



	Если НЕ ЗначениеЗаполнено(ШаблонПользователяДляСозданияНового) Тогда

		Возврат;

	КонецЕсли;



	// настройки устанавливаются на форму

	ОбновитьДанныеПользователяИБ(ШаблонПользователяДляСозданияНового, Ложь);

	

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



Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)

	

	Если ПользовательНастроек = Неопределено Тогда

		Возврат;

	КонецЕсли;

	

	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(ФИОСоздаваемогоПользователя);

	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда

		

		Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Код));

		

		ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();

		ПользовательИБ.Имя = ФИОСоздаваемогоПользователя;

		ПользовательИБ.АутентификацияСтандартная = Истина;

		ПользовательИБ.Пароль = ПарольСоздаваемогоПользователя;

		ПользовательИБ.ПолноеИмя =  ФИОСоздаваемогоПользователя;

		ПользовательИБ.ПоказыватьВСпискеВыбора = Истина;

		ПользовательИБ.ОсновнойИнтерфейс = Пользователь_Шаблон.ОсновнойИнтерфейс;

		ПользовательИБ.Язык = Пользователь_Шаблон.Язык;

		

		

		СписокДоступныхРолейПользователяИБ = Новый СписокЗначений;

		

		Для Каждого мРоль Из Метаданные.Роли Цикл

			СтрокаСписокаДоступныхРолей = СписокДоступныхРолейПользователяИБ.Добавить();

			СтрокаСписокаДоступныхРолей.Представление = мРоль.Представление();

			СтрокаСписокаДоступныхРолей.Значение = мРоль;

		КонецЦикла; 

		

		Для Каждого СтрокаСпискаДоступныхРолей Из СписокДоступныхРолейПользователяИБ Цикл

			Если Пользователь_Шаблон.Роли.Содержит(СтрокаСпискаДоступныхРолей.Значение) Тогда

				ПользовательИБ.Роли.Добавить(СтрокаСпискаДоступныхРолей.Значение);		

			КонецЕсли;	

		КонецЦикла; 

		

		ПользовательИБ.Записать();

		

		НовыйПользователь = Справочники.Пользователи.СоздатьЭлемент();

		//НовыйПользователь.ИдентификаторПользователяИБ 	= ПользовательИБ.УникальныйИдентификатор;

		НовыйПользователь.Код 							= ФИОСоздаваемогоПользователя;

		НовыйПользователь.Наименование 					= ФИОСоздаваемогоПользователя;

		НовыйПользователь.Родитель						= ПользовательНастроек.Родитель;

		

		НовыйПользователь.Подразделение					= ПользовательНастроек.Подразделение;

		НовыйПользователь.Категория						= ПользовательНастроек.Категория;

		НовыйПользователь.Руководитель					= ПользовательНастроек.Руководитель;

		НовыйПользователь.Действует						= ПользовательНастроек.Действует;

		НовыйПользователь.Записать();

		

		

		НаборПользователя = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();

		НаборПользователя.Отбор.Пользователь.Установить(ПользовательНастроек);

		НаборПользователя.Прочитать();

		

		НаборНовогоПользователя = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();

		НаборНовогоПользователя.Отбор.Пользователь.Установить(НовыйПользователь.Ссылка);

		

		

		Для Каждого СтрокаНастроек из НаборПользователя Цикл

			НоваяСтрокаНастроек = НаборНовогоПользователя.Добавить();

			ЗаполнитьЗначенияСвойств(НоваяСтрокаНастроек,СтрокаНастроек);

			НоваяСтрокаНастроек.Пользователь = НовыйПользователь.Ссылка;

			Если Найти(СтрокаНастроек.Настройка.Наименование,"Основной ответственный") Тогда

				НоваяСтрокаНастроек.Значение = НовыйПользователь.Ссылка;

			КонецЕсли;	

		КонецЦикла;	

		

		Если НаборНовогоПользователя.Количество()>0 Тогда

			НаборНовогоПользователя.Записать();

		КонецЕсли;	

		сообщить("Создан пользователь "+ФИОСоздаваемогоПользователя);

		

		Запрос = Новый Запрос;

		Запрос.Текст = 

		"ВЫБРАТЬ

		|	ГруппыПользователейПользователиГруппы.Ссылка

		|ИЗ

		|	Справочник.ГруппыПользователей.ПользователиГруппы КАК ГруппыПользователейПользователиГруппы

		|ГДЕ

		|	ГруппыПользователейПользователиГруппы.Пользователь =Пользователь

		|

		|СГРУППИРОВАТЬ ПО

		|	ГруппыПользователейПользователиГруппы.Ссылка";

		

		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);

		

		РезультатЗапроса = Запрос.Выполнить();

		

		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

		

		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();

			НоваяСтрока = объ.ПользователиГруппы.Добавить();

			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;

			объ.Записать();

		КонецЦикла;

		

	Иначе

		сообщить("Указанное ФИО Пользователя уже используется !!! ");

	КонецЕсли;

	

	

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

еще пример:

Код 1C v 8.х

 Функция ДобавитьПользователя(ИмяПользователя, ДоменноеИмя, ПользовательАктивен, АутентификацияОС, Авторизация1СПредприятия, МассивРолей) Экспорт

    // Попробуем найти сотрудника

    Пользователь = ПользователиИнформационнойБазы.НайтиПоИмени(ИмяПользователя);





    // Теперь попробум найти сотрудника по пользователю ос

   Если Пользователь = Неопределено Тогда

        Для Каждого ТекущийПользователь Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл

            Если ТекущийПользователь.ПользовательОС = ДоменноеИмя Тогда

                Пользователь = ТекущийПользователь;

                Прервать;

            Конецесли;

        КонецЦикла;

    КонецЕсли;

    //                            





    // Если мы не нашли сотрудника, то создадим его

    Если Пользователь = Неопределено Тогда

        Пользователь = ПользователиИнформационнойБазы.СоздатьПользователя();

    КонецЕсли;

    //





    // Записываем свойства

    Пользователь.АутентификацияОС = АутентификацияОС;

    Пользователь.АутентификацияСтандартная = Авторизация1СПредприятия;

    Пользователь.ЗапрещеноИзменятьПароль = Истина;

    Пользователь.Имя = ИмяПользователя;

    Пользователь.ПолноеИмя = ИмяПользователя;

    Пользователь.ПоказыватьВСпискеВыбора = Ложь;

    Пользователь.ПользовательОС = ДоменноеИмя;

    

    // Сначала очистим все текущие роли

    Пользователь.Роли.Очистить();

    

    //  Теперь найдем переданный массив ролей в справочнике профилей 

    // и добавим все роли указанные в профиле. Все очень сложно, да

    МассивИменРолей = Новый Массив();

    Для Каждого Роль Из МассивРолей.Role Цикл

        МассивИменРолей.Добавить(Роль);    

    КонецЦикла;

    ТекстЗапроса = "ВЫБРАТЬ

                   |    ПрофилиГруппДоступаРоли.Роль.Имя КАК Имя

                   |ИЗ

                   |    Справочник.ПрофилиГруппДоступа.Роли КАК ПрофилиГруппДоступаРоли

                   |ГДЕ

                   |    ПрофилиГруппДоступаРоли.Ссылка.Наименование В(&МассивИменРолей)";

    Запрос = Новый Запрос(ТекстЗапроса);

    Запрос.УстановитьПараметр("МассивИменРолей", МассивИменРолей);

    Результат = Запрос.Выполнить().Выгрузить();    

    Для Каждого Роль Из Результат Цикл

        НайденнаяРоль = Метаданные.Роли.Найти(Роль.Имя);

        Если НайденнаяРоль <> Неопределено Тогда

            Пользователь.Роли.Добавить(НайденнаяРоль);

        КонецЕсли;

    КонецЦикла;



    // Записываем!

    Пользователь.Записать();



    // Теперь посмотрим нужно ли деактивировать пользователя

    Если Не ПользовательАктивен Тогда

        ДективироватьПользователя(Пользователь);    

    КонецЕсли;



    // Запишем еще и справочник пользователя

    ЗаполнитьСправочникПользователя(Пользователь);

  

    Возврат Истина;

КонецФункции





// Процедура заполняет помимо прочего справочник пользователя

Процедура ЗаполнитьСправочникПользователя(ПользовательИБ) Экспорт

    ТекстЗапроса = "ВЫБРАТЬ

                   |    ИСТИНА КАК ЕстьПользователь,

                   |    Пользователи.Ссылка КАК Пользователь

                   |ИЗ

                   |    Справочник.Пользователи КАК Пользователи

                   |ГДЕ

                   |    Пользователи.ИдентификаторПользователяИБ =ИдентификаторПользователяИБ

                   |

                   |ОБЪЕДИНИТЬ ВСЕ

                   |

                   |ВЫБРАТЬ

                   |    ЛОЖЬ,

                   |    NULL";

    Запрос = Новый Запрос(ТекстЗапроса);

    Запрос.УстановитьПараметр("ИдентификаторПользователяИБ", ПользовательИБ.УникальныйИдентификатор);

    Результат = Запрос.Выполнить().Выгрузить()[0];

    ОписаниеПользователя = Пользователи.НовоеОписаниеПользователяИБ();

    Если Результат.ЕстьПользователь Тогда

        ПользовательОбъект = Результат.Пользователь.ПолучитьОбъект();

    Иначе            

        ПользовательОбъект = Справочники.Пользователи.СоздатьЭлемент(); 

        ПользовательОбъект.ИдентификаторПользователяИБ = ПользовательИБ.УникальныйИдентификатор;

        ПользовательОбъект.Наименование = ПользовательИБ.Имя;

        ОписаниеПользователя.Вставить("Действие", "Записать");

        ПользовательОбъект.ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ", ОписаниеПользователя);

    КонецЕсли;

    ЗаполнитьЗначенияСвойств(ОписаниеПользователя, ПользовательИБ);

    Для Каждого Элемент Из ОписаниеПользователя Цикл

        ПользовательОбъект.ДополнительныеСвойства.Вставить(Элемент.Ключ, Элемент.Значение);        

    КонецЦикла;        

    ПользовательОбъект.ДополнительныеСвойства.Удалить("Роли");

    ПользовательОбъект.Записать();

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

Категория: Пользователь, роль доступа, интерфейс

Некоторые особенности работы с настройками прав доступа пользователей в типовых конфигурациях на УФ

Разработчики в управляемых приложениях применили новый механизм настройки прав доступа, о которых и пойдет речь.

Будут перечислены все те грабли, которые собрал автор, чтобы вы о них знали.

Наверняка, уже все знают, что из себя представляет новая система, поэтому предистория вкрадце:

Как было раньше( в обычном приложении):

Есть документ. Есть Роли - ПолныеПрава, ДокументНетДоступа, ДокументТолькоЧтение, ДокументЧтениеИРедактирование. В конфигураторе(аналогичный механизм в реж предприятия) вы выставляете пользователям эти роли и у них появляются соответствующие права доступа на документ. Все просто и скучно и даже зевать хочется.

С введением управляемого приложения разработчики решили усложнить(читается как расширить) настройки прав доступа.

Теперь:

Вводная та же. Чтобы дать пользователю какие-то права на документ - сначала вам необходимо создать элемент справочника Профили групп доступа. Это некий агрегирующий(суммирующий значения) объект, который объединяет роли в группы ролей. Теоритически таких профилей можно создать сколько угодно много с различным набором ролей( N*(n-1), где N - количество ролей), но на практике количество профилей определяется количеством должностных обязанностей пользователей в организации и их гораздо меньше, чем ролей.

Создаем профили Бесправный(с ролью ДокументНетДоступа), Аудитор(с ролью ДокументТолькоЧтение), Бухгалтер(с ролью ДокументЧтениеИРедактирование).

Чтобы "привязать" эти профили к пользователям - нужно создать элементы справочника ГруппыДоступа. В типовых они создаются автоматически, когда вы отмечаете галочками профили для пользователя. Этот справочник соединяет профиль и пользователя(или нескольких пользователей).

При записи этого элемента справочника система автоматически добавляет роли (из профиля) в роли пользователя. Поэтому не стоит напрямую редактировать роли в конфигураторе, как раньше - при редактировании прав в Предприятии все роли в конфигураторе будут обновлены на роли из профилей пользователя. Кроме того, будет наблюдаться явное противоречение между набором профилей с ролями и ролями, установленными в конфигураторе.

Как хранятся роли в Профиле групп доступа, спросите вы. Ведь роли - это объекты МД, это не ссылочные типы. Отвечаю - для этого(и не только) разработчики создали служебный справочник ИдентификаторыОбъектовМетаданных, в котором хранится( в иерархии!) имена, синонимы, значения пустых ссылок всех объектов МД. Если вы хотите создать Профиль программно и добавить в него роль, то код примерно будет таким:

Код 1C v 8.2 УП

 РодительРоли = Справочники.ИдентификаторыОбъектовМетаданных.НайтиПоНаименованию("Роли");//ничего страшного искать по наименованию,



//справочник - служебный и непосредственного редактрования в нем нет

ИдентификаторМоейРоли = Справочники.ИдентификаторыОбъектовМетаданных.НайтиПоРеквизиту("Имя","МояРоль",РодительРоли);

Если ЗначениеЗаполнено(ИдентификаторМоейРоли) Тогда

НайденныйИдентификаторМоейРоли = МойПрофиль.Роли.Найти(ИдентификаторМоейРоли );

Если НайденныйИдентификаторМоейРоли= неопределено тогда

НовСтрока = МойПрофиль.Роли.Добавить();

НовСтрока.Роль = ИдентификаторМоейРоли;

КонецЕсли;

КонецЕсли;

Но если мы добавили новую роль в конфигурации, то как она попадет в справочник? Хороший вопрос. У справочника ИдентификаторыОбъектовМетаданных есть метод, позволяющий обновлять его данные. это:

Код 1C v 8.2 УП

 Справочники.ИдентификаторыОбъектовМетаданных.ОбновитьДанныеСправочника(ИСТИНА,ЛОЖЬ,ЛОЖЬ);//ЕстьИзменения, ЕстьУдаленные, ТолькоПроверка

Процедуру следует запускать каждый раз, когда вы вносите изменения в метаданные, особенно когда изменяете роли, объекты, связанные с новыми ролями.

Отлично. Роль добавили, идентификаторы обновили.

Но обратная связь не работает - вы в режиме предприятия назначили пользователю профиль( с созданием группы доступа), а роль у пользователя в конфигураторе не добавилась! Что делать?

За синхронизацию ролей/профилей отвечает константа ПараметрыРаботыПользователей. Если роли не обновляются в конфигураторе, следует обновить её значение:

Код 1C v 8.2 УП

 Константы.ПараметрыРаботыПользователей.СоздатьМенеджерЗначения().ОбновитьОбщиеПараметры();

Хорошо, скажите вы. А как быть, если я хочу создать группы доступа программно? Да не вопрос. Единственное ограничение - не допускаются дубли связок Профиль-Пользоваль в группах доступа. Примерный код будет таким:

Код 1C v 8.2 УП

 //МойПрофиль - профиль, который мы хотим добавить пользователю МойПользователь



Если МойПрофиль = Справочники.ПрофилиГруппДоступа.Администратор Тогда // если мы хотим пользователю дать роль Администратора, 

//то нельзя создавать новую группу доступа, надо редактировать предопределенную Администраторы

ГруппаДоступаАдм = Справочники.ГруппыДоступа.Администраторы;

Если ГруппаДоступаАдм.Пользователи.Найти(МойПользователь) = неопределено Тогда

ГруппаДоступаАдмОб= ГруппаДоступаАдм.ПолучитьОбъект();

НовСтрока = ГруппаДоступаАдмОб.Пользователи.Добавить();

НовСтрока.Пользователь = МойПользователь;

ГруппаДоступаАдмОб.Записать();

КонецЕсли;

Иначе // все прочие профили, кроме Администратора

Запрос = новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

|ГруппыДоступа.Ссылка

|ИЗ

|Справочник.ГруппыДоступа КАК ГруппыДоступа

|ГДЕ

|ГруппыДоступа.Профиль = &Профиль

|И (ГруппыДоступа.Пользователь = &Пользователь

|ИЛИ ГруппыДоступа.Пользователи.Пользователь = &Пользователь)

|И НЕ ГруппыДоступа.ПометкаУдаления ";

Запрос.УстановитьПараметр("Профиль",МойПрофиль);   

Запрос.УстановитьПараметр("Пользователь",МойПользователь);

Выборка = Запрос.Выполнить().Выбрать();

Если НЕ Выборка.Следующий() тогда //нет такого профиля, надо создать

МояГруппаДоступаОб = справочники.ГруппыДоступа.СоздатьЭлемент();

МояГруппаДоступаОб.Наименование = Строка(МойПрофиль);

МояГруппаДоступаОб.Пользователь = мойПользователь;

Нов = МояГруппаДоступаОб.Пользователи.Добавить();

Нов.Пользователь = МойПользователь;

МояГруппаДоступаОб.Профиль = МойПрофиль;

МояГруппаДоступаОб.Записать();

КонецЕсли; //Нет такого профиля

КонецЕсли;//профиль Администратор

После выполнения этого кода, если все, что нужно обновлено - типовая конфигурация добавит пользователю роли.

Раз уж пошли по программному пути, вот код, который добавляет пользователя в справочник Пользователи и ПользователяИБ в ПользователиИнформационнойБазы:

Код 1C v 8.2 УП

 ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();

ПользовательИБ.имя = "Иванов";

ПользовательИБ.ПолноеИмя = "Иванов Иван Иванович";

ПользовательИБ.АутентификацияСтандартная = ИСТИНА;

ПользовательИБ.Пароль = "";

ПользовательИБ.записать();

Пользователь = Справочники.Пользователи.НайтиПоРеквизиту("ИдентификаторПользователяИБ",ПользовательИБ.УникальныйИдентификатор));

если Пользователь.Наименование = "" Тогда

//создаем пользователя 

ПользовательОб = Справочники.Пользователи.СоздатьЭлемент();

ОписаниеПользователяИБ = Пользователи.НовоеОписаниеПользователяИБ();

ЗаполнитьЗначенияСвойств(ОписаниеПользователяИБ,ПользовательИБ);

ОписаниеПользователяИБ.УникальныйИдентификатор =  Соединение.NewObject("УникальныйИдентификатор",ПользовательИБ.УникальныйИдентификатор);

ПользовательОб.Наименование = ОписаниеПользователяИБ.ПолноеИмя; 

ОписаниеПользователяИБ.Вставить("Действие","Записать");

ПользовательОб.ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ",ОписаниеПользователяИБ);

ПользовательОб.записать();

КонецЕсли;

Если вы добавляете не программно, то добавлять нужно из режима Предприятия - тогда пользовательИБ у вас сам создатся.

И если раньше, в обычном приложении, достаточно будет добавить польз в конфигураторе - и при заходе в Предприятие, этот польз сам создавался в спр Пользователи, то с управляемым приложением такой фокус не прокатит - система не даст зайти под пользователемИБ, которого нет в справочнике Пользователи.

Автор: Stim - Источник

Категория: Управляемое приложение, Тонкий клиент

Программные лицензии 1С. Что, Как, зачем? Категория: Администрирование

Создание событий и напоминаний пользователям используя Задачи Категория: Задачи

Обновление 1С через интернет Категория: 1С Общие вопросы - Обычные формы

Функция проверки типа значения

Код 1C v 8.х

 

// Функция возвращает Истина при соответствии типов, ложь в обратном случае

Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач)

	Возврат ТипЗнч(ИсхЗнач) = Тип(ТипЗнач);

КонецФункции



// Некоторые примеры обращения

// ИсхЗнач  - проверяемое значение

// НужныйТипЗнач(ИсхЗнач,"Строка")

// НужныйТипЗнач(глЗначениеПеременной("глТекущийПользователь"),"СправочникСсылка.Пользователи")

// НужныйТипЗнач(ИсхЗнач,"Форма")

// НужныйТипЗнач(ИсхЗнач,"Булево")

// НужныйТипЗнач(ИсхЗнач,"Строка") 

// НужныйТипЗнач(ИсхЗнач,"Число")

// НужныйТипЗнач(ИсхЗнач,"Дата"))

// НужныйТипЗнач(ИсхЗнач,"Массив") 

// НужныйТипЗнач(ИсхЗнач,"Структура") 

// НужныйТипЗнач(ИсхЗнач,"Соответствие")

// НужныйТипЗнач(ИсхЗнач,"СписокЗначений")

// НужныйТипЗнач(ИсхЗнач,"ТаблицаЗначений")

// НужныйТипЗнач(ИсхЗнач,"ДеревоЗначений")

// НужныйТипЗнач(ИсхЗнач,"ПланСчетовСсылка.Хозрасчетный") 

// НужныйТипЗнач(ИсхЗнач,"ПланСчетовСсылка.Налоговый") 

// НужныйТипЗнач(ИсхЗнач,"ХранилищеЗначения")

// НужныйТипЗнач(ИсхЗнач,"Картинка")

// НужныйТипЗнач(ИсхЗнач,"ПолеВвода")

// НужныйТипЗнач(ИсхЗнач,"Панель")

// НужныйТипЗнач(ИсхЗнач,"Флажок")	

// НужныйТипЗнач(ИсхЗнач,"РегистрРасчетаНаборЗаписей.УправленческиеНачисления")

// НужныйТипЗнач(ИсхЗнач,"ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций") 

// НужныйТипЗнач(ИсхЗнач,"ДокументСсылка.ОтпускПоУходуЗаРебенком")

// НужныйТипЗнач(ИсхЗнач,"ИнтернетПочтовоеСообщение")

// НужныйТипЗнач(ИсхЗнач, "БизнесПроцессСсылка.м_Документооборот")

Код 1C v 7.x

 

// Функция возвращает 1 при соответствии типов, 0 в обратном случае

Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач)

	Если ТипЗначенияСтр((ИсхЗнач) = ТипЗнач тогда

		Возврат 1;

	Иначе

		Возврат 0;

	КонецЕсли;

КонецФункции



// Некоторые примеры обращения

// ИсхЗнач  - проверяемое значение

// НужныйТипЗнач(ИсхЗнач,"Строка")



// Значения типов данных:

// ''Число'' (''Number'') - числовой тип данных;

// ''Строка'' (''String'') - строковый тип данных;

// ''Дата'' (''Date'') - тип данных Дата;

// ''Перечисление'' (''Enum'') - агрегатный тип данных ''Перечисление'';

// ''Справочник'' (''Reference'') - агрегатный тип данных ''Справочник'';

// ''Документ'' (''Document'') - агрегатный тип данных ''Документ'';

// ''Регистр'' (''Register'') - агрегатный тип данных ''Регистр'';

// ''Календарь'' (''Calendar'') - агрегатный тип данных ''Календарь'';

// ''ВидРасчета'' (''Calculation'') - агрегатный тип данных ''ВидРасчета'';	

// ''ЖурналРасчетов'' (''CalcJournal'') - агрегатный тип данных ''ЖурналРасчетов'';

// ''ПланСчетов'' (''ChartOfAccounts'') - агрегатный тип данных ''ПланСчетов'';

// ''Счет'' (''Account'') - агрегатный тип данных ''Счет'';

// ''Операция'' (''Operation'') - агрегатный тип данных ''Операция'';

// ''КорректныеПроводки'' (''CorrectEntries'') - агрегатный тип данных ''КорректныеПроводки'';

// ''БухгалтерскиеИтоги'' (''BookkeepingTotals'') - агрегатный тип данных ''БухгалтерскиеИтоги'';

// ''Таблица'' (''Table'') - агрегатный тип данных ''Таблица'';

// ''Текст'' (''Text'') - агрегатный тип данных ''Текст'';

// ''Запрос'' (''Query'') - агрегатный тип данных ''Запрос'';

// ''СписокЗначений'' (''ValueList'') - агрегатный тип данных ''СписокЗначений'';

// ''ТаблицаЗначений'' (''ValueTable'') - агрегатный тип данных ''ТаблицаЗначений'';

// ''Периодический'' (''Periodic'') - агрегатный тип данных ''Периодический'';

// ''Картинка'' (''Picture'') - агрегатный тип данных ''Картинка'';

// ''ГрупповойКонтекст'' (''GroupContext'') - контекст программного модуля или Формы;

// ''OLE'' (''OLE'') - OLE-объект.

// ''НеизвестныйОбьект'' (''UnknownObject'') - для типов, для которых в системе не предусмотрено специальное строковое обозначение;

// '''' (пустая строка)  - неопределенный тип данных.

Категория: Работа с Типами данных