// ----------	Formule 1
function option (prx, txt, rez, def) { this.prx=prx; this.txt=txt; this.rez=rez; this.def=def; }
// Variables du devis
// Catégorie 1
Cat1 = new Array ();
Cat1[1] =new option( A1, "Obsèques sur Paris et cimetière parisien", "Obsèques sur Paris et cimetière parisien", 1);
Cat1[2] =new option( A2, "Obsèques sur 2 communes (Paris et banlieue", "Obsèques sur 2 communes", 0);
// Catégorie 2
Cat2 = new Array ();
Cat2[1] =new option( 0, "Toilette et habillage assurés par l'équipe de la chambre mortuaire", "R", 0);
Cat2[2] =new option( C1, "Soins de présentation et de conservation par un thanatopracteur", "Soins de présentation et de conservation par un thanatopracteur", 1);
// Catégorie 3
Cat3 = new Array ();
Cat3[1] =new option( 0, "Aucun", "R", 0);
Cat3[2] =new option( eval (B1+B3), "Prise en charge et transport", "Prise en charge et transport", 1);
Cat3[3] =new option( B1M, "Prise en charge et transport (dimanche, jour férié et nuit)", "Prise en charge et transport (dimanche, jour férié et nuit)", 0);
// Catégorie 4
Cat4 = new Array ();
Cat4[1] =new option( Z18, "Chambre funéraire des Batignolles, forfait 3 jours", "Chambre funéraire des Batignolles", 0);
Cat4[2] =new option( Z18A, "Chambre funéraire de Ménilmontant, forfait 3 jours", "Chambre funéraire de Ménilmontant", 1);
// Catégorie 5
Cat5 = new Array ();
Cat5[1] =new option( 0, "Aucun", "R", 1);
Cat5[2] =new option( A725, "25 exemplaires avec enveloppes", "Faire-part: 25 ex.", 0);
Cat5[3] =new option( A750, "50 exemplaires avec enveloppes", "Faire-part: 50 ex.", 0);
Cat5[4] =new option( A7100, "100 exemplaires avec enveloppes", "Faire-part: 100 ex.", 0);
// Catégorie 6
Cat6 = new Array ();
Cat6[1] =new option( 0, "Aucun", "R", 0);
Cat6[2] =new option( A11LMA, "Avis dans \"Le Monde\", tarif abonné ", "Avis dans \"Le Monde\"", 1);
Cat6[3] =new option( A11LFA, "Avis dans \"Le Figaro\"", "Avis dans \"Le Figaro\"", 0);
Cat6[4] =new option( A11NA, "Avis dans \"Libération\"", "Avis dans \"Libération\"", 0);
// Catégorie 7
Cat7 = new Array ();
Cat7[1] =new option( QG2, "Cercueil “Garrigue”, finition brute ou cirée", "Cercueil “Garrigue”", 0);
Cat7[2] =new option( RG2, "Cercueil “Automne”, replaqué de chêne clair, finition claire brillante", "Cercueil “Automne”", 1);
Cat7[3] =new option( RG3, "Cercueil “Parisien”, finition ombrée satinée", "Cercueil “Parisien”", 0);
// Catégorie 8
Cat8 = new Array ();
Cat8[1] =new option( H3S, "Convoi avec passage dans un lieu de culte", "Corbillard en convoi long", 0);
Cat8[2] =new option( H3, "Convoi sans passage par un lieu de culte ", "R", 1);
// Catégorie 9
Cat9 = new Array ();
Cat9[1] =new option( H12S, "Obsèques avec passage dans un lieu de culte", "Porteurs au départ", 0);
Cat9[2] =new option( H12, "Obsèques sans passage dans un lieu de culte", "Porteurs en convoi long", 1);
Cat9[3] =new option( H17, "Portage assuré par la famille et les amis", "R", 0);
// Catégorie 10
Cat10 = new Array ();
Cat10[1] =new option( HB16, "Obsèques avec passage dans un lieu de culte ", "Maître de cérémonie en convoi long", 0);
Cat10[2] =new option( H16, "Obsèques sans passage dans un lieu de culte ", "Maître de cérémonie au départ", 1);
// Catégorie 11
Cat11 = new Array ();
Cat11[1] =new option( 0, "Aucun", "R", 1);
Cat11[2] =new option( F1, "Table à signatures et registre", "Registre de condoléances", 0);
// Catégorie 12
Cat12 = new Array ();
Cat12[1] =new option( 0, "Aucune", "R", 1);
Cat12[2] =new option( J5, "Gerbe piquée", "Gerbe de fleurs piquées", 0);
Cat12[3] =new option( J11, "Coussin, 100cm", "Coussin de fleurs", 0);
// Catégorie 13
Cat13 = new Array ();
Cat13[1] =new option( eval(Z6+KC16), "Creusement 1 place + semelle", "Sépulture avec creusement 1 place", 0);
Cat13[2] =new option( eval(Z7+KC16), "Creusement 2 places + semelle", "Sépulture avec creusement 2 places", 0);
Cat13[3] =new option( eval(KC14+KC16+KE16+KD16), "Caveau 1 case + semelle + jeu de dalles + couvre-caveau", "Caveau 1 case", 0);
Cat13[4] =new option( eval(K14+KC16+KE16+KD16), "Caveau 2 cases + semelle + jeu de dalles + couvre-caveau", "Caveau 2 cases", 0);
Cat13[5] =new option( K10, "Ouverture\/fermeture de caveau, si sépulture existante", "Ouverture de caveau", 1);
// Catégorie 14
Cat14 = new Array ();
Cat14[1] =new option( 0, "Concession existante en pleine terre", "Concession existante", 1);
Cat14[2] =new option( Z35E, "Concession 10 ans, Montmartre ou Père Lachaise", "Concession de 10 ans", 0);
Cat14[3] =new option( Z35F, "Concession 30 ans", "Concession de 30 ans", 0);
Cat14[4] =new option( Z35G, "Concession 50 ans", "Concession de 50 ans", 0);
Cat14[5] =new option( Z35H, "Concession perpétuelle", "Concession perpétuelle", 0);
// Catégorie 13
Cat15 = new Array ();
Cat15[1] =new option( Z2, "Taxe d‘inhumation en cimetière parisien, sans vacation de police", "Taxe d'inhumation", 0);
Cat15[2] =new option( eval(Z2+Z1), "Taxe d‘inhumation en cimetière parisien \+ vacation de police", "Taxe d'inhumation + vac. de police", 1);
// Nombre de catégories
var nbCat = 15;
var nbEx =3;
//	----------