Error : Lock required <oCol:bOnPostEdit> (is locked !)

Board index FiveWin for Harbour/xHarbour Error : Lock required <oCol:bOnPostEdit> (is locked !)

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Error : Lock required <oCol:bOnPostEdit> (is locked !)
Posted: Sat Nov 22, 2008 02:22 PM

Hello,
Because of just edit a single field, I wanted to use < oCol:bOnPostEdit >
As soon I edit the field ( after RETURN ), there is a error.
A normal read / save in the network is no problem.
The record is locked and I get a Error : Lock required.
What is wrong with this line ?

Code: Select all Collapse

//---------- at Start ----------------------

REQUEST DBFCDX
Rddsetdefault("DBFCDX")

IF !FILE(c_Path + "\WRITE.DBF")
   aStru := { {"TYPE","C",    7, 0}, ;
      {"FORMAT","C",   30, 0}, ;
      {"EXTENSION","C",     5, 0}, ;   
      {"INFO","C",   70, 0}, ;
      {"SORT","C",     3, 0}}

      DBCREATE("&c_Path\WRITE.DBF", aStru)
      NET_APPEND( 5, 5 ) // Network-function
ENDIF

DBSELECTAREA(2)
IF NET_USE(c_Path + "\WRITE.DBF", 5, 5,.T.)  // Network-function
    ORDCREATE( ,"WRITE","SORT", {|| SORT } , .F. )
ELSE
     MsgAlert( "Error open Format-File","Format-File")
     RETURN( NIL )
ENDIF

// ------  Inside a function ----------------------------

DBSELECTAREA(2)
DBSETORDER(1)
DBGOTOP()

oLbx7 := TXBrowse():New( oFolder:aDialogs[2] )
oLbx7:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oLbx7:nColDividerStyle	 := LINESTYLE_BLACK
oLbx7:nRowDividerStyle := LINESTYLE_BLACK
oLbx7:nRecSelColor = 15512898 
oLbx7:bClrSelFocus = { || { 16777215, 15512898 } } 
oLbx7:bClrSel = { || { 16777215, 15512898 } } 

oCol := oLbx7:AddCol()
oCol:cHeader  := "Sort"
oCol:bStrData  := { || (2)->SORT }
oCol:nWidth  := 50
oCol:bEditValue := { || (2)->SORT }
oCol:bOnPostEdit := {|oCol, xVal, nKey | ;
IF( nKey == VK_RETURN, ( DBRLOCK(), (2)->SORT := xVal, DBUNLOCK() ),) }

oLbx7:SetRDD()

oLbx7:CreateFromResource( 110 )

Error description: Error DBFCDX/1022 Lock required

Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:POSTEDIT(0)
Called from: .\source\classes\XBROWSE.PRG => EDITGETLOSTFOCUS(0)
Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN:EDIT(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LOSTFOCUS(0)
Called from: .\source\classes\CONTROL.PRG => (b)TCONTROL:TCONTROL(0)
Called from: => TCONTROL:LOSTFOCUS(0)
Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS(0)
Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SYSREFRESH(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYCHAR(0)
Called from: .\source\classes\TGET.PRG => TGET:KEYCHAR(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0)

Regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Error : Lock required <oCol:bOnPostEdit> (is locked !)
Posted: Sat Nov 22, 2008 02:48 PM

TEST..
( 2 )->( DBRLOCK() )
( 2 )->( DBUNLOCK() )

or
oCol:bOnPostEdit := {|oCol, xVal, nKey | ;
IF( nKey == VK_RETURN, ( eval(oLbx7:bLock) , (2)->SORT := xVal, eval( oLbx7:bUnlock ) ),) }

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Record locking
Posted: Sat Nov 22, 2008 03:06 PM

Hello mcfox,

Thank You very much, with this solution it works fine now.
Because of my own Network-functions I used :

(2)->(NET_RLOCK( 5, 5 )) // waiting-time, and trys
(2)->(NET_ULOCK())

Because of a indexed field, I had still to add oLbx7:Refresh()

oCol:bOnPostEdit := {|oCol, xVal, nKey | IF( nKey == VK_RETURN, ;
( (2)->(NET_RLOCK( 5, 5 )), (2)->SORT := xVal, (2)->(NET_ULOCK()), ;
oLbx7:Refresh() ),) }

Regards
Uwe :lol:

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

demont frank

Posts: 167

Joined: Thu Mar 22, 2007 11:24 AM

Re: Record locking
Posted: Sat Nov 22, 2008 03:31 PM

ukoenig wrote:Hello mcfox,

Thank You very much, with this solution it works fine now.
Because of my own Network-functions I used :

(2)->(NET_RLOCK( 5, 5 )) // waiting-time, and trys
(2)->(NET_ULOCK())

Regards
Uwe

Saw to late same solution , sorry

Frank

FiveTech Support Forums

Because of a indexed field, I had still to add oLbx7:Refresh()

Continue the discussion