/*
	Control Formulario v.2.1 [ 8.1K ]
	Licensed under GNU LGPL (www.gnu.org)

	(c) Conexiones On Line S.L.,2002 >> www.cononline.com
*/

function submitFormRegistro()
	{

	}

function IrAvanzado(URL) { // Versión 1.0 by CONONLINE

	switch (URL)	{
	case "adelante":
		window.history.forward();
		break;
	case "atras":
		window.history.back();
		break;
	case "recargar":
		window.location.reload();
		break;
	case "imprimir":
		print();
		break;
	default:
		location = URL;
	}
	return;

}
function Reemplaza(str) {
	str = str.replace("'", " ");
	str = str.replace("<", " ");
	str = str.replace(">", " ");
	return;
}
function RestableceFormulario(Elemento,Valor) { // Versión 3.1.0 by CONONLINE
	// alert("Tipo: "+Elemento.type+"\n Indice: "+i+"\n Nombre: "+Elemento.name);
	switch (Elemento.type)
	{
	case "select-one":
		for (j=0;j<Elemento.options.length;j++){
			if (Elemento.options[j].text == Valor) Elemento.options[j].selected = true ;
		}
		Elemento.style.background='#EEEEEE';
		break;
	case "radio":
		 Elemento.checked = false;
		break;
	case "checkbox":
		Elemento.checked = false;
		break;
	case "textarea":
		// Valor = Reemplaza(Valor);
		Elemento.value = Valor;
		break;
	case "hidden":
		Elemento.value = Valor;
		break;
	case "text":
		//Valor = Reemplaza(Valor);
		Elemento.value = Valor;
		Elemento.style.background='#EEEEEE';
		break;
	default:
		//Valor = Reemplaza(Valor);
		Elemento.value = Valor;
	}
	
	return;
}
function ValidarFormulario(Elemento) { // Versión 3.1.0 by CONONLINE
	// alert("Tipo: "+Elemento.type+"\n Indice: "+i+"\n Nombre: "+Elemento.name);
	switch (Elemento.type)	{
	case "select-one":
		if (ControlSeleccion(Elemento)){
			Elemento.style.background='#EEEEEE';
			return (true)
		}
		break;
	case "radio":
		return (true);
		break;
	case "checkbox":
		return (true);
		break;
	case "textarea":
		if (ControlVacio(Elemento)) {
			Elemento.style.background="#EEEEEE";
			return (true)
		}
		break;
	case "hidden":
		return (true);
		break;
	case "text":
		if (ControlVacio(Elemento)) {
			Elemento.style.background="#EEEEEE";
			return (true)
		}
		break;
	default:
		return (true);
	}
	return;
}
function ControlCorreoElectronico(campo) { // Versión 1.0 by CONONLINE
	Ctrl = campo;
	ConArroba = Ctrl.value.indexOf ('@')
	ConPunto = Ctrl.value.indexOf ('.')
	
	if ( ConArroba == -1 || ConPunto == -1) {
				/*MostrarAviso (Ctrl, "Debe introducir un E-mail valido. " + Ctrl.name + ".")*/

		return (false);
	} else
		return (true);
}
function ControlVacio(campo) { // Versión 1.0 by CONONLINE
	Ctrl = campo;
	if (Ctrl.value == "") {
		
				/*MostrarAviso (Ctrl, "Este campo no puede estar vacio. " + Ctrl.name + ".")*/
		
		
		return (false);
	} else
		return (true);
}
function ControlNumerico (Campo) { // Versión 1.3 by CONONLINE
	Ctrl = Campo;
	// cosa = Campo.value;
	LargoCampo = Campo.value.length;
	// alert("Largo: "+LargoCampo);
    if (LargoCampo==0) return(false);
	TipoMascara = ""
	for (Contador=0; Contador<LargoCampo; Contador++)  {
	    TipoMascara = TipoMascara + "#"
	}
	// alert(TipoMascara);
	if(!ComprobarMascara(Ctrl.value,TipoMascara)) {
		MostrarAviso(Ctrl,"Este campo tiene que tener formato numérico.\n Por ejemplo: 123");
		return (false);
	} else
	  	Ctrl.style.background="#EEEEEE";
		return (true);
}
function ControlLargo(campo,longitud) { // Versión 1.0 by CONONLINE
	Ctrl = campo;
	if (Ctrl.value.length != longitud) {
		MostrarAviso (Ctrl, Ctrl.name + " debe contener " + longitud + " caracteres.")
		return (false);
	} else
		return (true);
}
function ControlNIF(campo) { // Versión 2.0 by CONONLINE
	Ctrl = campo;
	strLetra = Ctrl.value;
	numDNI = strLetra.substr(0,strLetra.length-1);
	numDNI = numDNI % 23
	strLetra = strLetra.substr(strLetra.length-1,1);	
	strLetra = strLetra.toUpperCase();
	strLetras = 'TRWAGMYFPDXBNJZSQVHLCKET';
	strLetra=strLetras.indexOf(strLetra);
	if (strLetra!=numDNI) {
		MostrarAviso (Ctrl, Ctrl.name + " debe contener 8 números y 1 letra válida.")
		return (false);
	} else
		return (true);
}
function ControlSeleccion(campo) { // Versión 1.0 by CONONLINE
	Ctrl = campo;
	if (Ctrl.options[0].selected == true) {
		MostrarAviso (Ctrl, "Debe elegir un valor para " + Ctrl.name + ".")
		return (false);
	} else
		return (true);
}
function ControlMascara (campo,TipoMascara,EjemploMascara) {
	Ctrl = campo;
	if(!ComprobarMascara(Ctrl.value,TipoMascara)) {
		MostrarAviso(Ctrl,"Este campo tiene que tener formato "+TipoMascara+"\n Por ejemplo: "+EjemploMascara);
		return (false);
	} else
	  	Ctrl.style.background="#EEEEEE";
		return (true);
}
function ComprobarMascara (Campo, TextoMascara)  { // Versión 1.3 by CONONLINE
// (#: números, ?:letras, !:letras o números)
    LargoCampo = Campo.length;
    LargoMascara = TextoMascara.length;
    if ((LargoCampo==0) || (LargoMascara==0))
        return(false);
    if (LargoCampo!=LargoMascara)
        return(false);
    TextoTemporal=""
    for (Contador=0; Contador<=Campo.length; Contador++)  {
        CaracterTexto = Campo.substring(Contador, Contador+1);
        CaracterMascara = TextoMascara.substring(Contador, Contador+1);
        if (CaracterMascara=='#') {
            if(!EsCaracterNumerico(CaracterTexto))
                return(false);
        }
        else if (CaracterMascara=='?') {
            if(!EsCaracterAlfabetico(CaracterTexto))
                return(false);
        }
        else if (CaracterMascara=='!') {
            if(!EsCaracterAlfanumerico(CaracterTexto))
                return(false);
        }
        else if (CaracterMascara=='*') {
        }
        else {
            if (CaracterMascara!=CaracterTexto) 
                return(false);
        }
    }
    return (true);
}
function EsCaracterAlfabetico (CaracterComparado)  { // Versión 1.0 by CONONLINE
    if(CaracterComparado.length!=1) 
        return (false);
    CaracterComparado=CaracterComparado.toLowerCase();
    CaracteresDeReferencia="abcdefghijklmnopqrstuvwxyz";
    if (CaracteresDeReferencia.indexOf (CaracterComparado.toLowerCase(), 0)==-1) 
        return (false);
    return (true);
}

