//***********VARIOS DATOS
coment1="Añadir este artículo al carro de compra";
coment2="Quitar este artículo del carro de la compra";
coment3="Use los botones + y - para variar la cantidad";
moneda=".-euro";

totlibros=33;totvideos=9;totarte=10;totposters=24;totebooks=1;totmusica=2;

iva=0;
tipoiva1=18;
tipoiva2=4;
totneto=0;
totfac=0;
npedido=getdate();
arte="";
libro="";
video="";
poster="";
ebook="";
musica="";
ivaarte=0;
ivalibro=0;
ivaposter=0;
ivavideo=0;
ivamusica=0;
ivaebook=0;

// ********** FUNCIONES GENERALES PARA LAS MATRICES
function MakeArray(size) {this.length = size;for(i = 1; i <= size; i++) this[i] = null;return this;}

function Part(a1,a2,a3,a4,a5) {this.cantidad=a1;this.codigo=a2;this.descr= a3;this.descr1=a4;this.precio=a5;}

// ESTRUCTURA DE LA MATRIZ CANTIDAD REFERENCIA DESCRIPCION PVP

//*******VIDEOS
a       = new MakeArray(totvideos);
a[1]    = new Part(0,'FCSD V1','Las cosas están cambiando.' ,'FCSD, 1989',15.52);
a[2]    = new Part(0,'FCSD V2','Atención temprana: Un enfoque práctico.','FCSD, 1991',15.52);
a[3]    = new Part(0,'FCSD V3','Integración social y discapacidad.','FCSD, 1990',15.52);
a[4]    = new Part(0,'FCSD V4','Programa Autonomía Joven.','FCSD, 1992',10.35);
a[5]    = new Part(0,'FCSD V5','¿Qué seré cuando sea mayor?','Caixa de Manresa-FCSD,1999',20.69);
a[6]    = new Part(0,'FCSD V5ct','Què seré quan sigui gran?','Caixa de Manresa-FCSD,1999',20.69);
a[7]    = new Part(0,'FCSD V6vhs','Fundació Catalana Síndrome de Down. Servicios y Metodología - VHS','FCSD, 2003',21.55);
a[8]    = new Part(0,'FCSD V6dvd','Fundació Catalana Síndrome de Down. Servicios y Metodología - DVD','FCSD, 2003',25.86);
a[9]    = new Part(0,'FCSD dvd9','Me\'n vaig a casa. Històries de vida independent. - DVD','FCSD, 2009',8.62);

