hi,
> set scope to { || Str(vAdNr,6) }
>
> SET FILTER TO (LIEFER->SR_NR == 0 .or. LIEFER->SR_NR == vSrNr) .and.
> LIEFER->BETRAG # 0 .and. !LIEFER->BEZAHLT
>
> LIEFER->(DbGoTop())
> LIEFER->(DbSeek(Str(vAdNr,6)))
you can try to get Parts of your "Filter" into Index Expression e.g.
*** snip ***
index on
Str(_FIELD->ADR_NR,6)+IF(LIEFER->BEZAHLT,"J","N")+Descend(Str(_FIELD->LS_NR,6))
tag LIEFADR
cSeek := Str(vAdNr,6)+"N"
SEEK(cSeek)
IF FOUND()
set scope to (cSeek)
set filter to XXX
*** eof ***
greetings by OHR
Jimmy
|
