/* ********************************************************************************************
 Función.....: sustituirPorBR
 Autor ......: Antonio Castillo Peláez
 Fecha ......: 21/1/2000
 Parámetros..: texto:texto donde reemplazar retornos de carro
 Retorno.....: texto con los retornos modificados por <BR>
 Descripción.: modifica los retornos de carro por <BR>
 ******************************************************************************************** */
function sustituirPorBR(texto)
{
	var regular=/\r\n/gi;
		
	return texto.replace(regular,"<BR>");
}

/* ********************************************************************************************
 Función.....: cadenaVacia(cadena)
 Autor ......: Antonio Castillo Peláez
 Fecha ......: 21/1/2000
 Parámetros..: cadena:texto a comprobar
 Retorno.....: true si cadena vacia
 Descripción.: comprueba si texto es una cadena vacia
 ******************************************************************************************** */
 function cadenaVacia(cadena)
{
	if(cadena==null || cadena.length==0 || cadena == "")
		return true;
		
	for(var index=0;index<cadena.length;index++)
		if((cadena.charAt(index)!=' ') && (cadena.charAt(index)!='\t') && (cadena.charAt(index)!='\n') && (cadena.charAt(index)!='\r'))
			return false;
			
	return true;
}

/* ********************************************************************************************
 Función.....: LTrim(str)
 Autor ......: Angel Jesus Fernandez
 Fecha ......: 28/02/2002
 Parámetros..: cadena
 Retorno.....: cadena
 Descripción.: devuelve la cadena parametro sin blancos por la izquierda
 ******************************************************************************************** */
function LTrim(str)
{
        var whitespace = new String(" \t\n\r");

        var s = new String(str);

        if (whitespace.indexOf(s.charAt(0)) != -1) {
            var j=0, i = s.length;
            while (j < i && whitespace.indexOf(s.charAt(j))!= -1)
                j++;
            s = s.substring(j, i);
        }
        return s;
}
/* ********************************************************************************************
 Función.....: RTrim(str)
 Autor ......: Angel Jesus Fernandez
 Fecha ......: 28/02/2002
 Parámetros..: cadena
 Retorno.....: cadena
 Descripción.: devuelve la cadena parametro sin blancos por la derecha
 ******************************************************************************************** */

function RTrim(str)
{
        var whitespace = new String(" \t\n\r");
        var s = new String(str);

        if (whitespace.indexOf(s.charAt(s.length-1)) != -1) {
            var i = s.length - 1;       // Get length of string
            while (i >= 0 && whitespace.indexOf(s.charAt(i))!= -1)
                i--;
            s = s.substring(0, i+1);
        }
        return s;
}
/* ********************************************************************************************
 Función.....: Trim(str)
 Autor ......: Angel Jesus Fernandez
 Fecha ......: 28/02/2002
 Parámetros..: cadena
 Retorno.....: cadena
 Descripción.: devuelve la cadena parametro sin blancos por la izquierda ni por la derecha
 ******************************************************************************************** */
function Trim(str) {
    return RTrim(LTrim(str));
}

/*
 * Devuelve la cadena rellena 'piNumCeros' ceros a la izquierda
 */
function rellenaCerosIzq(psCadena, piNumPosiciones)
{
	var result = psCadena;
	while (result.length < piNumPosiciones)
	{
		result = "0" + result;
	}
	return result;
}


function MM_findObjCad(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

/*
 * Convierte el contenido de un campo de un formulario a mayúsculas
 */
function upperCaseCampo(nombre)
{
	var c = MM_findObjCad(nombre);
	var cad = c.value;
	//var x = document.getElementById(nombre).value;
	//document.getElementById(nombre).value = x.toUpperCase();
	c.value = cad.toUpperCase();
}