/* **************************************************************************************************** */
	function campos_llenos() {
		var ok, dato, iCont
		var oForm = document.frm;
		for(iCont=0;iCont<oForm.length; iCont++) {
			if(oForm[iCont].type=='text' || oForm[iCont].type=='password')
				if(oForm[iCont].value=='') {
					if (oForm[iCont].name!='txt_nom_inst_comp') {
						if (oForm[iCont].name!='txt_mesanio_ini_comp') {
							if (oForm[iCont].name!='txt_mesanio_ter_comp') {
								if (oForm[iCont].name!='slcespecialidad_comp') {
									alert("Debe llenar todos los campos");
									oForm[iCont].focus();
									return false;
								}
							}
						}
					}
				}
		}
		return true;
	}
/* **************************************************************************************************** */
	function NoKeyPress(){
		event.returnValue=false;
	}
/* **************************************************************************************************** */
	function NumeroKeyPress() {
		if (!((event.keyCode>=48) && (event.keyCode<=57))) {
			alert("El caracter ingresado no es válido");
			event.returnValue = false;
		}
	}
/* **************************************************************************************************** */
function fEsEmail(cad) {
	var i = 1;
	var cadLength = cad.length;
	
	// busca un '@'
	while ((i < cadLength) && (cad.charAt(i) != "@"))  i++;
	if ((i >= cadLength) || (cad.charAt(i) != "@"))	{
		return false;
	}
	else {
		i += 2;
	}
	// busca un '.'
	while ((i < cadLength) && (cad.charAt(i) != ".")) { 
		i++;
	}
	// debe haber por lo menos un caracter despues de '.'
	if ((i >= cadLength - 1) || (cad.charAt(i) != ".")) 
		return false;
    else return true;
}
/* **************************************************************************************************** */
	function fCambiaUrl(fe){
		var opt_key = fe.selectedIndex;
		var uri_val = fe.options[opt_key].value;
		if (uri_val != "") {
			window.open(uri_val, '_top');
			return true;
		}
		else {
			alert("Debe de escojer una tarifa");
			return false;
		}
	}
/* **************************************************************************************************** */
	function fCambiaTar(vRuta) {
		var index = frm.slcTarifas.selectedIndex;
	
		frm.slcSubTarifas.length = 0;
	
		if(index==0) return;
		if(index==1) fLDPersonas(vRuta);
		if(index==2) fLDEmpresas(vRuta);
		if(index==3) fTarjetas(vRuta); 
		if(index==4) fTelFija(vRuta); 
		if(index==5) fTelPub(vRuta); 
		if(index==6) fIntDedicado(vRuta); 
		if(index==7) fTransDatos(vRuta); 
	}
/* **************************************************************************************************** */
	function fLDPersonas(vRuta) {
		opcion0 = new Option("-------------------------------------", "" ,"defauldSelected");
		opcion1 = new Option("   -Plan Larga Distancia", vRuta+"t1.htm");
		opcion2 = new Option("   -Plan Ruta Frecuente", vRuta+"t2.htm");
		opcion3 = new Option("   -Perú Económico", vRuta+"t18.htm");
		opcion4 = new Option("   -Perú Ultra Económico", vRuta+"t19.htm");
		opcion5 = new Option("   -Perú VIP", vRuta+"t20.htm");
		opcion6 = new Option("   -Mundo Preferencial", vRuta+"t21.htm");
		opcion7 = new Option("   -Mundo Ultra Preferencial", vRuta+"t22.htm");
		opcion8 = new Option("   -Mundo Fijo Móvil", vRuta+"t23.htm");
		opcion9 = new Option("   -Mundo Extra", vRuta+"t24.htm");
		opcion10 = new Option("   -Mundo Frecuente", vRuta+"t25.htm");
		opcion11 = new Option("   -Mundo Plus", vRuta+"t26.htm");
		opcion12 = new Option("   -Mundo One Rate", vRuta+"t27.htm");
		opcion13 = new Option("   -Mundo Flexible", vRuta+"t28.htm");
		opcion14 = new Option("   -Mundo VIP", vRuta+"t29.htm");
		opcion15 = new Option("   -Peru Extra", vRuta+"t59.htm");
		opcion16 = new Option("   -Mundo Paga Menos", vRuta+"t60.htm");
		opcion17 = new Option("   -Mundo Fácil", vRuta+"t61.htm");
		opcion18 = new Option("   -Mundo Libre", vRuta+"t62.htm");
		opcion19 = new Option("   -Peru Fácil", vRuta+"t63.htm");
		opcion20 = new Option("   -Peru Paga Menos", vRuta+"t64.htm");
		
		frm.slcSubTarifas.options[0] = opcion0;
		frm.slcSubTarifas.options[1] = opcion1;
		frm.slcSubTarifas.options[2] = opcion2;
		frm.slcSubTarifas.options[3] = opcion3;
		frm.slcSubTarifas.options[4] = opcion4;
		frm.slcSubTarifas.options[5] = opcion5;
		frm.slcSubTarifas.options[6] = opcion6;
		frm.slcSubTarifas.options[7] = opcion7;
		frm.slcSubTarifas.options[8] = opcion8;
		frm.slcSubTarifas.options[9] = opcion9;
		frm.slcSubTarifas.options[10] = opcion10;
		frm.slcSubTarifas.options[11] = opcion11;
		frm.slcSubTarifas.options[12] = opcion12;
		frm.slcSubTarifas.options[13] = opcion13;
		frm.slcSubTarifas.options[14] = opcion14;
		frm.slcSubTarifas.options[15] = opcion15;
		frm.slcSubTarifas.options[16] = opcion16;
		frm.slcSubTarifas.options[17] = opcion17;
		frm.slcSubTarifas.options[18] = opcion18;
		frm.slcSubTarifas.options[19] = opcion19;
		frm.slcSubTarifas.options[20] = opcion20;
	}
