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