Ошибка при получении значения атрибута контекста (ТекущийПользователь)

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

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

	Если обЗначениеНеЗаполнено(Пользователь.Сотрудник) Тогда

		ИмяПользователя = СокрЛП(Пользователь.Наименование);

	Иначе

		ИмяПользователя = СокрЛП(Пользователь.Сотрудник.Наименование);

	КонецЕсли;

	Предупреждение("Здравствуйте уважаемый пользователь """+ИмяПользователя+"""

	|Система готова к работе.", 3);

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



   

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

Если Не ПустаяСтрока(ИмяПользователя) Тогда

   ТекущийПользователь = Справочники.Пользователи.НайтиПоКоду(ИмяПользователя);

КонецЕсли;

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

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

	Спр = Справочники.Сотрудники;

	ПараметрыСеанса.ТекущийПользователь=Спр.НайтиПоРеквизиту("Пользователь1С", ИмяПользователя());

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

//где Пользователь1С, это реквизит справочника сотрудники, и именем как вбито в конфигураторе   

  Док.Пользователь=ПараметрыСеанса.Пользователь;