Цикл _loop

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Alexx
Постоянный обитатель
Сообщения: 168
Зарегистрирован: 29 мар 2005, 17:49

Цикл _loop

Сообщение Alexx »

Есть 2 логические таблицы t1 и t2, в которых выборка идет из одних и тех же таблиц. Как при описании цикла указать из какой именно логической таблице я делаю этот цикл?

т.е., например
_loop t1.katsopr

Но компилятор ругается на такую конструкцию.

Кроме как через синонимы, никак такое сделать нельзя?
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

t1._loop KatSopr
Жду выхода Вселенная 2.12!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

t1._loop katsopr не пробовали?
Alexx
Постоянный обитатель
Сообщения: 168
Зарегистрирован: 29 мар 2005, 17:49

Сообщение Alexx »

Спасибо, попробую.
И еще, в догонку... внутри лупа делаю проверку
if (not isvalidall(tnKatSopr)) continue;

tnKatSopr будет брать из той логич. таблицы по которой я делаю цикл или надо как-то указывать ее (лог. таблицу)?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

if t1.isvalid(tnkatsopr)
странная тока какая то проверка если вы по ней делаете цикл
вариант
if t1.getfirst katsopr<>0 then continue ;
цикл можно делать еще так - это точно работает
if t1.getfirst katsopr=0
do{

} while t1.getnext katsopr=0
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

правильно надо писать так t1.tnKatSopr, например

Код: Выделить всё

t1.ClearBuffer(t1.tnKatSopr);
по поводу проверки, действительно странно зачем проверять валидность таблицы, если цикл идет по ней :???:

если есть запись в таблице накладных, то соответственно и позиция такая существует.
Жду выхода Вселенная 2.12!
Ответить