Есть ли готовая разработка сабж? Хотелось бы при выполнении запроса или формировании таблички или печатной формы отрисовать процесс выполнения задачи. Для формирования табличек понимаю как сделать, а вот для запроса... На время выполнения запроса 1С все равно в ступор уйдет, остается только рисовать процесс переваривания выборки запроса.

можно вот так
||||||||||||||||||60%||||

лучше так
[=]/\/\/\/\/\/60%/\/\/\[:]

А куды все это выводить? Как думаете, лучше на форме в текстовом поле нарисовать или через Состояние() в статусбаре? Где прикольнее?

я делаю в Состоянии %

(0) поищи по форуму, уже было и вариант был как организовать параллельный процесс, там ВК если мне память не изменяет.

(3) в статус лучше. Стандартней.

(6)+1... только выводи каждые 1000 итераций - а то времени много кушать вывод будет... у меня по терминалу на 10000 установок состояния (разного - наименований номенлатуры обрабатываемой) - ушло примерно 3 минуты... что по отладчику - составило 90% всего времени :)

смотря какой запрос...

(7) Думаю, что не через 1000 надо, а общее число итераций делить на 20 к примеру. Правда, если шаг вычислить возможно будет...

ДА ладно у меня вот в 1с когда отчет вариться анегдот вываливается, чтоб юзвер не скучал :-)

(10) Лучше порнушку ему показывай...

(11) не

(11) Порнушку в статус-баре? А что, это будет забавно. Народ будет запускать отчеты и пристально всматриваться в низ монитора...

(0) Посмотри RiK_SQL, раздел "Окно сообщения".

(13) ага, стриптиз, при 100% - снимается последняя часть одежды

(13) Анекдот в статусе - тоже забавно :-)

(0)
:)
или вот
[:]||||||||||||||||||||||||||[:]

(14) - Спасибо. Красивая обработка. Сейчас прикручу...

(10) а к башоргу, за свежими анекдотами, у Вас отчет умеет подключаться?

(19) это давно всё есть.. и на инфостарте валяется..

(0) Вот процедура:

Процедура Прогресс(Текущий, Максимальный) Экспорт
                 
   Перем СимволовМакс; // Сколько знакомест отводить для всей полосы прогресса
   Перем СимволовТек;
   
   Перем ПолосаПрогресса;
   
   Перем Ш; // Счетчик
   
   // Рассчитаем количество символов для линейки
   СимволовМакс = 60;
   СимволовТек =  Цел(Текущий * СимволовМакс / Максимальный);

  // Теперь начинаем формировать полосу прогресса
   ПолосаПрогресса = " <";
   Для Ш = 1 По СимволовТек Цикл
       ПолосаПрогресса = ПолосаПрогресса + "|";
   КонецЦикла;    
   Для Ш = 1 По (СимволовМакс - СимволовТек) Цикл
       ПолосаПрогресса = ПолосаПрогресса + "-";
   КонецЦикла;    
   ПолосаПрогресса = ПолосаПрогресса + ">";

   // И отобразим
   Состояние(ПолосаПрогресса);
   
КонецПроцедуры


Но тут с циклами, лучше переделать на вырезание подстроки нужной длины из строк-заготовок типа "|||||||||||||||||||||||||||||||||||||" и "-------------------------", будет быстрее

(21) - С помощью Rik-компоненты кошернее выглядит все.
Вот еще бы два прогресс-бара можно было показать! Один - общий для всех этапов формирования отчета, второй - для текущего этапа.

А есть в 7-ке обработчик прерывания пользователем?

(23) он там не нужен. выскакивает окно "Прервать?"

(24) Если использую Риковскую ВК, мне надо при прерывании формирования отчета пользователем убить окно прогресс-бара.

