Histórico da Página
GFEA5234 - P.E. Executado após a criação do botão de menu "Registrar Informações"
Características do Requisito
Linha de Produto: | Microsiga Protheus |
Segmento: | Supply Chain - Logística |
Módulo: | SIGAGFE |
Ponto de Entrada
Descrição: | Permite criação de botão auxiliar com menus e sub-menus. | ||||||||||||
Localização: | Na criação do menu. | ||||||||||||
Programa Fonte: | GFEA524 | ||||||||||||
RetornoEnvio: |
| ||||||||||||
Retorno: | oMenuBtn |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE 'PROTHEUS.CH' User Function GFEA5234() Local oMenuMain := PARAMIXB[1] //Objeto de Menu Local lPnlEndec := PARAMIXB[2] //Verifica se esta sendo chamado a partir do menu de endereçamento Local oMenu0101 Local oMenu0102 Local oMenu0103 Local oMenu0104 Local oMenu0105 Local oMenu0106 Local oSubMenu1 Local oSubMenu2 // cria o menu 01 dentro do botão oMenu0101 := tMenuItem():new(oMenuMain, "Menu 01, item 01" ,,, , {|| } , , , , , , , , , .T.) oMenuMain:Add(oMenu0101) // cria um subitem de um submenu oSubMenu1 := tMenuItem():new(oMenu0101, "SubMenu 01, item 01" ,,, , {||msgInfo("SubMenu 01, item 01")} , , , , , , , , , .T.) oMenu0101:add(oSubMenu1) oSubMenu2 := tMenuItem():new(oMenu0101, "SubMenu 01, item 02" ,,, .F. , {||msgInfo("SubMenu 01, item 02")} , , , , , , , , , .T.) oMenu0101:add(oSubMenu2) oMenu0102 := tMenuItem():new(oMenuMain, "Menu 01, item 02" ,,, , {||msgInfo("Menu 01, item 02")} , , , , , , , , , .T.) oMenuMain:Add(oMenu0102) //Cria um menu bloqueado oMenu0103 := tMenuItem():new(oMenuMain, "Menu 01, item 03" ,,,.F. , {||msgInfo("Menu 01, item 03")} , , , , , , , , , .T.) oMenuMain:Add(oMenu0103) //Cria um menu bloqueado oMenu0104 := tMenuItem():new(oMenuMain, "Menu 01, item 04" ,,,.F. , {||msgInfo("Menu 01, item 04")} , , , , , , , , , .T.) oMenuMain:Add(oMenu0104) //Cria um menu bloqueado oMenu0105 := tMenuItem():new(oMenuMain, "Menu 01, item 05" ,,,.F. , {||msgInfo("Menu 01, item 05")} , , , , , , , , , .T.) oMenuMain:Add(oMenu0105) //Cria um menu bloqueado oMenu0106 := tMenuItem():new(oMenuMain, "Menu 01, item 06" ,,,.F. , {||msgInfo("Menu 01, item 06")} , , , , , , , , , .T.) oMenuMain:Add(oMenu0106) return oMenuMain |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas