|
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, то прогесса не будут Правильно ?
|