/* **************************************************************************************************** */
	function fLDEmpresas(vRuta) {
		opcion0 = new Option("-------------------------------------", "" ,"defauldSelected");
		opcion1 = new Option("   -Plan Larga Distancia Emp.", vRuta+"t3.htm");
		opcion2 = new Option("   -Perú Preferencial Emp.", vRuta+"t30.htm");
		opcion3 = new Option("   -Perú Ultra Preferencial Emp.", vRuta+"t31.htm");
		opcion4 = new Option("   -Perú VIP Emp.", vRuta+"t32.htm");
		opcion5 = new Option("   -Mundo Preferencial Emp.", vRuta+"t33.htm");
		opcion6 = new Option("   -Mundo Ultra Preferencial Emp.", vRuta+"t34.htm");
		opcion7 = new Option("   -Venta Especial LDN", vRuta+"t35.htm");
		opcion8 = new Option("   -Venta Especial LDI", vRuta+"t36.htm");
		opcion9 = new Option("   -Seguro 4300 LDI", vRuta+"t37.htm");
		opcion10 = new Option("   -Nivel de Consumo", vRuta+"t38.htm");
		opcion11 = new Option("   -Promoción Primer Aniversario", vRuta+"t39.htm");
		opcion12 = new Option("   -77 LDN", vRuta+"t40.htm");
		opcion13 = new Option("   -LDN C100", vRuta+"t41.htm");
		opcion14 = new Option("   -LDN C120", vRuta+"t42.htm");
		opcion15 = new Option("   -LDN C150", vRuta+"t43.htm");
		opcion16 = new Option("   -LDN C200", vRuta+"t44.htm");
		opcion17 = new Option("   -LDI C5", vRuta+"t45.htm");
		opcion18 = new Option("   -LD F2", vRuta+"t46.htm");
		opcion19 = new Option("   -LD F3", vRuta+"t47.htm");
		opcion20 = new Option("   -LD F5", vRuta+"t48.htm");
		opcion21 = new Option("   -LD F6", vRuta+"t49.htm");
		opcion22 = new Option("   -LD F7", vRuta+"t50.htm");
		opcion23 = new Option("   -LD F8", vRuta+"t51.htm");
		opcion24 = new Option("   -LD F9", vRuta+"t52.htm");
		opcion25 = new Option("   -Peru Express", vRuta+"t65.htm");
		opcion26 = new Option("   -Mundo Express", vRuta+"t66.htm");
		
		frm.slcSubTarifas.options[0] = opcion0;
		frm.slcSubTarifas.options[1] = opcion1;
		frm.slcSubTarifas.options[2] = opcion2;
		frm.slcSubTarifas.options[3] = opcion3;
		frm.slcSubTarifas.options[4] = opcion4;
		frm.slcSubTarifas.options[5] = opcion5;
		frm.slcSubTarifas.options[6] = opcion6;
		frm.slcSubTarifas.options[7] = opcion7;
		frm.slcSubTarifas.options[8] = opcion8;
		frm.slcSubTarifas.options[9] = opcion9;
		frm.slcSubTarifas.options[10] = opcion10;
		frm.slcSubTarifas.options[11] = opcion11;
		frm.slcSubTarifas.options[12] = opcion12;
		frm.slcSubTarifas.options[13] = opcion13;
		frm.slcSubTarifas.options[14] = opcion14;
		frm.slcSubTarifas.options[15] = opcion15;
		frm.slcSubTarifas.options[16] = opcion16;
		frm.slcSubTarifas.options[17] = opcion17;
		frm.slcSubTarifas.options[18] = opcion18;
		frm.slcSubTarifas.options[19] = opcion19;
		frm.slcSubTarifas.options[20] = opcion20;
		frm.slcSubTarifas.options[21] = opcion21;
		frm.slcSubTarifas.options[22] = opcion22;
		frm.slcSubTarifas.options[23] = opcion23;
		frm.slcSubTarifas.options[24] = opcion24;
		frm.slcSubTarifas.options[25] = opcion25;
		frm.slcSubTarifas.options[26] = opcion26;
	}
