On Tue, 26 Feb 2008 21:05:36 +0100, "AUGE_OHR" <AUGE_OHR*NOSPAM@[EMAIL PROTECTED]
>
wrote:
>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
>
Thank for your help. I will check your idea.
Regards
Otto
|
