rosco
01 de Diciembre del 2005

Hola Gente esta es mi primera consulta en el Foro espero poder resolverla. El problema es el siguiente:

Yo desarrollo un sistema en mi maquina en la cual se encuntra todo el proyecto (prg,dbf,dbc,etc) pero cuando compilo y mando en ejecutable a servidor donde tambien estan las mismas tablas que yo tengo localmente y lo ejecuto, me da error y no me encuetra nada. Que es lo que tengo que utilizar para direccionar el ejecutable, SET PATH, SET DAFAUTL?

Gracias por los aportes

Saludos

Rosco

gabrield
01 de Diciembre del 2005

Estimado colega:
Coloca el SET DEFAULT apuntando a la carpeta donde se encuentra la base de datos FOX.
El SET PATH apúntalo a todas las carpetas que contengan las partes del proyecto. Por ejemplo:

SET PATH TO c:miprograma;c:miprogramaformularios;c:miprogramamenues;etc...

Saludos cordiales.
Gabriel Dameñov
www.gdmsargentina.com.ar
(Visite nuestra sección con artículos para desarrolladores)

Jose Oscar
01 de Diciembre del 2005

Usa esto te independza también del nombre de las carpetas

IF SetPath()
open database base
SET BELL TO \'DING.WAV\'
?? CHR(7)
ENDIF
close data
return
*---------------------------------------
FUNCTION SetPath()
LOCAL lcSys16, lcProgram, nKdir, cPath
private i
cPath=" "
lcSys16 = SYS(16,0)
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) + 1)
lcDrive = left(lcSys16, AT(":", lcSys16) )
CD LEFT(lcProgram, RAT("\", lcProgram))
cRaiz = alltrim(lcDrive) + alltrim(LEFT(lcProgram, RAT("\",lcProgram )))
set defa to
set defa to (cRaiz)
cd (cRaiz)
CD ..
nKdir = ADIR(aDire, \'*.*\',"D")
for i = 1 to nKdir
if right(aDire(i,5),1)= "D" .and. left(aDire(i,1),1) <>"."
cPath = cPath + aDire(i,1) + ","
endif
endfor
SET PATH TO (substr(cPath,1,len(cpath)-1))
SET CLASSLIB TO MILIBRERIA
set defa to (substr(lcProgram,1,(RAT("\",lcProgram,2)-1)))
_VFP.AUTOYIELD= .T. && displaya bien los refrescos en actualziaciones
ENDFUNC