Hola, gente como va el verano?

Finalmente estoy migrando a la versión 3, lleva unos controles más estrictos, métodos duplicados que en la v2 no daba problema ahora avisa del error, se soluciona y punto.
Sin embargo tenia puesto un control de comprobar antes de grabar si el registro estaba bloqueado y ahora no funciona.

DO WHILE .NOT. ( lRLock := RLock() )
IF MessageDLG("El registro esta bloqueado", mtConfirmation, mbYesNoCancel) == mrYes
EXIT
ENDIF
ENDDO
IF lRLock
....operación de actualizar el registro
Con la v2 ni se veía la pantalla, ahora siempre aparece como bloqueado, y además la variable lRlock no toma el valor .T. y al pulsar Aceptar, no graba
¿se os ocurre que hago mal?
Gracias

Hola, yo utilizo en vez de RLock la función DBRLock que permite especificar si bloqueo el registro actual y elimina los bloqueos existentes o en caso contrario mantiene los actuales bloqueos en el área de trabajo. Es muy útil si quieres bloquear varios registros a la vez sin tener que bloquear el archivo completo. Yo no he notado ningún cambio distinto en el comportamiento de los bloqueos con respecto a la versión 2. Tu código no parece contener errores, salvo que usas un diálogo con tres botones y solo procesas el botón mrYes.

Hola Alberto
Gracias por tu respuesta, la estoy probando.
Lo que pretendo es que si hay una concurrencia en un registro el programa espere, el MessageDlg, no está bien construido, sin embargo con la V2 hacía lo que pretendía, esta version es mas extricta y como ya indicaba arriba errores que la v2 no detectaba esta si.
Seguiré dando vueltas

Saludos

Hola!!!!

Amable, yo NO tengo problemas con las tablas. El trozo de código no parece tener problemas... EXCEPTO si damos por correcto que estas en el área de trabajo correcto.

Yo para los bloqueos utilizo esta función para cada tabla:

// ============================================================================
// BloquearCondicion, 09.06.2013 18:37
// ============================================================================

FUNCTION BloquearCondicion( lMsg ) AS LOGICAL
RETURNIF DbRLock() WITH True
IF_NIL lMsg IS True
IF lMsg
MessageDlg( "IMPOSIBLE BLOQUEAR REGISTRO DE CONDICIONES." + CRLF +;
"Seguramente esté siendo utilizado por otro usuario.", mtError, mbOk )
ENDIF
RETURN False

Y la llamo así:

IF ( waCondiciones )->( BloquearCondicion() )
...
ENDIF

Creo que no necesita explicación.

_________________
Un saludo.
Jesús P. Melgar Velasco

Hola a todos

Inicie este posts y lo resuelvo, porque el error no estaba en el control de los bloqueos, sino en algo que es obvio:
Para que bloquear un registro si la tabla se ha abierto en modo exclusivo?, en la V2 no lo tenia en cuenta la V3 no bloquea un registro si la tabla se ha abierto exclusiva.

Gracias a todos

Bueno y que queria decir algo, parece que ultimamente estamos muy callados.

Salduso

Yo modifiqué mi rutina de bloqueo asi:

FUNCTION NetRecordLock( xIdentity )

LOCAL lSuccess AS LOGICAL

lSuccess := True
IF DbInfo( DBI_SHARED )
IF ! ( lSuccess := DBRLock( xIdentity ) )
WHILE ! ( lSuccess := DBRLock( xIdentity ) )
IF MessageDlg( "REGISTRO BLOQUEADO." + CRLF +;
"Archivo: " + ExtractFileName( DbInfo( DBI_FULLPATH ) ) + CRLF +;
"Alias: " + Alias() + CRLF +;
"Area: " + LTrim( Str( Select(), 4, 0 ) ) + CRLF + CRLF +;
"їReintentar el acceso?", mtConfirmation, mbYesNo ) == mrNo
EXIT
ENDIF
END
ENDIF
ENDIF

RETURN lSuccess

_________________
Un saludo.
Jesús P. Melgar Velasco

Hola Jesús

Muy bien, primero preguntas si esta compartido y si da .T. entonces intentas bloquear

Gracias