Histórico da Página

#INCLUDE "TOTVStotvs.CHch"
#INCLUDE 'FWMVCDEF.CH'

/*/{Protheus.doc} User Function FA666MENUF667USERMENU
    (Ponto de entrada para montar array com botoes a serem 
    apresentados no menulong_description)
    @type  ArrayFunction
    @author Cassio S. Dias
    @since 0729/11/2023
    @version 12.1.2310
    @return aButaBotoesPe, arrayARRAY
    @see (links_or_references)
    /*/
    
User Function FA666MENUF667USERMENU() as ARRAY

	Local aBotoesPe as ARRAY

    aBotoesPe   :=  {}
	
    Aadd(aBotoesPE,{'MENSAGEM',{|| u_TestMenu() },'Mais um Botão'}) //Adicionado um botão na EnchoiceBar

Return aBotoesPe



user Function TestMenu()

	Local cMsg as Character 
    cMsg := "Passou pelo Ponto de Entrada FA666MENU"

	MSGINFO( cMsg, "Novo botao do P.E FA666MENU" )

Return Nil