the dbfs areas are open
@ 10, 56 AUTOGET aGet[1] VAR cApactivida OF oDlg ;
DATASOURCE "AT";
SIZE 168, 11 PIXEL FONT oFont ;
FILTER ListFilter1( uDataSource, cData, Self );
COLUMN "ACACTIVIDA" ;
HEIGHTLIST 100
------------------------
function ListFilter1( aList, cData, oSelf )
local cAlias := oSelf:uDataSource
function ListFilter1( aList, cData, oSelf )
local cAlias := oSelf:uDataSource
SELECT AT
AT->(DbSetOrder(2))
AT->(DbGoTop())
AT->( DBSETFILTER( NIL ) )
AT->( DBSETFILTER( {|| UPPER(ACACTIVIDA ) >= UPPER( ALLTRIM( cData ) ) .AND. UPPER( ACACTIVIDA ) <= UPPER( ALLTRIM( cData ) ) } ) )
RETURN cAlias
THIS THE ERROR
- Code: Select all Expand view RUN
- Application
===========
Path and name: C:\Work\Prg\Family\Family.Exe (32 bits)
Size: 6,662,656 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725)
FiveWin Version: FWHX 15.01
Windows version: 6.1, Build 7600
Time from start: 0 hours 0 mins 9 secs
Error occurred at: 26-03-2015, 21:54:18
Error description: Error BASE/1004 Class: 'NIL' has no exported method: EVAL
Args:
[ 1] = U
Stack Calls
===========
Called from: => EVAL( 0 )
Called from: .\source\classes\AUTOGET.PRG => (b)TGETLIST:TGETLIST( 312 )
Called from: => TGETLIST:KEYCOUNT( 0 )
Called from: .\source\classes\AUTOGET.PRG => TAUTOGET:CREATELIST( 159 )
Called from: .\source\classes\AUTOGET.PRG => TAUTOGET:OPENLIST( 271 )
Called from: .\source\classes\AUTOGET.PRG => (b)TAUTOGET:TAUTOGET( 54 )
Called from: => TAUTOGET:KEYCHAR( 0 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 )
Called from: .\source\classes\TGET.PRG => TAUTOGET:HANDLEEVENT( 591 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
Called from: source\PMov.prg => MVEDITA( 2564 )