Jump to content
Fivewin Brasil

Capturar opção do menu


jfaguiar

Recommended Posts

Bom dia amigos.

Alguém sabe se tem como capturar o nome da opção do menu  (MENUITEM) selecionado ?, 

Preciso disso pra fazer um arquivo de log de acesso diário por usuário.

MENU oMenu 2007

   MENUITEM "Uti&litários"
   MENU
   MENUITEM "&Reorganização Geral da Base de Dados";
         ACTION CHK_INDICES(.T.,.F.);
         MESSAGE "Cria os arquivos de índice de todas as tabelas do sistema"
   MENUITEM "&Reorganização Parcial da Base de Dados";
         ACTION CHK_INDICES(.F.,.F.);
         MESSAGE "Cria os arquivos de índice inexistente"
   MENUITEM "&Reorganização Individual de Tabela";
         ACTION IndexaIndividual();
         MESSAGE "Cria os índices de uma tabela"
   ENDMENU
 ENDMENU
 

Obrigado

Link to comment
Share on other sites

Ou,

Static oItMenu
	FUNCTION
	   oItMenu   := Array( 6 )
	      MENUITEM  oItMenu[ 1 ] PROMPT "5  Menu" ACTION
	      MENUITEM  oItMenu[ 2 ] PROMPT "10 Menu" ACTION
	      MENUITEM  oItMenu[ 3 ] PROMPT "15 Menu" ACTION
	      MENUITEM  oItMenu[ 4 ] PROMPT "20 Menu" ACTION
	      MENUITEM  oItMenu[ 5 ] PROMPT "30 Menu" ACTION
	      MENUITEM  oItMenu[ 6 ] PROMPT "60 Menu" ACTION
RETURN NIL

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...