Formulario funciona en un equipo en otro no funciona
Buena tarde Experto, se que tienes tu tiempo ocupado pero deseo hacerte una pregunta, tu sabes que una cosa es hablar y otra es escribir aver si me hago entender:
Hace un momento te pregunte si podía utilizar la base de datos de otro programa para realizar un modulo que necesitamos, pues te cuento que ya lo hice, funciona correctamente en mi computador, es más lo copio a una usb y lo corro y me funciona, el problema esta, cuando lo copio tal cual esta en mi pc al computer de la otra oficina o sea donde esta el programa de notas, en mi pc también tengo el mismo programa de notas, bueno cuando lo corro en la oficina donde va estar arranca pero sale este error: no existe base de datos, error en linea 1, method. Colorform.dataenviroment.cursor1 linea 0,
hice esto genere todo en ese computador cambiando el nombre del ejecutable y vuelve y me sale lo mismo, en cambio en mi pc funciona correctamente,
como haría para colocar un camino a todos los formularios y librerías de visual
Gracias
Hace un momento te pregunte si podía utilizar la base de datos de otro programa para realizar un modulo que necesitamos, pues te cuento que ya lo hice, funciona correctamente en mi computador, es más lo copio a una usb y lo corro y me funciona, el problema esta, cuando lo copio tal cual esta en mi pc al computer de la otra oficina o sea donde esta el programa de notas, en mi pc también tengo el mismo programa de notas, bueno cuando lo corro en la oficina donde va estar arranca pero sale este error: no existe base de datos, error en linea 1, method. Colorform.dataenviroment.cursor1 linea 0,
hice esto genere todo en ese computador cambiando el nombre del ejecutable y vuelve y me sale lo mismo, en cambio en mi pc funciona correctamente,
como haría para colocar un camino a todos los formularios y librerías de visual
Gracias
1 respuesta
Respuesta de Alonso Jarrín Solís
1
Tienes que utilizar la cláusula Set Path ejemplo: Supongamos que tienes un proyecto organizado en carpetas como sigue:
Carpeta MiProyecto, en esta carpeta hay otras que pueden llamarse así: Menús, programas, datos, informes, ayudas. Etc, entonces un código como este soluciona el problema:
Function SetPath
Local lcSys16, lcProgram
lcSys16 = Sys(16)
lcProgram = Substr(lcSys16, AT(":", lcSys16) - 1)
CD Left(lcProgram, Rat("\", lcProgram))
If Right(lcProgram, 3) = "FXP"
CD ..
Endif
Set Path To Programas, Formularios, Datos, Informes, Menus
Endfunc
Esta es una manera de solucionar el inconveniente.
Carpeta MiProyecto, en esta carpeta hay otras que pueden llamarse así: Menús, programas, datos, informes, ayudas. Etc, entonces un código como este soluciona el problema:
Function SetPath
Local lcSys16, lcProgram
lcSys16 = Sys(16)
lcProgram = Substr(lcSys16, AT(":", lcSys16) - 1)
CD Left(lcProgram, Rat("\", lcProgram))
If Right(lcProgram, 3) = "FXP"
CD ..
Endif
Set Path To Programas, Formularios, Datos, Informes, Menus
Endfunc
Esta es una manera de solucionar el inconveniente.
