Page tree

Arotina na chamada de uma Rotina customizada através de PE de menu.

Produto:

Protheus ADVPL

Versões:

P12

Ocorrência:

A exibição dos botões do menudef da Rotina Padrão.

Ambiente:

P12

Passo a passo:

Ao criar uma rotina customizada em MVC e chamar ela dentro do MENU de uma rotina padrão ( Através de PE).

Deverá declarar a variável como private para que assim ela não inclua os botão da rotina Padrão.


Trecho do Cód.

User Function COMP011_MVC()
Local oBrowse
Private aRotina := MenuDef()

oBrowse := FWMBrowse():New()
oBrowse:SetAlias('ZA0')
oBrowse:SetDescription('Cadastro de Autor/Interprete')
oBrowse:AddLegend( "ZA0_TIPO=='1'", "YELLOW", "Autor" )
oBrowse:AddLegend( "ZA0_TIPO=='2'", "BLUE" , "Interprete" )

oBrowse:Activate()

Return NIL

Static Function MenuDef()
Local aRotina := {}

ADD OPTION aRotina TITLE 'Visualizar TST' ACTION 'VIEWDEF.COMP011_MVC' OPERATION 2 ACCESS 0
ADD OPTION aRotina TITLE 'Incluir TST' ACTION 'VIEWDEF.COMP011_MVC' OPERATION 3 ACCESS 0
ADD OPTION aRotina TITLE 'Alterar TST' ACTION 'VIEWDEF.COMP011_MVC' OPERATION 4 ACCESS 0
ADD OPTION aRotina TITLE 'Excluir TST' ACTION 'VIEWDEF.COMP011_MVC' OPERATION 5 ACCESS 0
ADD OPTION aRotina TITLE 'Imprimir TST' ACTION 'VIEWDEF.COMP011_MVC' OPERATION 8 ACCESS 0
ADD OPTION aRotina TITLE 'Copiar TST' ACTION 'VIEWDEF.COMP011_MVC' OPERATION 9 ACCESS 0
Return aRotina






Observações: