Загрузка данных

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

    РольПользователя = ПроверитьЛогинИПароль(Логин, Пароль);

    Если РольПользователя = "" Тогда
        Сообщить("Неверный логин или пароль");
        Возврат;
    КонецЕсли;

    Если РольПользователя = "Админ" Тогда
        ОткрытьФорму("ОбщаяФорма.МенюАдмина");
    ИначеЕсли РольПользователя = "Менеджер" Тогда
        ОткрытьФорму("ОбщаяФорма.МенюМенеджера");
    ИначеЕсли РольПользователя = "Пользователь" Тогда
        ОткрытьФорму("ОбщаяФорма.МенюПользователя");
    Иначе
        Сообщить("Неизвестная роль пользователя");
        Возврат;
    КонецЕсли;

    Закрыть();

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