Индикатор отчета для Обычных форм

miha 126 1 7 1

Статус показать вывести выводить обработка обработки индикатор индикация прогресса

Источник: https://forum.mista.ru/topic.php?id=439865

Процедура СформироватьОтчет(Кнопка)
    Элем = ЭлементыФормы.Добавить(Тип("Индикатор"), "Инд1", Истина);
    Элем.Верх = ЭтаФорма.Высота - 20;
    Элем.Высота = 25;
    Элем.Ширина = 150;
    Элем.ОтображатьПроценты = Истина;
    Элем.МинимальноеЗначение = 1;
    Элем.МаксимальноеЗначение = 100;
    Состояние( "Выводим данные отчета");
    
    Для сч = 1 по 100 Цикл
        Для ф=1 по 1000 Цикл
           //спим
 
        КонецЦикла;
       //ваш алгоритм обновления индикатора
 
        Элем.Значение = сч;        
        ЭтаФорма.Обновить();
    КонецЦикла;
    
    ЭлементыФормы.Удалить(Элем);
КонецПроцедуры

Процедура СформироватьОтчет(Кнопка)
    Элем = ЭлементыФормы.Добавить(Тип("Индикатор"), "Инд1", Истина);
    Элем.Верх = ЭтаФорма.Высота - 20;
    Элем.Высота = 25;
    Элем.Ширина = 150;
    Элем.ОтображатьПроценты = Истина;
    Элем.МинимальноеЗначение = 1;
    Элем.МаксимальноеЗначение = 100;
    Состояние( "Выводим данные отчета");
    
    Для сч = 1 по 100 Цикл
        Для ф=1 по 1000 Цикл
           //спим
 
        КонецЦикла;
       //ваш алгоритм обновления индикатора
 
        Элем.Значение = сч;        
        ЭтаФорма.Обновить();
    КонецЦикла;
    
    ЭлементыФормы.Удалить(Элем);
КонецПроцедуры