var decimal=2;

function c2p2(s)
{
  var ls;
  if (s=="")
    return 0.00;
  ls=s.replace(/,/g,".");
  if(isNaN(ls))
    return 0.00;
  return parseFloat(ls);
}

function FF(n, d)
{

  var s=""+n;
  var i = s.indexOf(".");

  if (i<0)
  {
    i=s.length;
    s+=".00000000";
  }
  else if(i==0)
  {
    i=1;
    s="0"+s;
  }
  else
    s+="00000000";
  return s.substring(0,i)+","+s.substring(i+1,i+d+1);

}

function E2L()
{
  var e;
  var frm=document.getElementById("frmMain");
  e=c2p2(frm.txtRenditaE.value);
  frm.txtRenditaL.value=FF(e * 1936.27+0.005,2);
  frm.txtRenditaE.value=FF(e+0.005,2);
}

function L2E()
{
  var l;
  var frm=document.getElementById("frmMain");
  l=c2p2(frm.txtRenditaL.value);
  frm.txtRenditaL.value=FF(l+0.005,2);
  frm.txtRenditaE.value=FF(l* (1/1936.27)+0.005,2);
}

function checkPP(p)
{
  var e=0;
  var n;
  var l=c2p2(p.value);
  var frm=document.getElementById("frmMain");

  if (isNaN(l))
    e=1;
  else
  {
    n=l;
    if(n<1 || n>100)
      e=1;
  }
  if (e!=0)
  {
    alert("Indicare un valore valido per questo campo");
    p.value="";
    frm.txtPP.focus();
  }
  else
    frm.txtPP.value=FF(n,2);
}

function checkCOA(p)
{
  var co=p.value;
  var frm=document.getElementById("frmMain");
  var pp=c2p2(frm.txtPP.value);
  var r=100/pp;
  if (isNaN(co))
    co=r;
  else
  {
    if(co>r)
      co=r;
  }
  frm.txtCOA.value=co;
}

function checkAP(p,i)
{
  var frm=document.getElementById("frmMain");
  if(p.checked)
  {
    document.getElementById("chkEsente"+i).checked=false;
    var t=frm.cmbCategoria.value;
    frm.cmbTipologia.selectedIndex=0;
    if ((t!="C02") && (t!="C06") && (t>"A09"))
   {
      alert("Indicare una categoria catastale valida");
      frm.cmbCategoria.focus();
      document.getElementById("chkAbiPri"+i).checked=false;
    }
  }

}

function checkES(p,i)
{
  var frm=document.getElementById("frmMain");

  if(p.checked)
  {
    document.getElementById("chkAbiPri"+i).checked=false;
    var t=frm.cmbCategoria.value;
    frm.cmbTipologia.selectedIndex=0;
    if ((t<"A02" || t>"A09") && (t!="C02") && (t!="C06"))
    {
      alert("Indicare una categoria catastale valida");
      frm.cmbCategoria.focus();
      document.getElementById("chkEsente"+i).checked=false;
    }
  }

}

function checkCategoria(i)
{
  var frm=document.getElementById("frmMain");

  frm.cmbTipologia.selectedIndex=0;
  frm["chkAbiPri"+i].checked=false;
}

function checkTipologia(i)
{
  var frm=document.getElementById("frmMain");
  frm.cmbCategoria.selectedIndex=0;
  frm["chkAbiPri"+i].checked=false;
}

function checkForm()
{
  var frm=document.getElementById("frmMain");
  if(c2p2(frm.txtRenditaE.value)==0)
  {
    alert("Indicare la rendita catastale");
    frm.txtRenditaE.focus();
    return(false);
  }
  else
    frm.submit();
}