---

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

&НаСервере
Процедура ВойтиНаСервере()
    
    // Ищем перебором всех пользователей
    Выборка = Справочники.Пользователи.Выбрать();
    
    Пока Выборка.Следующий() Цикл
        
        Если Выборка.Логин = ЛогинВвода Тогда
            
            Если Выборка.Пароль = ПарольВвода Тогда
                ОткрытьФорму("ОбщаяФорма.Главная", Новый Структура("Роль", Выборка.Роль));
                Закрыть();
                Возврат;
            Иначе
                Предупреждение("Неверный пароль");
                Возврат;
            КонецЕсли;
            
        КонецЕсли;
        
    КонецЦикла;
    
    Предупреждение("Пользователь не найден");
    
КонецПроцедуры







&НаКлиенте
Процедура Гость(Команда)
    ВойтиГостем();
КонецПроцедуры

&НаСервере
Процедура ВойтиГостем()
    ОткрытьФорму("ОбщаяФорма.Главная", Новый Структура("Роль", "Гость"));
    Закрыть();
КонецПроцедуры