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



Процедура СформироватьОтчет(Кнопка)

Элем = ЭлементыФормы.Добавить(Тип("Индикатор"), "Инд1", Истина);

Элем.Верх = ЭтаФорма.Высота - 20;

Элем.Высота = 25;

Элем.Ширина = 150;

Элем.ОтображатьПроценты = Истина;

Элем.МинимальноеЗначение = 1;

Элем.МаксимальноеЗначение = 100;

Состояние( "Выводим данные отчета");



Для сч = 1 по 100 Цикл

Для ф=1 по 1000 Цикл

//спим



КонецЦикла;

//ваш алгоритм обновления индикатора



Элем.Значение = сч;

ЭтаФорма.Обновить();

КонецЦикла;



ЭлементыФормы.Удалить(Элем);

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




✍️ @odin1C_rus