Histórico da Página

#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