// ----------	Formule 6
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\" au Père Lachaise", "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 \+ permis transport urne", "Crémation + laisser-passer", 0);
Cat1[4] =new option( eval (A3A+A3C), "Crémation au Père Lachaise \+ autorisation consulaire ", "Crémation + laisser-passer + consulat", 0);
// Catégorie 2
Cat2 = new Array ();
Cat2[1] =new option( 0, "Toilette et habillage assurés par le personnel de l'IML", "Toilette du défunt", 1);
Cat2[2] =new option( C1B, "Soins de présentation et de conservation par un thanatopracteur", "Soins du défunt", 0);
// 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( SG2, "Cercueil parisien, en pin, finition claire satinée, capiton satin", "Cercueil pin", 0);
Cat4[3] =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 départ de l'IML", "Porteurs au départ", 0);
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 au départ", 0);
Cat6[4] =new option( H17, "Portage assuré par la famille et les amis", "R", 1);
// 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, "Aucune", "R", 0);
Cat8[2] =new option( W2A, "Urne métal blanche", "Urne métal métal blanche", 1);
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", 0);
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", 1);
Cat11[2] =new option( eval (30*J3), "30 roses", "30 roses", 0);
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*/
Cat12 = new Array ();
Cat12[1] =new option( Z22, "\"Salle du dernier hommage\"", "Dernier hommage", 1);
Cat12[2] =new option( eval (Z22+Z27), "\"Salle du dernier hommage\" + soudage de l'urne", "Dernier hommage & soudage", 0);
Cat12[3] =new option( Z22A, "\"Salle du dernier hommage\" avec crémation différée", "Dernier hommage, crémation différée", 0);
Cat12[4] =new option( Z22B, "Crémation  hors présence famille, sans temps de recueillement", "Crémation seule", 0);
Cat12[5] =new option( Z19, "\"Salle de la coupole\"", "Coupole", 0);
// Catégorie 16
Cat13 = new Array ();
Cat13[1] =new option( eval ((2*Z1)+Z33+Z34), "2 vacations de police en vue d‘une crémation +taxes I.M.L.", "2 vac de police +IML", 0);
Cat13[2] =new option( eval (Z33+Z34+Z34B), "3 vacations de police (soins, crémation) \+ taxes I.M.L.", "3 vac de police \+IML", 0);
Cat13[3] =new option( eval ((2*Z1)+Z2), "2 vacations de police (crémation) \+ taxe d‘inhumation +taxes I.M.L.", "2 vac de police + taxe d'inhumation \+IML", 1);
Cat13[4] =new option( eval ((3*Z1)+Z2), "3 vacations de police \+ taxe d‘inhumation +taxes I.M.L.", "3 vac de police + taxe d'inhumation +IML", 0);
// Nombre de catégories
var nbCat = 13;
var nbEx = 6;
//	----------