Индикатор процесса в строке состояния ... ?...!

Я очень люблю програссБар – по-русски индикатор процесса … куда бы его поместить …?

При использовании «элемента формы» часто его «таскаешь» туда-сюда и в итоге ему не оказывается места и каждый раз он оказывается в разных местах формы…

В итоге я его накладываю «сверху» на какой-нибудь элемент формы … Что очень неудобно и по «форме» и по «содержанию»…

Идея разместить индикатор в строку состояния … ))) … вот что получилось …

… ВОТ …

от Абадонны и Душелова — и просто и гениально и быстро и штатно — вызов и работа индикатора строки состояния:

Процедура КнопкаВыполнитьНажатие(Кнопка)

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

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

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

     

    ПР.НачатьВывод(); 

    Для А=1 По 100 Цикл 

        Эл.ПроцентВывода=А; 

        //задержка, чтобы разглядеть 

        Для Б=1 По 10000 Цикл КонецЦикла; 

        ПР.ВывестиЭлемент(Эл); 

    КонецЦикла 

    ПР.ЗакончитьВывод(); 

КонецПроцедуры

прошу всех оценить и выразить своЁ отношение к данным товарищам в виде плюсов в любых их разработках …

… ВОТ …

58 Comments

coder1cv8 27.10.2009 at 13:50

Боян! )

Reply ↓
Шёпот теней 27.10.2009 at 13:57

(1) … текст понятен … каков КОНтекст в ПОДтексте …

… согласен «в» или «с» : чем проще — тем бОянистее — или боЯнистее — или боянИстее — или боянистЕЕ … или …?

… вОт …

Reply ↓
vasilykushnir 27.10.2009 at 16:20

скрин где?! 👿

Reply ↓
Шёпот теней 27.10.2009 at 16:26

добавил «видимость» — сколько осталось до окончания … )))

(3) … чего там и скринить-то … бегутЬ палочки в строке состояния … но подчиняюсь товарищам … сейчас сделаю … уффф …

Reply ↓
Шёпот теней 27.10.2009 at 16:32

(3) …. не работает ПРИНТскрин при выполнении 1С … не получится со скрином … включаем видеоФантазию …

… вОт …

Reply ↓
vasilykushnir 27.10.2009 at 17:17

(5) 😀

Reply ↓
WiseSnake 28.10.2009 at 22:22

(5) Ух ты, а вот с этого места поподробней!

А как Вы средствами 1С отключили ПРИНТскрин?

Reply ↓
sashocq 28.10.2009 at 23:39

Думаю, это гениально!

И как это мне в голову не пришло?

Reply ↓
Шёпот теней 29.10.2009 at 02:44

(7) … ПРИНТскрин рАботает … но только либо ДО либо ПОСЛЕ запуска обработки … поэтому «заснять» вид индикатора в процессе работы не получатся а без него скрин, я так полагаю и не нужен … если у Вас получится я Вам буду блАгодарен …

(8) … СОгласен … всЁ гениальное просто … к сожалению, САМ сообразил только после «ветки» на Мисте с подобным вопросом … п.с. Думается только в общении и спорах рождаются идеи …

Reply ↓
Шёпот теней 29.10.2009 at 02:47

цифры и скобки = смайлики … начинается как в 1С — поставил галочку, НЕпоставил галочку, как поставил галочку, где поставил галочку …

(8) … СОгласен … всЁ гениальное просто … к сожалению, САМ сообразил только после «ветки» на Мисте с подобным вопросом …

п.с. Думается только в общении и спорах рождаются идеи …

Reply ↓
Шёпот теней 29.10.2009 at 02:48

(10) капец … вот …

Reply ↓
v.l. 29.10.2009 at 10:05

(0) А в чем разница в этих обработках — ИС и без ИС?

Reply ↓
Шёпот теней 29.10.2009 at 10:36

(12) … см. (4) …

первая версия — «бежит» индикатор — но не видно сколько осталось до окончания …

версия ИС — и индикатор «бежит» и видно сколько осталось до конца процесса …

… вот …

Reply ↓
WiseSnake 30.10.2009 at 08:17

(9)

Reply ↓
Шёпот теней 30.10.2009 at 09:33

(14) … убил … уничтожил … размазал … )))

покзал конфетку … расскажи как сделал …

ну НЕ УЖЕЛИ принтСкрин-ом … ??? или волшебным сочетанием клавишЬ …???

… ВОТубилВЕДЬ …

Reply ↓
anig99 30.10.2009 at 09:57

(16) на виртуальной машине или через терминал

Reply ↓
Шёпот теней 30.10.2009 at 10:06

(16) … нууу… тогДА это НЕчестно … ))) …

В операционной системе Windows нажатие клавиши Print Screen инициирует создание скриншота всего экрана, а нажатие Print Screen одновременно с клавишей Alt создаст скриншот активного окна.

…

Reply ↓
WiseSnake 30.10.2009 at 11:24

(15) Локально. ПринтСкрином но у меня стоит SnagIt (без него я и не пользовался ПринтСкрином никогда :)))

Reply ↓
WiseSnake 30.10.2009 at 11:27

(15) > покзал конфетку …

Ну если понравилось моГешь вставить в шапку сабжа 😉

Reply ↓
Шёпот теней 30.10.2009 at 11:30

(18) … ммм …

(19) … ага …

…вотСПАСИБОвставил…

Reply ↓
Шёпот теней 02.11.2009 at 12:13

просто так:

в общихМодулях в ОбщегоНазначения есть:

Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = «,») Экспорт

недавно на мисте увидел интересную идею по «разложить сторку на подстроки» со следующим механизмом:

«… заменить пробелы разделителем строк… и далее работать как с многострочным текстом …»

… может это для кого-то и не открытие но мне понравилась эта гениальная простота …

… вот …

Reply ↓
caponid 02.11.2009 at 12:33

Полезная штука)

используется очень давно в распределенном обмене данными

в стандартной форме выгрузки данных было замеряно, что на отрисовку рюшечек индикатора графикой используется 30% времени, с использование псевдографики в строке состояния затраты снизились на порядки.

рекомендую)

Reply ↓
tango 02.11.2009 at 13:52

а если так:

разместить на экране поверх 1ски что-нибуль еще, но так, чтоб прогрессбар был виден. запускаешь обработку, переключаешься в «что-нибудь еще» и жамкаешь принтскрин…?

Reply ↓
Шёпот теней 02.11.2009 at 14:12

(23) … мАэстро …. попробовал … ты гений … прокатило … !!! … )))

… ВОТведьКАКбывает…

Reply ↓
Abadonna 03.11.2009 at 03:18

…. не работает ПРИНТскрин при выполнении 1С … не получится со скрином …

А как я тогда сделал вот тут? 😮

http://www.infostart.ru/public/59436/

Reply ↓
yegorovnv 03.11.2009 at 06:37

зачем такой велосипед?

а пользоваться стандартной формой прогресс-бара из общих форм конфигурации????

Reply ↓
Шёпот теней 03.11.2009 at 07:59

(26) … это как …?

Reply ↓
Abadonna 03.11.2009 at 08:01

(27) Есть какая-то фича с длинющим названием… только я уж не помню, был коммент на одну из моих разработок, которую я снес

Reply ↓
Abadonna 03.11.2009 at 08:06

+(28) Там через какой-то (не помню!) стандартный объект 8.1 можно вывести прогресс-бар в статус-панель

Reply ↓
Abadonna 03.11.2009 at 08:14

Сань, что-то вроде

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

Reply ↓
Шёпот теней 03.11.2009 at 08:43

(30) … спасибо … будем маленько поискать … )))

… вот …

Reply ↓
Abadonna 03.11.2009 at 08:46

Начало, точно я уж изобразил 😉

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

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

ПР.НачатьВывод();

Индикатор появляется, процент стоит 0. Дальше лень колупаться

Reply ↓
Шёпот теней 03.11.2009 at 08:53

(26) , (30) … видимо ВЫ абсолютно прАвы … что-то есть :

ОбщийМодуль

ТиповыеОтчеты

