Árvore de páginas

Versões comparadas

Chave

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

...

02. DESCRIÇÃO

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

...

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

/*/{Protheus.doc} User Function MT923MNU
    (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 (links_or_referenceshttps://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  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 MT923mnuMT923MNU", "P.E - MT923MNU" )
	endif

Return Nil


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

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

04. DEMAIS INFORMAÇÕES

...