#Include 'Protheus.ch'
User Function MNTA6101()
Local lOk := .F.
Local nOpcX := 0
Local cOperacao := "Nao Identificada"
Local cOpcao := ""
Local oModel
Local nOperation
//Carrega variaveis
If Type("ParamIxb") == "A"
lOk := ParamIXB[1]
nOpcX := ParamIXB[2]
oModel := ParamIXB[3]
EndIf
nOperation := oModel:GetOperation()
If nOperation == MODEL_OPERATION_VIEW
cOperacao := "Visualizacao"
ElseIf nOperation == MODEL_OPERATION_INSERT
cOperacao := "Inclusao"
ElseIf nOperation == MODEL_OPERATION_UPDATE
cOperacao := "Alteracao"
ElseIf nOperation == MODEL_OPERATION_DELETE
cOperacao := "Exclusao"
EndIf
cOpcao := IIf(lOk,"Confirmada","Cancelada")
Alert("Ponto de Entrada MNTA6101."+CHR(13)+CHR(10)+;
"Operação: "+cOperacao+CHR(13)+CHR(10)+;
"Opção: "+cOpcao)
Return Nil |