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

Board index FiveWin para Harbour/xHarbour Como Ejecuto Un menu tipo POPUP den de Otro menu No POPUP

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Como Ejecuto Un menu tipo POPUP den de Otro menu No POPUP
Posted: Wed Jun 23, 2010 09:24 PM

ver codigo

    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

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Como Ejecuto Un menu tipo POPUP den de Otro menu No POPUP
Posted: Thu Jun 24, 2010 07:03 AM

Ruben,

Usa submenus:

Code (fw): Select all Collapse

MENU oPopup POPUP

   MENUITEM ...

   MENU oPopup2
      MENUITEM ...
      ...
   ENDMENU

   MENUITEM ...

   ...

ENDMENU

regards, saludos

Antonio Linares
www.fivetechsoft.com

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Como Ejecuto Un menu tipo POPUP den de Otro menu No POPUP
Posted: Thu Jun 24, 2010 02:59 PM

Antonio Linares wrote:Ruben,

Usa submenus:
Code (fw): Select all Collapse
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

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Como Ejecuto Un menu tipo POPUP den de Otro menu No POPUP
Posted: Thu Jun 24, 2010 11:36 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion