function DGI(RDI)	{
	var D, An, Handi, Pag, Enf, Fois, DepAn, RedImp ;
	var Vsup, Vmin, Vmax ;
	D = document.RDI;
	An = "2009"
	if  (D.Handi.checked)   {Handi = 1}  else {Handi = 0} ;
	Pag   = Math.abs(D.Pag.value)
	Enf   = Math.abs(D.Enf.value)
	Fois  = Math.abs(D.Fois.value)
	DepAn = D.DepAn.value*1
	D.DepAn.value = DepAn
// 			    		Normal  NorMax  Handi  HandMax  Charge Taux
	switch   (Fois)
	{
 	  case "2003" : P = [5000,   5000,   6900,  6900,    000,  .5]; break;
   	  case "2004" : P = [5000,   5000,   6900,  6900,    000,  .5]; break;
   	  case "2005" : 
   	  case 1      : P = [7500,   9000,  10000, 10000,    750,  .5]; break;
   	  default     : P = [6000,   7500,  10000, 10000,    750,  .5]; break;
   	}

	if (Handi)   {VMin = P[2]; VMax = P[3]}  else	{VMin = P[0]; VMax = P[1]}
	VMin = VMin + ((Pag+Enf) * P[4])
	if (VMin<VMax) {VMax = VMin}; 
	DepAn = DepAn * P[5]
	if (DepAn<VMax) {VMax = DepAn}; 
	D.RedImp.value = Ed(ARx(VMax,2)) + " "+KEuro
	if (D.DepAn.value*1 != D.DepAn.value) {D.RedImp.value = "Erreur"}
}
function Init(RDI)	{
	var D;
	D = document.RDI;
	Style("New", "fontFamily","&fontFamily","textAlign","center", "color", 0, "fontWeight", "normal");
	Style("Set", D.Handi, D.Pag, D.Enf, D.Fois, D.DepAn); 
	Style("Mod", "readonly", "readonly", "color", "blue", "fontWeight", "bold");
	Style("Set", D.RedImp); 
}