Árvore de páginas

Versões comparadas

Chave

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

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro
Ponto de EntradaMT923MNU

02. DESCRIÇÃO

Ponto de Entrada MT922MNU MT923MNU permite que o cliente executar rotinas personalizadas na chamado o Menu.

No exemplo abaixo uma rotina personalizada estar sendo executada ao clicar nos botões "Pesquisar" ou "Incluir" quando o usuário possui um nível de acesso menor que 9.



03. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagejava
themeMidnight
titleMT922MNU MT923MNU
#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function MT922MNUMT923MNU
    (P.E. Permite abrir rotinas personalizadas na chamada no menu  )
    @type  Function
    @author Cassio S Dias
    @since 30/11/2023
    @version 12.1.2310
    @return Nil
    @see (https://tdn.totvs.com/x/MCwwM)

±±³          . Tipo de Transação a ser efetuada:                          ³±±
±±³          ³		1 - Pesquisa e Posiciona em um Banco de Dados         ³±±
±±³          ³    	2 - Simplesmente Mostra os Campos                     ³±±
±±³          ³    	3 - Inclui registros no Bancos de Dados               ³±±
±±³          ³    	4 - Altera o registro corrente                        ³±±
±±³          ³    	5 - Remove o registro corrente do Banco de Dados      ³±±

/*/

User Function MT922MNU MT923MNU()

	if CNIVEL < 9
        arotina[1][2]:="U_RotPesq()" //Rotina Pesquisar
        arotina[3][2]:="U_RotInc()" //Rotina Incluir
        MSGINFO( "Seu nível de acesso é "+cValToChar(CNIVEL)+". Acesso personalizado ", "Rotina Personalizada" )
	else
		MSGINFO( "Passou pela pe MT922mnuMT923MNU", "P.E - MT922MNUMT923MNU" )
	endif

Return Nil


user Function RotPesq()
	Local cMsg as Character 
    cMsg := "Rotina Pesquisar - Passou pelo Ponto de Entrada MT922MNUMT923MNU"
	MSGINFO( cMsg, "Novo botao do P.E  MT923MNU MT922MNU" )
Return Nil

user Function RotInc()
	Local cMsg as Character 
    cMsg := "Rotina Incluir - Passou pelo Ponto de Entrada MT922MNUMT923MNU"
	MSGINFO( cMsg, "Novo botao do P.E MT922MNUMT923MNU" )
Return Nil
O( cMsg, "Novo botao do P.E MT922MNUMT923MNU" )
Return Nil

04. DEMAIS INFORMAÇÕES

Não há


Templatedocumentos


HTML
<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>

...