function funAnnulla() 
  {
  document.forms["Form1"].p0.value = 0
  document.forms["Form1"].p1.value = 0
  document.forms["Form1"].p2.value = 0
  document.forms["Form1"].p3.value = 0
  document.forms["Form1"].p4.value = 0
  document.forms["Form1"].p5.value = 0
  }

function isDigit (c)
  {   
  return ((c >= "0") && (c <= "9"))
  }

function isInteger (s)
  {
  var i

  for (i = 0; i < s.length; i++)
    {
    var c = s.charAt(i)
    if (!isDigit(c)) 
       return false
    }
    return true;
}

function GetHelp(pagina, title)
  {
  window.open(pagina,title,'directories=no,scrollbars=yes,status=no,resizable=no,menubar=no,width=600,height=250');
  return false;
  }

function Arrotonda(Numero)
  { 
  Molt=100

  //Parte Intera 
  NumeroMolt=parseInt(Numero*Molt)

  //Calcolo il resto e aumento la parte intera di 1 se il resto e' >= 0.5
  Resto=Numero*Molt-NumeroMolt

  if (Resto >= 0.5) 
     NumeroMolt=NumeroMolt+1

  Ritorno=NumeroMolt/Molt
  return Ritorno

}

function funCalcola() 
  {
  var rendita    = 0;
  var rivaluta   = 0;
  var ind_riv	 = 1.05;
  var coefficente= 0;
  var lorda      = 0;
  var aliquota   = 0;
  var netta      = 0;
  var mensile    = 0;
  var demensile  = 0;
  var accontod   = 0;
  var saldod     = 0;
  var accontoi   = 0;
  var saldoi     = 0;

  if (document.forms["Form0"].x0[0].checked) 
    {
    // ALIQUOTA 0%: non faccio nulla
    document.forms["Form1"].p0.value = 0
    document.forms["Form1"].p1.value = 0
    document.forms["Form1"].p2.value = 0
    document.forms["Form1"].p3.value = 0
    document.forms["Form1"].p4.value = 0
    document.forms["Form1"].p5.value = 0
    return 1;
    }

  if (document.forms["Form0"].x0[1].checked) 
     aliquota=2.5
     else if (document.forms["Form0"].x0[2].checked) 
             aliquota=4
        else if (document.forms["Form0"].x0[3].checked) 
                aliquota=5
				        else if (document.forms["Form0"].x0[4].checked) 
                   			aliquota=7

  // verifica l'introduzione della categoria catastale
  if ( (document.forms["Form0"].x1[0].checked==false) &&
       (document.forms["Form0"].x1[1].checked==false) &&
	   (document.forms["Form0"].x1[2].checked==false) &&
       (document.forms["Form0"].x1[3].checked==false) ) 
     alert ("Selezionare una categoria catastale !");  

  if (document.forms["Form0"].x1[0].checked)
     coefficente=34
     else if (document.forms["Form0"].x1[1].checked)
             coefficente=50
          else if (document.forms["Form0"].x1[2].checked)
                  coefficente=140
				  else if (document.forms["Form0"].x1[3].checked)
                  			coefficente=100

  // verifica l'introduzione della rendita catastale
  if (document.forms["Form0"].x2.value.length==0)
     alert ("Introdurre la rendita catastale !");  

   rendita =document.forms["Form0"].x2.value
   rendita= rendita*100
   possesso=document.forms["Form0"].x3.value
   mesi    =document.forms["Form0"].x4.value
   semestre=document.forms["Form0"].x5.value
   possessori=document.forms["Form0"].x20.value

   // verifica che tutti i dati siano espressi come numeri interi
   if (!isInteger(possesso))
     alert("La percentuale di possesso deve essere espressa con un numero intero da 1 a 100 senza separatori !")
   if (!isInteger(mesi))
     alert("Il numero dei mesi deve essere espresso con un numero intero da 1 a 12 senza separatori !")
   if (!isInteger(semestre))
     alert("Il numero dei mesi nel primo semestre deve essere espresso con un numero intero da 0 a 6 senza separatori !")

  // verifica l'introduzione della detrazione
  if ( (document.forms["Form0"].x6[0].checked==false) &&
       (document.forms["Form0"].x6[1].checked==false) &&
       (document.forms["Form0"].x6[2].checked==false) ) 
     alert ("Selezionare una categoria di detrazione !");  

  // calcola il valore dell'immobile
  rivaluta=rendita*ind_riv*coefficente

  // calcola l'imposta lorda senza le detrazioni
  lorda=rivaluta/1000*aliquota

// calcola l'imposta in base a % di possesso
  lordap=lorda*possesso/100

  if (document.forms["Form0"].x6[0].checked)
     detrazioni=0
     else if (document.forms["Form0"].x6[1].checked)
             detrazioni=10846/possessori
             else if (document.forms["Form0"].x6[2].checked)
                     detrazioni=lordap

  // calcola l'imposta netta su 12 mesi
  netta=lordap-detrazioni

  // calcola l'imposta totale in base all'effettivo numero di mesi di possesso
  mensile=netta/12*mesi

  // calcola la detrazione in base all'effettivo numero di mesi di possesso
  demensile=detrazioni/12*mesi

  // calcola l'imposta totale suddivisa in primo e secondo semestre
  if (mesi<12)
    {
    accontod=demensile/mesi*semestre
    saldod  =demensile-accontod    
    accontoi=mensile/mesi*semestre
    saldoi  =mensile-accontoi    
	
    }
  else
    {
    accontod=detrazioni/2
    saldod  =detrazioni/2    
    accontoi=mensile/2
    saldoi  =mensile/2 
    }

  // riepilogo i dati degli importi da pagare tenendo conto delle
  // percentuali di possesso

  document.forms["Form1"].p0.value = Arrotonda(accontod/100)
  document.forms["Form1"].p1.value = Arrotonda(saldod/100)
  document.forms["Form1"].p2.value = Arrotonda(demensile/100)
  document.forms["Form1"].p3.value = Arrotonda(accontoi/100)
  document.forms["Form1"].p4.value = Arrotonda(saldoi/100)
  document.forms["Form1"].p5.value = Arrotonda(mensile/100)

  return 1;

  }