FWH 803 testxBrw.prg error

[Otto]

Auto edit browse - dblclick:
Regards,
Otto


Time from start: 0 hours 0 mins 3 secs
Error occurred at: 03/15/08, 17:28:41
Error description: Error BASE/41 Scope violation (hidden): TXBRWCOLUMN:HCHECKED

Stack Calls
===========
Called from: => TXBRWCOLUMN:HCHECKED(0)
Called from: => TXBROWSE:LDBLCLICK(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TXBROWSE:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: C:\FWH\SAMPLES\test\testxbrw.prg => MAIN(61)

[Otto]

Auto edit browse - enter key - do some changes - then enter key

Application
===========
Path and name: C:\FWH\samples\testxbrw.exe (32 bits)
Size: 1,474,048 bytes
Time from start: 0 hours 0 mins 55 secs
Error occurred at: 03/15/08, 17:38:48
Error description: Error DBFCDX/1022 Lock required

Stack Calls
===========
Called from: => FIELDPUT(0)
Called from: testxbrw.prg => (b)AUTOEDIT(390)
Called from: => TXBRWCOLUMN:POSTEDIT(0)
Called from: .\source\classes\XBROWSE.PRG => EDITGETLOSTFOCUS(0)
Called from: => (b)EDIT(0)
Called from: => TWINDOW:LOSTFOCUS(0)
Called from: .\source\classes\CONTROL.PRG => (b)TCONTROL(0)
Called from: => TCONTROL:LOSTFOCUS(0)
Called from: => TGET:LOSTFOCUS(0)
Called from: => TGET:KILLFOCUS(0)

[Antonio Linares]

Otto,

Please download 8.03 again as we have just published some new changes and enhancements.

We are going to review those errors asap, thanks

[Antonio Linares]

Otto,

in xbrowse.prg please remove HIDDEN from this line:

DATA hChecked AS LOGICAL HIDDEN INIT .F.

[Otto]

Hello Antonio,
now it is working.

Could you tell me the way how to insert
rlock() - unlock best.

oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, (rlock(),FieldPut( o:nCreationOrder, v ),unlock ), ) }

I would also suggest to change the sample from ADS to standard DBF.
Regards,
OPtto

[Antonio Linares]

Otto,

oCol:bOnPostEdit := {|o, v, n| If( n != VK_ESCAPE, If( Rlock(), ( FieldPut( o:nCreationOrder, v ), DbUnLock() ), MsgAlert( "record in use, please try it again" ) ) ) }

> I would also suggest to change the sample from ADS to standard DBF.

Please review samples/TestXbr3.prg