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
|