---

&НаСервере
Процедура АвторизацияНаСервере()
	
	
	ТекущийПользователь = Справочники.Пользователи.НайтиПоРеквизиту("Логин",Логин);
	Если ТекущийПользователь <> Справочники.Пользователи.ПустаяСсылка() И ТекущийПользователь.Пароль = Пароль Тогда
		ПараметрыСеанса.ТекущийПользователь = ТекущийПользователь;
		Сообщить("Авторизация успешна. Добро пожаловать"+ ТекущийПользователь);
	Иначе 
		Сообщить("Введены невеогые данные пользователя");
		
	КонецЕсли;
	
	
	ОбновлениеЗаголовка();
	
	
КонецПроцедуры

&НаКлиенте
Процедура Авторизация(Команда) 
	
	
	
	АвторизацияНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)

	ОбновлениеЗаголовка();
	
КонецПроцедуры
&НаСервере
Процедура ОбновлениеЗаголовка()

	Если ПараметрыСеанса.ТекущийПользователь = Справочники.Пользователи.ПустаяСсылка() Тогда
		Элементы.ТекущийПользователь.Заголовок = "Гость";
	Иначе
		Элементы.ТекущийПользователь.Заголовок = ПараметрыСеанса.ТекущийПользователь; 
	КонецЕсли;

	

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