Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagevb
themeFadeToGrey
titleExemplo IMPOSMNTMNTA290B
linenumberstrue
#Include "Protheus.ch"
 
//---------------------------------------------------------------------
/*/{Protheus.doc} MNTA080M
Ponto de entrada para adicionar botões.
    [n][1]  -  Título da rotina que será exibido no menu
    [n][2]  -  Nome da função que será executada
    [n][3]  -  Parâmetro reservado. Deve ser sempre 0 (zero)
    [n][4]  -  Número da operação que a função executará. As alternativas são:
        1 = Pesquisa
        2 = Visualização
        3 = Inclusão
        4 = Alteração
        5 = Exclusão
        6 = Alteração sem a permissão para incluir novas linhas.
              É válido apenas para os objetos GetDados e GetDb.
  
  
    [n][5]  -  Esse elemento é opcional. Quando informado, deve conter o número da
    configuração do arquivo de acessos do Protheus (sigamat.acs), que indica
    se o usuário terá acesso a essa opção.
  
/*/
//---------------------------------------------------------------------
User Function MNTA290B()
 
    Local aRotina := aClone(ParamIXB[1])
  
    aAdd(aRotina,{"BOTÃO Teste", "U_fTeste()", 0, 2, 0})
  
Return aRotina
  
  
User Function fTeste()
  
    MsgInfo("Teste MNTA290B", "Atenção")
  
Return

...