помогите новичку с Bounds'ами

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

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

Ответить
reist
Сообщения: 14
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Амурская обл ООО Фирма ДОМ
Контактная информация:

помогите новичку с Bounds'ами

Сообщение reist »

необходимо написать фейсу, решил попробоввать bounds


bounds byDate = db <<= Oborot.Datob
and de >>= Oborot.DatOb
bounds byDate1= ds <<= Oborot.Datob
and db >> Oborot.DatOb
//-- Дебет
bounds bySchetO = _DSch == Oborot.SchetO

....

PushBounds(tbbyDate);// работает нормально

if(GetFirst PickBuh where ((word(65532) == PickBuh.KodTable)) = tsOk){
do{
_DSch := PickBuh.Schet;
AddBounds(tbbySchetO);
if(GetFirst Oborot = tsOk){
do{
message(oborot.SchetO);//выдает все счита подряд Oborot.SchetO == чтео попало
}while(GetNext Oborot = tsOk)
}
}do(GetNext PickBuh where ((GetNext PickBuh where ((word(65532) == PickBuh.KodTable)) = tsOk)) = tsOk)
}

В чем проблема. Мож где SetBounds(..) поставить надо.

Если кому не влом, пришлите свои мелкие исходники с подробным комментариями на мыло - r_eist@mail.ru

ВСЕМ заранее благодарен. С меня вертуальное ПИВО... :)
Ответить