перерасчет зарплатного журнала

[Corleone]

Цитата:

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

я чего то недопонимаю может быть ... но объясните мне как может работать код

IF FIND('+') THEN
BEGIN
REPEAT
...
...
UNTIL FIND('+');
END
в приведенном примере будет всего одна итерация насколько я понимаю!

Не буду комментировать каждую строку, но там не одна итерация, из-за того, что FIND('+')=TRUE всегда когда есть записи, а там ещё DELETE.

Цитата:

// UNTIL NEXT(-1) = 0;
вы предлагаете поменять на
UNTIL FIND('+');
Вы для какой версии приводите код?

3.7
Да, хотя я уже сомневаюсь что только это, щас ещё перепроверю.