//********LIBROS
b       = new MakeArray(totlibros);
b[1]    = new Part(0,'FCSD L1','El síndrome de Down: Una introducción para padres','C. Cunningham',14.45);
b[2]    = new Part(0,'FCSD L2','Criterios de funcionalidad','L. Brown',14.15);
b[3]    = new Part(0,'FCSD L3','Nuestra sexualidad','J. Edwards',5.78);
b[4]    = new Part(0,'FCSD L4','Cambio de relaciones','A. Brechin y J. Swain',4.34);
b[5]    = new Part(0,'FCSD L5','El desafío de la integración','I. Martínez',2.89);
b[6]    = new Part(0,'FCSD L6','Proyecto Aura.','G. Canals y M. Domènech',288);
b[7]    = new Part(0,'FCSD L7','El adolescente y el joven con SD','Ponencias III Jornadas Intern.',5.78);
b[8]    = new Part(0,'FCSD L8','Para llegar a ser una persona  autónoma','Ponencias IV Jornadas Intern.',5.78);
b[9]    = new Part(0,'FCSD L9','La relación con el otro en la construcción de la identidad','Ponencias V Jornadas Intern.',5.78);
b[10]   = new Part(0,'FCSD L10','Tu nombre es Olga','J. M. Espinàs',11.54);
b[11]   = new Part(0,'FCSD L11','Atención médica en el SD','M. Coleman y P. Rogers',10.40);
b[12]   = new Part(0,'FCSD L12','El viaje del Sr. Down al mundo de los adultos','E. Montobbio',10.48);
b[13]   = new Part(0,'FCSD L13','La identidad difícil. El falso yo','E. Montobbio',8.94);
b[14]   = new Part(0,'FCSD L14','SD. Aspectos médicos y psicopedagógicos','FCSD',10.48);
b[15]   = new Part(0,'FCSD L15','Proceso hacia la vida adulta de las personas con SD','Barcelona, FCSD, 1998. Ponencias VI Jornadas Intern.',9.24);
b[16]   = new Part(0,'FCSD L16','Síndrome de Down y Demencia. Guía práctica','Diana Kerr. FCSD, 1999',11.56);
b[17]   = new Part(0,'FCSD L17','Ayudar a las personas con discapacidad a vivir en un hogar propio','Jay Klein, FCSD, Barcelona 2000.',11.56);
b[18]   = new Part(0,'FCSD L18','Síndrome de Down. LLegar a ser adulto','Ponencias VII Jornadas Intern.Barcelona, FCSD 2000',14.45);
b[19]   = new Part(0,'FCSD L19','Elogio de la debilidad','Alexandre Jollien',9.62);
b[20]   = new Part(0,'FCSD L20','Elogi de la feblesa','Alexandre Jollien',9.62);
b[21]   = new Part(0,'FCSD L21','El oficio de ser hombre','Alexandre Jollien',9.62);
b[22]   = new Part(0,'FCSD L22','L\´ofici d\´home','Alexandre Jollien',9.62);
b[23]   = new Part(0,'FCSD L23','Sexualidad, las relaciones y yo. Libro de sexualidad para jóvenes y adultos','Sociedad Canadiense Síndrome de Down',17.31);
b[24]   = new Part(0,'FCSD L24','Donde habita el corazón. Todos somos niños... niños distintos','P. Biniés Lanceta',5.63);
b[25]   = new Part(0,'FCSD L25','Soy especial para mis amigos','Jordi Sierra i Fabra - Isabel Caruncho',7.50);
b[26]   = new Part(0,'FCSD L26','Mis hermanos y yo','Jordi Sierra i Fabra - Isabel Caruncho',7.50);
b[27]   = new Part(0,'FCSD L27','Qué seré cuando sea mayor?','Jordi Sierra i Fabra - Isabel Caruncho',7.50);
b[28]   = new Part(0,'FCSD L28','Síndrome de Down Aspectos médicos actuales','Fundació Catalana Síndrome de Down Josep M. Corretger - Agustí Serés - Jaume Casaldàliga - Katy Trias',49.52);
b[29]   = new Part(0,'FCSD L29','MÍRAME CON OTROS OJOS La imagen de la discapacidad','Fundació Catalana Síndrome de Down Fotografias: TONI SANTISO',19.23);
b[30]   = new Part(0,'FCSD L30','Síndrome de Down. CONSTRUYENDO EL FUTURO. INTERROGANTES DE HOY, RESPUESTAS PARA MAÑANA','Recopilación de las ponencias de las VIII Jornadas Internacionales sobre el Síndrome de Down Barcelona, FCSD 2005',14.42);
b[31]   = new Part(0,'FCSD L31','Su hijo con síndrome de Down de la A a la Z.','Guía práctica para padres de los aspectos médicos del síndrome de Down',14.42);
b[32]   = new Part(0,'FCSD L32','Síndrome de Down. Hacia la tercera edad: retos y esperanzas','IX Jornadas Internacionales sobre el síndrome de Down.',14.42);
b[33]   = new Part(0,'FCSD L33','Síndrome de Down y Demencia. Guía práctica','Diana Kerr. FCSD, 1999',11.56);

