[randrews]

Цитата:

Сообщение от 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 в конец перенести