Histórico da Página

#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

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