	<!--
		function crea_array(oArray, dimension) {
			nLargo = oArray.length;
			for(var i=0; i <=nLargo; i++) {
				oArray[i] = new Array(1);
			}
		}

		function predecesor(iList, aOrden) {
			sElem = "";
			for(var i=0; i<aOrden.length; i++) {
				if(aOrden[i] == iList.name) sElem = aOrden[i-1];
			}
			return sElem;
		}

		function sucesor(iList, aOrden) {
			sElem = "";
			for(var i=0; i<aOrden.length; i++) {
				if(aOrden[i] == iList.name) sElem = aOrden[i+1];
			}
			return sElem;
		}

		function add_elemento(sForm, sList, aList, sTexto0) {
			with(eval("document.forms['" + sForm + "']")) {
				sValores = dev_Valores(sForm, sList, aLogica);
				aValores = sValores.split("*");

				if(eval(sList) != null) {
					nItems = eval(sList).length;
					if(nItems == 0) {
						eval(sList).options[nItems] = new Option(sTexto0);
						nItems++;
					}

					for(var i=0; i<eval("aArticulos" + aValores[0] +".length"); i++) {
						eval(sList).options[nItems] = new Option(eval("aArticulos" + aValores[1] + aValores[2]));
						nItems++;
					}
				}
			}
		}

		function dev_Valores(sForm, sList, aOrden) {
			sId = "";
			sElem = "";

			// Numero de carac. a tener en cuenta para la dimension del array
			for(var i=0; i<aOrden.length; i++) {
				if(eval("document.forms['" + sForm + "']." + aOrden[i]) != null) {
					if(i != 0 && aOrden[i] == sList) {
						sId = sId + "[i]"
					}
					else {
						if(eval("document.forms['" + sForm + "']." + aOrden[i] + ".selectedIndex") > 0) {
							sId = sId + "[" + (eval("document.forms['" + sForm + "']." + aOrden[i] + ".selectedIndex")-1) + "]";
						}
						else {
							sId = sId + "[0]";
						}
					}
				}
			}

			// Carac. a rellenar
			for(var i=0; i<aOrden.length; i++) {
				if(aOrden[i] == sList) {
					sElem = "[" + i + "]";
				}
			}

			// Dimension de longitud de elementos
			sIdtmp = sId.substring(0, sId.indexOf('[i]'));

			return sIdtmp + "*" + sId + "*" + sElem;
		}

		function dev_Seleccion(sForm, iList, aOrden) {
			var sId = "";

			for(var i=0; i<aOrden.length; i++) {
				if(eval("document.forms['" + sForm + "']." + aOrden[i]) != null) {
					if(eval("document.forms['" + sForm + "']." + aOrden[i] + ".selectedIndex") > 0) {
						sId = sId + "[" + (eval("document.forms['" + sForm + "']." + aOrden[i] + ".selectedIndex")-1) + "]";
					}
				}
			}

			// Longitud del array, marca el ultimo elemento
			sLng = "[" + (aOrden.length) + "]";

			return sId + sLng;
		}

		function carga_lb(sForm, sList, aList, sTexto0) {
			with(eval("document.forms['" + sForm + "']")) {
				if(eval(sList) != null) {
					nItems = eval(sList).length;
					if(nItems == 0) {
						eval(sList).options[nItems] = new Option(sTexto0);
						nItems++;
					}

					if(aList != null) {
						for(var i=0; i<aList.length; i++) {
							eval(sList).options[nItems] = new Option(aList[i]);
							nItems++;
						}
					}
				}
			}
		}
		
		function limpia_lb(sForm, sList) {
			with(eval("document.forms['" + sForm + "']")) {
				eval(sList).length = 0;
			}
		}

		function cambia_nivel(sForm, iList, sListPre, sListDep, sTexto0) {
			with(eval("document.forms['" + sForm + "']")) {
				if(eval(sListDep) != null) eval(sListDep).length = 0;
				add_elemento(sForm, sListDep, aArticulos, sTexto0);

			}
		}

		function inicia_lista(sForm, sList, sTexto0) {
			with(eval("document.forms['" + sForm + "']")) {
				if(eval(sList) != null) {
					nItems = eval(sList).length;
					if(nItems == 0) {
						eval(sList).options[nItems] = new Option(sTexto0);
					}
				}
			}
		}

		function maneja_listas(oForm, iList, sListPre, sListDep, sTexto0, tasa_eu, tasa_do) {
			with(eval("document.forms['" + oForm.name + "']")) {
				if(iList.selectedIndex != 0) {
					if(sListDep == null) {
						sId = dev_Seleccion(oForm.name, iList, aLogica);
						if(navigator.appName != "Netscape") {
							if(eval("document.forms['" + oForm.name + "'].all.lin_Dsd_" + '1') != null) {
								eval("document.forms['" + oForm.name + "'].all.lin_Dsd_" + '1').style.display = 'none';
							}
						}
						else {
						// Esto es para Netscape
							if (parseInt(navigator.appVersion.charAt(0)) > 4){
							// Para versiones "Superiores" de Nets
								nombreCapa = 'lin_Dsd_1';
								if(eval("document.getElementById('lin_Dsd_1')") != null){ //Reconoce la capa
									eval("document.getElementById('lin_Dsd_1')").style.visibility = 'hidden';
								}
							}
							else{
							// Para versiones "Inferiores" de Nets
								//if(eval("document.forms['" + oForm.name + "'].layers['lin_Dsd_1']") != null) {
								// Reservamos este código por si acaso alguna versión de Nets lo necesita
								if(eval("document.layers['lin_Dsd_1']") != null) {
									//eval("document.forms['" + oForm.name + "'].layers['lin_Dsd_1']").visibility = 'hide';
									eval("document.layers['lin_Dsd_1']").visibility = 'hide';
								}
							}
						}
						calcula_precios(oForm, 1, eval("aArticulos" + sId), tasa_eu, tasa_do);

					}
					else {
						cambia_nivel(oForm.name, iList, sListPre, sListDep, eval(sListDep + "_text"));
						eval("document.forms['" + oForm.name + "']." + sListDep).selectedIndex=0;
					}
				}
				else {
					if(navigator.appName != "Netscape") {
						if(eval("document.forms['" + oForm.name + "'].all.lin_Dsd_" + '1') != null) {
							eval("document.forms['" + oForm.name + "'].all.lin_Dsd_" + '1').style.display = '';
						}
					}
					else {
					// Esto es para Netscape
						if (parseInt(navigator.appVersion.charAt(0)) > 4){
						// Para versiones "Superiores" de Nets
							nombreCapa = 'lin_Dsd_1';
							if(eval("document.getElementById(nombreCapa)") != null){ //Reconoce la capa
								eval("document.getElementById(nombreCapa)").style.visibility = 'visible';
							}
						}
						else{
						// Para versiones "Inferiores" de Nets
							//if(eval("document.forms['" + oForm.name + "'].layers['lin_Dsd_" + "1']") != null) {
							if(eval("document.layers['lin_Dsd_1']") != null) {
								//eval("document.forms['" + oForm.name + "'].layers['lin_Dsd_" + "1']").visibility = 'show';
								eval("document.layers['lin_Dsd_1']").visibility = 'show';
							}
						}
					}

					if(sListDep != null) {
						limpia_lb(oForm.name, sListDep);
						carga_lb(oForm.name, sListDep, null, eval(sListDep + "_text"))
					}

					sPrimer = eval("document.forms['" + oForm.name + "'].prRefH_" + '1').value + "*" + eval("document.forms['" + oForm.name + "'].prOfeH_" + '1').value + "*" + eval("document.forms['" + oForm.name + "'].referenciaH_" + '1').value;
					calcula_precios(oForm, 1, sPrimer, tasa_eu, tasa_do);
				}
			}
		}

		function comprueba_listas(sForm) {
			with(eval("document.forms['" + sForm + "']")) {
				if(eval("document.forms['" + sForm + "'].lb_col") != null) {
					if(eval("document.forms['" + sForm + "'].lb_col.selectedIndex") == 0) {
						window.alert("Por favor, realice una selección en la lista de colores.");
						return false;
					}
				}
				if(eval("document.forms['" + sForm + "'].lb_tal") != null) {
					if(eval("document.forms['" + sForm + "'].lb_tal.selectedIndex") == 0) {
						window.alert("Por favor, realice una selección en la lista de medidas.");
						return false;
					}
				}

				if(eval("document.forms['" + sForm + "'].lb_mod") != null) {
					if(eval("document.forms['" + sForm + "'].lb_mod.selectedIndex") == 0) {
						window.alert("Por favor, realice una selección en la lista de modelos.");
						return false;
					}
				}
				return true;
			}
		}
		
		function venta_por_reserva(sForm){
			//Misión :
			//	Función que valida los datos necesarios para añadir a la cesta para una
			//	mercancía de Venta por Reserva (VPR).
			//
			//Parámetros entrada:
			//	* sForm : nombre del formulario que contiene los datos que se deben validar.
			
			//Montaje.
			if(eval("document.forms['" + sForm + "'].vpr_marcha_0") != null){
				if(eval("document.forms['" + sForm + "'].vpr_marcha_0").selectedIndex <= 1){
					window.alert("Por favor, selecciona si deseas puesta en marcha / montaje.");
					return false;
				}
			}
			
			//Retirada del antigüo.
			if(eval("document.forms['" + sForm + "'].vpr_recoge_0") != null){
				if(eval("document.forms['" + sForm + "'].vpr_recoge_0").selectedIndex <= 1){
					window.alert("Por favor, selecciona si deseas retirada del antigüo.");
					return false;
				}
			}
			
			window.open('/hogar/comun/cesta_nueva/programas/distribucionespecial.asp','','width=470,height=150,left=200,top=200');
			return true;
			
		}
		
	//-->