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
    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