Buenas tardes,
Estamos convirtiendo una aplicación de modo de texto a Xailer, es posible combinar una parte visual y otra en modo de texto en ese período de conversión?
Gracias
Anderson Camilo
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Convirtiendo una aplicación de modo de texto a Xailer
-
- Mensajes: 3
- Registrado: Jue Nov 12, 2015 9:05 pm
Re: Convirtiendo una aplicación de modo de texto a Xailer
En mi "transición" lo hice de esta manera.
Empecé por crearme el Menu en Xailer y los módulos que no tenia terminados o ni empezados, los lanzaba con WinExec(miaplicacionDOS), enviándole unos parámetros para que automáticamente se fuera al módulo de mi aplicación DOS que necesitaba "abrir"
Así, pues...
MENUITEM "Listado Albaranes" ACTION xWinExecGES(" 0207")
donde...
Procedure xWinExecGES( cMenu, nShow, lStop )
local cOldDir := HB_CurDrive() + ":\" + CurDir()
DEFAULT lStop to .F.
DirChange( AppData:cRuta )
If lStop
Execute( "Ges.exe " + AppData:cCodiEmpresa + cMenu, AppData:cRuta + "\", .T. )
Else
WinExec( "Ges.exe " + AppData:cCodiEmpresa + cMenu, If( nShow = Nil, SW_NORMAL, nShow ), .F. )
EndIf
DirChange( cOldDir )
Return
Un poco "laborioso" pero me estuvo funcionando muy bien en TODA la transición de entorno TEXTO a GRAFICO y no me supuso un esfuerzo ni ninguna presión por tener que tener la aplicación terminada YA en ese entorno gráfico.
Si te sirve de algo.
Empecé por crearme el Menu en Xailer y los módulos que no tenia terminados o ni empezados, los lanzaba con WinExec(miaplicacionDOS), enviándole unos parámetros para que automáticamente se fuera al módulo de mi aplicación DOS que necesitaba "abrir"
Así, pues...
MENUITEM "Listado Albaranes" ACTION xWinExecGES(" 0207")
donde...
Procedure xWinExecGES( cMenu, nShow, lStop )
local cOldDir := HB_CurDrive() + ":\" + CurDir()
DEFAULT lStop to .F.
DirChange( AppData:cRuta )
If lStop
Execute( "Ges.exe " + AppData:cCodiEmpresa + cMenu, AppData:cRuta + "\", .T. )
Else
WinExec( "Ges.exe " + AppData:cCodiEmpresa + cMenu, If( nShow = Nil, SW_NORMAL, nShow ), .F. )
EndIf
DirChange( cOldDir )
Return
Un poco "laborioso" pero me estuvo funcionando muy bien en TODA la transición de entorno TEXTO a GRAFICO y no me supuso un esfuerzo ni ninguna presión por tener que tener la aplicación terminada YA en ese entorno gráfico.
Si te sirve de algo.
Un Saludo,
Xevi.
Xevi.
- Marcelo Coelho Silva
- Mensajes: 269
- Registrado: Sab May 31, 2008 4:49 pm
- Ubicación: Brasil
- Contactar:
Re: Convirtiendo una aplicación de modo de texto a Xailer
Fiz minha migração, criando um novo projeto em Xailer (novo LayOut) na forma final que gostaria. Depois fui aproveitando os fontes do Sistema "TEXTO" ( fazendo pequenas alterações). Da um pouco de trabalho, porem você já sai com o novo projeto caminhando para o Futuro (senão fica uma "colcha de retalhos").
Att.
Marcelo Coelho Silva
Brasil.
Marcelo Coelho Silva
Brasil.