function EsCaracterNumerico (CaracterComparado)  { // Versión 1.0 by CONONLINE
    if(CaracterComparado.length!=1) 
        return (false);
    CaracteresDeReferencia="1234567890";
    if (CaracteresDeReferencia.indexOf (CaracterComparado, 0)==-1) 
        return (false);
    return (true);
}

function EsCaracterAlfanumerico (CaracterComparado)  { // Versión 1.0 by CONONLINE
    if(CaracterComparado.length!=1) 
        return (false);
    CaracterComparado=CaracterComparado.toLowerCase();
    CaracteresDeReferencia="1234567890abcdefghijklmnopqrstuvwxyz";
    if (CaracteresDeReferencia.indexOf (CaracterComparado, 0)==-1)  
        return (false);
    return (true);
}
function Bloquear(campo) {  // Versión 1.0 by CONONLINE
	Ctrl = campo;
	Ctrl.style.background='#FFFFFF';
	Ctrl.readOnly = true;
	return;
}
function DesBloquear(campo) {  // Versión 1.0 by CONONLINE
	Ctrl = campo;
	Ctrl.style.background='#EEEEEE';
	Ctrl.readOnly = false;
	return;
}
function MostrarAviso (Ctrl, Mensaje) { // Versión 1.0 by CONONLINE
	alert (Mensaje);
	Ctrl.style.background='red';
	Ctrl.focus();
	return;
}
/* FIN */