topic-12610

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

FWH 8.08 TDatabase bug
Posted: Mon Sep 08, 2008 06:40 PM

Antonio,

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

METHOD SetFilter( cFilter ) CLASS TDataBase

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

return nil

Regards,
James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

FWH 8.08 TDatabase bug
Posted: Mon Sep 08, 2008 07:31 PM

James,

Fixed, thanks! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

FWH 8.08 TDatabase bug
Posted: Wed Sep 10, 2008 08:50 AM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

FWH 8.08 TDatabase bug
Posted: Wed Sep 10, 2008 09:48 AM

Maurizio,

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

METHOD RecLock( nRecNo ) CLASS TDataBase

   DEFAULT nRecNo := ::RecNo()

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

FWH 8.08 TDatabase bug
Posted: Thu Sep 11, 2008 06:32 AM

Thank Antonio
now works

Maurizio

FiveTech Support Forums