Á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

conclusão e antes da atualização da próxima movimentação da Operação

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

GFEA5233 - P.E. Executado após conclusão do Ponto de Controle e antes da atualização da próxima movimentação da Operação



Ponto de Entrada

Descrição:

Permite a verificação de finalização do ponto de controle na ação de concluir. A ação ocorrerá após a conclusão do ponto de controle e antes da movimentação do mesmocriação de botão auxiliar com menus e sub-menus.

Localização:

Na ação de concluir criação do programamenu.

Programa Fonte:

GFEA523GFEA524

RetornoEnvio:

Nome

Tipo

Descrição

Obrigatório

 lRet5233

L

No momento da conclusão do ponto de controle, será enviado a situação de finalização para tratamento no ponto de entrada e assim gerando um retorno lógico.

Sim

Situações GX3As situações da tabela GX3 - Movimentação, podem ser: 1=Aberto;2=Movimentado;3=Em Fila;4=Endereçado;5=Cancelado;6=Concluído
Situações GX4As situações da tabela GX4 - Movimentação Ponto de Controle, podem ser: 1=Não avaliado;2=Aprovado;3=Reprovado

 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