Histórico da Página

User Function eecam100()
cParam := IIF(TYPE("PARAMIXB")=="C",PARAMIXB,PARAMIXB[1])
	    IF cParam == "GRAVACAO_INICIO"
	
    //3 -> Incluir
	    //4 -> Alterar
	    //5 -> Excluir
        //ParamIXB[2] := 5
        	IF PARAMIXB[2] == 4
            	MSGINFO("Registro alterado com sucesso")
        
        ELSEIF PARAMIXB[2] == 3
    	        MSGINFO("Registro incluído com sucesso")

      	  ELSEIF PARAMIXB[2] == 5
        	    MSGINFO("Registro excluído com sucesso")


    	ENDIF
	    ENDIF
    ELSEIF cParam == "APROVACAO_SALDO"
        lValidaSaldo:= .F.

    ELSEIF cParam =="VAL_STATUS"
        lRet := .T.

    ELSEIF cParam == "MAIL_TELA"
        cTo:= "[email protected]"
        cCC:= "[email protected]"
        cSubjec:="Assunto" 
        cConteudo:="exemplo de conteudo da mensagem"

    ELSEIF cParam =="MAIL_MSG_TAB"
        cBodyTb:= "Mensagem "

    ELSEIF cParam =="ANTES_VALID"
        lValAm := .F. 
    ENDIF
RETURN