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

 &НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    
    // Задать для каждого случая конкретно
    // В этой строке содержится шаблон для 100%
    // В реальной задаче можете изменить длинну, или заполнить другими символами
    СтрокаПроценты = "|||||||||||||||||||||||||||";	
    //СтрокаПроценты = "*************************";
    //СтрокаПроценты = "·························";
    //СтрокаПроценты = "•••••••••••••••••••••••••";
        
    // Считается автоматически
    ДлинаСтрокаПроценты = СтрДлина(СтрокаПроценты);
    КоэффициентПроценты	= ДлинаСтрокаПроценты / 100;
    ДинСписок.Параметры.УстановитьЗначениеПараметра("СтрокаПроценты", СтрокаПроценты);
    ДинСписок.Параметры.УстановитьЗначениеПараметра("КоэффициентПроценты", КоэффициентПроценты);
...   

 // Индикатор выполнения обработки результата запроса
Выборка = РезультатЗапроса.Выбрать(); 
Индикатор = ЭлементыФормы.ИндикаторПеребора; 
Индикатор.МаксимальноеЗначение = Выборка.Количество(); 
Индикатор.Значение = 0; 
Пока Выборка.Следующий() Цикл 
    Индикатор.Значение = Индикатор.Значение + 1; 
КонецЦикла;    

 // Индикатор выполнения вывода результата запроса с расширенной настройкой
Выборка = РезультатЗапроса.Выбрать(); 
Индикатор = ЭлементыФормы.ИндикаторПеребора; 
Индикатор.МаксимальноеЗначение = Выборка.Количество(); 
Индикатор.Значение = 0; 
Индикатор.ОтображатьПроценты = Истина; 
Индикатор.СтильОтображения = РежимСглаживанияИндикатора.Прерывистый; 
Индикатор.Ориентация = Ориентация.Вертикально; 
Индикатор.Шаг = 0.1; 
Пока Выборка.Следующий() Цикл 
    Индикатор.Значение = Индикатор.Значение + 1;
КонецЦикла; 
   

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

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

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

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



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

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

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

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

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

КонецЦикла;

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