// функция возвращает строку индикатор длиной 100 символов
Функция Обмен_Индикатор(значение, максимум=100)
   Если максимум > 0 Тогда
       Длина=50;            
       
       Если значение<=0 тогда
           стр="";
           Для е = 1 по Длина Цикл
               стр=стр+".";
           КонецЦикла;    
   
           Возврат "[" + стр + "]";
       КонецЕсли;
       
       е1="";            
       Для е = 1 По Длина Цикл
           Если е<=((значение*Длина)/максимум) Тогда
               е1=е1+"|";
           Иначе
               е1=е1+".";
           КонецЕсли;        
       КонецЦикла;
       Возврат "[" + е1 + "]";
   Иначе
       Возврат "";
   КонецЕсли;
КонецФункции

(26)+

вид

[||||||.......]

(25) Я бы сделал так: текст на форму, в него функцию.
В функции проверка: если есть окно статуса, то убить его.

(28) чуточку недопонял:
В функции проверка: если есть окно статуса, то убить его.
Какое такое окно статуса?

(29) Пятница? Разумеется, прогресса :-)

(30) При этом подразумевается, что на форме отчета ничего не должно изменяться. Так ведь? У меня просто порой на форме рисуется количество считанных и обработанных документов...

(31) Почему подразумевается?

Если на форме что-то поменялось, то обработчик текстового поля сработает и убьет прогресс-бар. Или не так?

(33) А он нужен при интерактивной работе? А то, пока процедура отчета работает, эта функция вызываться не будет...

Данная функция вызывается только при интерактивной работе с формой.

Ну смотри: Отработал запрос, получили выборку, начинаем бегать по выборке, идет обработка. Здесь прогресс нужен и даже очень. А так как мы бегаем по выборке в цикле, то и прогресс будет рисовать актуальное состояние.

(35) - вот это уже понятнее. Попробую.

(26) Тоже цикл. Плохо.

Как вариант:
В справочнике Контрагенты, создать группу "НекоторыеКонтрагенты", туда побросать этих Контрагентов некоторых и уже при формировании отчета, смотреть входит ли Контрагент в эту группу или нет.:)

(39) Опять боты на сервер напали?

+(40) не на сервер, а на форум то есть

(38) можно так попробовать:
Перем РазмерБара,спТ,спП;
Процедура ПриОткрытии()
   РазмерБара = 60;
   Т = ".";
   П = "|";
   спТ = СоздатьОбъект("СписокЗначений");
   спП = СоздатьОбъект("СписокЗначений");
   Для Сч = 1 По РазмерБара Цикл
       спТ.ДобавитьЗначение(Т);
       спП.ДобавитьЗначение(П);
       Т = Т + ".";
       П = П + "|";
   КонецЦикла;
КонецПроцедуры
   
   Функция ПрогрессБар(ТекЗначение,ВсегоЗначений)
       Шаг = ЦЕЛ(ВсегоЗначений / РазмерБара);
       ТекПолосочка = ЦЕЛ(ТекЗначение / Шаг);
       Если ТекПолосочка = (ТекЗначение / Шаг) Тогда
           Состояние("["+спП.ПолучитьЗначение(ТекПолосочка+1)+спТ.ПолучитьЗначение(РазмерБара - ТекПолосочка)+"]");
       КонецЕсли;
   КонецФункции      

Чтобы циклов не было...

(42) не универсально, все должно быть внутри самой функции, и она еще возвращять должна, чтобы в любом разе использовать
+ при неизвестном максимуме должно бегать как в загрузке хп

(42)ашоб мерцания небылоб при таких СБ...

(44)пятницо?

(45) Если ТекПолосочка = (ТекЗначение / Шаг) Тогда
Вот тут анти-мерцание с заданным шагом...

(43) У меня все внутри, кроме текущего и максимального значений.
А как ты нарисуешь при неизвестном максимуме? На глазок?

спП.ПолучитьЗначение(ТекПолосочка+1) - это чо внутри
2. по времени и без внешних для функции переменных

(42) Да проще надо сделать:
Т = ":::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::";
П = "|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||";

и все