//********ARTE
c 	= new MakeArray(totarte)
c[1]    = new Part(0,'FCSD A2','A.R. Casamada' ,'Litografía 76 x 56 cm 75 ejemplares, 1993',305);
c[2]    = new Part(0,'FCSD A3','J. Hernández Pijoan','Litografía 76 x 56 cm 75 ejemplares, 1993',350);
c[3]    = new Part(0,'FCSD A1','J. Alumà','Litografía 60 x 47 cm 100 ejemplares, 1993',250);
c[4]    = new Part(0,'FCSD A4','J. Guinovart','Litografía 76 x 56 cm 75 ejemplares, 1993',350);
c[5]    = new Part(0,'FCSD A5','A. Tàpies','Litografía 76 x 56 cm 75 ejemplares, 1992',1060);
c[6]    = new Part(0,'FCSD A6','Josep Maria Riera i Aragó','Litografía 56 x 76 cm 75 ejemplares, 2004',400);
c[7]    = new Part(0,'FCSD A7','Josep Maria Subirachs','Litografía 62 x 56 cm 75 ejemplares, 2006',400);
c[8]    = new Part(0,'FCSD A8','Miguel Ángel Campano','Litografía 76 x 56 cm 85 ejemplares, 2009',500);
c[9]    = new Part(0,'FCSD A9','J. Guinovart','Prueba de autor 63 x 81 cm, 2010',500);
c[10]    = new Part(0,'FCSD A10','J. Guinovart','Prueba de autor 76 x 56 cm, 2010',464);

//********POSTERS
d       = new MakeArray(totposters)
d[1]    = new Part(0,'FCSD P1sp','','',192,2.88);
d[2]    = new Part(0,'FCSD P1ct','El treball','48,2 x 33,5 cm',2.88);
d[3]    = new Part(0,'FCSD P2sp','Las manos','30,5 x 41,5cm',2.88);
d[4]    = new Part(0,'FCSD P2ct','Les mans','30,5 x 41,5cm',2.88);
d[5]    = new Part(0,'FCSD P3sp','Maratón','48,2 x 33,5 cm',2.88);
d[6]    = new Part(0,'FCSD P3ct','La Marató','48,2 x 33,5 cm',2.88);
d[7]    = new Part(0,'FCSD P4sp','Jovenes','48,2 x 33,5 cm',2.88);
d[8]    = new Part(0,'FCSD P4ct','Joves','48,2 x 33,5 cm',2.88);
d[9]    = new Part(0,'FCSD P5sp','Salva','32 x 49,4 cm',2.88);
d[10]   = new Part(0,'FCSD P5ct','Salva','32 x 49,4 cm',2.88);
d[11]   = new Part(0,'FCSD P6sp','Las Olimpiadas','52,4 x 43,6 cm',2.88);
d[12]   = new Part(0,'FCSD P6ct','Les Olimpiades','52,4 x 43,6 cm',2.88);
d[13]   = new Part(0,'FCSD P7sp','Mirada y sonrisa','32 x 49,4 cm',2.88);
d[14]   = new Part(0,'FCSD P7ct','Mirada i somriure','32 x 49,4 cm',2.88);
d[15]   = new Part(0,'FCSD P8ct','Andreu Buenafuente','44 x 30 cm',4.81);
d[16]   = new Part(0,'FCSD P9sp','Angels Barceló','44 x 29,2 cm',4.81);
d[17]   = new Part(0,'FCSD P9ct','Angels Barceló','44 x 29,2 cm',4.81);
d[18]   = new Part(0,'FCSD P7sp','Saviola','29,2 x 44 cm',4.81);
d[19]   = new Part(0,'FCSD P7ct','Saviola','29,2 x 44 cm',4.81);  
d[20]   = new Part(0,'FCSD P10ct','Chalenges & hopes','29,7 x 42 cm',4.81); 
d[21]   = new Part(0,'FCSD P21','Mireia Pons','45 x 30 cm',4.81);
d[22]   = new Part(0,'FCSD P22','Andreu Trias','45 x 30 cm',4.81);
d[23]   = new Part(0,'FCSD P23','Irene Pérez','45 x 30 cm',4.81);
d[24]   = new Part(0,'FCSD P24','Quique Maltas','45 x 30 cm',4.81); 

//********EBOOKS
e       = new MakeArray(totebooks)
e[1]    = new Part(0,'FCSD EB1','Síndrome de Down. CONSTRUYENDO EL FUTURO. INTERROGANTES DE HOY, RESPUESTAS PARA MAÑANA','Recopilación de las ponencias de las VIII Jornadas Internacionales sobre el Síndrome de Down Barcelona, FCSD 2005',11.54);

//********MUSICA
f       = new MakeArray(totmusica)
f[1]    = new Part(0,'FCSD cd10','Realidades Paralelas  - CD de música amb lletres escrites per nois i noies amb la síndrome de Down','FCSD, 2009',11.16);
f[2]    = new Part(0,'FCSD cd11','Lucero Mío. Lullabies CD by Victoria de los Ángeles','FCSD, 2008',15.52);

