Код на общей форме авторизации
&НаСервере
Процедура ВойтиНаСервере(Логин, Пароль, АвторизацияУспешна) Экспорт
Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
АвторизацияУспешна = Ложь;
Для каждого Пользователь Из Пользователи Цикл
Если Пользователь.Имя = Логин Тогда
АвторизацияУспешна = Истина;
Возврат;
КонецЕсли;
КонецЦикла;
АвторизацияУспешна = Ложь;
КонецПроцедуры
&НаКлиенте
Процедура Войти(Команда)
Если НЕ ЗначениеЗаполнено(Логин) Тогда
Предупреждение("Не заполнен логин");
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Пароль) Тогда
Предупреждение("Не заполнен пароль");
Возврат;
КонецЕсли;
АвторизацияУспешна = Ложь;
ВойтиНаСервере(Логин, Пароль, АвторизацияУспешна);
Если АвторизацияУспешна Тогда
Предупреждение("Вход выполнен успешно");
УправлениеАвторизацией.УстановитьПараметрСеанса("АвторизованПользователь", Истина);
Иначе
Предупреждение("Неверный логин или пароль");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Регистрация1(Команда)
Если НЕ УправлениеАвторизацией.ПроверитьАвторизацию() Тогда
Предупреждение("Доступ запрещен: необходимо выполнить авторизацию");
Возврат;
КонецЕсли;
ПолучитьФорму("ОбщаяФорма.Регистрация").Открыть();
КонецПроцедуры
Код на общем модуле УправленияАвторизацией
&НаСервере
Процедура УстановитьПараметрСеанса(ИмяПараметра, Значение) Экспорт
УстановитьЗначениеПараметраСеанса(ИмяПараметра, Значение);
КонецПроцедуры
&НаСервере
Функция ПолучитьПараметрСеанса(ИмяПараметра, ЗначениеПоУмолчанию) Экспорт
Возврат ПолучитьЗначениеПараметраСеанса(ИмяПараметра, ЗначениеПоУмолчанию);
КонецФункции
&НаКлиенте
Процедура УстановитьПараметрСеанса(ИмяПараметра, Значение) Экспорт
УстановитьЗначениеПараметраСеанса(ИмяПараметра, Значение);
КонецПроцедуры
&НаКлиенте
Функция ПолучитьПараметрСеанса(ИмяПараметра, ЗначениеПоУмолчанию) Экспорт
Возврат ПолучитьЗначениеПараметраСеанса(ИмяПараметра, ЗначениеПоУмолчанию);
КонецФункции
&НаСервереБезКонтекста
Функция ПроверитьАвторизацию() Экспорт
Возврат ПолучитьПараметрСеанса("АвторизованПользователь", Ложь);
КонецФункции Показать
Суть всей истории, что пока пользователь не пройдет авторизацию, то весь функционал базы ему заблокирован, но в общем модуле следующие ошибки
{ОбщийМодуль.УправлениеАвторизацией.Модуль(3,3)}: Процедура или функция с указанным именем не определена (УстановитьЗначениеПараметраСеанса)
<<?>>УстановитьЗначениеПараметраСеанса(ИмяПараметра, Значение); (Проверка: Сервер)
{ОбщийМодуль.УправлениеАвторизацией.Модуль(8,11)}: Процедура или функция с указанным именем не определена (ПолучитьЗначениеПараметраСеанса)
Возврат <<?>>ПолучитьЗначениеПараметраСеанса(ИмяПараметра, ЗначениеПоУмолчанию); (Проверка: Сервер)
{ОбщийМодуль.УправлениеАвторизацией.Модуль(13,3)}: Процедура или функция с указанным именем не определена (УстановитьЗначениеПараметраСеанса)
<<?>>УстановитьЗначениеПараметраСеанса(ИмяПараметра, Значение); (Проверка: Тонкий клиент)
{ОбщийМодуль.УправлениеАвторизацией.Модуль(18,11)}: Процедура или функция с указанным именем не определена (ПолучитьЗначениеПараметраСеанса)
Возврат <<?>>ПолучитьЗначениеПараметраСеанса(ИмяПараметра, ЗначениеПоУмолчанию); (Проверка: Тонкий клиент)