помогите новичку с Bounds'ами
Добавлено: 04 ноя 2003, 18:55
необходимо написать фейсу, решил попробоввать 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
ВСЕМ заранее благодарен. С меня вертуальное ПИВО...
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
ВСЕМ заранее благодарен. С меня вертуальное ПИВО...