function Limitar(Origen,Nombre,Tamano)
{
var Destino =new String(Trim(Origen))

if (Destino.length > Tamano)
{
   alert("Resuma el contenido de " + Nombre)
   return false
}
else
{
  return true    
}   

}


function BlancosRedundantes(Literal)
{
var dame = new String(Literal);
MuchosBlancos = / {2,}/gi;
IzDer = /^ {1,}| {1,}$/gi;
dame = dame.replace(MuchosBlancos, " ");
dame = dame.replace(IzDer, "");
return dame //.toUpperCase();
}

function Rtrim (dame)
{
if (dame == "")
{
 return (dame);
}
for (var i = dame.length - 1; i >= 0; i--)
{
  if (dame.charAt (i) != " ")
  {
  return (dame.substring (0, i + 1));
  }
}
if (i < 0)
{
return "";
}
else
{
return (dame);
}
}



function Ltrim (dame)
{
if (dame == "")
{
 return (dame);
}
for (var i = 0; i < dame.length; i++)
{
if (dame.charAt (i) != " ")
{
return (dame.substring (i));
}
}
if (i==dame.length)
{
return "";
}
else
{
return (dame);
}
}
function Trim(Dame)
{
return Ltrim(Rtrim(Dame));
}

function ControlDeFecha(Toma)
{
return true;
}
function BorrarRegistro ()
{
if (! confirm ("¿Está seguro de que desea eliminar el registro?"))
{
return (false);
}
else
{
return (true);
}
}








function AnalizarE_mail(Literal)
{
  
  var Origen = new String(BlancosRedundantes(Literal));

 
  
  var n = Origen.indexOf("@");
 
  if (n == -1)
  {
   alert("E-mail incorrecto.");
   return false;
  }
  var j = Origen.indexOf("@",n+1)
  if (j != -1)
  {
   alert("E-mail incorrecto.");
   return false;
  }
  else
  {
  
  if (Origen.length == n+1)
  {
   alert("E-mail incorrecto. @ no puede ser el último carácter.");
   return false;
  }
  else
  {
  // Esta última parte está tomada de no sé dónde,cubre alguna cosa
    arroba=Origen.indexOf("@")
	punto=Origen.indexOf(".",arroba)
	coma=Origen.indexOf(",")
	espacio=Origen.indexOf(" ")
	ultimopunto=Origen.lastIndexOf(".")+1
	tamano=Origen.length
	if ((arroba>0) && (punto>(1+1)) && (coma==-1) && (espacio==-1) && (tamano-ultimopunto >=2) && (tamano-ultimopunto<=3)) 
	{
	return true;
	

	}
	else 
	{
    alert("E-mail incorrecto.");
	return false;
	}
  
  
  }
  }
} 

function AnalizarE_mail2(Literal)
{
  
  var Origen = new String(BlancosRedundantes(Literal));

 
  
  var n = Origen.indexOf("@");
 
  if (n == -1)
  {
   
   return false;
  }
  var j = Origen.indexOf("@",n+1)
  if (j != -1)
  {
   
   return false;
  }
  else
  {
  
  if (Origen.length == n+1)
  {
   
   return false;
  }
  else
  {
  // Esta última parte está tomada de no sé dónde,cubre alguna cosa
    arroba=Origen.indexOf("@")
	punto=Origen.indexOf(".",arroba)
	coma=Origen.indexOf(",")
	espacio=Origen.indexOf(" ")
	ultimopunto=Origen.lastIndexOf(".")+1
	tamano=Origen.length
	if ((arroba>0) && (punto>(1+1)) && (coma==-1) && (espacio==-1) && (tamano-ultimopunto >=2) && (tamano-ultimopunto<=3)) 
	{
	return true;
	

	}
	else 
	{
   
	return false;
	}
  
  
  }
  }
} 

function Cambiar(dime)
{

if (dime == "S")
{
return  "N";
}
else
{
return "S";
}
}


function AMayuscula(dame)
{
s = new String(dame);
return s.toUpperCase();
}