// ----------	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( A3, "Obsèques sur Paris, crémation \"hors présence famille\" ", "Crémation \"hors présence famille\"", 0);
Cat1[2] =new option( A3A, "Obsèques sur Paris, crémation au Père Lachaise", "Crémation", 1);
Cat1[3] =new option( eval (A3A+A3B), "Crémation au Père Lachaise \+ démarches laisser-passer mortuaire d‘urne", "Crémation + laisser-passer", 0);
Cat1[4] =new option( eval (A3A+A3C), "Crémation au Père Lachaise \+ laissez-passer avec consulat ", "Crémation + laisser-passer + consulat", 0);
// Catégorie 2
Cat2 = new Array ();
Cat2[1] =new option( 0, "Toilette et habillage assurés par l‘équipe de la chambre mortuaire", "Toilette du défunt", 0);
Cat2[2] =new option( eval (C5+(3*C3)), "toilette et habillage + conservation par carboglace 3 jours", "Toilette et carboglace du défunt", 0) 
Cat2[3] =new option( C1, "Soins de présentation et de conservation par un thanatopracteur", "Soins du défunt", 1);
// Catégorie 3
Cat3 = new Array ();
Cat3[1] =new option( 0, "Aucun", "R", 1);
Cat3[2] =new option( A725, "25 exemplaires avec enveloppes", "Faire-part: 25 ex.", 0);
Cat3[3] =new option( A750, "50 exemplaires avec enveloppes", "Faire-part: 50 ex.", 0);
Cat3[4] =new option( A7100, "100 exemplaires avec enveloppes", "Faire-part: 100 ex.", 0);
// Catégorie 4
Cat4 = new Array ();
Cat4[1] =new option( SG8, "Cercueil parisien en peuplier, finition claire satinée", "Cercueil peuplier", 1);
Cat4[2] =new option( SG1, "Cercueil plat, en aggloméré, replaqué, finition claire satinée", "Cercueil aggloméré", 0);
Cat4[3] =new option( SG2, "Cercueil parisien, en pin, finition claire satinée, capiton satin", "Cercueil pin", 0);
Cat4[4] =new option( QG2, "Cercueil \"garrigue\", finition brute ou cirée, capiton coton", "Cercueil \"garrigue\"", 0);
// Catégorie 5
Cat5 = new Array ();
Cat5[1] =new option( H3S, "Convoi avec passage dans un lieu de culte", "Corbillard en convoi long", 0);
Cat5[2] =new option( H3, "Convoi sans passage par un lieu de culte ", "Corbillard en convoi court", 1);
// Catégorie 6
Cat6 = new Array ();
Cat6[1] =new option( H12A, "Porteurs au lieu de mise en bière", "Porteurs au départ", 1);
Cat6[2] =new option( H12, "Obsèques sans passage dans un lieu de culte", "Porteurs en convoi long", 0);
Cat6[3] =new option( H12S, "Obsèques avec passage dans un lieu de culte", "Porteurs en convoi court", 0);
Cat6[4] =new option( H17, "Portage assuré par la famille et les amis", "R", 0);
// Catégorie 7
Cat7 = new Array ();
Cat7[1] =new option( HB16, "Obsèques avec cérémonie dans la salle de la Coupole", "Maître de cérémonie", 0);
Cat7[2] =new option( H16, "Obsèques avec cérémonie dans la  salle du dernier hommage", "Maître de cérémonie", 1);
// Catégorie 8
Cat8 = new Array ();
Cat8[1] =new option( 0, "Dispersion des cendres au jardin du souvenir", "R", 0);
Cat8[2] =new option( W2A, "Urne en métal laqué blanc", "Urne métal alqué blanc", 0);
Cat8[3] =new option( W9, "Urne \"Grenat\" en céramique", "Urne céramique", 0);
Cat8[4] =new option( W7, "Urne \"Élise\" en émail cloisonné", "Urne émail cloisonné", 0);
Cat8[5] =new option( W6, "Urne \"Immersion\", en matériau biodégradable", "Urne biodégradable", 1);
Cat8[6] =new option( W12B, "Urne carrée en granit", "Urne granit", 0);
Cat8[7] =new option( W13A, "Urne en chêne", "Urne chêne", 0);
// Catégorie 9
Cat9 = new Array ();
Cat9[1] =new option( Z26, "Dispersion des cendres au jardin du souvenir", "Dispersion au jardin du souvenir", 0);
Cat9[2] =new option( eval(W25A+W25C), "Plaque gravée + remise d‘urne", "Plaque gravée + remise d'urne", 1);
// Catégorie 10
Cat10 = new Array ();
Cat10[1] =new option( 0, "Aucun", "R", 1);
Cat10[2] =new option( F1, "Table à signatures et registre", "Registre de condoléances", 0);
// Catégorie 11
Cat11 = new Array ();
Cat11[1] =new option( 0, "Aucune", "R", 0);
Cat11[2] =new option( eval (30*J3), "30 roses", "30 roses", 1);
Cat11[3] =new option( J11, "Coussin de roses, 100cm", "Coussin de roses", 0);
// Catégorie 12
Cat12 = new Array ();
Cat12[1] =new option( 0, "Aucune", "R", 1);
Cat12[2] =new option( KE13, "Ouverture\/fermeture de case au columbarium du Père Lachaise", "Ouverture case columbarium", 0);
Cat12[3] =new option( KP, "Cavurne 2 à 4 urnes", "Cavurne", 0);
Cat12[4] =new option( eval (KQ+KD16), "Caveautin 120x50 cm + couvre-caveautin", "Caveautin", 0);
Cat12[5] =new option( K10, "Ouverture\/fermeture de caveau, si sépulture existante", "Ouverture caveau", 0);
// Catégorie 13
Cat13 = new Array ();
Cat13[1] =new option( 0, "Aucune", "R", 1);
Cat13[2] =new option( KB17A, "Gravure à la main, dorure à la feuille (forfait 25 lettres)", "Gravure avec dorure", 0);
Cat13[3] =new option( KD18A, "Gravure à la main, sans or ni couleur (forfait 25 lettres)", "gravure sans or ni couleur", 0);
Cat13[4] =new option( K18A, "Gravure par sablage sur plaque, dorure feuille (forfait 25 lettres)", "Gravure sur plaque, avec dorure", 0);
Cat13[5] =new option( KD19A, "Gravure par sablage sur plaque, couleur (forfait 25 lettres)", "Gravure sur plaque, en couleur", 0);
// Catégorie 14
Cat14 = new Array ();
Cat14[1] =new option( 0, "Aucune", "R", 1);
Cat14[2] =new option( Z35PL1, "Consession 10 ans", "Concession de 10 ans", 0);
Cat14[3] =new option( Z35PL2, "Consession 30 ans", "Concession de 30 ans", 0);
Cat14[4] =new option( Z35PL3, "Consession 50 ans", "Concession de 50 ans", 0);
// Catégorie 15
Cat15 = new Array ();
Cat15[1] =new option( Z22, "\"Salle du dernier hommage\"", "Dernier hommage", 1);
Cat15[2] =new option( Z22A, "\"Salle du dernier hommage\" avec crémation différée", "Dernier hommage, crémation différée", 0);
Cat15[3] =new option( Z22B, "Crémation  hors présence famille, sans temps de recueillement", "Crémation seule", 0);
Cat15[4] =new option( Z19, "\"Salle de la coupole\"", "Coupole", 0);
// Catégorie 16
Cat16 = new Array ();
Cat16[1] =new option( eval (2*Z1), "2 vacations de police en vue d‘une crémation", "2 vac de police", 0);
Cat16[2] =new option( eval (3*Z1), "3 vacations de police (1 pour les soins, 2 pour la crémation)", "3 vac de police", 1);
Cat16[3] =new option( eval ((2*Z1)+Z2), "2 vacations de police en vue d‘une crémation + taxe d‘inhumation", "2 vac de police + taxe d'inhumation", 0);
Cat16[4] =new option( eval ((3*Z1)+Z2), "3 vacations de police \+ taxe d‘inhumation", "3 vac de police + taxe d'inhumation", 0);
// Nombre de catégories
var nbCat = 16;
var nbEx =2;
//	----------