Автовозврат к дате при неправильной дате в ВвестиДату

Форум Программирование Общие вопросы программирования (Dev)

1. user774076 27.02.21 21:27 Сейчас в теме

Здравствуйте, хочу, чтобы при выборе неправильной даты в ВвестиДату пользователь опять возвращался к выбору дату. Написал, все работает, но может есть более красивое решение

&НаКлиенте
Процедура СформироватьОтчёт(Команда)
    ДатаОтчёта = '00010101';
    Подсказка = "Выберите дату, на конец которой надо сформировать отчёт";
    ЧастьДаты = ЧастиДаты.Дата;
    А = 0;
    
    Пока А = 0 Цикл
        Если ВвестиДату(ДатаОтчёта, Подсказка, ЧастьДаты) Тогда
            Если ДатаОтчёта >= ТекущаяДата() Тогда
                Предупреждение("Отчёт может быть составлен только на дату меньше текущей даты!");
            Иначе
                А = 1;    
            КонецЕсли;        
        Иначе
            Возврат;
        КонецЕсли;
    КонецЦикла;
    
    СформироватьОтчётНаСервере();
КонецПроцедуры

Показать

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Alexei_Siva 205 28.02.21 13:03 Сейчас в теме

Очевидно, что переменная A и манипуляции с ней это излишество и можно без этого обойтись
как-то так, например

 Пока ДатаОтчёта >= ТекущаяДата() или ДатаОтчёта  = Дата(1,1,1) Цикл
        Если ВвестиДату(ДатаОтчёта, Подсказка, ЧастьДаты) Тогда
            Если ДатаОтчёта >= ТекущаяДата() Тогда
                Предупреждение("Отчёт может быть составлен только на дату меньше текущей даты!");    
            КонецЕсли;        
        Иначе
            Возврат;
        КонецЕсли;
    КонецЦикла;

Показать

3. braynt 57 28.02.21 17:23 Сейчас в теме

Используйте "ПоказатьВводДаты"!

Оставьте свое сообщение

E-mail: