#Include 'Totvs.ch'
User Function MNTA2809()
Local nVar := PARAMIXB[1]
Local aNgButton := {}
// nVar = If"2" , Visual
// nVar = "3" , Inclui
// nVar = 3
"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"})
_SetOwnerPrvt("aNgButton",aNgButton)
EndIf
Return aNgButton |