/* **************************************************************************************************** */
	function fTarjetas(vRuta) {
		opcion0 = new Option("-------------------------------------", "" ,"defauldSelected");
		opcion1 = new Option("Ultra 77", "");
		opcion2 = new Option("   -Tarifas Base", vRuta+"t5.htm");
		opcion3 = new Option("   -Promociones", vRuta+"t6.htm");
		opcion4 = new Option("Extra Larga", "");
		opcion5 = new Option("   -Tarifas Base", vRuta+"t7.htm");
		opcion6 = new Option("   -Promociones", vRuta+"t8.htm");
		opcion7 = new Option("Llama Nacional", "");
		opcion8 = new Option("   -Tarifas Base", vRuta+"t53.htm");
		opcion9 = new Option("   -Promociones", vRuta+"t54.htm");		
		
		frm.slcSubTarifas.options[0] = opcion0;
		frm.slcSubTarifas.options[1] = opcion1;
		frm.slcSubTarifas.options[2] = opcion2;
		frm.slcSubTarifas.options[3] = opcion3;
		frm.slcSubTarifas.options[4] = opcion4;
		frm.slcSubTarifas.options[5] = opcion5;
		frm.slcSubTarifas.options[6] = opcion6;
		frm.slcSubTarifas.options[7] = opcion7;
		frm.slcSubTarifas.options[8] = opcion8;
		frm.slcSubTarifas.options[9] = opcion9;
	}
/* **************************************************************************************************** */
	function fTelFija(vRuta) {
		opcion0 = new Option("-------------------------------------", "" ,"defauldSelected");
		opcion1 = new Option("RDSI", "");
		opcion2 = new Option("   -Plan Promocional PRI", vRuta+"t9.htm");
		opcion3 = new Option("   -Bolsa de Minutos", vRuta+"t11.htm");
		opcion4 = new Option("   -Bolsa Promocional", vRuta+"t55.htm");
		opcion5 = new Option("   -Servicios Adicionales", vRuta+"t12.htm");
		opcion6 = new Option("Empresas", "");
		opcion7 = new Option("   -T.F. Analógica (Desc. por Vol.)", vRuta+"t13.htm");
		opcion8 = new Option("   -Bolsa de Minutos", vRuta+"t14.htm");
		opcion9 = new Option("   -Servicios Adicionales", vRuta+"t15.htm");
		
		frm.slcSubTarifas.options[0] = opcion0;
		frm.slcSubTarifas.options[1] = opcion1;
		frm.slcSubTarifas.options[2] = opcion2;
		frm.slcSubTarifas.options[3] = opcion3;
		frm.slcSubTarifas.options[4] = opcion4;
		frm.slcSubTarifas.options[5] = opcion5;
		frm.slcSubTarifas.options[6] = opcion6;
		frm.slcSubTarifas.options[7] = opcion7;
		frm.slcSubTarifas.options[8] = opcion8;
		frm.slcSubTarifas.options[9] = opcion9;
	}
/* **************************************************************************************************** */
	function fTelPub(vRuta) {
		opcion0 = new Option("-------------------------------------", "" ,"defauldSelected");
		opcion1 = new Option("   -Telefonía Pública", vRuta+"t16.htm");

		frm.slcSubTarifas.options[0] = opcion0;
		frm.slcSubTarifas.options[1] = opcion1;
	}
/* **************************************************************************************************** */
	function fIntDedicado(vRuta) {
		opcion0 = new Option("-------------------------------------", "" ,"defauldSelected");
		opcion1 = new Option("   -Tarifa Base", vRuta+"t17.htm");
		opcion2 = new Option("   -Promocionales", vRuta+"t56.htm");

		frm.slcSubTarifas.options[0] = opcion0;
		frm.slcSubTarifas.options[1] = opcion1;;
		frm.slcSubTarifas.options[2] = opcion2;;
	}
/* **************************************************************************************************** */
/* **************************************************************************************************** */
	function fTransDatos(vRuta) {
		opcion0 = new Option("-------------------------------------", "" ,"defauldSelected");
		opcion1 = new Option("   -Tarifa Base", vRuta+"t57.htm");
		opcion2 = new Option("   -Promocionales", vRuta+"t58.htm");

		frm.slcSubTarifas.options[0] = opcion0;
		frm.slcSubTarifas.options[1] = opcion1;;
		frm.slcSubTarifas.options[2] = opcion2;;
	}
/* **************************************************************************************************** */