function RefrescarDocumentoArbitrariamente() {
	document.location = "#";
}



function SoloTextoEspanol(obj)
{
  var checkOLD = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzƒŠŒŽšœžŸÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ";  // versión multilíngüe
  var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÁÉÍÓÚÜáéíóúü";  // Versión en español
  var checkStr = obj.value;
  var allValid = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("Introduzca sólo texto");
    obj.value="";
    obj.focus();
  }
}

function EntradaRestringida(obj,TipoMascara)
{
	var checkOK;
  var checkStr = obj.value;
  var allValid = true;
	
	switch (TipoMascara) {
		case "EnteroPositivo":
		checkOK = "0123456789";
		MensajeRestrictivo = "Introduzca sólo enteros positivos\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "EnteroPositivoYEspacio":
		checkOK = " 0123456789";
		MensajeRestrictivo = "Introduzca sólo enteros positivos\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "EnteroNegativo":
		checkOK = "-0123456789";
		MensajeRestrictivo = "Introduzca sólo enteros\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "FlotantePositivo":
		checkOK = ".0123456789";
		MensajeRestrictivo = "Introduzca sólo números positivos\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "FlotanteNegativo":
		checkOK = "-.0123456789";
		MensajeRestrictivo = "Introduzca sólo números\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "CorreoElectronico":
		checkOK = "@_abcdefghijklmnopqrstuvwxyz.0123456789";
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "TelefonoAlfanumerico":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz*#@.-() 0123456789";
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "Telefono":
		checkOK = "*#@.-() 0123456789";
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "FechaHora":
		checkOK = "/-: 0123456789";
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "ClaveLada":
		checkOK = "0123456789";
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "TextoMultilingue":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzƒŠŒŽšœžŸÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ";  // Texto multilíngüe
		MensajeRestrictivo = "Introduzca sólo texto sin espacios";
		break;
		case "TextoMultilingueYEspacio":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyzƒŠŒŽšœžŸÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ";  // Texto multilíngüe y espacio
		MensajeRestrictivo = "Introduzca sólo texto";
		break;
		case "MemoISO8859_1":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyzáéíóúÁÉÍÓÚäëïöüÄËÏÖÜâêîôûÂÊÎÔÛñÑ!¡¿?-#*+";  // Texto multilíngüe y espacio
		MensajeRestrictivo = "Introduzca sólo texto en español\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "TextoEspanol":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÁÉÍÓÚÜáéíóúüñÑ";  // Texto en español
		MensajeRestrictivo = "Introduzca sólo texto en español sin espacios\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "TextoEspanolYEspacio":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyzÁÉÍÓÚÜáéíóúüñÑ";  // Texto en español y espacio
		MensajeRestrictivo = "Introduzca sólo texto en español\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "TextoEspanolYEspacioConPuntoComa":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZ .,abcdefghijklmnopqrstuvwxyzÁÉÍÓÚÜáéíóúüñÑ";  // Texto en español y espacio
		MensajeRestrictivo = "Introduzca sólo texto en español\n\nCaracteres permitidos:\n"+checkOK;
		break;
		case "TextoLogin":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";  // TextoLogin
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "TextoSolaris":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890.,;:*+-_()#";  // TextoSolaris
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "TextoLoginMinuscula":
		checkOK = "abcdefghijklmnopqrstuvwxyz0123456789";  // Texto Password
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "TextoPassword":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789*-+_-<>@#%";  // Texto Password
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;
		case "TextoMemo":
		checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZ \r\nabcdefghijklmnopqrstuvwxyzÁÉÍÓÚÜáéíóúüñÑ0123456789*-+_-<>@#%,.;:[]{}()¿?¡!";  // Texto Password
		MensajeRestrictivo = "Introduzca sólo los caracteres permitidos:\n"+checkOK;
		break;

};

  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
			valorARecuperar = checkStr.substring(0,i);
      break;
    }
  }
  if (!allValid)
  {
    alert(MensajeRestrictivo);
    obj.value = valorARecuperar;
    obj.focus();
  }
}

function BackParent(Time) {
// Time = 15000 quince segundos
//  idcron = setTimeout("parent.location='../../index.php'",Time);
  idcron = setTimeout("history.back()",Time);
}

// **********************************************************************
function ltrim(str) {
        for(var k = 0; k < str.length && isWhitespace(str.charAt(k)); k++);
        return str.substring(k, str.length);
}
function rtrim(str) {
        for(var j=str.length-1; j>=0 && isWhitespace(str.charAt(j)) ; j--) ;
        return str.substring(0,j+1);
}
function trim(str) {
        return ltrim(rtrim(str));
}
function isWhitespace(charToCheck) {
        var whitespaceChars = " \t\n\r\f";
        return (whitespaceChars.indexOf(charToCheck) != -1);
}

function RespectAccentUpper(Texto) {
	Arr_A = new Array("á","é","í","ó","ú","ñ","ç");
	Arr_B = new Array("à","è","ì","ò","ù","","");
	Arr_C = new Array("ä","ë","ï","ö","ü","","");
	Arr_D = new Array("â","ê","î","ô","û","","");
	Arr_E = new Array("Á","É","Í","Ó","Ú","Ñ","Ç");
	Arr_F = new Array("À","È","Ì","Ò","Ù","","");
	Arr_G = new Array("Â","Ê","Î","Ô","Û","","");
	Arr_H = new Array("Ä","Ë","Ï","Ö","Ü","","");
	Arr_RespectAccentUpper = new Array("Á","É","Í","Ó","Ú","Ñ","Ç");
	Arr_RespectAccentLower = new Array("á","é","í","ó","ú","ñ","ç");
	TextoSalida = "";

	for (iRAU=0 ; iRAU < Texto.length ; iRAU++) {
		for (jRAU=0 ; jRAU < 7 ; jRAU++) {
			Asignacion = false;
			switch (Texto.substr(iRAU,1)) {
			case Arr_A[jRAU]: TextoSalida = TextoSalida + Arr_RespectAccentUpper[jRAU]; Asignacion = true; jRAU = 7; break;
			case Arr_B[jRAU]: TextoSalida = TextoSalida + Arr_RespectAccentUpper[jRAU]; Asignacion = true; jRAU = 7; break;
			case Arr_C[jRAU]: TextoSalida = TextoSalida + Arr_RespectAccentUpper[jRAU]; Asignacion = true; jRAU = 7; break;
			case Arr_D[jRAU]: TextoSalida = TextoSalida + Arr_RespectAccentUpper[jRAU]; Asignacion = true; jRAU = 7; break;
			case Arr_E[jRAU]: TextoSalida = TextoSalida + Arr_RespectAccentUpper[jRAU]; Asignacion = true; jRAU = 7; break;
			case Arr_F[jRAU]: TextoSalida = TextoSalida + Arr_RespectAccentUpper[jRAU]; Asignacion = true; jRAU = 7; break;
			case Arr_G[jRAU]: TextoSalida = TextoSalida + Arr_RespectAccentUpper[jRAU]; Asignacion = true; jRAU = 7; break;
			case Arr_H[jRAU]: TextoSalida = TextoSalida + Arr_RespectAccentUpper[jRAU]; Asignacion = true; jRAU = 7; break;
			}  // Termina switch
		}  // Termina for jRAU
		if (!Asignacion) {TextoSalida = TextoSalida + Texto.substr(iRAU,1);}
	}  // Termina for iRAU
	return (TextoSalida);
}  // Termina function

function RespectAccentLower(Texto) {
	Arr_A = new Array("á","é","í","ó","ú","ñ","ç");
	Arr_B = new Array("à","è","ì","ò","ù","","");
	Arr_C = new Array("ä","ë","ï","ö","ü","","");
	Arr_D = new Array("â","ê","î","ô","û","","");
	Arr_E = new Array("Á","É","Í","Ó","Ú","Ñ","Ç");
	Arr_F = new Array("À","È","Ì","Ò","Ù","","");
	Arr_G = new Array("Â","Ê","Î","Ô","Û","","");
	Arr_H = new Array("Ä","Ë","Ï","Ö","Ü","","");
	Arr_RespectAccentUpper = new Array("Á","É","Í","Ó","Ú","Ñ","Ç");
	Arr_RespectAccentLower = new Array("á","é","í","ó","ú","ñ","ç");
	TextoSalida = "";

	for (iRAL=0 ; iRAL < Texto.length ; iRAL++) {
		for (jRAL=0 ; jRAL < 7 ; jRAL++) {
			Asignacion = false;
			switch (Texto.substr(iRAL,1)) {
			case Arr_A[jRAL]: TextoSalida = TextoSalida + Arr_RespectAccentLower[jRAL]; Asignacion = true; jRAL = 7; break;
			case Arr_B[jRAL]: TextoSalida = TextoSalida + Arr_RespectAccentLower[jRAL]; Asignacion = true; jRAL = 7; break;
			case Arr_C[jRAL]: TextoSalida = TextoSalida + Arr_RespectAccentLower[jRAL]; Asignacion = true; jRAL = 7; break;
			case Arr_D[jRAL]: TextoSalida = TextoSalida + Arr_RespectAccentLower[jRAL]; Asignacion = true; jRAL = 7; break;
			case Arr_E[jRAL]: TextoSalida = TextoSalida + Arr_RespectAccentLower[jRAL]; Asignacion = true; jRAL = 7; break;
			case Arr_F[jRAL]: TextoSalida = TextoSalida + Arr_RespectAccentLower[jRAL]; Asignacion = true; jRAL = 7; break;
			case Arr_G[jRAL]: TextoSalida = TextoSalida + Arr_RespectAccentLower[jRAL]; Asignacion = true; jRAL = 7; break;
			case Arr_H[jRAL]: TextoSalida = TextoSalida + Arr_RespectAccentLower[jRAL]; Asignacion = true; jRAL = 7; break;
			}  // Termina switch
		}  // Termina for jRAL
		if (!Asignacion) {TextoSalida = TextoSalida + Texto.substr(iRAL,1);}
	}  // Termina for iRAL
	return (TextoSalida);
}  // Termina function

