Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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:

Nome

Tipo

Descrição

Obrigatório

 oMenuBtn

O

Envio o TMenu do browse.

Sim

.T. ou .F.LLogico para saber se é o browser de Endereços ou Veículos.Sim
Retorno:oMenuBtn



Bloco de código
languagedelphi
firstline1
titleExemplo GFEA5224
#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