problem with dbsetfilter

[Silvio.Falconi]

I made

SELECT AS
AS->(DbSetOrder(1))
AS->(DbSetFilter( {|| AS->Giorno=date() }, ))
AS->(DbGoTop())

and I wish show only the record have as->giorno = date() it run ok

but sometimes it show also one record with another date





the archive is index on
INDEX ON dtoc(giorno) TAG ASS1

any solution please ?

i tried also with
SELECT AS
AS->(DbSetOrder(1))
AS->( OrdScope(0, { || date() }))
AS->( OrdScope(1, { || date() }) )
AS->(DbGoTop())

but not run on

[AHF]

Maybe trying INDEX ON giorno TAG ASS1 or AS->( OrdScope(0, { || dtoc(date()) }))

[FranciscoA]

DbSetFilter( <bFilter>, [<cFilter>] ) --> NIL

Arguments
<bFilter>
A code block containing the filter expression. The expression must yield a logical value.
<cFilter>
The filter expression in form of a character string. Return
The return value is always NIL.
Description
The DbFilter() function defines a filter condition for the current work area in form of the code block <bFilter>. All records in the work area where the filter condition yields .F. (false) are ignored during database navigation. As a result, these records become invisible and are filtered.

Although the second parameter <cFilter> is optional, it is recommended to specify the filter condition a second time as a character string. Otherwise, the DbFilter() function cannot obtain the filter condition and returns a null string (""), despite of a filter condition being active.

[Gale FORd]

I recommend you use dtos() in your index, not dtoc()
Then for scope you can use
AS->( OrdScope(0, { || dtos(date()) }))
AS->( OrdScope(1, { || dtos(date()) })

[AHF]

Doesn t index sort correctly a date field ?
Must we convert it to dtos ?

The value type should match both index key and scope and should error if not.

[Gale FORd]

His index was using dtoc() which is not very good to sort/index with. If you are going to index on date converted to character string then dtos() is the correct function.

[Silvio.Falconi]

perhaps I found the problem

after I open the database and make the filter

I call the old record where the archive is stop

if nRecNo < AS->(LastRec()) .AND. nRecno != 0
AS->(DbGoTo(nRecno)) <------------------------------------the error
else
AS->(DbGoTop())
endif


on nRecNo I save on ( inifile) the record and it then make the error because if the user open today on 20.10.2015 and the user have close on 16.10.2015 the procedure show the records on 20.10.2015 (by filter) and the show the record save as old used.

If i ren these lines it run good with

SELECT AS
AS->(DbSetOrder(1))
AS->(DbSetFilter( {|| AS->Giorno=date() }, ))
AS->(DbGoTop())


probable I make a mistake on the oldest modification...
sorry...

[Silvio.Falconi]

but wich is the best ? ( between run ok)

SELECT AS
AS->(DbSetOrder(1))
AS->( OrdScope(0, { || dtos(date()) }))
AS->( OrdScope(1, { || dtos(date()) }) )
AS->(DbGoTop())


or

SELECT AS
AS->(DbSetOrder(1))
AS->(DbSetFilter( {|| AS->Giorno=date() }, ))
AS->(DbGoTop())

[ukoenig]

Silvio,

DBSETFILETR is much slower in case there are many records,
because the filter ckecks from start- to the end of file.
A filter doesn't need a INDEX. That is the difference of the usage.
With just a few records there will be no difference.

best regards
Uwe

[Silvio.Falconi]

FOR EACH DAY PERHAPS 5/6 RECORDS

THINK AFTER A MONTH PERHAPS 150/160 RECORDS