On Tue, 26 Feb 2008 01:48:02 GMT, "Stephen Quinn"
<stevejqNO@[EMAIL PROTECTED]
> wrote:
Hello Stephen,
>You'd use the SCOPE when you DON'T set a relation.
You are right. I send you the sample from the Comix help about the set
scope codeblock!. Nothing to do with my prg.
in fact I use scope as main selection to see in my Tbrowse only
information about one customer and set filter to
as second filter to see specific information from the selected customer
with scope.
Before I used COMIX I did it like this:
-------------------------------------------
Select LIEFER
LIEFER->(OrdSetFocus("LIEFADR")) // Index on the address number
SET FILTER TO (LIEFER->SR_NR == 0 .or. LIEFER->SR_NR == vSrNr) .and.
LIEFER->BETRAG # 0 .and. !LIEFER->BEZAHLT
LIEFER->(DbGoTop())
......
ob := TBrowseDb(2,1,11,40)
......
ob:GoTopBlock := { | | TBwhile("top", Str(vAdNr,6) ) }
ob:GoBottomBlock := { | | TBwhile("bottom", Str(vAdNr,6) ) }
ob:SkipBlock := { |n| TBwhile("skip", Str(vAdNr,6), ;
{ |x| LIEFER->ADR_NR == vAdNr }, n ) }
and now with COMIX :
--------------------------
set scope to
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)))
....
ob := TBrowseDb(2,1,11,40)
Both solution work well. I used the Comix solution to see if it would be
faster on our Network. But l didn't see big change. Raison
of my question in this news group. This database have about 5500 records.
Once again many thanks for you help.
Regards
Otto
|
