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 | ||||||||||||
Envio: |
| ||||||||||||
| 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