function CalG(BrutNet)
{	var Doc, Brut, B, Net, N, Brut2, B2, Net2, N2, ChSoc, C, Tot, T, NH, HR;
//	var KotSal=0.2291, KotNExo=0.1031, KotExo=0.318, KotRed=.15, KConges=0.1;
	Doc   = document.GG
	Brut  = Doc.Brut
	Net   = Doc.Net
	Brut2 = Doc.Brut2
	Net2  = Doc.Net2
	ChSoc = Doc.ChSoc
	Tot   = Doc.Tot
	NH    = Doc.NH	
	Brut2.value = ""
	Net2.value  = ""
	ChSoc.value = ""
	Tot.value 	= ""
	Style("New", "fontFamily","&fontFamily", "fontSize", "100%", "textAlign","center");
	Style("Set", NH, Brut, Net, Brut2, Net2, ChSoc, Tot);
	
	if (NH.value=="") return;
	HR = CVN(NH.value)*1;
	if (HR) {} else {HR=1}
	if (BrutNet) {	Net.value=""
				 	B = CVN(Brut.value)*1;
			     	if (B) {} else {return}
			 	 }
	else	 	 {	Brut.value=""
					N = CVN(Net.value)*1;
			    	if (N) {} else {return}
					B = ARx(N * (1 / (1-KotSal)),2)
			 	 }
			 
	N = ARx(B-(B*KotSal),2)
	if (Doc.CP.checked) {B2= B; N2= N} else {B2= ARx(B*(1+KConges),2); N2= ARx(N*(1+KConges),2)}; 

	HR= ARx(HR,2);
	B2= ARx(B2*HR,2);
	N2= ARx(N2*HR,2);
	C = ARx(B2*(KotSal + KotNExo + (KotExo - KotRed)),2)
	T = ARx(N2 + C,2)

	if (CVN(NH.value)  *1 ==HR) 	{} else  {NH.value   = Ed(HR);}
	if (CVN(Brut.value)*1 ==B) 	{} else  {Brut.value = Ed(B); }
	if (CVN(Net.value) *1 ==N) 	{} else  {Net.value  = Ed(N); }

	Brut2.value		= Ed(B2);
	Net2.value 	 	= Ed(N2); 
	ChSoc .value 	= Ed(C);
	Tot.value 	 	= Ed(T);
}