function fnc_RevisarEmail(emailStr) {
    var emailPat=/^(.+)@(.+)$/
    var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
    var validChars="\[^\\s" + specialChars + "\]"
    var quotedUser="(\"[^\"]*\")"
    var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/
     var atom=validChars + '+';
	var word="(" + atom + "|" + quotedUser + ")";
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
	var matchArray=emailStr.match(emailPat);
    if (matchArray==null) {return false;}
    var user=matchArray[1];
    var domain=matchArray[2]
    if (user.match(userPat)==null) { return false;}
    var IPArray=domain.match(ipDomainPat);
    if (IPArray!=null) { for (var i=1;i<=4;i++) { if (IPArray[i]>255) {return false;}}return true;}
    var domainArray=domain.match(domainPat);
    if (domainArray==null) { return false;}
	var atomPat=new RegExp(atom,"g");
	var domArr=domain.match(atomPat);
	var len=domArr.length;
	if (domArr[domArr.length-1].length<2 ||  domArr[domArr.length-1].length>3) { return false;}
	if (len<2) { return false;}return true;}
	

function validarut(chrcadena)
  {
    digitoverificador="";
    digitos= new Array(12);
    acum=0;
    modulo=0;
    valido=-1;
    chrcadena=darformato_RUT(chrcadena);
    if (chrcadena.substring(9,9+1) =="k" || chrcadena.substring(9,9+1) =="K")
    { digitoverificador="K"; }
    else
    { digitoverificador=chrcadena.substring(9,9+1); }
    for (acum=0;acum<10;acum++)
    { digitos[acum]=chrcadena.substring(acum,acum+1); }
    acum=0;
    acum=digitos[0]*4+digitos[1]*3+digitos[2]*2+digitos[3]*7+digitos[4]*6+digitos[5]*5+digitos[6]*4+digitos[7]*3+digitos[8]*2;
    digi=0;
    modulo = 11 - (acum % 11);
    if (modulo==10)
      digi="K";
    else 
      if (modulo==11)
        digi="0";
      else
        digi=modulo;
        if (digi==digitoverificador)
          valido=0;
    
    return(valido);
  }
  
  function darformato_RUT(chrcadena)
  {
     //se completa de ceros a la izquierda a la cadena que contiene al RUT completo
     if (chrcadena.length <10) 
     {  ii=10-chrcadena.length;
        for (i= 1;i<=ii;i++)
        { chrcadena="0"+chrcadena; }
     }
     return (chrcadena)
  }

  function  fnc_tipocontac(Strcontacto)
           { if (Strcontacto=="")
            { alert ("Seleccione Motivo de contacto"); document.form_contacto.motivo.focus(); }
            else
             return true;
    } 
    
/*************************************************************************\
boolean isNum(String argvalue)
return true if argvalue contains only numeric characters,
else return false.
\*************************************************************************/
function isNum(argvalue) {
  argvalue = argvalue.toString();

  if (argvalue.length == 0)
    return false;

  for (var n = 0; n < argvalue.length; n++)
    if (argvalue.substring(n, n+1) < "0" || argvalue.substring(n, n+1) > "9")
      return false;

  return true;
}