RE:ayuda con ruta de aplicacion
Saludos Henrik,
Mira lo unico que tienes que hacer es lo siguiente, en el programa principal, que llama la aplicacion Ej: Main.prg, colocale este codigo, claro tienes que sustituir las carpetas en donde tienes tus formas, datos, bipmap, txt, reportes, etc.
Lo importante es crear un PATH.
y Ya esta, me dejas saber si te funciono
PUBLIC gcOldTalk
gcOldTalk = 'OFF'
*ENDIF
cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
_curDir = (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
_npathcurdir = AT(":",_curDir)- 1
_npathcurpjt = RAT("\", _curDir) - (_npathcurdir)
_curpathpjt = (SUBSTR(_curDir, _npathcurdir, _npathcurpjt))
set default to (SUBSTR(_curDir, _npathcurdir, _npathcurpjt))
SET PATH TO PROGS, FORMAS, CLASES, MENU, DATAS, FOTOS, REPORTES, TEMP, TXT
Antonio Moquete
Santo Domingo, Rep. Dom.