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"//Permite validar o status do registro e a sua gravação
        lRet := .T.

    ELSEIF cParam == "MAIL_TELA"
        cFrom:= "[email protected]"
        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.//Variável utilizada em rdmake para desviar validação no embarque referente à amostra
    ENDIF
RETURN