function anulez() {
document.forma_taxa.taxa.value = " ";
document.forma_taxa.Bvar.value = " ";
document.forma_taxa.Dvar.value = " ";
document.forma_taxa.Evar.value = " ";
document.forma_taxa.taxalei.value = " ";
}
function validez_norma (vc,vn) {
  if ((vc == 0 || vc == 3) && (vn >= 8 && vn <=12))
 {  alert(" La  categoriile de vehicul M1, N1 nu exista normele Euro I - V"); 
  document.forma_taxa.norma.value =0 ;
  document.forma_taxa.norma.focus();
 } 
 if ((vc == 1 || vc == 2 || vc == 4 || vc==5) && (vn >=2 && vn <=7))
 {  alert(" La  categoriile de vehicul M2, M3, N2, N3 nu exista normele Euro 1 - 6"); 
  document.forma_taxa.norma.value =0 ; } 
  anulez();
  document.forma_taxa.norma.focus();
 }

function validez_emisie (vc,ve) {
 if (vc != 0 && ve != null)
    {alert("Emisia de dioxid de carbon se completeaza numai pentru  vehiculele din categoria M1"); 
    document.forma_taxa.emisie.value = "" ;}
  anulez();
 }
//-->
function taxa_masini_2008() {
var vrtaxa =1;
var vform = 1;
var i=0;
var Avar = 0;
var Bvar = 0;
var Cvar = 0 ;
var Dvar = 0 ;
var Evar = 0 ;
var co2 = 0;
var taxaluc = 0;
var taxaluc2 = 0;
var a1c2 = new Array(7);
var a1c3 = new Array(7);
var a2c2 = new Array(6);
var a2c3 = new Array(44);
var a3c2 = new Array(6);
var a4c2 = new Array(20);
var nr1 = 0;
var nr2 = 0;
var vcategorie =0
var vcapacitate = 0;
var vnorma = 0;
var vvarsta = 0;
var vemisie = null;
var varll =0;
//--->
a1c2[0] = 120;
a1c2[1] = 150;
a1c2[2] = 180;
a1c2[3] = 210;
a1c2[4] = 240;
a1c2[5] = 270;
a1c2[6] = 271999;
a1c3[0] = 0;
a1c3[1] = 0.5;
a1c3[2] = 1.0;
a1c3[3] = 2.0;
a1c3[4] = 4.0;
a1c3[5] = 6.0;
a1c3[6] = 8.0;
//-->
a2c2[0] = 1400;
a2c2[1] = 1600;
a2c2[2] = 2000;
a2c2[3] = 2500;
a2c2[4] = 3000;
a2c2[5] = 30009999;
a2c3[1] = 0.20;
a2c3[2] = 0.30;
a2c3[3] = 0.40;
a2c3[4] = 0.60;
a2c3[5] = 0.80;
a2c3[6] = 1.00;
a2c3[7] = 0.65;
a2c3[8] = 1.00;
a2c3[9] = 1.30;
a2c3[10] = 1.90;
a2c3[11] = 2.50;
a2c3[12] = 3.00;
a2c3[13] = 1.70;
a2c3[14] = 2.60;
a2c3[15] = 3.30;
a2c3[16] = 5.00;
a2c3[17] = 7.00;
a2c3[18] = 8.00;
a2c3[19] = 3.50;
a2c3[20] = 5.50;
a2c3[21] = 7.00;
a2c3[22] = 10.00;
a2c3[23] = 14.00;
a2c3[24] = 16.00;
a2c3[25] = 10.50;
a2c3[26] = 16.50;
a2c3[27] = 21.00;
a2c3[28] = 30.00;
a2c3[29] = 42.00;
a2c3[30] = 48.00;
//-->
a3c2[0] = 0.03 ;
a3c2[1] = 0.1 ;
a3c2[2] = 0.3 ;
a3c2[3] = 1 ;
a3c2[4] = 3 ;
a3c2[5] = 9 ;

//-->
a4c2[0] = 0;
a4c2[1] = 3;
a4c2[2] = 5;
a4c2[3] = 8;
a4c2[4] = 10;
a4c2[5] = 13;
a4c2[6] = 21;
a4c2[7] = 28;
a4c2[8] = 33;
a4c2[9] = 38;
a4c2[10] = 43;
a4c2[11] = 49;
a4c2[12] = 55;
a4c2[13] = 61;
a4c2[14] = 66;
a4c2[15] = 73;
a4c2[16] = 79;
a4c2[17] = 84;
a4c2[18] = 89;
a4c2[19] = 93;
a4c2[20] = 95;
//-->
vcategorie = eval(document.forma_taxa.categorie.value);
vcapacitate = eval(document.forma_taxa.capacitate.value);
vnorma = eval(document.forma_taxa.norma.value);
vvarsta = eval(document.forma_taxa.varsta.value);
vemisie = eval(document.forma_taxa.emisie.value);
if (document.forma_taxa.filtru.checked == false ) vrtaxa=1;
else vrtaxa= 0.75;
 if (vcapacitate == null )
     {alert (" Itroduceti capacitatea cilindrica "); 
      document.forma_taxa.capacitate.focus(); }
 else
  { if (vnorma == 0 ) 
    {alert (" Selectati Norma de poluare ");
         document.forma_taxa.norma.focus();}
   else
    {if (vvarsta == 0 )
     { alert (" Selectati Vechimea autovehiculului ");
      document.forma_taxa.varsta.focus();}
    else {
      
//-->  CALCUL  Nivel taxa emisie in functie de Emisia de dioxid
//--> Se calculeaza numai pentru categoria M1
 Avar = vemisie ;
 Bvar =0 ;
if (vcategorie == 0 && ( vnorma == 4  ||  vnorma == 5) && vemisie != null )
 {
   for (i=0;i<=7;i++)
    {if (Avar <= a1c2[i]) {Bvar= a1c3[i],  i = 8}}
    vform  = 0.7;
//  vform  = 0.7  numai daca in Anexa 2 nu se schimba nivelul taxei pt. Euro 5 si 6     
 }   
//-->
//--> CALCUL coeficient de reducere (Anexa 4)
Evar = a4c2[vvarsta-1];
//---> CALCUL Nivel taxa euro / 1 cmc (Anexa 2, si 3)
// corelez norma cu pozitia din Anexa 2
   if (vnorma == 5 ) nr2 = 1 ;
   if (vnorma == 4 ) nr2 = 2 ;
   if (vnorma == 3 ) nr2 = 3 ;
   if (vnorma == 2 ) nr2 = 4 ;
   if (vnorma == 13 ) nr2 = 5 ;
Cvar = vcapacitate;
Dvar =0 ;
nr1 = 0;
// Euro 5,6 si  Hibride   este 0  indiferent de categorie
// calcul pt Categoriile  N1 si M1 Euro 1-4 si Non Euro 
  if (vcategorie == 0 || vcategorie == 3) 
 {  
     if (vnorma >=2 && vnorma <= 5 || vnorma == 13)
      for (i=0;i<=6;i++)
          if (Cvar <= a2c2[i])
           {nr1 = i,  Dvar = a2c3[(nr2 -1)*6 +i+1]; i = 7; }        
  } 

// calcul pt Categoriile M2, M3, N2, N3
   if (vcategorie == 1 || vcategorie == 2 || vcategorie == 4 || vcategorie == 5 ) 
      {if (vnorma == 13 ) Dvar = 9;
      if ( vnorma >=8 && vnorma <=12) Dvar = a3c2[12-vnorma];
      }
//---> Calculez taxa
if (Avar !=null) 
 taxaluc = ((Avar*Bvar*0.3) + (Cvar*Dvar*vform))* (100-Evar)/100;
else 
 taxaluc =  (Cvar*Dvar*vform)* (100-Evar)/100; 
 taxaluc = taxaluc*vrtaxa;
 taxaluc = Math.round(taxaluc*100)/100;
varluc2= taxaluc*document.forma_taxa.curs.value; 
document.forma_taxa.taxalei.value = Math.round(varluc2);
document.forma_taxa.taxa.value = taxaluc; 
document.forma_taxa.Bvar.value = Bvar;
document.forma_taxa.Dvar.value = Dvar;
document.forma_taxa.Evar.value =Evar;
}}}
}