Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "TOTVS.CH" /*/{Protheus.doc} User Function MT922MNU (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-S4wM) ±±³ . 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() 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 MT922MNU", "P.E - MT922MNU" ) endif Return Nil user Function RotPesq() Local cMsg as Character cMsg := "Rotina Pesquisar - Passou pelo Ponto de Entrada MT922MNU" MSGINFO( cMsg, "Novo botao do P.E MT922MNU" ) Return Nil user Function RotInc() Local cMsg as Character cMsg := "Rotina Incluir - Passou pelo Ponto de Entrada MT922MNU" MSGINFO( cMsg, "Novo botao do P.E MT922MNU" ) Return Nil O( cMsg, "Novo botao do P.E MT922MNU" ) Return Nil |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas