FoxPro/Visual FoxPro - como hacer que funcione en red

   
Vista:

como hacer que funcione en red

Publicado por jhean Carlos (127 intervenciones) el 09/12/2008 15:28:42
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!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como hacer que funcione en red

Publicado por Plinio (7771 intervenciones) el 09/12/2008 22:18:09
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como hacer que funcione en red

Publicado por kong (681 intervenciones) el 09/12/2008 22:31:11
eso....

por ejemplo para abrir una tabla desde PC1 a PC2

use PC1\\d\carpeta1\tabla1.dbf
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como hacer que funcione en red

Publicado por alberto (399 intervenciones) el 10/12/2008 03:34:41
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: Plinio

Publicado por Marcos Peralta (7 intervenciones) el 10/12/2008 17:01:18
Hola Plinio:

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

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:reemplaza el codigo tuyo con este:

Publicado por neo (1601 intervenciones) el 10/12/2008 19:50:29
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar