Page 1 of 1
FWH 803 testxBrw.prg error
Posted: Sat Mar 15, 2008 4:38 pm
by 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)
FWH 803 testxbrw.prg error 2
Posted: Sat Mar 15, 2008 4:42 pm
by 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)
Posted: Sat Mar 15, 2008 7:12 pm
by 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
Posted: Sat Mar 15, 2008 8:01 pm
by Antonio Linares
Otto,
in xbrowse.prg please remove HIDDEN from this line:
DATA hChecked AS LOGICAL HIDDEN INIT .F.
Posted: Sat Mar 15, 2008 10:46 pm
by 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
Posted: Sun Mar 16, 2008 12:26 am
by 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