---

&НаКлиенте
Процедура ПолзунокПриИзменении(Элемент)
    Элементы.Часть1.Видимость = Ложь;
    Элементы.Часть2.Видимость = Ложь;
    Элементы.Часть3.Видимость = Ложь;
    Элементы.Часть4.Видимость = Ложь;
    
    Если Ползунок >= 35 Тогда Элементы.Часть1.Видимость = Истина; КонецЕсли;
    Если Ползунок >= 50 Тогда Элементы.Часть2.Видимость = Истина; КонецЕсли;
    Если Ползунок >= 80 Тогда Элементы.Часть3.Видимость = Истина; КонецЕсли;
    Если Ползунок >= 95 Тогда Элементы.Часть4.Видимость = Истина; КонецЕсли;
    
    КапчаПройдена = (Ползунок >= 100);
    Если КапчаПройдена Тогда
        Сообщить("Картина собрана! Теперь можно войти.");
    КонецЕсли;
КонецПроцедуры

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

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