Histórico da Página

#INCLUDE "TOTVS.CH"
#INCLUDE 'FWMVCDEF.CH'

/*/{Protheus.doc} User Function FA666MENU
    (Ponto de entrada para montar array com botoes a serem 
    apresentados no menu)
    @type  Array
    @author Cassio S. Dias
    @since 07/11/2023
    @version 12.1.2310
    @return aBut, array
    @see (links_or_referenceshttps://tdn.totvs.com/x/ZnspM)
    /*/

User Function FA666MENU() 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