Error Nº1: El archivo "" no existe
Yo otra vez... Te había hecho una consulta en la que te decía que al tratar de abrir algunos formularios en la PC del cliente me tiraba el error:
Error Nº1: El archivo "" no existe
Me dijiste que agregue en el programa de inicio el siguiente código:
Local lcDefaultPath
If _vfp.StartMode = 0 And ;
Type("_vfp.ActiveProject")=="O"
lcDefaultPath = _vfp.ActiveProject.HomeDir
Set Path To (Addbs(lcDefaultPath)) Additive
Else
*-Ejecuta por este camino cuando se trata de un ejecutable
lcDefaultPath = Sys(5)+Sys(2003)
lcDefaultPath = lcDefaultPath
Set Path To (Addbs(lcDefaultPath)) Additive
Endif
Set Path To (Addbs(lcDefaultPath)) Additive
Set Default To (lcDefaultPath)
Lo hice pero me da un error en la última línea:
"La ruta o el nombre de archivo no es válido"
No comprendo muy bien el código que me enviaste. Y si debo cambiar algo para que funcione en mi inicio.
Aquí te envío además el código que se encuentra en mi programa de inicio (inicio.prg):
clear
public registro, senial, senial2, pciabuscada, registro, obrabuscada, localidadbuscada, pacientebuscado, senialtrans1, senialtrans2
set default to c:\SistClinica
set path to c:\SistClinica,c:\SistClinica\datos,c:\SistClinica\listados,c:\SistClinica\iconos,;
c:\SistClinica\formularios,c:\SistClinica\librerias,c:\SistClinica\programas,c:\SistClinica\imagenes,;
c:\SistClinica\otros
set classlib to c:\SistClinica\LIBRERIAS\misclases.vcx &&,backstyle.vcx,vfpcalendar.vcx
set confirm on
set date to french
set century on
set deleted on
set talk off
set safety off
set exclusive off
set multilocks on
do form principal
read events
Desde ya muchísimas gracias.
Error Nº1: El archivo "" no existe
Me dijiste que agregue en el programa de inicio el siguiente código:
Local lcDefaultPath
If _vfp.StartMode = 0 And ;
Type("_vfp.ActiveProject")=="O"
lcDefaultPath = _vfp.ActiveProject.HomeDir
Set Path To (Addbs(lcDefaultPath)) Additive
Else
*-Ejecuta por este camino cuando se trata de un ejecutable
lcDefaultPath = Sys(5)+Sys(2003)
lcDefaultPath = lcDefaultPath
Set Path To (Addbs(lcDefaultPath)) Additive
Endif
Set Path To (Addbs(lcDefaultPath)) Additive
Set Default To (lcDefaultPath)
Lo hice pero me da un error en la última línea:
"La ruta o el nombre de archivo no es válido"
No comprendo muy bien el código que me enviaste. Y si debo cambiar algo para que funcione en mi inicio.
Aquí te envío además el código que se encuentra en mi programa de inicio (inicio.prg):
clear
public registro, senial, senial2, pciabuscada, registro, obrabuscada, localidadbuscada, pacientebuscado, senialtrans1, senialtrans2
set default to c:\SistClinica
set path to c:\SistClinica,c:\SistClinica\datos,c:\SistClinica\listados,c:\SistClinica\iconos,;
c:\SistClinica\formularios,c:\SistClinica\librerias,c:\SistClinica\programas,c:\SistClinica\imagenes,;
c:\SistClinica\otros
set classlib to c:\SistClinica\LIBRERIAS\misclases.vcx &&,backstyle.vcx,vfpcalendar.vcx
set confirm on
set date to french
set century on
set deleted on
set talk off
set safety off
set exclusive off
set multilocks on
do form principal
read events
Desde ya muchísimas gracias.
1 respuesta
Respuesta
1