//********VACIA CARRO
function borrat(){
for (i=1; i <= a.length; i++) {a[i].cantidad=0;} 
for (i=1; i <= b.length; i++) {b[i].cantidad=0;} 
for (i=1; i <= c.length; i++) {c[i].cantidad=0;}
for (i=1; i <= d.length; i++) {d[i].cantidad=0;}
for (i=1; i <= e.length; i++) {e[i].cantidad=0;}
document.pedido.importe.value=0;parent.frames[2].location=parent.frames[2].location.href;   
}

//********PRESENTA INFORMACION
function descrip(grupo,alfa){
descripcion=eval(grupo+'['+alfa+'].descr');
descripcion1=eval(grupo+'['+alfa+'].descr1');
precio=eval(grupo+'['+alfa+'].precio');
cantidad=eval(grupo+'['+alfa+'].cantidad');

p=descripcion+'<br />'+descripcion1+'<br /><b>'+precio+moneda+'</b><br /><br />';
p=p+'<a href="javascript:parent.topt.camped(\''+grupo+'\','+alfa+',1)"><img src="/images/mas.gif" alt="'+coment1+'" border="0" width="18" height="17" align="middle" /></a>';
p=p+'<input type="text" name="cantidad'+alfa+'"style="text-align: center; font-family: Verdana, Arial; font-size: 9 pt" size="1" onchange="parent.topt.camped(\''+grupo+'\','+alfa+',0)" value="'+cantidad+'" class="cantidad" />';
p=p+'<a href="javascript:parent.topt.camped(\''+grupo+'\','+alfa+',-1)"><img src="/images/menos.gif" alt="'+coment2+'" border="0" width="18" height="17" align="middle" /></a><br />';

return p;}

//********PRESENTA INFORMACION SOLO PRECIO
function descripr(grupo,alfa){
precio=eval(grupo+'['+alfa+'].precio');
cantidad=eval(grupo+'['+alfa+'].cantidad');

p='<b>'+precio+moneda+'</b><br /><br />';
p=p+'<a href="javascript:parent.topt.camped(\''+grupo+'\','+alfa+',1)"><img src="/images/mas.gif" alt="'+coment1+'" border="0" width="18" height="17" align="middle" /></a>';
p=p+'<input type="text" name="cantidad'+alfa+'"style="text-align: center; font-family: Verdana, Arial; font-size: 9 pt" size="1" onchange="parent.topt.camped(\''+grupo+'\','+alfa+',0)" value="'+cantidad+'" class="cantidad" />';
p=p+'<a href="javascript:parent.topt.camped(\''+grupo+'\','+alfa+',-1)"><img src="/images/menos.gif" alt="'+coment2+'" border="0" width="18" height="17" align="middle" /></a><br />';

return p;}

// ********** CALCULA EL NUMERO DE PEDIDO
function getdate()
{var now = new Date();var dayNr = ((now.getDate()<10) ? "0" : "")+ now.getDate();
var mdyhm = (dayNr+(now.getMonth()+1)+now.getYear()+now.getHours()+now.getMinutes());
return mdyhm;}

// ********** ACTUALIZA IMPORTES
function camped(grupo,kp,que) {
cantv=eval(grupo+'['+kp+'].cantidad');
preci=eval(grupo+'['+kp+'].precio');
impv=cantv*preci;
anade=que*10/10;
cantn=cantv+anade;
if (anade==0){
anade=eval(grupo+'['+kp+'].cantidad');
cantn=anade;
alert(coment3);}
if (cantn<0) {cantn=0;}
impn=cantn*preci;
eval(grupo+'['+kp+'].cantidad='+cantn);
eval("parent.main.document.forms['articulos'].cantidad"+kp+".value=cantn");
sumar=1*impn-impv/1;
document.pedido.importe.value=document.pedido.importe.value*1.0+sumar*1.0;
document.pedido.importe.value=Math.round(document.pedido.importe.value*1000)/1000;
if (document.pedido.importe.value<=0.1) {document.pedido.importe.value=0}
}