(51) Ну наверное все-таки надо добавить еще такую конструкцию:
Состояние Лев(П,ТекЗначение)+Лев(Т,РазмерБара-ТекЗначение);

ага ... вот только при запросе работать не будет... да и так тормозов добавит

С шагом в свое время не стал заморачиваться, сделал время

Функция глИндикатор(Предел=1,Текущий=0,Количество=100,Знак="|",Элемент="",Цвет=8388608, Проценты=-1,Комментарий="",Период=100,Начало=0,Сост=0,Стр="") Экспорт
// Функция отображения процесса выполнения
// Предел - максимальное значение процесса
// Текущий - текущее значение процесса
// Количество - количество знаков при 100%
// Знак - символ в строке прогресса
// Элемент - атрибут формы в котором выводится прогресс
// Проценты - режим вывода процента выполнения
//        Проценты = -1 - выводить проценты слева от прогресса
//        Проценты = 1 - выводить проценты справа от прогресса
// Период - период смены состояния прогресса в миллисекундах
// Начало - передается по ссылке, фиксирует предидущее состояние.
// Сост = 1 - выводить прогресс в строке состояния
// Стр - передается возвращаемая самой функцией (если необходимо)
//
// Пример вызова
//
// Максимум=КоличествоСтрок();
// Начало=_GetPerformanceCounter();
// Стр=глИндикатор(Максимум,,250,,Форма.Индикатор,,,"Обработка строк документа...",,Начало,1,Стр)
// ВыбратьСтроки();
// Пока ПолучитьСтроку()=1 Цикл
//     ОбработкаСтроки(НомерСтроки);//Какие то действия
//     Стр=глИндикатор(Максимум,НомерСтроки,250,,Форма.Индикатор,,,"Обработка строк документа...",,Начало,1,Стр)
// КонецЦикла;
//
   Перем СтрЛев,СтрПрав;
   Если (Предел=0) Тогда
       Текущий=1;
       Предел=1;
   КонецЕсли;
   Доля=Текущий/Предел;
   ТекущееКоличество=Количество*Доля;
   Если (_GetPerformanceCounter()-Начало<Период) и (ПустоеЗначение(Начало)=0) Тогда
       Возврат Стр;
   КонецЕсли;
   Стр=Формат(100*Доля,"Ч6.2")+"%";
   СтрПрав=РазделительСтрок+Комментарий;
   Если Проценты=-1 Тогда
       СтрЛев=Стр;
   ИначеЕсли Проценты=1 Тогда
       СтрПрав=Стр+СтрПрав;
   КонецЕсли;
   Стр=СтрЛев+СтрЗаменить(Формат("","С"+ТекущееКоличество)," ",Знак)+СтрПрав;
   Если ТипЗначенияСтр(Элемент)="НеизвестныйОбъект" Тогда
       Элемент.Цвет(Цвет);
       Элемент.Заголовок(Стр);
   КонецЕсли;
   Если Сост=1 Тогда
       Состояние(Стр);
   КонецЕсли;
   Начало=_GetPerformanceCounter();
   Возврат Стр;
КонецФункции    // глИндикатор


да там в состоянии лучче так

Состояние(СтрЛев+СтрЗаменить(Формат("","С"+(ТекущееКоличество*80/Передел))," ",Знак)+СтрПрав);

Да и Стр передавать и получать по ссылке

Вопрос следующий.
В ПУБе есть заявка - по совместительству счет (печатная форма). Отдельно электронного счета нет (точнее он был, а потом его убрали). При выписке счета вводим заявку, не проводя ее. Печатаем и ждем оплаты. После оплаты проводим. Проблема в том что после оплаты проходит много времени, вводят много документов, проводя ее портим последовательность. Кроме того резерв она рассчитывает, я посмотрел, на позицию документа. Т.е. если после нее этот товар уже зарезервировали другой заявкой, она все равно его зарезервирует, получиться что более поздней заявке потом не хватит количества.
Може я что не правильно делаю ?