Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Permite adicionar ou excluir botões na tela de Manutenção de Documentos. Vale lembrar que a rotina considera o array com os botões retornados através do ponto de entrada.
No exemplo abaixo para determinado usuário, estamos excluindo alguns botões, e adicionando um novo botão.
User Function TM500BUT()
Local aBotoes := {}
Local nOpcao := PARAMIXB[1]
Local aPadrao := PARAMIXB[2]
If 'admin' $ cUserName
If nOpcao == 2 //--Visualizar
aDel(aPadrao,6)
aDel(aPadrao,7)
aDel(aPadrao,8)
aSize(aPadrao,Len(aPadrao)-3)
//Adicionar novo botao
AAdd(aPadrao,Array(4))
aPadrao[Len(aPadrao),1] := 'CARGASEQ'
aPadrao[Len(aPadrao),2] := {|| MsgAlert('Teste') }
aPadrao[Len(aPadrao),3] := 'Teste de Botao'
aPadrao[Len(aPadrao),4] := 'Botao'
EndIf
EndIf
aBotoes := aClone(aPadrao)
Return aBotoes
TMSA500.PRW
TM500BUT - Adiciona ou Exclui Botões na Tela de Manutenção de Documentos ( < nOpcx> , < aBotao> ) --> aRet
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
nOpcx | Numérico | Tipo de Operação: 2 - Visualizar; 4 - Devolução; 5 - Reentrega; 6 - Complemento; 7 - Cancelamento; 8 - Manutenção aliança; 9 - Manutenção transporte; 10- Complemento de impostos; 11- Armazenagem | X | ||||||||||||||
aBotao | Array of Record | Array com os botoes padrao da rotina. | X |
-
aRet(array_of_record)
- Contem quais os botões seram exibidos em tela alem do padrão.