Процедура ВывестиТиповойОтчет(ОтчетОбъект, Результат, ДанныеРасшифровки, ВыводВФормуОтчета = Истина, ВнешниеНаборыДанных = Неопределено, ВыводитьШапкуОтчетаНаВсехСтраницах = истина)

//Создадим и инициализируем процессор вывода результата

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

ПроцессорВывода.УстановитьДокумент(Результат);

…

//Обозначим начало вывода

ПроцессорВывода.НачатьВывод();

…

Пока Истина Цикл

…

//Элемент получен — выведем его при помощи процессора вывода

ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);

…

КонецЦикла;

//Обозначем завершение вывода

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

…

… вотВедьКакБывает …

Reply ↓
Шёпот теней 03.11.2009 at 08:55

(32) … пока я «колупался» с (33) ты меня уже «успел» … )))

… вот …

Reply ↓
Abadonna 03.11.2009 at 08:56

(33) А в либе я все-таки оставил метод стьатус-индикатора 😉

Ибо нема в 7.7 ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент

А в 8.1 мой не «забивает» строку состояния

Reply ↓
Шёпот теней 03.11.2009 at 09:10

//Создадим и инициализируем процессор вывода результата

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

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

ПР.НачатьВывод();

Для раз=1 По Элемент.Значение Цикл

ПР.ВывестиЭлемент(раз);

КонецЦикла;

//Обозначем завершение вывода

ПР.ЗакончитьВывод();

выдаЁт ошибку:

Ошибка при вызове метода контекста (ВывестиЭлемент): Несоответствие типов (параметр номер ‘1’)

ПР.ВывестиЭлемент(раз);

… как нужно ? … подскажите люди добрые … ВОТ …

Reply ↓
Шёпот теней 03.11.2009 at 09:30

думается мне — что тама требуется как объекту СКД «дать» ещё кучу входных данных:

КомпоновщикМакетаСведенияОбОрганизациях = Новый КомпоновщикМакетаКомпоновкиДанных;

МакетКомпоновкиСведенияОбОрганизациях = КомпоновщикМакетаСведенияОбОрганизациях.Выполнить(СхемаКомпоновкиДанныхСведенияОбОрганизациях, НастройкиСведенияОбОрганизациях);

ПроцессорКомпоновкиСведенияОбОрганизациях = Новый ПроцессорКомпоновкиДанных;

ПроцессорКомпоновкиСведенияОбОрганизациях.Инициализировать(МакетКомпоновкиСведенияОбОрганизациях);

… наверное не стоит овчинка выделки … поэтому и придумали «ИНДИКАТОР» …

… кто знает — подскажите … кто умеет — покажите … ВОТ …

Reply ↓
Abadonna 03.11.2009 at 09:45

(36) Хитрый 😀 Я на том же тормознулся, а дальше стало лень эксперименты проводить. Но будем посмотреть 😉

Reply ↓

Abadonna 03.11.2009 at 09:52

Процедура КнопкаВыполнитьНажатие(Кнопка)
ПР=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
Пр.ОтображатьПроцентВывода=Истина ;
ПР.НачатьВывод();
Для А=1 По 100 Цикл
Эл=Новый ЭлементРезультатаКомпоновкиДанных;
Эл.ПроцентВывода=А;
//задержка, чтобы разглядеть
Для Б=1 По 10000 Цикл КонецЦикла;
ПР.ВывестиЭлемент(Эл);
КонецЦикла
КонецПроцедуры

Показать

Reply ↓

Душелов 03.11.2009 at 10:20

(39) Я бы так сделал

Процедура КнопкаВыполнитьНажатие(Кнопка)
ПР=Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
Пр.ОтображатьПроцентВывода=Истина ;
Эл=Новый ЭлементРезультатаКомпоновкиДанных;

ПР.НачатьВывод();
Для А=1 По 100 Цикл
Эл.ПроцентВывода=А;
//задержка, чтобы разглядеть
Для Б=1 По 10000 Цикл КонецЦикла;
ПР.ВывестиЭлемент(Эл);
КонецЦикла
ПР.ЗакончитьВывод();
КонецПроцедуры

Показать

Reply ↓

Abadonna 03.11.2009 at 10:35

(39,40) Поломали мы Саньке кайф 😀

