Esse documento visá demostrar um exemplo do ponto de entrada CT060BUT que pode adicionar novas opções de menu ao browser da rotina.
Este ponto de entrada é criado após a criação dos menus padrões da rotina. |
Parâmetro | Tipo | Descrição | Obrigatório |
---|---|---|---|
PARAMIXB[1] | Array | Nome do menu | Sim |
#Include 'Protheus.ch' #Include 'FWMVCDef.ch' User Function CT060BUT() Local aBotoes := ParamIXB aAdd(aBotoes,{ "PE" , "Processa( { || CTBA080() })", 0, 0} ) Return aBotoes |
O ponto de entrada retorna a variável aBotoes contendo todos os menus a serem adicionados. |
If ExistBlock("CT060BUT") aCT060BUT := ExecBlock("CT060BUT",.F.,.F.,aRotina) IF ValType(aCT060BUT) == "A" .AND. Len(aCT060BUT) > 0 For nX := 1 to len(aCT060BUT) aAdd(aRotina,aCT060BUT[nX]) Next ENDIF Endif |
Aparecerão todas as opções desejáveis a serem adicionadas na aba de Outras Ações:
Outras Ações / PE
<!-- esconder o menu --> <style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |