ProgresBar для выборки - NAV: Программирование

art06 · 26.02.2007, 15:17

Добрый день.
Предположим есть:

Repaet
Until

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

Dial.OPEN('Выполнение @1@@@@@@@');
I_COUNT := Employee1.COUNT;
Repeat
I := I + 1;
Dial.UPDATE(1,ROUND((I / I_COUNT * 10000),1));
Until
-----------------
А, вот если много вложенных :
REPEAT

REPEAT2

REPEAT3
UNTIL3

UNTIL2

UNTIL

как в этом случае написать код - чтобы один прогресс отображал все действия ?????

romeo · 26.02.2007, 15:24

Видимо так.

Код:

Dial.OPEN('Выполнение @1@@@@@@@\' +
	'Выполнение @2@@@@@@@\' + 
	...
	'Выполнение @n@@@@@@@');

в своих циклах выполнять

Код:

Dial.UPDATE(1,ROUND((I / I_COUNT * 10000),1));
Dial.UPDATE(2,ROUND((J / J_COUNT * 10000),1));
Dial.UPDATE(n,ROUND((K / K_COUNT * 10000),1));

Чета не получается у меня код оформлять -))
ПС. Получилось )

art06 · 26.02.2007, 15:26

я такой вариант уже делал.
И хотел узнать как можно в одном прогрессе отобразить всё

romeo · 26.02.2007, 15:33

Цитата:

Сообщение от art

я такой вариант уже делал.
И хотел узнать как можно в одном прогрессе отобразить всё

Описанный в предыдущем посте способ не отобразит одно окно диалога с n прогрессами?? Ведь OPEN мы вызываем один раз, с тремя переменными.

art06 · 26.02.2007, 15:40

Я хотел узнать - как в одном прогрессе @1@@@@@@@@.
А, вы предлагаете вариант с один диалоговым окном , и несколькими прогрессами
@1@@@@@@@@
@2@@@@@@@@

romeo · 26.02.2007, 15:48

Цитата:

Сообщение от art

Я хотел узнать - как в одном прогрессе @1@@@@@@@@.
А, вы предлагаете вариант с один диалоговым окном , и несколькими прогрессами
@1@@@@@@@@
@2@@@@@@@@

1 Игнорируйте вложенные циклы. Обновляйте только в первом.
2 Посчитать колво обрабатываемых записей во всех циклах и это считать общим COUNTом. В последнем вложенном цикле наращивать значение счетчика, сдвигая значение прогресса.

randrews · 26.02.2007, 15:57

Цитата:

Сообщение от art

Добрый день.
Dial.OPEN('Выполнение @1@@@@@@@');
I_COUNT := Employee1.COUNT;
Repeat
I := I + 1;
Dial.UPDATE(1,ROUND((I / I_COUNT * 10000),1));
Until

Цитата:

Сообщение от art

И хотел узнать как можно в одном прогрессе отобразить всё

Зависит от того, какой код будет во вложенных циклах.
Для общего случая -
Вариант 1) Если есть возможность быстро вычислить сумарное количество итераций, то Вы сами выше напеисали код.
Вариант 2) Остается только неравномерное движение прогрес бара.
Например

Код:

Dial.OPEN('Выполнение @1@@@@@@@');
I_COUNT := Employee1.COUNT;
REPEAT
   I := I + 1;
   J_COUNT := SomeTable.COUNT;  
   J :=  0;
   REPEAT
	  J := J + 1; 
	  Dial.UPDATE(1,ROUND(((I+J / J_COUNT ) / I_COUNT * 10000),1));
   UNTIL SomeTable.NEXT = 0;
UNTIL Employee1.NEXT = 0;

P.S. J обнулить забыл

Ну и FIND если надо поставьте

romeo · 26.02.2007, 16:03

Код не анализировал, но это J_COUNT := SomeTable.COUNT; нужно вынести из цикла.

randrews · 26.02.2007, 16:05

Цитата:

Сообщение от romeo

Код не анализировал, но это J_COUNT := SomeTable.COUNT; нужно вынести из цикла.

Я там упоминул, что зависит от кода от кода внутри цикла. Соответственно на SomeTable могут накладываться фильтры. Если не накладывать, то это вариант 1, в котором можно быстро вычислить количество итераций I_COUNT*J_COUNT - и тогда этот код вообще не нужен !!!
Приведенный код это для сложного случая.
PS А код я и сам не анализировал толком

Вроде должно работать.

art06 · 26.02.2007, 16:10

Цитата:

Сообщение от romeo

Цитата:

Сообщение от art

Я хотел узнать - как в одном прогрессе @1@@@@@@@@.
А, вы предлагаете вариант с один диалоговым окном , и несколькими прогрессами
@1@@@@@@@@
@2@@@@@@@@

1 Игнорируйте вложенные циклы. Обновляйте только в первом.
2 Посчитать колво обрабатываемых записей во всех циклах и это считать общим COUNTом. В последнем вложенном цикле наращивать значение счетчика, сдвигая значение прогресса.

1) если кол-во в первом цикле будет = 1. Тогда , если вся выборка займет например час - то, пользователь увидит 0%, и через час 100%
2) Как я могу посчитать кол-во во всех циклах - если внутренние циклы постоянно имеют разное кол-во записей.

Цитата:

Сообщение от randrews

Цитата:

Сообщение от art

Добрый день.
Dial.OPEN('Выполнение @1@@@@@@@');
I_COUNT := Employee1.COUNT;
Repeat
I := I + 1;
Dial.UPDATE(1,ROUND((I / I_COUNT * 10000),1));
Until

