FoxPro/Visual FoxPro - Bloquear registros

Hola amigos, por favor si alguien puede enviarme un ejemplo de como bloqiear un o varios registros mientras los consulto o los jalo para modificar... me serviria de mucha ayuda para mis sistemas; Gracias

Aqui te mando este ejemplo de hecho esta en la ayuda lee acerca del RLOCK()

CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
SET REPROCESS TO 3 AUTOMATIC
STORE '1,2,3,4' TO gcRecList
gcOldExc = SET('EXCLUSIVE')
SET EXCLUSIVE OFF
SELECT 0
USE employee && Open Employee table
SELECT 0
USE customer && Open Customer table
? LOCK('1,2,3,4', 'customer') && Lock 1st 4 records in customer
? RLOCK(gcRecList, 'employee') && Lock 1st 4 records in employee
UNLOCK IN customer
UNLOCK IN employee
SET EXCLUSIVE &gcOldExc


Suerte

Si usas buffering en tu programacion el VFP puede hacer casi todo el trabajo cuando el metodo sea Pesimista.

Ver en la ayuda:
Data Environment
Set MultiLock