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

Перем ТекущаяРоль;

Функция ПроверитьПользователя(Логин, Пароль)

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | Пользователи.Роль КАК Роль
    |ИЗ
    | Справочник.Пользователи КАК Пользователи
    |ГДЕ
    | Пользователи.Логин = &Логин
    | И Пользователи.Пароль = &Пароль";

    Запрос.УстановитьПараметр("Логин", Логин);
    Запрос.УстановитьПараметр("Пароль", Пароль);

    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();

    Если Выборка.Следующий() Тогда
        ТекущаяРоль = Выборка.Роль;
        Возврат Истина;
    КонецЕсли;

    Возврат Ложь;

КонецФункции