Como Ejecuto Un menu tipo POPUP den de Otro menu No POPUP

[ruben Dario]

ver codigo

Code: Select all  Expand view

    MENU ::oPopm2 POPUP
       MENUITEM "&Imprimir.." NAME "DATA" ACTION (Autoper(oDlg01,"R",MatValid,@aContl,oBar12))
       MENUITEM "&Dos.."      NAME "DATA" ACTION (Autoper(oDlg01,"T",MatValid,@aContl,oBar12))
       MENUITEM "&RPV.."      NAME "DATA" ACTION (Autoper(oDlg01,"V",MatValid,@aContl,oBar12))
       MENUITEM "&Excel.."    NAME "DATA" ACTION (Autoper(oDlg01,"W",MatValid,@aContl,oBar12))
    ENDMENU

*******************************************************************************************************************

      MENUITEM "&Administracion"  
      MENU
         MENUITEM "&Usuarios" MESSAGE "Registro de Usuarios" NAME  "USER";
                  ACTION  Accesos("PROG_USUARIOS()","PROG_USUARIOS",0) //0002
         MENUITEM "&Modulos"  MESSAGE "Permisos a Modulos"  NAME "SHAPE";
                  ACTION  Accesos("PROG_REMODULO()","PROG_REMODULO",0) //0005
         MENUITEM "&Tipos de Modulos" MESSAGE "Tipos de Modulos" NAME "CROSS";
                  ACTION  Accesos("PROG_TIPMOD()","PROG_TIPMOD",0) //0001
         SEPARATOR
         MENUITEM   "&Reportes"  MENU ::oPopm2

      ENDMENU

Perdon la pegunta es si creo un menu MENU ::oPopm2 POPUP como lo ejecuto desde otro menu.

                  MENUITEM   "&Reportes"  MENU ::oPopm2

y no me funciona

 

[Antonio Linares]

Ruben,

Usa submenus:

Code: Select all  Expand view

MENU oPopup POPUP

   MENUITEM ...

   MENU oPopup2
      MENUITEM ...
      ...
   ENDMENU

   MENUITEM ...

   ...

ENDMENU
 

[ruben Dario]

Ruben,

Usa submenus:

Code: Select all  Expand view

MENU oPopup POPUP

   MENUITEM ...

   MENU oPopup2
      MENUITEM ...
      ...
   ENDMENU

   MENUITEM ...

   ...

ENDMENU
 

Antonio puedo hacer esto
primero creo el menu MENU ::oPopm2 POPUP
y despues
MENUITEM "&Administracion"
MENU
MENUITEM "&Reportes" MENU ::oPopm2
deacuerdo al codigo inicial.

no me funciona

[Antonio Linares]

Desde la accion del MENUITEM llama a una funcion que cree el nuevo popup:

MENUITEM ... ACTION NuevoMenu()

function NuevoMenu()

local oPopup

MENU oPopup POPUP
...
ENDMENU

...

return nil