Доброго времени!
Подскажите пожалуйста, как в ниже приведенном примере сделать так, чтобы после каждого прохода "вложенного" for в for процедура не останавливалась в ожидании нажатия клавиши:

{bislogin.i}

def var mtext as longchar no-undo.

for each loan where loan.contract eq "Кредит" no-lock:
for each loan-acct where loan-acct.contract eq loan.contract
and loan-acct.cont-code eq loan-acct.cont-code
no-lock:
mtext = mtext
+ loan.cont-code
.
end.
end.

или может запрос надо по другому писать?

Тот код который вы написали сообственно ничего не ожидает. Так понимаю, что еще предполагался вывод на экран или еще что-то.

Да, mtext потом через bispc в Excel...
Но суть не в этом, а в том, что после того как отрабатывает "внутренний" for, то процедура ждет нажатия any key и так каждый раз...

визуализируется ситуация к примеру так:

{bislogin.i}

def var mtext as longchar no-undo.

for each loan where loan.contract eq "Кредит" no-lock:
for each loan-acct where loan-acct.contract eq loan.contract
and loan-acct.cont-code eq loan-acct.cont-code
no-lock:
disp loan.cont-code.
end.
end.

Извиняюсь!
Вопрос снят, это просто долго процедура отрабатывала, данных много оказалось...

еще раз извините...

Извиняться тут не за что

А вообще, на будущее, когда возникает ситуация как вы описываете (ждет нажатия any key). Пробуйте поставить pause(0).

ок, спс!