FoxPro/Visual FoxPro - como hacer que funcione en red

que tal, tengo problemas para que mi proyecto funcione en red.

O talvez tengo que incorporar un codigo para que funcione en red o un programa.

bueno mi prg de inicio es este.
------------------------------------------------------------------------------------------------
APPLICATION.VISIBLE=.F. &&OCULTA LA VENTANA DE VFP
SET TALK OFF
SET BELL ON
SET DATE DMY
SET EXCLUSIVE OFF
*SET PROCEDURE TO

SET DEFA TO c:seguros

SET PATH TO C:SEGUROS, C:SEGUROSBMPS,C:SEGUROSCLASES,C:SEGUROSCONSULTAS,C:SEGUROSDATOS,;
C:SEGUROSFLASH,C:SEGUROSFONDOS_JPG,C:SEGUROSFORMULARIOS,C:SEGUROSGUIAS,;
C:SEGUROSICO,C:SEGUROSLOGOS,C:SEGUROSMENU,C:SEGUROSPASAR A EXCEL,;
C:SEGUROSPRG,C:SEGUROSREPORT,C:SEGUROSREPOR,C:SEGUROSREPORTES,;
C:SEGUROSRESP_INDC,C:SEGUROSWAV

OPEN DATABASE c:segurosdatosconsbd.dbc SHARED
SET DATABASE TO CONSBD
DO FORM c:segurosformulariosentrada.SCX &&EJECUTARA TU FORM PRINCIPAL.
*DO FORM c:segurosformulariospantalla_principal.SCX &&EJECUTARA TU FORM PRINCIPAL.

READ EVENTS
----------------------------------------------------------------------------------------
Sera que a este codigo tengo que aunmentar algo o tengo que hacer algun formulario nuevo para que me habilite la opcion de RED.

GRACIAS!!!!!

Ese Set path, te puede hacer mucho daño

SET PATH TO C:SEGUROS, etc

Con eso esta obligando a que todo se haga en tu pc. Puedes tener en una tabla en cada pc una tabla con un campo que contenga la ruta de tus datos.

eso....

por ejemplo para abrir una tabla desde PC1 a PC2

use PC1\\d\carpeta1\tabla1.dbf

amigo deberias estudiar el set exclusive off y todo lo referente a bloqueos y desbloqueos, el tema de que funcione en re es bastante amplio, yo comenzaria con abrir las bases en modo compartido, (shared) y estudiar algunos comandos necesitan si o si abrir las tablas en modo exclusivo, en la ayuda hay varios ejemplos como para empezar.
cualquier duda comenta en el foro
un ejemplo:
select 1
use cli000 index cli001 shared
set dele on
go top
seek this.text1.value
if found()
rlock() se bloquea el registro

.....
......

unlock all (desbloqueo)
endif

debes ver bien el tema de bloquear y desbloquear.

saludos

Hola Plinio:

Y un ejemplo de como seria la ruta en las tablas de cada Pc.

Saludos.

Este código lo uso en todos mis softwares, lo puedo utilizar localmente, en Red, como portable en un pendrive...:

LOCAL fxNewDir

fxNewDir = JUSTPATH(SYS(16, 0))
CD (fxNewDir)
SET DEFAULT TO (fxnewdir)

Origen_Bd=fxNewDir+'datos*.*'
Abrir_Bd=fxNewDir+'Datosdb.dbc SHARED'

SET EXACT ON
SET EXCLUSIVE ON
SET MULTILOCKS ON
SET SYSMENU OFF
SET SYSMENU automatic

SET STATUS BAR ON

SET PATH TO ;Datos;bmp

**Aqui unas lineas para el aspecto de la pantalla principal

** Aqui el codigo para el menu o formulario a abrir

Read Events

Suerte