Tempo aproximado para leitura: 00:04:00 min
Dúvida
Existe alguma forma de colocar um Submenus em MVC utilizando o formato que o manual da totvs recomenda ?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80
Solução
Exemplo
Static Function MenuDef()
Local aRotina := {}
Local aSubMnu := {}
// Menu
ADD OPTION aRotina TITLE 'Visualizar' ACTION 'VIEWDEF.MVC01' OPERATION 2 ACCESS 0
ADD OPTION aRotina TITLE 'Incluir' ACTION 'VIEWDEF.MVC01' OPERATION 3 ACCESS 0
ADD OPTION aRotina TITLE 'Alterar' ACTION 'VIEWDEF.MVC01' OPERATION 4 ACCESS 0
ADD OPTION aRotina TITLE 'Excluir' ACTION 'VIEWDEF.MVC01' OPERATION 5 ACCESS 0
ADD OPTION aRotina TITLE 'Imprimir' ACTION 'VIEWDEF.MVC01' OPERATION 8 ACCESS 0
ADD OPTION aRotina TITLE 'Copiar' ACTION 'VIEWDEF.MVC01' OPERATION 9 ACCESS 0
//Adiciona o arrya do submenu a opção do menu
ADD OPTION aRotina TITLE 'SubMenu' ACTION aSubMnu OPERATION 9 ACCESS 0
// adiciona opções no submenu
ADD OPTION aSubMnu TITLE 'Sub Menu 01' ACTION 'Alert("Sub menu 01")' OPERATION 4 ACCESS 0
ADD OPTION aSubMnu TITLE 'Sub Menu 02' ACTION 'Alert("Sub menu 02")' OPERATION 4 ACCESS 0
Return aRotina
Funcionamento
Saiba mais
Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Como utilizar MVC (Model View Controller)
0 Comentários