Error DBFNTX/1022 Lock required

[SALINETAS24]

I wrote this post just to ask how to fix the lock problem

Hola amigo, Me refiero si habias probado la CLAUSULA LOCK que tiene la clase browse...., igual ahora me explico mejor

[carlazza]

I wrote this post just to ask how to fix the lock problem

Hola amigo, Me refiero si habias probado la CLAUSULA LOCK que tiene la clase browse...., igual ahora me explico mejor

Ok Ok amigo.

I've already done it but doesn't work.

Thx

[franco]

Could you use:
ON DBLCLICK {||{IIF(RLOCK(),EDIT("E"),UNLOCK},{MSGBOX('IN USE')}};

[carlazza]

https://vivaclipper.wordpress.com/2014/01/18/rlock/

Looking for the code in the example, adding only the code

IF FE->( RLOCK() )
FU->FIELD1 := XXX
FU->FIELD2 := XXX
FU->FIELD3 := XXX
FU->FIELD4 := XXX
ENDIF

it works!

how is it possible? What does that statement do?

[franco]

I use this a lot in my grids and browses.
It only allows the edit if it gets a lock.
you can try taking out the unlock, then try the second edit with same code, It should not get a lock because the first edit has it locked.
in first edit
ON DBLCLICK {||{IIF(RLOCK(),EDIT("E"), },{MSGBOX('IN USE')}};

[AUGE_OHR]

hi,

it works!

! Note : when use RLOCK() you MUST UNLOCK

[andyglezl]

Code: Select all

    FU->(dbGoTo ( CDL2A.Br_cassaout.Value ))
    IF RegEnRed( "FU" )
        FU->FIELD1 := XXX
        FU->FIELD2 := XXX
        FU->FIELD3 := XXX
        FU->FIELD4 := XXX
    ELSE
        MsgInfo("No se pudo grabar el Registro...","Verifique" )
    ENDIF
    UNLOCK
RETURN NIL

FUNCTION RegEnRed( cArea )
    DO WHILE ! ( cArea )->( RLock() )
        IF ! MSGRetryCancel( "Registro usado por otro Usuario", cArea )
            RETURN .F.
        ENDIF
    ENDDO
RETURN .T.

[franco]

Jimmy,
My first post is the proper way. It unlocks on return.
My second post was for Carl to test his second use of same record in second table to see that he could not get lock as it was still locked in first.