for each ... for each ... end. end. Как сделать так, чтобы...

[Igor.T]

Доброго времени!
Подскажите пожалуйста, как в ниже приведенном примере сделать так, чтобы после каждого прохода "вложенного" 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 + ";" + loan-acct.acct + ";".
end.
end.

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

[fetchxxx]

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


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

Если опишете желаемый результат (что хотите получить), будет проще подсказать нужный код.
Приведенный вами пример будет работать ооочень долго...

[kabysdox]

Лучше так:
for each loan where loan.contract eq "Кредит" no-lock,
each loan-acct where loan-acct.contract eq loan.contract
and loan-acct.cont-code eq loan-acct.cont-code
no-lock:

[Igor.T]

Лучше так:
for each loan where loan.contract eq "Кредит" no-lock,
each loan-acct where loan-acct.contract eq loan.contract
and loan-acct.cont-code eq loan-acct.cont-code
no-lock:

действительно побыстрее заработало , благодарю

[Igor.T]

Если опишете желаемый результат (что хотите получить), будет проще подсказать нужный код.
Приведенный вами пример будет работать ооочень долго...

ну по большому счету - действительно работает ооочень долго в том виде в котором выложил - поэтому то я и подумал что он ожидает press any key - собственно из-за этого и вопрос задал...

ну уж раз пошла такая "пьянка", благодарю за активность и раз уж есть желание, то покажите как быстрее будет вывести список всех действующих кредитных договоров ФЛ с открытыми для них счетами и остатками на этих счетах скажем вот в таком виде:

| № п/п | Номер договора | ФИО клиента | Счет | Остаток на счете (на дату отчета в рублях РФ) | Дата откр. счета |

[fetchxxx]

ну уж раз пошла такая "пьянка", благодарю за активность и раз уж есть желание, то покажите как быстрее будет вывести список всех действующих кредитных договоров ФЛ с открытыми для них счетами и остатками на этих счетах скажем вот в таком виде:

Какие счета имеются ввиду? Искать по loan-acct все возможные роли на все возможные даты - это экстремальный вариант, особенно если договоров не одна тысяча....

[kabysdox]

Вот эта строка :
and loan-acct.cont-code eq loan-acct.cont-code
масло масляное...
Может вас устроит то что показывает сам броузер договоров? Ф3 понажимайте в нем...

[kabysdox]

Представьте, что втбшные т.н. разработчики-сопровожденцы 2 года назад тоже были "реально не в курсе" того как делаются джойны на прогрессе. Не представляю как они живут вообще...