Дорогие форумчане, подскажите, пожалуйста! Как можно в 1С 7.7 реализовать прогрессбар, чтобы он выполнялся в конкретном цикле?

Есть некий цикл по заполнению документов, с некоторыми условиями, в него бы хотелось встроить прогрессбар, чтобы видеть, что выполняется процесс

Буква Я

Упрт?

(0) он имитируется из текстовых буковок I на форме отчёта. В цикле по одной добавляй в строку с ними и выводи на форму, а рядом выводи процент обработанных данных тоже в тексте на форме отчёта

Если эстет - можно сделать синенькие n шрифтом WingDings, будут эстетичные квадратики.

Кст

у меня кой-где вот такой самодельный ПГб:

http://gyazo.com/f79720881736f8e32eaffd383ca18bc8

+7 ###_/Рег
в начале выводится заготовка ____/Рег
потом, по мере выполнения, "_" заменяются на "#"
всё это - через "Состояние..", ГК вида:
//        Стат="";
//        Для ф=1 По СЗ.РазмерСписка() Цикл
//            Стат = Стат+"_";
//        КонецЦикла;
//        //Рег.УстановитьЗначениеФильтра("Товар",СЗ,2);
//        Для ф=1 По СЗ.РазмерСписка() Цикл
//            
//                Стат="#"+Стат;
//                Стат = Лев(Стат, СЗ.РазмерСписка());
//                Состояние(Стат+"/Рег");

всё не так скушно, как смотреть на неподвижный экран

Цикл следующего вида:
Процедура Выполнить()
         Если НачНомер = 0 Тогда
        НачНомер = КонНомер
    КонецЕсли;
       Пока НачНомер <= КонНомер Цикл
        Док = СоздатьОбъект("Документ.ИзготовлениеПлат");
        Док.Новый();
        Док.НомерПлаты = НачНомер;
        Док.Изготовитель = Изготовитель;
        Док.ДатаИзготовления = ДатаИзготовления;
        Док.КоличествоПлат = КоличествоПлат;
        Док.Склад = Склад;
        Док.СкладПлат = СкладПлат;
        Спр = СоздатьОбъект("Справочник.Комплектующие");
        //Если (Спр.НайтиПоКоду("1",0)=1) и (Спр.НайтиПоКоду("2",0)=1) и (Спр.НайтиПоКоду("3",0)=1) и (Спр.НайтиПоКоду("4",0)=1) Тогда
        Спр.ВыбратьЭлементы();  
        Пока Спр.ПолучитьЭлемент() = 1 Цикл  
            Если Спр.Код = "5" Тогда
            Продолжить;
            КонецЕсли;
            Док.НоваяСтрока();
            Док.Номенклатура = Спр.ТекущийЭлемент();
            Док.Количество = 1;  
        КонецЦикла;  
    КонецЦикла;        
        НачНомер = НачНомер + 1;
        Док.Записать();
        Док.Провести();
        
    КонецЦикла;
    Если Док.НомерПлаты = КонНомер Тогда
        Предупреждение("Платы внесены и записаны",0);
        
    КонецЕсли;
КонецПроцедуры

(8) я делал что-то типа:

[..........] 0 %
[|||||.....] 50 %
[|||||||...] 70 %
[||||||||||] 100 %

ну, можно менять в строке состояния "-", "\", "|","/"
:-)
Только поможет ли это ТС, "ужаленому Чернобылем"?

(9) тихий ужас..

Ты пошто весь справочник в табличную часть документа запихал, это такк и надо ?

(12) чернобыль, куле....

(12) не весь. туда Спр.Код = "5" не попадает :)

(12) чтобы не каждый документ по отдельности записывать, а сразу скопом

у меня справочник то небольшой там всего 5 позиций в нем

(0) использование всякой ереси в виде СтатусСообщения(), Сообщить(), Форма.Обновить() в циклах приводит к значительной потере времени при формировании.

(17)

Если Счетчик%1000 = 0 Тогда

(4) вот такой код есть у меня:
Процедура Прогресс(_100,текЗн,двигать=1)
    текСост = Форма.бар.Заголовок();
    текПоз = Окр((текЗн*100/_100),0,0);
    стр = Лев(стрБаз,текПоз);
    //Для к=0 По текПоз Цикл
    //    стр = стр+"I";
    //КонецЦикла;
    пробСтр = "";
    Если двигать=1 Тогда
        Если СтрДлина(стр)>=9 Тогда
            пробСтр = Лев(СтрЗаменить(стр,"I"," "),СтрДлина(стр)-9);
        КонецЕсли;
    КонецЕсли;
    Шаг = СтрДлина(стр)-СтрДлина(текСост);
    Форма.Статус.Заголовок(пробСтр+СокрЛП(текПоз)+"%");
    Форма.бар.Заголовок(стр);
    Если Шаг=1 Тогда
        Форма.Обновить(1);
    КонецЕсли;
КонецПроцедуры //Прогресс()
скажи, он правильный?

смотрим видео
http://screencast.com/t/oDKx12IPs

у меня красивше и универсальный

http://i59.fastpic.ru/big/2014/0322/20/cafe12c0a7c204da4eed6261fd511a20.jpg

(17) скажите это тупым разработчикам типовых

(10) рост баяна

(23) надо так:
[:W:]
[:|||:]
[:\/\/:]