ayuda con menús
Publicado por Eduardo Flores Rivas (7 intervenciones) el 28/04/2005 20:29:39
Hola FORO,
Estoy comenzando a programar en VFP (vengo de Clipper) y no puedo poner un menú (generado con el MENUGEN) en un formulario. Mi PRG de inicio está así:
#DEFINE SIS 'I.F.'
#DEFINE SISTEMA 'INFO-farma'
SET BELL Off
SET CONSOLE Off
SET CURSOR On
SET DATE TO BRIT
SET DECIMALS TO 2
SET DELETE On
SET DELIMITERS Off
SET DEVICE TO SCREEN
SET DIRECTORY TO "d:\vfp6\InfoFarma\"
SET DEFAULT TO "d:\vfp6\InfoFarma\"
SET ECHO Off
SET ESCAPE On
SET EXCLUSIVE Off
SET PROCEDURE TO "progs\funciones.prg"
Set Exact On
Set Fixed On
Set MultiLocks On
Set Near On
Set Notify Off
Set Print Off
SET SAFETY Off
SET SCOREBOARD Off
SET SYSMENU TO
SET TALK Off
PUBLIC SIS_IGV
SIS_IGV=19.00
if wexist("estándar")
hide windows "estándar"
endif
if wexist("command")
hide windows "command"
endif
if wexist("Administrador de proyectos")
hide windows "Administrador de proyectos"
endif
DO FORM "formas\principal"
DO "menus\menuprincipal.mpr"
READ EVENTS
Puedo ver mi formulario "principal" pero no puedo ver el menú. Cuando quito: DO FORM "formas\principal" el menú si se vé pero obviamente mi idea es que el menú se vea sobre mi formulario "principal".
Muchas gracias de antemano por su atención y saludos cordiales.
Eduardo
Estoy comenzando a programar en VFP (vengo de Clipper) y no puedo poner un menú (generado con el MENUGEN) en un formulario. Mi PRG de inicio está así:
#DEFINE SIS 'I.F.'
#DEFINE SISTEMA 'INFO-farma'
SET BELL Off
SET CONSOLE Off
SET CURSOR On
SET DATE TO BRIT
SET DECIMALS TO 2
SET DELETE On
SET DELIMITERS Off
SET DEVICE TO SCREEN
SET DIRECTORY TO "d:\vfp6\InfoFarma\"
SET DEFAULT TO "d:\vfp6\InfoFarma\"
SET ECHO Off
SET ESCAPE On
SET EXCLUSIVE Off
SET PROCEDURE TO "progs\funciones.prg"
Set Exact On
Set Fixed On
Set MultiLocks On
Set Near On
Set Notify Off
Set Print Off
SET SAFETY Off
SET SCOREBOARD Off
SET SYSMENU TO
SET TALK Off
PUBLIC SIS_IGV
SIS_IGV=19.00
if wexist("estándar")
hide windows "estándar"
endif
if wexist("command")
hide windows "command"
endif
if wexist("Administrador de proyectos")
hide windows "Administrador de proyectos"
endif
DO FORM "formas\principal"
DO "menus\menuprincipal.mpr"
READ EVENTS
Puedo ver mi formulario "principal" pero no puedo ver el menú. Cuando quito: DO FORM "formas\principal" el menú si se vé pero obviamente mi idea es que el menú se vea sobre mi formulario "principal".
Muchas gracias de antemano por su atención y saludos cordiales.
Eduardo
Valora esta pregunta


0