Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

	TM500BUT - Adiciona ou Exclui Botões na Tela de Manutenção de Documentos
	TM500BUT - Adiciona ou Exclui Botões na Tela de Manutenção de Documentos

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

Contem quais os botões seram exibidos em tela alem do padrão.

Observações

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave