Histórico da Página

#Include 'Totvs.ch'

User Function MNTA2809()

	Local nVar := PARAMIXB[1]
	Local aNgButton := {}
	// nVar = "2"  , Visual
	// nVar = "3"  , Inclui
	// nVar = "4"  , Altera
	// nVar = "5"  , Exclui

	If nVar == 3 //Incluir
		Aadd(aNgButton,{"PARAMETROS" ,{||MsgInfoMsgStop(	"Ponto de Entrada" + CHR(13)+CHR(10)+ "Execução do Botão!")},;
						"Solicitacao - Ponto de Entrada")},"Solicitacao"})
	EndIf

Return aNgButton

#Include 'Protheus.ch'      

User Function MNTA2809(nVar),

	Local aNgButton := {}
	
	If nVar == 3	
		Aadd(aNgButton,{"PARAMETROS" ,{||MsgInfo("Ponto de Entrada" + CHR(13)+CHR(10)+ "Execução do Botão!")},;
		"Solicitacao - Ponto de Entrada","Solicitacao"})	
		_SetOwnerPrvt("aNgButton",aNgButton)
	EndIf

Return