ПОДСТРОКА(&СтрокаПроценты, 1, ВЫРАЗИТЬ(ВложенныйЗапрос.Процент * &КоэффициентПроценты КАК ЧИСЛО(3, 0))) КАК ПроцентМикрографик   

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

    

    // Задать для каждого случая конкретно

    // В этой строке содержится шаблон для 100%

    // В реальной задаче можете изменить длинну, или заполнить другими символами

    СтрокаПроценты = "|||||||||||||||||||||||||||";	

    //СтрокаПроценты = "*************************";

    //СтрокаПроценты = "·························";

    //СтрокаПроценты = "•••••••••••••••••••••••••";

        

    // Считается автоматически

    ДлинаСтрокаПроценты = СтрДлина(СтрокаПроценты);

    КоэффициентПроценты	= ДлинаСтрокаПроценты / 100;

    ДинСписок.Параметры.УстановитьЗначениеПараметра("СтрокаПроценты", СтрокаПроценты);

    ДинСписок.Параметры.УстановитьЗначениеПараметра("КоэффициентПроценты", КоэффициентПроценты);

...   

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

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

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

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

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

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

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

КонецЦикла;    

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла; 

   

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

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

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

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



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

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

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

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

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

КонецЦикла;

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