FWH 8.08 TDatabase bug

[James Bott]

Antonio,

There is a bug in the new SetFilter method. It is missing ::nArea. It should be:

Code: Select all  Expand view  RUN

METHOD SetFilter( cFilter ) CLASS TDataBase

   (::nArea)->(DbSetFilter( Compile( cFilter ), cFilter ) )

return nil

Regards,
James

[Antonio Linares]

James,

Fixed, thanks!

[Maurizio]

I had a error in Method Save() ( FW 8.08 )
I added select(::cAlias) and now works .

METHOD Save() CLASS TDataBase

local n
local lLocked := .f.
//--- My_modi
select(::cAlias)

Maurizio

[Antonio Linares]

Maurizio,

This seems to be the right fix. ( ::nArea ) was missing here:

Code: Select all  Expand view  RUN

METHOD RecLock( nRecNo ) CLASS TDataBase

   DEFAULT nRecNo := ::RecNo()

return ( ::nArea )->( DbrLock( nRecNo ) )


[Maurizio]

Thank Antonio
now works

Maurizio