В начало

Записать нового пользователя

 

Процедура ЗаписатьНовогоПользователя (НовыйПользователь) Экспорт

 

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

            РольАдминистратор = Метаданные.Роли.Администратор;

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

                        Сообщить ("Добавление пользователя с административными правами запрещено.");

           

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

                        // Проверить, что текущий пользователь обладает правами Менеджера

                        // или Администратора

                        Если РольДоступна (РольАдминистратор) ИЛИ РольДоступна (Метаданные.Роли.Менеджер) Тогда

 

                                   // Выполнить запись нового пользователя.

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

                        Иначе

                                   Сообщить ("Недостаточно прав доступа для добавления пользователя.");

                        КонецЕсли;

            КонецЕсли;

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