function C_APA(APA){
	var i, MAPA, Aide, Part, Doc, R, M, M1, M2, Euro, X, Gir, Taux; 
	Doc = document.APA;
	R =  Doc.R.value*1;
	Gir = 6; Doc.Tit.value=GirLib[0]
	for (i=0; i<6; i++) 	{
	    if (Doc.Gir[i].checked) {	Gir = i+1;
					Doc.Tit.value="GIR " + Gir + " : " + GirLib[Gir];
				    }
				};
	if (Doc.Euro[0].checked) {Euro=1; M=KEcu;   M1=" "+KEuro; M2=" F"}
	   else			 {Euro=0; M=1/KEcu; M1=" F"; M2=" "+KEuro};
 	MAPA = CAPA("01/200X", Gir, R, Euro);
 	Aide = CAPA("Aide", Gir, R, Euro);
 	Part = Aide-MAPA;
	if (R > 0) {Doc.R1.value = "soit : " + Ed(ARx(R*M,0)) + M2} else {Doc.R1.value="";};
	Doc.G.value = 		Ed(ARx(Aide,2)) + M1;
	Doc.G1.value = 		Ed(ARx(Aide*M,2)) + M2;
	Doc.P.value = 		Ed(-ARx(Part ,0)) + M1;
	Doc.P1.value = 		Ed(-ARx(Part *M,0)) + M2;
	Taux = 				CAPA("Taux", Gir, R, Euro);
	Doc.T.value = 		Ed(ARx(Taux*100,2)) + " %";
	Doc.Aide.value = 	Ed(ARx(MAPA,0)) + M1;
	Doc.Aide1.value = 	Ed(ARx(MAPA*M,0)) + M2;
	Doc.Reduct.value = 	Ed(-ARx(Part*0.1,0)) + M1;
	Doc.Reduct1.value = Ed(-ARx((Part*0.1)*M,0)) + M2;
	Style("New", "borderStyle","none", "textAlign","center", "fontFamily","&fontFamily", "fontSize","100%", "fontWeight","normal", "color",0, "backgroundColor","#fffff0", "fontStyle","italic", "readonly", false);
	Style("Set", Doc.Tit); 
	Style("Mod", "backgroundColor","#CCFFFF", "fontStyle","normal");	
	Style("Set", Doc.G, Doc.G1, Doc.P, Doc.P1, Doc.Reduct, Doc.Reduct1, Doc.T);
	Style("Mod", "fontWeight", "bold", "color","#FF0000");
	Style("Set", Doc.Aide, Doc.Aide1);
	}
 function C_R(R)
{	var V, Couple, Doc;
	Msk(R);
	Doc = document.R;
	if (Doc.Couple.checked) {Couple=1} else {Couple=0};
	Doc.RD3.value = (Doc.RD1.value*1 + Doc.RD2.value*Couple);
	Doc.RS3.value = (Doc.RS1.value*1 + Doc.RS2.value*Couple);
	Doc.IB3.value = ARx((Doc.IB1.value*1 + Doc.IB2.value*Couple),0);
	Doc.TB3.value = ARx((Doc.TB1.value*1 + Doc.TB2.value*Couple),0);
	Doc.CP3.value = ARx((Doc.CP1.value*1 + Doc.CP2.value*Couple)*0.03,0);
	V = ARx((Doc.RD3.value*1) + (Doc.RS3.value*1) + (Doc.IB3.value*1) + (Doc.TB3.value*1) + (Doc.CP3.value*1),0);
	Doc.T1.value = V;
	if (Couple){V=ARx(V/1.7,0)};
	Doc.T2.value = V;
	V = ARx(V / 12,0);
	Doc.T3.value = V;
	document.APA.R.value = V;
	C_APA(document.APA);
}
function Msk(R)
{ 	var Visu, Doc;
 	Doc = document.R;
 	if (Doc.Couple.checked) {Visu = ""} else {Visu = "#ffffff"};
 	Doc.RD2.style.color = Visu;
 	Doc.RS2.style.color = Visu;
 	Doc.IB2.style.color = Visu;
 	Doc.TB2.style.color = Visu;
 	Doc.CP2.style.color = Visu;
}
function Rset(R)
{	document.R.reset();
	Msk(R);
}
function InitAPA()
{	var Doc, i, G;
	C_APA("APA");
	Style("New", "borderStyle","none", "textAlign","center", "fontFamily","&fontFamily", "fontSize","100%", "fontWeight", "normal", "backgroundColor","#CCFFFF", "color", 0, "fontStyle", "normal");
	Doc = document.forms["GL"];
	for (i=0; i<4; i++)  {Doc.G[i].value  =Ed(ARx(CAPA("X", i+1, 0, 1),2)) + " "+KEuro; Style("Set", Doc.G[i]);
			      Doc.G[i+4].value=Ed(ARx(CAPA("X", i+1, 0, 0),0)) + " F"; Style("Set", Doc.G[i+4])}
	Style("Set", Doc.Depuis);
	St.fontStyle="italic"
	Doc.Depuis.value="Valeurs maximales de l'APA en " + CAPA("An", 1, 0, 1) + ", r"+KEA+"visables tous les ans.";
}