La Web del Programador: Comunidad de Programadores
 
    Pregunta:  17638 - UTILIZAR ARCHIVOS EN RED CON CLIPPER 5.3
Autor:  MAURICIO GUTIERREZ SEGUEL
NECESITO QUE MIS PROGRAMAS FUNCIONEN EN ENTORNO DE RED, ESTARÍA MUY AGRADECIDO SI ALGUIEN ME MANDA UN EJEMPLO DE COMO HACERLO. ¡ URGENTE POR FAVOR !

  Respuesta:  Enrique Saavedra
Bueno es pero poder colaborarte

USE maestro SHARED NEW
SET INDEX TO maestro1,maestro2

EL SHARED es el modo compartido y los indices tienes que abrirlos como esta arriba, ahora para bloquear cuando haces un APPEND

DBSELECTAREA("maestro")
IF FLOCK()
DBAPPEND()
REPLACE cedula WITH m__cedula
maestro->(DBCOMMIT())
UNLOCK
ENDIF

El FLOCK() bloque el archivo completo para adicionar un registro, ahora para modificar registro o eliminar perso solo marcado se utiliza el siguiente comando

DBSELECTAREA("maestro")
DBSEEK(m__cedula)
IF FOUND()
IF RLOCK()
REPLACE nombre WITH m__nombre
maestro->(DBCOMMIT())
UNLOCK
ENDIF
ENDIF

Espero y te sirva el ejemplo cualquier cosa escribeme

Nos vemos y Suerte