Текущий пользователь

 Процедура УстановкаПараметровСеанса(ТребуемыеПараметры)
  	ТекущийПользователь = ОбщийМодульСистема.ОпределитьТекущегоПользователя();
  	ПараметрыСеанса.ТекущийПользователь = ТекущийПользователь;
  КонецПроцедуры
   

 // Функция возвращает ссылку на элемент справочника "Пользователи",
  // соответствующий текущему пользователю информационной базы.
  Функция ОпределитьТекущегоПользователя() экспорт
  
  	Если ПустаяСтрока(ИмяПользователя()) Тогда
  		ИмяПользователя = &quo.  

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

 зникла ошибка при добавлении пользователя в справочник.
  				|" + ОписаниеОшибки();
   
  			Возврат Справочники.Пользователи.ПустаяСсылка();
  			
  		КонецПопытки;
   
  		ТекущийПользователь = ОбъектПользователь.Ссылка;
  
   Иначе
   Выборка = Результат.Выбрать();
  		Выборка.Следующий();
  		
  		Если Выборка.ЭтоГруппа Тогда
  			ВызватьИсключение "Пользователь : " + ИмяПользователя + " не зарегистрирован. В справочнике присутствует группа с тем же именем";
  		Иначе
  			ТекущийПользователь = Выборка.Ссылка;
  		КонецЕсли;	 
  		
  	КонецЕсли; 
   
   Возврат ТекущийПользователь;
  
  КонецФункции 
  
  Функция ПолучитьТекущегоПользователя() Экспорт 
  	Возврат ПараметрыСеанса.ТекущийПользователь;	
  КонецФункции
   

 &НаСервере
  Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
  Объект.Автор = ОбщийМодульСистема.ПолучитьТекущегоПользователя();
  Объект.Фирма = Объект.Автор.Фирма;
  КонецПроцедуры