1С 8.2 УП : Индикатор выполнения

 // Индикатор выполнения обработки результата запроса

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

Индикатор = ЭлементыФормы.ИндикаторПеребора; 

Индикатор.МаксимальноеЗначение = Выборка.Количество(); 

Индикатор.Значение = 0; 

Пока Выборка.Следующий() Цикл 

    Индикатор.Значение = Индикатор.Значение + 1; 

КонецЦикла;    

 // Индикатор выполнения вывода результата запроса с расширенной настройкой

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

Индикатор = ЭлементыФормы.ИндикаторПеребора; 

Индикатор.МаксимальноеЗначение = Выборка.Количество(); 

Индикатор.Значение = 0; 

Индикатор.ОтображатьПроценты = Истина; 

Индикатор.СтильОтображения = РежимСглаживанияИндикатора.Прерывистый; 

Индикатор.Ориентация = Ориентация.Вертикально; 

Индикатор.Шаг = 0.1; 

Пока Выборка.Следующий() Цикл 

    Индикатор.Значение = Индикатор.Значение + 1;

КонецЦикла; 

   

 ПроцессорКомпоновки = Новый ПроцессорВыводаРезультатаКомпоновкиДанных

ВТабличныйДокумент;

ПроцессорКомпоновки.ОтображатьПроцентВывода = Истина ;

ЭлементКомпоновки = Новый ЭлементРезультатаКомпоновкиДанных;



ПроцессорКомпоновки.НачатьВывод();

//Считаем проценты по своему алгоритму, для примера:

Для Сч = 1 По 100 Цикл

   ЭлементКомпоновки.ПроцентВывода = Сч;

   ПроцессорКомпоновки.ВывестиЭлемент(ЭлементКомпоновки);

КонецЦикла;

ПроцессорКомпоновки.ЗакончитьВывод();