FoxPro/Visual FoxPro - alguien sabe programar en red

amigos necesito de su ayuda :

donde esta el error


hasta aqui todo bien..
pero en donde van o como se usan los comando
rlock(), lock(), etc, etc.. para que al momento de que x usuario este en la clave 100 por ejemplo y otro intenta usarlo le envie un mensaje de que esta siendo usado que espere.. y que vuelva apedir clave para que puedas usar otro..

no puedo.. que esta mall

digamen por favor como se usan o en donce van esos malditos comandos de red..

POR FAVOR... ME VUELVO LOCA..

COMO LE HAGO PARA QUE AL MOMENTO DE QUE ALGUIEN ESTE USANDO X REGISTRO SE BLOQUE... Y QUE AL TERMINAR QUEDES DISPONIBLE..

AYUDENME LES PIDO ME PASEN UNA RUTINA QUE HAGA ALGO ASI + -
PARA ESTUDIARLA...

ESPERO SU APOYO
SALUDOS
DALILA :(

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
Te sugiero, mejor dicho te obligo a que las consultas modificables por pantalla sean manejando variables. y debes utilizar semaforos para no superponer actualizaciones de distintos usuarios (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 (y no vaciles en escribirme y te hago un bosquejo ordenadito con ejemplos de codigo por si te interesa)

con la forma que lo hace tito para que mas en relidad es simple yo tambien me hice bolas al principio pero ahora ..
cencillo.usa RLOCK() Y UNLOCK()

si tienes dudas escriveme y te enviare un e-mail una libreria completa para trabajar en Red.

nos vemos.

utiliza el siguiente procedimiento ami me funciona
use clientes.dbf
do blo_arc with "F" && "F" para añadir registros
append blank
replace lista with wlis &&& tus campos
unlock

o tambien
do blo_arc with "R" && "R" para modificar registros
replace lista with wlis &&& tus campos
unlock

PROCEDURE blo_arc
Parameters tip_blo && Tipo de bloqueo.
do case && Bloquea el registro deseado.
case tip_blo = "F"
sblq = .F.
do while ! flock()
sblq = .T.
wait windows 'El Archivo '+dbf()+' no puede ser actualizado' nowait
enddo
if sblq = .T.
wait windows 'Reanudando proceso...' nowait
endif
case tip_blo="R"
sblq = .F.
do while .not. rlock()
sblq = .T.
wait windows 'El Archivo '+dbf()+' no puede ser actualizado' nowait
enddo

if sblq = .T.
wait windows 'Reanudando proceso...' nowait
endif
endcase
RETURN

si estas programando en foxpro v 2.6 es cierto lo que te comentaron nuestros compañeros anteriormente. pero si estas en visual foxpro v 6 no necesitas hacer nada pues las pantallas o forms hacen todo desde abrir las tablas en forma shared para poder compartir asi como en las altas dan automaticamente el flock y tu ni cuenta te das. te recomiendo uses formas generadas con el wizard y no tendras ningun problema y mas si usas el proyecto generado por el gallery

atte

antonio patiño

perdon, estimado pero me puedes explicvar eso del gallery, porque quiero aprender a desarrollar en red, y me suena lindo .
Agradecido. Raul