Цитата:

Сообщение от art

И хотел узнать как можно в одном прогрессе отобразить всё

Зависит от того, какой код будет во вложенных циклах.
Для общего случая -
Вариант 1) Если есть возможность быстро вычислить сумарное количество итераций, то Вы сами выше напеисали код.
Вариант 2) Остается только неравномерное движение прогрес бара.
Например

Код:

Dial.OPEN('Выполнение @1@@@@@@@');
I_COUNT := Employee1.COUNT;
REPEAT
   I := I + 1;
   J_COUNT := SomeTable.COUNT;  
   J :=  0;
   REPEAT
	  J := J + 1; 
	  Dial.UPDATE(1,ROUND(((I+J / J_COUNT ) / I_COUNT * 10000),1));
   UNTIL SomeTable.NEXT = 0;
UNTIL Employee1.NEXT = 0;

P.S. J обнулить забыл

Ну и FIND если надо поставьте

Получается прогресс будет прыгать , то вперед, то назад ?

randrews · 26.02.2007, 16:14

[quote=art;357412]

Цитата:

Сообщение от romeo

Получается прогресс будет прыгать , то вперед, то назад ?

Почему? Может я чего-то не вижу. Будет по I равномерно идти, а по J - в зависимости от кода. То есть
1 итерация первого цикла (вложенный цикл большой)
2 итерация первого цикла (вложенный цикл маленький)
3 итерация первого цикла (вложенный цикл большой)
Должно - треть прогресс бара идти медленно, вторая треть быстро, третья медленно.

Ах, да. I := I + 1 лучше в конец поставить - ошибся.
Перед UNTIL Employee1.NEXT = 0;

art06 · 26.02.2007, 16:31

Но, это случай когда обязательно попадешь в самый последний цикл ?

Возможен ли вариант - приращение прогресса после каждого FIND ?

randrews · 26.02.2007, 16:40

Цитата:

Сообщение от art

Но, это случай когда обязательно попадешь в самый последний цикл ?

Возможен ли вариант - приращение прогресса после каждого FIND ?

??? Не понял. Что значит после каждого FIND?
У вас первый цикл состоит, например из 2х итераций. Каждый внутренний из 5.
Результат - равномерно по 10% прогрессбара будет ползти.

Вы хотите, перед вторым циклом увеличился прогресс? Тогда у вас сразу прогресс скакнет на 50%. То есть такой вариант есть - его предложил romeo - учитывать только первый цикл.

grif · 26.02.2007, 16:44

Вобще перерисовку прогресс бара лучше делать не прик аждой итерации, а раз в какое-то число

нужно делать неравномерно , ведь даже в виндовсе этим не побрезговали

art06 · 26.02.2007, 16:44

Dial.OPEN('Выполнение @1@@@@@@@');
I_COUNT := Employee1.COUNT;
REPEAT
I := I + 1;
J_COUNT := SomeTable.COUNT;
J := 0;
REPEAT
J := J + 1;
Dial.UPDATE(1,ROUND(((I+J / J_COUNT ) / I_COUNT * 10000),1));
UNTIL SomeTable.NEXT = 0;
UNTIL Employee1.NEXT = 0;

По этому примеру - если я не попаду в цикл REPEAT по SomeTable, то прогесса не будут Правильно ?

grif · 26.02.2007, 16:47

Цитата:

Сообщение от art

По этому примеру - если я не попаду в цикл REPEAT по SomeTable, то прогесса не будут Правильно ?

Ну и что? Зато при следущей он может будет, это ведь не независимые прогрессы, а подпрогресс. Опять же, помню при установке винды такое где-то было - в 2 или 3 прогресса и последний мог пробегать моментом, а мог бежать плавно

art06 · 26.02.2007, 16:47

Цитата:

Сообщение от grif

Вобще перерисовку прогресс бара лучше делать не прик аждой итерации, а раз в какое-то число

нужно делать неравномерно , ведь даже в виндовсе этим не побрезговали

Если делать перерисовку через определленое кол-во записей - то, если пользователь свернет Nav, потом например через 10 минут развернет окно Nav, он не увидет процент прогресса пока не будет обновленно окно.

randrews · 26.02.2007, 16:49

Цитата:

Сообщение от art

Dial.OPEN('Выполнение @1@@@@@@@');
I_COUNT := Employee1.COUNT;
REPEAT
I := I + 1;
J_COUNT := SomeTable.COUNT;
J := 0;
REPEAT
J := J + 1;
Dial.UPDATE(1,ROUND(((I+J / J_COUNT ) / I_COUNT * 10000),1));
UNTIL SomeTable.NEXT = 0;
UNTIL Employee1.NEXT = 0;

По этому примеру - если я не попаду в цикл REPEAT по SomeTable, то прогесса не будут Правильно ?

Правильно. Если надо добавьте еще Dial.UPDATE. Но учтите поправку grif
И не забудьте I := I + 1 в конец перенести

grif · 26.02.2007, 16:49

Цитата:

Сообщение от art

Если делать перерисовку через определленое кол-во записей - то, если пользователь свернет Nav, потом например через 10 минут развернет окно Nav, он не увидет процент прогресса пока не будет обновленно окно.

Ну надо поймать примерно такую частоту итераций, чтоб окно перерисовывалось не по несколько раз в секунуду, но и не раз в пол часа, а то это замедлит обработку.

art06 · 26.02.2007, 16:53

Хорошо. Вообще-то пример понятен. Буду пробовать . СПАСИБО всем.