FoxPro/Visual FoxPro - EN DONDE ESTA EL ERROR

SET SAFE OFF
SET TALK OFF
SET EXCL ON

SELEC 1
USE ALUMNOS

CLAVE=0

? "CLAVE" GET CLAVE
READ

COMO LE HAGO PARA UTILIZAR LOS COMANDOS DE RED
RLOCK(), MULTILOCK ETC, ETC..

CUAL ES LA MALDITA SINTAXIS COMO DEBENDE IR ESCRITOS Y EN DONDE VAN..

POR FAVOR AYUDENME.. YA NO SE QUE HACER...

ESPERO SU APOYO...

SI ALGUIEN TIENE ALGUNA RUTINA SENCILLA QUE FUNCIONE EN RED... ME LA PODRIA PROPORSIONAR PARA ESTUDIARLA..

ME URGE, PERO ME SUPER URGE...

GRACIAS
SUJEID

hola!
las sintaxis son:
RLOCK([nÁreaTrabajo | cAliasTabla]
| [cListaNúmerosRegistros, nÁreaTrabajo
| cAliasTabla])

y
LOCK([nÁreaTrabajo | cAliasTabla]
| [cListaNúmeroRegistro, nÁreaTrabajo | cAliasTabla])

el siguiente ejemplo esta en la ayuda:

STORE '1,2,3,4' TO gcRecList
gcOldExc = SET('EXCLUSIVE')
SET EXCLUSIVE OFF
SELECT 0
USE employee && Abre la tabla Employee
SELECT 0
USE customer && Abre la tabla Customer
? LOCK('1,2,3,4', 'customer') && Bloquea 4 primeros registros de customer
? RLOCK(gcRecList, 'employee') && Bloquea 4 primeros registros de employee
UNLOCK IN customer
UNLOCK IN employee

espero te sirva!... y no pierdas la paciencia.....sino.........
Chao

No dices que version de FOX estas usando, pero en fin esto corre para todo:
Debes utilizar solamente RLOCK() Y UNLOCK()
Olvidate de FLOCK()
El RLOCK debes usarlo inmediatamente antes de GATHER MEMVAR
(o REPLACE en forma carretera).
y luego inmediatamente despues UNLOCK. Es decir siembre que tu actualices (modifiques) campos de registro, so lo en ese caso.
Ademas te sugiero, mejor dicho te obligo a que las consultas modificables por pantalla sean manejando variables (SCATTER MEMVAR). y debes utilizar semaforos para no superponer actualizaciones de distintos usuarios que toman el mismo registro (perdida de datos, ojo con eso)
Si tienes alguna duda, escribeme.
Si es asi hazme una referencia para poder acordarme pues recibo decenas de emails con consultas (llevo 14 años progrmando asi que algo le pego al asunto)
Chao
TITO ARAYA

SET SAFE OFF
SET TALK OFF
SET EXCL ON

SELEC 1
USE ALUMNOS

CLAVE=0

? "CLAVE" GET CLAVE
READ

SET ORDER TO TAGINDEX
SEEK CLAVE
IF FOUND()
IF RLOCK() && ESTO BLOQUE EL REGISTRO DONDE ESTAS
&& UBICADO
ELSE
WAIT WIND 'EL REGISTRO NO SE PUDO BLOQUEAR...!'
ENDIF
ELSE
WAIT WIND 'EL REGISTRO NO SE ENCUANTRA...!'
ENDIF