help to make a condition

[Silvio.Falconi]

Insert a code block

I have
sample nLastRecords:= 2000

IF nLastRecords > 0
nInit:=olotto:lastrec()-nLastRecords
nEnd:= olotto:lastrec()
ENDIF


and I must insert this on a codeblock

bFor:= { || recno() <= nInit .and. recno() >= nEnd }

but make error

[nageswaragunupudi]

This is working for me here

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local bFor, aData
   local nStart, nLast

   USE CUSTOMER NEW SHARED VIA "DBFCDX"

   nStart   := 100
   nLast    := 110

   bFor  := { || RECNO() >= nStart .AND. RECNO() <= nLast }
   aData := FW_DbfToArray( "ID,FIRST,SALARY", bFor )
   XBROWSER aData

return nil
 

[Silvio.Falconi]

This is working for me here

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local bFor, aData
   local nStart, nLast

   USE CUSTOMER NEW SHARED VIA "DBFCDX"

   nStart   := 100
   nLast    := 110

   bFor  := { || RECNO() >= nStart .AND. RECNO() <= nLast }
   aData := FW_DbfToArray( "ID,FIRST,SALARY", bFor )
   XBROWSER aData

return nil
 

Thanks