function NombreMayusculasMinusculas(Texto) {
	// Convierte texto a minúscula;
	Texto = Texto.toLowerCase();
	TextoSalida = " ";
	if (Texto.isString) {return (NULL);}
	var ArrPalabras = new Array();
	ArrPalabras = Texto.split(" ");
	Pronombres = "*de*del*el*la*los*las*y*o*d*";
	for (i=0 ; i <= ArrPalabras.length - 1; i++){
		if (Pronombres.indexOf("*"+ArrPalabras[i]+"*",0) >= 0) {
			// Todas las letras en minúscula
			TextoSalida = TextoSalida + RespectAccentLower( ArrPalabras[i].toLowerCase() ) + " ";
			//TextoSalida = TextoSalida + ArrPalabras[i].toLocaleLowerCase() + " ";
		} else {
			TextoSalida = TextoSalida + RespectAccentUpper( ArrPalabras[i].substr(0,1).toUpperCase() ) + RespectAccentLower( ArrPalabras[i].substr(1).toLowerCase() ) + " ";
			//TextoSalida = TextoSalida + ArrPalabras[i].substr(0,1).toLocaleUpperCase() + ArrPalabras[i].substr(1).toLocaleLowerCase() + " ";


		}
	}
	TextoSalida = trim(TextoSalida);
	return (TextoSalida);
}

function FiltraAltasBajas(Obj) {
	Obj.value = NombreMayusculasMinusculas(Obj.value);
	Obj.focus();
}  // Termina function

// accentless *á*a*é*e*í*i*ó*o*ú*u*à*a*è*e*ì*i*ò*o*ù*u*ä*a*ë*e*ï*i*ö*o*ü*u*â*a*ê*e*î*i*ô*o*û*u*Á*A*É*E*Í*I*Ó*O*Ú*U*À*A*È*E*Ì*I*Ò*O*Ù*U*Â*A*Ê*E*Î*I*Ô*O*Û*U*Ä*A*Ë*E*Ï*I*Ö*O*Ü*U*ñ*n*Ñ*N*ç*c*Ç*C*
// respectaccentupper *á*Á*é*É*í*Í*ó*Ó*ú*Ú*à*Á*è*É*ì*Í*ò*Ó*ù*Ú*ä*Á*ë*É*ï*Í*ö*Ó*ü*Ú*â*Á*ê*É*î*Í*ô*Ó*û*Ú*Á*Á*É*É*Í*Í*Ó*Ó*Ú*Ú*À*Á*È*É*Ì*Í*Ò*Ó*Ù*Ú*Â*Á*Ê*É*Î*Í*Ô*Ó*Û*Ú*Ä*Á*Ë*É*Ï*Í*Ö*Ó*Ü*Ú*ñ*Ñ*Ñ*Ñ*ç*C*Ç*C*
// respectaccentlower *á*á*é*é*í*í*ó*ó*ú*ú*à*á*è*é*ì*í*ò*ó*ù*ú*ä*á*ë*é*ï*í*ö*ó*ü*ú*â*á*ê*é*î*í*ô*ó*û*ú*Á*á*É*é*Í*í*Ó*ó*Ú*ú*À*á*È*é*Ì*í*Ò*ó*Ù*ú*Â*á*Ê*é*Î*í*Ô*ó*Û*ú*Ä*á*Ë*é*Ï*í*Ö*ó*Ü*ú*ñ*ñ*Ñ*ñ*ç*c*Ç*c*
// áéíóú*àèìòù*äëïöü*âêîôû*ÁÉÍÓÚ*ÀÈÌÒÙ*ÂÊÎÔÛ*ÄËÏÖÜ*ñÑ*çÇ