Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TM500BUT - Adiciona ou Exclui Botões na Tela de Manutenção de Documentos
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
Descrição: 
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.
Eventos

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

Programa Fonte 
TMSA500.PRW
Sintaxe

TM500BUT - Adiciona ou Exclui Botões na Tela de Manutenção de Documentos ( < nOpcx> , < aBotao> ) --> aRet

Parâmetros:
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
Retorno
    aRet(array_of_record)
  • Contem quais os botões seram exibidos em tela alem do padrão.
Observações