Страница 1 из 1

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

Добавлено: 04 ноя 2003, 18:55
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

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