// A ver si aquí salen los acentos áñéñíñóñú
//Funciones relativas a los objetos de la interfaz gráfica
var puntos=36;
//Rellena los selectores creando las opciones con todos los ingredientes de la lista
    function creaListaIngredientes(){
        for(m=0;m<i;m++){
			if(lista[m][idIngrediente]==0){
				document.write("<optgroup label='"+lista[m][nombreIngrediente]+"'></optgroup>")
			}
			else{
				document.write("<option value="+lista[m][idIngrediente]+">"+lista[m][nombreIngrediente]+"</option>")
			}
		}
    } 
    
    //Crea una línea gráfica de ingrediente con las correspondientes celdas y con sus valores vacíos
    function creaIngrediente(){
        document.write("<tr id=ingredienteOculto name=ingredienteOculto style='display:none'>")
        document.write("<td><select id='SelIngrediente' name='SelIngrediente' style='width:170px' onchange='seleccionaIngrediente("+ingredientes+")'><option value=0></option>")
        creaListaIngredientes()
        document.write("</select><input type=button id=btInfo title='información sobre el ingrediente seleccionado' onclick='infoIngr("+ingredientes+")' value='?' style='width:15; height:22' /></td>")
        document.write("<td><input onchange='cambiaPesoIngrediente("+ingredientes+")' value=0 type=text name='txGramos' id='txGramos' /></td>")
        document.write("<td><input type=text id='txSap' name='txSap' value=0 onchange='cambiaSapIngrediente("+ingredientes+");'/></td>")
        document.write("<td><input name='txPorGrasas' id='txPorGrasas' class='lock' readonly='readonly' type='text' value=0 />%</td>")
        document.write("<td><input name='txPorFormula' id='txPorFormula' class='lock' readonly='readonly' type='text' value=0 />%</td>")
        document.write("<td><input name='txAlcalis' id='txAlcalis' class='lock' readonly='readonly' type='text' value=0 /></td></tr>"+"\n")
        ingredientes++;
    }
    
    // Evento que se ejecuta cuando cambiamos una celda de SAP
    function cambiaSapIngrediente(num){
        if(isNumber(sapIngrediente[num].value)) 
        {   miFormula.listaIngredientes[num].sap = parseFloat(sapIngrediente[num].value)}
        calculos();
    }
    
    // Evento que se ejecuta cuando cambiamos una celda de peso
    function cambiaPesoIngrediente(num){
        if(isNumber(pesoIngrediente[num].value) && selectoresIngrdt[num].value != 0){   
            miFormula.listaIngredientes[num].peso = parseFloat(pesoIngrediente[num].value)}
        calculos();
    }
    
    //Evento al cambiar la seleccion del ingrediente
    //Hace aparecer debajo un nuevo ingrediente si no existía
    function seleccionaIngrediente(num){
        if(selectoresIngrdt[num].value!=0)
            {listaIngredientes[num+1].style.display=visibilidad;
             ingr = new Ingrediente(selectoresIngrdt[num].value, pesoIngrediente[num].value, lista[buscaIngrediente(selectoresIngrdt[num].value)][valorSapIngrediente])
             addIngr(miFormula, num, ingr);
             selectoresIngrdt[num].title = miFormula.listaIngredientes[num].descripcion
             ingredientesVisibles++}
        else
            {miFormula.listaIngredientes[num].id = 0
             miFormula.listaIngredientes[num].esGrasa = false
             miFormula.listaIngredientes[num].sap = 0
             miFormula.listaIngredientes[num].peso = 0
             selectoresIngrdt[num].title = ""}
        calculos();
    }
    
    // Puede mandar en el parámetro el número de ingrediente de la lista o el ingrediente (polimórfica)
    function infoIngr(i){
        if (typeof i != 'object'){
        i = miFormula.listaIngredientes[i]; 
		nmb = i.nombre;}
		else
		{nmb = miFormula.nombre;}
			
        nuevoResu = new Resultado(i)
        aplicaVariantes(nuevoResu)
        var mitx = ""
        
        mitx += "id: "             + i.id + "\n"
        mitx += "nombre: "         + nmb + "\n"
        mitx += "sap: "            + redondeo(i.sap,3) + "\n"
        mitx += "% grasas: "       + redondeo(i.porcentajeGrasas,1)+ "%\n"
        mitx += "% fórmula: "      + redondeo(i.porcentajeFormula,1)+ "%\n"
        mitx += "índice de yodo: " + redondeo(i.iodo,0) + "\n"
        mitx += "ins: "            + redondeo(i.ins,0) + "\n"
        mitx += "ácidos grasos:\n"
        mitx += "  láurico: "      + redondeo(i.laurico,1) + "% \n"
        mitx += "  linoleico: "    + redondeo(i.linoleico,1) + "% \n"
        mitx += "  mirístico: "    + redondeo(i.myristico,1) + "% \n"
        mitx += "  oleico: "       + redondeo(i.oleico,1) + "% \n"
        mitx += "  palmítico: "    + redondeo(i.palmitico,1) + "% \n"
        mitx += "  ricinoleico: "  + redondeo(i.ricinoleico,1) + "% \n"
        mitx += "  esteárico: "    + redondeo(i.estearico,1) + "% \n"
        mitx += "  linolénico: "   + redondeo(i.linolenico,1) + "% \n"
        mitx += "decripción:\n"   + i.descripcion + "\n"
        mitx += "resultados: \n"
        mitx += "  dureza: "      + redondeo(i.resultado.dureza,0) + "/" + redondeo(nuevoResu.dureza,0) + "\n"
        mitx += "  burbujas: "     + redondeo(i.resultado.burbujas,0) + "/" + redondeo(nuevoResu.burbujas,0) + "\n"
        mitx += "  persistencia: " + redondeo(i.resultado.persistencia,0) + "/" + redondeo(nuevoResu.persistencia,0) + "\n"
        mitx += "  limpieza: "     + redondeo(i.resultado.limpieza,0) + "/" + redondeo(nuevoResu.limpieza,0) + "\n"
        mitx += "  acondicionado: "+ redondeo(i.resultado.acondicionado,0) + "/" + redondeo(nuevoResu.acondicionado,0) + "\n"        
 
 		chiva(mitx)
    }
    
    function chiva(tx){
        if (typeof txChivato == 'object'){
        txChivato.value = tx + "\n" + txChivato.value}
    }
    
    function cambioAlcali(){
        miFormula.tipoAlcali = selAlcalis.value
        if(miFormula.tipoAlcali==1){ttAlcali.innerHTML="KOH"}else{ttAlcali.innerHTML="NaOH"}
        calculos();
	}
	   
	function borra(){
		var qstr = "";
		if (busca_param("lg")!="" & busca_param("lg")!=undefined)
			{
				qstr = "?lg="+busca_param("lg");
			}

        window.location=location.pathname+qstr;
    }
    
    function mensajeAlerta(obj){
        if(obj.value<mInf){
            obj.style.color="red"
            obj.title="valor demasiado bajo"}
        else if(obj.value>mSup){
            if(obj.value > 99){obj.value = 99}
            obj.style.color="red"
            obj.title="valor demasiado alto"}
        else{
            if(obj.value >= 49 && obj.value <= 51){
                obj.style.color="darkgreen"
                obj.title="valor ideal"}
            else{
                obj.style.color="black"
                obj.title="valor dentro del rango"}
        }
    }

	function conCat(ch, num)
		{
		chrr=" ";
		for (con=0;con<num;con++){chrr+=ch}
		 return chrr + " ";
		}	

	function escribe(formu){
		var str=""
		formu.nombre=NombreFormula();
		
		str = formu.nombre + "\n\n"
		
		for(n=0;n<formu.listaIngredientes.length;n++)
		{
			if(formu.listaIngredientes[n].id != 0){
			str += formu.listaIngredientes[n].nombre + conCat(".",puntos-formu.listaIngredientes[n].nombre.length) + redondeo(formu.listaIngredientes[n].peso,0) + "gr\n"}
		}
		str += "\nSobreengrasado" + conCat(".",puntos-14) + formu.sobreEngrasado + "%\n"
		str += "Concentración" + conCat(".",puntos-13) + formu.concentracion + "%\n\n"
		str += "Agua" + conCat(".",puntos-4) +  redondeo(formu.agua,0) + "gr\n"
		if(formu.tipoAlcali==1) {str += "Potasa" + conCat(".", puntos-6)}else{str += "Sosa" + conCat(".", puntos-4)}
		str += redondeo(formu.KOH,0) + "gr\n\n"
			
		// formu.tipoAlcali + "¬" + 
		str += formu.notas
		
		return str
	}
	
	function NombreFormula()
	{
		var h=new Date();
		var fecha=h.getDate()+"/"+parseInt(h.getMonth()+1)+"/"+h.getFullYear()+" "+h.toLocaleTimeString();
		if(miFormula.nombre == "" | miFormula.nombre == null){
			nom = prompt("Introduce un nombre para la fórmula","fórmula " + fecha)}
		else{
			nom = miFormula.nombre}
		return nom;
	}
	
	//Problemas de compatibilidad de navegadores IE vs Mozilla
    var browser=navigator.appName
    var b_version=navigator.appVersion
    var version=parseFloat(b_version)
    /*document.write("Browser name: "+ browser)
    document.write("<br />")
    document.write("Browser version: "+ version)*/
    if(browser == "Microsoft Internet Explorer"){visibilidad = "inline"}
    else{visibilidad = "table-row"}