Reply ↓
Шёпот теней 03.11.2009 at 10:47

(39), (40) … УРА-аааа …

(41) … ужжжж и поломали … наОООбОООрОООт … навели …

кто же не знает величия О-Великих — Abadonna и Душелова …

… безгранично ВАМ благодарен … выражаю искреннее восхищение …

!!!

… ВОТ … знай великих … орешек знаний …

Reply ↓
Шёпот теней 03.11.2009 at 11:00

(39), (40) … для пущей справедливости добавил ваши посты в (0) …

с уважением Шёпот теней (в миру Александр Шишкин) … ВОТ …

Reply ↓
Abadonna 03.11.2009 at 11:25

(43) Ты мне лучше на мой индикатор плюс поставь, там «букафф» меньше 😀

SetStatusBarGauge()

StatusBarGaugePosition(Процент)

Reply ↓
Шёпот теней 03.11.2009 at 11:52

если «здесь» то я ужжж все твои комменты на+ …

а в разработках не нашЁл …

…вот…Великий…

Reply ↓
Abadonna 03.11.2009 at 14:48

(45) Проморгал свеженькую Miracle 😉

http://www.infostart.ru/public/59436/

Reply ↓
Збянтэжаны Саўка 27.05.2010 at 14:29

пилюс за … картинку на форме и за логотип ШТ 🙂

Reply ↓
Збянтэжаны Саўка 27.05.2010 at 14:35

(47) глюки: правка коммента не отображается сразу, а после … пока не уловил зависимости

а из двух файлов выложенных на скачку какой скачивать — то?

во втором файле постфикс ИС — это что значит, с ИнфоСтарта шо-ли?

а 1-й тогда откуда, хе-хе, от ШТ?

Да картинка класс! Можно я эту картинку позаимствую на свою обработку по импорту остатков ГСМ, вот сюда ?..

Reply ↓
Ткачев 19.10.2010 at 12:15

Как надпись «Вывод отчета», в начале индикатора поменять на другую ?

Reply ↓
Шёпот теней 19.10.2010 at 13:19

… если через способ Абадонны …

.. посмотрите оператор «ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент» если там есть замена текста то можно — иначе — то наверное никак … (((

… если получится то и нам расскажите … ! ..

… вот …

Reply ↓
hooligan_slx 30.09.2011 at 11:34

Немного переделал твою обработку под себя…бухгалтерам нравится что они могут отслеживать ход выполнения процесса!! За идею ставлю +!! ))

Reply ↓
iren_8807 09.10.2011 at 01:24

Хорошая работа!

Reply ↓
AruslanM 07.12.2011 at 12:11

Немного изменил под себя, спасибо, взял на вооружение.

Reply ↓
tormozit 23.12.2011 at 18:50

Признаюсь, тоже сам не догадался до такой возможности. Однако ее универсальное применение на мой взгляд неоправдано из-за дезориентирующей пользователя надписи «Вывод отчета» слева от прогресс-бара

Reply ↓
igormiro 04.01.2012 at 18:42

Мне интересно, а кто нибудь быстродействие такого индикатора замерял.

Мне кажется что 50 % ресурсов системы будет уходить на такой индикатор. Следующее под управляемыми формами не работает.

Reply ↓
edzz 04.03.2013 at 19:41

крутатенька

Reply ↓
yuraos 07.03.2013 at 20:15

Вот еще вариант вывода прогресса выполнения

просто в строку состояния процедурой Состояние()

с выводом процента выполнения и

возможностью реверсии «прогресс-бара».

—

Может не так красиво (не графический, текстовый «прогресс-бар»)

— зато не тормозит точно.

…ВОТ…

использован в обработке «Консоль запросов 1С + ADO»

в форме обработки выборки запроса.

Reply ↓
lagunovartur 16.05.2016 at 19:13

А как заменить слова вывод отчета на что нибудь свое?

Reply ↓

Индикатор процесса в строке состояния … ?…!

58 Comments

Leave a Comment Отменить ответ

Индикатор процесса в строке состояния … ?…!

Related Posts

58 Comments

Leave a Comment Отменить ответ