Histórico da Página

Programa Fonte
TMSA040.PRW

Sintaxe
TM040MNU - Inclui Novas Opções ( ) --> Nil

Exemplos
aadd(aRotina,{'TEXTO DO BOTÃO','NOME DA FUNÇÃO' , 0 , 3,0,NIL})   
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
 
//-----------------------------------------------------------------
/*/{Protheus.doc} TM040MNU()
 
PE permite alterar o array utilizado para montagem do menu da Viagem Modelo 3.
 
@author User
@since 30/11/2021
@version 1.0
/*/
//--------------------------------------------------------------------
 
User Function TM040MNU()
/*
ONDE: Parâmetros do array a Rotina:

1. Nome a aparecer no cabeçalho
2. Nome da Rotina associada   
3. Reservado                       
4. 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
5. Nível de acesso                                  
6. Habilita Menu Funcional
*/
aadd( aRotina, { 'TEXTO DO BOTÃO - Teste PE', 'U_TstAlerta()', 0, 3, 0, NIL } )
  
Return
 
//-----------------------------------------------------------------
/*/{Protheus.doc} TstAlerta()
 
nova opção do menu
 
@author User
@since 30/11/2021
@version 1.0
/*/
//--------------------------------------------------------------------
 
User Function TstAlerta()
 
Alert("Ponto de Entrada funcionou!")
 
Return .T.