//Variables y funciones globales de Dialogo //------------------------------------------------------------------------------- var euro=parseFloat(166.386); var articulo = new Array (96); //articulo[0] = new libro("ISBN","TÍTULO", "PRECIO EUROS sin IVA", "PRECIO PTAS sin IVA", "PRECIO PTAS con IVA"); articulo[0] = new libro("ISBN","TÍTULO",0,0,0); articulo[1] = new libro("978-84-95333-58-2","Lecturas para estrenarse en FILOSOFÍA.",1058,1760,1830); articulo[2] = new libro("978-84-95333-59-9","Lecturas para estrenarse en ÉTICA.",1058,1760,1830); articulo[3] = new libro("978-84-95333-60-5","Lecturas para estrenarse en PSICOLOGÍA.",1058,1760,1830); articulo[4] = new libro("978-84-95333-64-3","Lecturas para estrenarse en ANTROPOLOGÍA.",1058,1760,1830); articulo[5] = new libro("978-84-95333-51-3","Ocho metáforas sobre la CONDICIÓN HUMANA.",1058,1760,1830); articulo[6] = new libro("978-84-95333-57-5","Lecturas para estrenarse en FILOSOFÍA DE LA CIENCIA.",1058,1760,1830); articulo[7] = new libro("978-84-95333-41-4","Lo que debes saber sobre la HISTORIA.",1058,1760,1830); articulo[8] = new libro("978-84-95333-90-2","SOCIOLOGÍA.",1683,2800,2912); articulo[9] = new libro("978-84-95333-95-7","FISCALIDAD DE LA EMPRESA 2007.Tomos I y II.",3750,6239,6489); articulo[10] = new libro("978-84-922704-5-3","INCENTIVOS FISCALES para las PYME en los impuestos sobre la renta (IRPF e IS).",2019,3360,3494); articulo[11] = new libro("978-84-922704-4-6","DISCRECIONALIDAD TÉCNICA en la comprobación tributaria de valores (la problemática de su control judicial).",2500,4160,4326); articulo[12] = new libro("978-84-95333-28-5","EL PAGO DE LA DEUDA TRIBUTARIA a través de las entidades colaboradoras.",2019,3360,3494); articulo[13] = new libro("978-84-96976-00-9","Los animales de la lluvia",1250,2080,2163); articulo[14] = new libro("978-84-96976-01-6","Els animals de la pluja",1250,2080,2163); articulo[15] = new libro("978-84-922704-9-1","PLATÓN. LIBRO VII DE LA REPÚBLICA.",1154,1920,1997); articulo[16] = new libro("978-84-95333-00-1","PLATÓ. LLIBRE VII DE LA REPÚBLICA.",1154,1920,1997); articulo[17] = new libro("978-84-922704-0-8","NIETZSCHE. UNA INTRODUCCIÓN DIDÁCTICA A LA GENEALOGÍA DE LA MORAL.",1154,1920,1997); articulo[18] = new libro("978-84-95333-09-4","NIETZSCHE. LA GENEALOGIA DE LA MORAL. Dissertacions I i II. (Edició didàctica).",1154,1920,1997); articulo[19] = new libro("978-84-95333-07-0","DESCARTES. DISCURSO DEL MÉTODO.",1154,1920,1997); articulo[20] = new libro("978-84-95333-08-7","NIETZSCHE. SOBRE VERDAD Y MENTIRA EN SENTIDO EXTRAMORAL.",1154,1920,1997); articulo[21] = new libro("978-84-95333-22-3","NIETZSCHE. SOBRE VERITAT I MENTIDA EN SENTIT EXTRAMORAL.",1154,1920,1997); articulo[22] = new libro("978-84-95333-91-9","K. MARX - F. ENGELS. MANIFIESTO COMUNISTA.",1154,1920,1997); articulo[23] = new libro("ISBN","TÍTULO",0,0,0) articulo[24] = new libro("978-84-95333-06-3","LA CHICA DEL VIDEOCLUB ME MIRA.",1154,1920,1997); articulo[25] = new libro("978-84-95333-53-7","El conflicto palestino-israelí.",1058,1760,1830); articulo[26] = new libro("978-84-95333-43-8","De la biotecnología a la clonación.",1058,1760,1830); articulo[27] = new libro("978-84-95333-45-2","OPERACIÓN J.",1250,2080,2163); articulo[28] = new libro("978-84-95333-46-9","EL BOSQUE DE MI ABECEDARIO",1250,2080,2163); articulo[29] = new libro("978-84-95333-42-1","Nuestro Estado de Derecho.",1058,1760,1830); articulo[30] = new libro("978-84-95333-52-0","Yo estuve en Cheste. --- AGOTADO ---",0,0,0); articulo[31] = new libro("978-84-95333-35-3","El botiquín filosófico.",1058,1760,1830); articulo[32] = new libro("978-84-95333-47-6","A galope tendido.",1250,2080,2163); articulo[33] = new libro("978-84-95333-48-3","Gato Gato.",1250,2080,2163); articulo[34] = new libro("978-84-95333-49-0","El último sueño de Nietzsche.",1587,2641,2746); articulo[35] = new libro("978-84-95333-65-0","El oso y la niña.",1250,2080,2163); articulo[36] = new libro("978-84-95333-67-4","L'ós i la nena.",1250,2080,2163); articulo[37] = new libro("978-84-95333-66-7","!Que vuelvan las vacas locas!.",1250,2080,2163); articulo[38] = new libro("978-84-95333-68-1","Volem que tornin les vaques boges!.",1250,2080,2163); articulo[39] = new libro("978-84-95333-69-8","Tú hablas, yo entiendo.",1250,2080,2163); articulo[40] = new libro("978-84-95333-70-8","LA ASISTENCIA ADMINISTRATIVA en materia de liquidación tributaria en la Unión Europea.",1683,2800,2912); articulo[41] = new libro("978-84-95333-71-1","Sapere Aude! Para qué escribí la Crítica de la Razón Pura.",1683,2800,2912); articulo[42] = new libro("978-84-95333-79-7","Lou Andrea Salomé. La Bruja de Hainberg.",1683,2800,2912); articulo[43] = new libro("978-84-95333-72-8","Así es la vida.",1250,2080,2163); articulo[44] = new libro("978-84-95333-73-5","Així és la vida.",1250,2080,2163); articulo[45] = new libro("978-84-95333-74-2","Tres viajes.",1250,2080,2163); articulo[46] = new libro("978-84-95333-75-9","Tres viatges.",1250,2080,2163); articulo[47] = new libro("978-84-95333-84-1","Vic Pupo lo quiere todo.",1250,2080,2163); articulo[48] = new libro("978-84-95333-85-8","Vic Pupo ho vol tot.",1250,2080,2163); articulo[49] = new libro("978-84-95333-88-9","Séneca. El camino del sabio.",1683,2800,2912); articulo[50] = new libro("978-84-95333-86-5","¡Espera, ya voy!.",1250,2080,2163); articulo[51] = new libro("978-84-95333-87-2","Espera, ja hi vinc!.",1250,2080,2163); articulo[52] = new libro("978-84-95333-89-6","Peso Cero.",1683,2800,2912); articulo[53] = new libro("978-84-95333-94-0","La fraternidad. Claro-oscuro de una esperanza.",1154,1919,1997); articulo[54] = new libro("978-84-96976-02-3","¿Qué es arte?.",1250,2080,2163); articulo[55] = new libro("978-84-96976-16-0","Filosofía y Ciudadanía. 1º BACHILLERATO. OBRA COMPLETA (4 Cuadernos).",4981,8288,8619); articulo[56] = new libro("978-84-96976-21-4","Filosofia i Ciutadania. 1º BATXILLERAT. OBRA COMPLETA (4 Quaderns).",4981,8288,8619); articulo[57] = new libro("978-84-96976-17-7","Filosofía y Ciudadanía. 1º BACHILLERATO. EL SABER FILOSÓFICO (Cuaderno I).",1245,2071,2155); articulo[58] = new libro("978-84-96976-22-1","Filosofia i Ciutadania. 1º BATXILLERAT. EL SABER FILOSÒFIC (Quadern I).",1245,2071,2155); articulo[59] = new libro("978-84-96976-18-4","Filosofía y Ciudadanía. 1º BACHILLERATO. EL SER HUMANO: PERSONA Y SOCIEDAD (Cuaderno II).",1245,2071,2155); articulo[60] = new libro("978-84-96976-23-8","Filosofia i Ciutadania. 1º BATXILLERAT. L'ÉSSER HUMÀ: PERSONA I SOCIETAT (Quadern II).",1245,2071,2155); articulo[61] = new libro("978-84-96976-19-1","Filosofía y Ciudadanía. 1º BACHILLERATO. FILOSOFÍA MORAL Y POLÍTICA (Cuaderno III).",1245,2071,2155); articulo[62] = new libro("978-84-96976-24-5","Filosofia i Ciutadania. 1º BATXILLERAT. FILOSOFIA MORAL I POLÍTICA (Quadern III).",1245,2071,2155); articulo[63] = new libro("978-84-96976-20-7","Filosofía y Ciudadanía. 1º BACHILLERATO. DEMOCRACIA Y CIUDADANÍA (Cuaderno IV).",1245,2071,2155); articulo[64] = new libro("978-84-96976-25-2","Filosofia i Ciutadania. 1º BATXILLERAT. DEMOCRÀCIA I CIUTADANIA (Quadern IV).",1245,2071,2155); articulo[65] = new libro("978-84-96976-06-1","Ciudadanía y Derechos Humanos",2212,3680,3827); articulo[66] = new libro("978-84-96976-14-6","Ciutadania i Drets Humans",2212,3680,3827); articulo[67] = new libro("978-84-96976-07-8","Ética Cívica 4º ESO",2308,3840,3993); articulo[68] = new libro("978-84-96976-15-3","Ètica Cívica 4º ESO",2308,3840,3993); articulo[69] = new libro("978-84-95333-92-6","Filósofos.Vida íntima.",1683,2800,2912); articulo[70] = new libro("978-84-95333-99-5","La Fidelidad o el amor al desnudo.",1250,2080,2163); articulo[71] = new libro("978-84-96976-10-8","La hormiga viajera.",1250,2080,2163); articulo[72] = new libro("978-84-96976-11-5","La formiga viatgera.",1250,2080,2163); articulo[73] = new libro("978-84-96976-08-5","Quiquiricosas.",1250,2080,2163); articulo[74] = new libro("978-84-96976-09-2","Quiquiricoses.",1250,2080,2163); articulo[75] = new libro("978-84-96976-03-0","Pienso, pero ... ¿existo?!.",1346,2240,2330); articulo[76] = new libro("978-84-95333-98-8","Cuando no puedas con ellos.",1442,2400,2496); articulo[77] = new libro("978-84-96976-31-3","Tópicos y formas del sexismo.",1346,2240,2330); articulo[78] = new libro("978-84-96976-13-9","El Budismo.",1346,2240,2330); articulo[79] = new libro("978-84-96976-12-2","Psicología 1º de Bachillerato.",2740,4559,4742); articulo[80] = new libro("978-84-96976-33-7","EPICURO: Carta a Meneceo - SÉNECA: Sobre la vida feliz. 2º Bachillerato",1058,1760,1830); articulo[81] = new libro("978-84-96976-41-2","EPICUR: Lletra a Meneceo - SÈNECA: De la lletra benaurada. 2n Batxillerat",1058,1760,1830); articulo[82] = new libro("978-84-96976-34-4","DESCARTES, Discurso del método. Partes I-IV. 2º Bachillerato",1058,1760,1830); articulo[83] = new libro("978-84-96976-42-9","DESCARTES, Discurs del mètode. Parts I-IV. 2n Batxillerat",1058,1760,1830); articulo[84] = new libro("978-84-96976-32-0","PLATÓN, La República. Libro VI-VII. 2º Bachillerato",1058,1760,1830); articulo[85] = new libro("978-84-96976-40-5","PLATÓ, La República. Llibres VIé i VIIé. 2n Batxillerat",1058,1760,1830); articulo[86] = new libro("978-84-96976-35-1","HUME, Compendio de un Tratado de la naturaleza humana (1-25) + Investigación sobre los principios de la moral. Apéndice 1º: Sobre el sentimiento moral ",1058,1760,1830); articulo[87] = new libro("978-84-96976-43-6","HUME, Compendi d'un Tractat de la naturalesa humana (1-25) + Investigació sobre els principis de la moral. Apèndix 1: Sobre el sentiment moral",1058,1760,1830); articulo[88] = new libro("978-84-96976-37-5","ROUSSEAU, Profesión de fe del vicario saboyano",1058,1760,1830); articulo[89] = new libro("978-84-96976-45-0","ROUSSEAU, Professió de fe del vicari savoià",1058,1760,1830); articulo[90] = new libro("978-84-96976-36-8","KANT, Crítica de la Razón Pura. Prólogo B (2ª edición) VII - XXXVII",1058,1760,1830); articulo[91] = new libro("978-84-96976-38-2","NIETZSCHE, Crepúsculo de los ídolos",1058,1760,1830); articulo[92] = new libro("978-84-96976-39-9","MARX, Manifiesto Comunista. Capítulos I y II",1058,1760,1830); articulo[93] = new libro("978-84-96976-48-1","La danza de los versos.",1250,2080,2163); articulo[94] = new libro("978-84-96976-49-8","La dansa dels versos.",1250,2080,2163); articulo[95] = new libro("978-84-96976-46-7","NIETZSCHE, Crepúscle dels ídols",1058,1760,1830); function libro (isbn, titulo, eurosiniva, precio, precioiva) { this.Isbn = isbn; this.Titulo = titulo; this.Eurosiniva = eurosiniva; // linea 36 this.Precio = precio; this.Precioiva = Math.round(precio*1.04); this.Cant=0; this.Acum=0; this.Euroiva = AddDecimal(Math.round(parseFloat(eurosiniva*1.04))); this.DimeDatos = libro_Mostrar_en_Documento; } function libro_Mostrar_en_Documento() { document.write("" + "ISBN: " + this.Isbn + "
"); document.write("" + "Título: " + this.Titulo + "
"); document.write("" + "Precio sin I.V.A.: " + AddDecimal(this.Eurosiniva) + " E" + " / " + ""); document.write("" + "Precio con I.V.A.: " + this.Euroiva + " E" + "
"); //--anulo ptas--document.write("Precio sin I.V.A.: " + this.Precio + " Pta." +" / "); //--anulo ptas--document.write("Precio con I.V.A.: " + this.Precioiva + " Pta."+ "
"); } function AddDecimal(numero) { var ConDecimal = ""; var num = "" + numero; if (num.length == 0) { ConDecimal += "0"; } else if (num.length == 1) { ConDecimal += "0.0" + num; } else if (num.length == 2) { ConDecimal += "0." + num; } else { ConDecimal += num.substring(0, num.length - 2); ConDecimal += "."; ConDecimal += num.substring(num.length - 2, num.length); } return ConDecimal; } function calcular(pedido) { var STasa = 0.00,SSubTotal = 0.00,STotal = 0.00; var Articulo0 ="",Articulo1 ="", Articulo2 = "",Articulo3 = "",Articulo4 ="",Articulo5 = "",Articulo6 = "",Articulo7 = "",Articulo8 = "",Articulo9 = "",Articulo10 = ""; var Articulo11 ="",Articulo12 = "",Articulo13 = "",Articulo14 ="",Articulo15 = "",Articulo16 = "",Articulo17 = "",Articulo18 = "",Articulo19 = "",Articulo20 = ""; var Articulo21 ="",Articulo22 = "",Articulo23 = "",Articulo24 = "",Articulo25 = "",Articulo26 = "",Articulo27 = "",Articulo28 = "",Articulo29 = "",Articulo30 = ""; var Articulo31 ="",Articulo32 = "",Articulo33 = "",Articulo34 = "",Articulo35 = "",Articulo36 = "",Articulo37 = "",Articulo38 = "",Articulo39 = "",Articulo40 = ""; var Articulo41 ="",Articulo42 = "",Articulo43 = "",Articulo44 = "",Articulo45 = "",Articulo46 = "",Articulo47 = "",Articulo48 = "",Articulo49 = "",Articulo50 = ""; var Articulo51 ="",Articulo52 = "",Articulo53 = "",Articulo54 = "",Articulo55 = "",Articulo56 = "",Articulo57 = "",Articulo58 = "",Articulo59 = "",Articulo60 = ""; var Articulo61 ="",Articulo62 = "",Articulo63 = "",Articulo64 = "",Articulo65 = "",Articulo66 = "",Articulo67 = "",Articulo68 = "",Articulo69 = "",Articulo70 = ""; var Articulo71 ="",Articulo72 = "",Articulo73 = "",Articulo74 = "",Articulo75 = "",Articulo76 = "",Articulo77 = "",Articulo78 = "",Articulo79 = "",Articulo80 = ""; var Articulo81 ="",Articulo82 = "",Articulo83 = "",Articulo84 = "",Articulo85 = "",Articulo86 = "",Articulo87 = "",Articulo88 = "",Articulo89 = "",Articulo90 = ""; var Articulo91 ="",Articulo92 = "",Articulo93 = "",Articulo94 = "",Articulo95 = ""; var SCant = 0, SBasePta = 0, STasaPta = 0, STotalPta = 0 ; for (i=0; i<=articulo.length -1 ; i++) { subc1 = eval("pedido.Articulo"+i+".value"); canti = (!parseInt(subc1))?0:parseInt(subc1); articulo[(i)].Cant = canti; articulo[(i)].Acum = articulo[(i)].Eurosiniva * articulo[(i)].Cant; SCant += articulo[(i)].Cant; SSubTotal += articulo[(i)].Acum; subc2 = "Acum"+i; document.forms[0].elements[(subc2)].value = AddDecimal(articulo[(i)].Acum); } STotalP =SSubTotal; document.forms.pedido.TotalP.value = AddDecimal(STotalP); document.forms.pedido.SCant.value = parseInt(SCant); } function BorrarDatos(pedido) { for (i=0; i<=articulo.length -1; i++) { subc1="Articulo"+i; document.forms[0].elements[(subc1)].value =""; subc2="Acum"+i; document.forms[0].elements[(subc2)].value =""; articulo[(i)].Cant =""; articulo[(i)].Acum =""; } SSubTotal =""; STotalP = ""; pedido.TotalP.value = ""; SCant = ""; pedido.SCant.value = ""; return (limpiaCookies()); } function leePedido() { var elem, cant, total=0, art; var cadart=leeCookie('cadArt'); var cadcant = leeCookie('cadCant'); if (cadart) { cadart = cadart.split('#'); cadcant = cadcant.split('#'); for (elem=0; elem0){ articulo[art].Cant = parseInt(cant); total++ } } } return total; } function nuevoItem(nombre, valor) { articulo[nombre].Cant = parseInt(valor); } function crearCesta(urlCesta) { var ind, indart ='', cntart =''; for (ind in articulo) if (articulo[ind].Cant > 0) { indart += ind+'#'; cntart += articulo[ind].Cant+'#'; } creaCookie('cadArt', indart) creaCookie('cadCant', cntart); location.href = urlCesta } cookiesSitio = new Array; function listaCookies() { var lista = document.cookie.split("; "); var nombre; for (var i =0; i < lista.length; i++) { nombre = lista[i].split("="); cookiesSitio[unescape(nombre[0])]=unescape(nombre[1]); } return cookiesSitio; } function leeCookie(valor) { var dato; var plant = new RegExp("("+valor+"=)([^;]*)(;*)"); dato = document.cookie.search(plant); if (dato >= 0) return RegExp.$2; else return null; } function creaCookie(nombre, valor) { document.cookie = nombre+"="+valor } function borraCookie(valor) { document.cookie = valor+"=0; expires= Thu, 01-Jan-80 00:00:01 GMT" } function limpiaCookies() { var dato; cookiesSitio = listaCookies(); for (dato in cookiesSitio) { borraCookie(dato) ; } } // ----- Presupuestar function Presupuestar(cesta) { if (tipocli == "Particular"){ dto=0.95;} else { if (destino <4) { dto=0.75;} if (destino == 4){ dto=0.50;} if (destino == 5){ dto="consultar descuento"} } if (destino == 3 && tipocli == "Particular" || destino == 1){iva=1.04;} else{ iva=1.0;} totalPresup = Math.round((totalbase*dto)*iva); document.forms.cesta.BaseImp.value = AddDecimal(totalbase); document.forms.cesta.Descuento.value = (dto*100)-100; document.forms.cesta.IVA.value = (iva*100)-100; document.forms.cesta.TotalPedido.value = AddDecimal(totalPresup); // if (TotalPresup = null){ alert("El importe de su pedido no se puede calcular porque los gastos de envío debe consultarlos mediante correo electrónico con nuestra distribuidora.);} // else{alert (" El importe de su pedido es de "+AddDecimal(totalPresup)+" euros aplicándose condiciones de venta específicas para Ud.");} }