var Mi=		(navigator.appName.substring(0,2)=='Mi');
var Coef=	(Mi)?.859:.90;
var W=		screen.width/2;
var H=		screen.height*Coef;
var WParV2=	"top=0,width=" + (W-9) + ",height=" + (H) + ",left=" + (W) + ",location=1,menubar=1,resizable=1,toolbar=1,scrollbars=1,status=1";
var WParH3=	"top=0,width=" + (screen.width-9) + ",height=" + (screen.height/3) + ",left=0" + ",location=1,menubar=1,resizable=1,toolbar=1,scrollbars=1,status=1";
var GirLib=	["Aucun GIR n'est s"+KEA+"lectionn"+KEA,
		"D"+KEA+"pendance totale, mentale et corporelle", 
		"Grande d"+KEA+"pendance", 
		"D"+KEA+"pendance corporelle", 
		"D"+KEA+"pendance corporelle partielle", 
		"D"+KEA+"pendance l"+KEA+"g"+KEG+"re, pas d'APA", 
		"Pas de d"+KEA+"pendance notable ou suffisante, pas d'APA"];
var AggLib= ["", "Coh"+KEA+"rence", "Orientation", "Toilette", "Habillage", "Alimentation", "Elimination", "Transfert", "D"+KEA+"placement int"+KEA+"rieur", "D"+KEA+"placement ext"+KEA+"rieur", "Communication " + KAG + " distance"];
var TKonst = 	["&fontFamily","verdana"];
var KWM =  52/12, KConges=0.1,    KTDim= 1.25,  KEcu=    6.55957;
var KotSal=0.2291, KotNExo=0.1241, KotExo=0.281, KotRed=  0.15, KotRedD= 'janvier 2009',  KHrExo=  65;
var KRepas=4.7,    KTH1=   9.2,    KTH2=  9.68,  KRdiMin1=6000.,  KSmicH = 8.86, KSmicD='janvier 2010';
// var KFG = [57, 109, 168, 223, 272, 312],  KInscr=140,	 	                     KTarifD='d'+KEA+'cembre 2009';
   var KFG = [58, 111, 171, 227, 277, 317],  KInscr=142,	 	                     KTarifD='juillet 2010';
var KFGMini = 50, FraisG, FraisLib; 
var Doc;			 	 
function Konst(Ky)	{
var I;
	for (I=0; I<TKonst.length; I=I+2) {if (Ky==TKonst[I])  {return(TKonst[I+1])}	}  
	return(Ky);
}
function Left(str, n)	{		
// 1er car = 0
	if (n <= 0)		{return ''};
	if (n > str.length) 	{return String(str)};
				 return 	String(str).substring(0,n);
}
function Right(str, n)	{		// 1er car = 0
    	if (n <= 0)       	{return ''};
    	if (n > str.length)	{return String(str)};
    				 return String(str).substring(str.length, str.length - n);
}
function DWTaux(V, D, P)	{
var S, L, I, K;
	K = Default(P,"%")
	S = "" + ARx(V*100,Default(D,2))
	L = S.length;
	I = S.indexOf(".")
	if (I > -1) 	{S = S.substring(0,I) + "," + S.substring(I+1,L)} ;
	document.write(" "+ S + K + ((Right(K,1)==" ")? "":" "));
}
function ARx(N, E)
{	var P, L, D;
	P = Math.pow(10,Math.abs(E));
	D = Math.abs(N) * P;
	L = Math.floor(D);
	if (D - L >= 0.49999) {L += 1}
	if (N < 0) {return(-L / P)} else {return(L / P)}
}
function CVN(P, D)
{	var S, N, L, I, C;
	S = String(P)
	L = S.length;
	N = ""
	for (I=0; I<L; I++)
	{   C = S.charAt(I)
	    switch (true)
	    {
	     case (C>="0" && C<="9"):	N=N + C; 	break;
	     case (C=="." || C==","):	N=N + ".";	break;
	     case (C==" ") :	 	break; 
	     case (C=="?") :		I=L;	break;
		}
	}
	if (N.length==0)  return(0);
	N = ARx(Math.abs(N), Default(D,2)); 
	return(N);
}
function Accent(S, DifOnly)
{	var SInp, SOut, I, C, K, Nbre=0;
	SInp = S;
	SOut = "";
	DifOnly = Default(DifOnly, 1)
	for (I=0; I<SInp.length; I++) {
	    C = SInp.charAt(I);
        if (C==KEuro) {C="euros"; K=-1; Nbre++} else {K=KAccent.indexOf(C)}
  	    if (K >-1) {C =	"EaaaaaaeeeeiiiiooooouuuuyycnAAAAAAEEEEIIIIOOOOOUUUUYYCN".charAt(K); Nbre++}
	    SOut = SOut + C;
	}
	if (DifOnly && Nbre==0) {return("")};
	alert (SOut)
	return(SOut)
}

function Mid(S, P, N)	{return (  String(S).substr(P, N)  )	} // 1er car = 0 
function Missing(P) 	{return (  typeof P=="undefined")       }	
function Default(P, D) 	{return ( (typeof P=="undefined")? D: P)} // P = Default(P, D) NB : Creation nouvelle variable de nom P si P est omis	

function NoSpace(str)
{
	str = str.replace(/[\s]{2,}/g," "); // Espaces en double
	str = str.replace(/^[\s]/, ""); 	// Espaces de debut
	str = str.replace(/[\s]$/,""); 		// Espaces de fin
	return str;    
}
function Ed(P, DW, Sep, D)
{	var S, L, I;			
	Sep = Default(Sep," ")				
	if (!Missing(D)) {P = ARx(P, D)}	
	S = "" + P; D = "";		
	L = S.length;
	I = S.indexOf(".")
	if (I>-1) 	{D = "," + S.substring(I+1,L) + ((L<=I+2)?"0":""); S=S.substring(0,I); L = S.length; }       
    if (L>3)  	{S = S.substring(0, L-3) + Sep + S.substring(L-3, L)}; 
	if (DW) 	{document.write((S+D))} else {return(S+D)}; 
	return "";
}
function FGx(H, JS, X, F, FGBrut)
{
//	var KRepas = 4.5, KTDim = 1.25, KotNExo = 0.1031, KotExo = 0.316, KConges = 0.1, KHrExo = 65;
//	var KSmicH = 8.44, KTH1 = 8.9, KTH2 = 9.40;	// Novembre 2007
//                var KFG = [55, 100, 155, 205, 250, 285];	                  // juillet 2006
	var T0, HN, PR, NR, IN;
	var TJ, TD, TS, TM, Tot, HJ, HS, HM, WX=0;
	var XP, XS, XT, AV;	
	var D=0, S=0, J=0, G=0, I, WE, WH;
	
    for (I=0; I<JS.length; I++)
    {	switch (JS.charAt(I))	{
    	case   ("D") :  D = 1; break;
    	case   ("S") :  S = 1;
    	default      :	J +=1;	}
    }
    if (J + D >= 7) {D = 1; J = 6;};
    if (J >= 6)     {S = 1};

    WE = Math.abs((D+S) >0);
    WH = Math.abs(H) * (D + J);	
	
    XT = (X <= 1);
    XS = (X >= 4);
    XP = (XT == XS);
    switch (true)
    {
    case (H >12)  	: T0=KTH2; HN=5; PR=4; NR= 2.5; IN = 2; break;
    case (H==12)  	: T0=KTH1; HN=5; PR=4; NR= 2.5; IN = 0; break;
    case (H==-12) 	: T0=KTH1; HN=3; PR=4; NR= 0;   IN = 2; break;
    default 		: T0=KTH1; HN=H; PR=0; NR= 0;   IN = 0; break;
    }	 

    HJ = HN+(PR*2/3)+IN;
    AV = KRepas * NR * (J + D) * KWM;
    TJ = T0 * HJ;
    if (D) {TD = TJ * KTDim} else {TD = 0};
    TS = (TJ * J) + TD;
    HS = HJ * (J + D);
    TM = TS * KWM; 
    HM = HS * KWM;
    TM += AV;
    TM += (TM * KConges);
    HM += (HM * KConges);
    
    FGBrut = Default(FGBrut,0)
    switch (FGBrut)
    {
    case (1):           
    		var KFGTaux = [500, 0.25, 0.22, 0.16, 0.03], B, V;
		    B = TM; FraisG = 0; FraisLib = "25-22-16% (500) puis 3% (reste)"
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[1]); B = B-V;}	
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[2]); B = B-V;}	
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[3]); B = B-V;}	
			if (B>=0) {V = B; 						      FraisG = FraisG + (V*KFGTaux[4]); }	
        	break;
    case (2):           
    		var KFGTaux = [600, 0.25, 0.2, 0.1, 0.03], B, V;
		    B = TM; FraisG = 0; FraisLib = "25-20-10% (600) puis 3% (reste)"
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[1]); B = B-V;}	
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[2]); B = B-V;}	
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[3]); B = B-V;}	
			if (B>=0) {V = B; 						      FraisG = FraisG + (V*KFGTaux[4]); }	
       		break;
    case (3):           
    		var KFGTaux = [700, 0.25, 0.18, 0.05, 0.03], B, V;
		    B = TM; FraisG = 0; FraisLib = "25-18-05% (700) puis 3% (reste)"
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[1]); B = B-V;}	
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[2]); B = B-V;}	
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[3]); B = B-V;}	
			if (B>=0) {V = B; 						      FraisG = FraisG + (V*KFGTaux[3]); }	
      		break;
    case (4):           
    		var KFGTaux = [800, 0.25, 0.18, 0.02, 0.02], B, V;
		    B = TM; FraisG = 0; FraisLib = "25-18-02% (800) puis 2% (reste)"
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[1]); B = B-V;}	
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[2]); B = B-V;}	
			if (B>=0) {V = (B>KFGTaux[0])? KFGTaux[0]: B; FraisG = FraisG + (V*KFGTaux[3]); B = B-V;}	
			if (B>=0) {V = B; 						      FraisG = FraisG + (V*KFGTaux[3]); }	
      		break;
    default :  
		    switch (true)
		    {
		    case   (WH<=6)  		: G = 0 + WE; break;	 
		    case   (WH<=10) 		: G = 1 + WE; break;	 
		    case   (Math.abs(H)>=8) : G = 4 + WE; break;	 
		    case   (Math.abs(H)<=3) : G = 2 + WE; break;	 
		    default  				: G = 3 + WE; break;
		    }	
    		FraisG = KFG[G]; FraisLib = "25-22-16% (500) puis 3% (reste)"
        	break;
 	}        
    if (FraisG<KFGMini) {FraisG=KFGMini}
    
    if (XP)
    {       if (F)
    		{  if (HM >= KHrExo) {WX = KHrExo} else {WX = HM}
               WX = (WX * KSmicH) * KotExo;
            }   
            else
            {  if (TM >= (KHrExo * KSmicH)) {WX = KHrExo * KSmicH} else {WX = TM}
               WX = WX * KotExo;
            }
    }
    Tot = TM + (TM * KotNExo) - WX - AV;
    if (!XT) {Tot = Tot + (TM * KotExo)};
    G = (Math.abs(X<=8)*Tot)+(FraisG*(X%2));
    return(G);
}
function wo(P,N,S)	{
	window.open(C(P,N)+C(Default(S,"ouk0")),'_self')
}
function C(P, S)	
{	var I, N, V="";
	S = Default(S,-1);	
	N=(S>0)?P.length:-1;
	for (I=P.length-1; I>=0; I--)	{V = V+String.fromCharCode(P.charCodeAt(I) + (Math.abs(N)%3+1)*S); N--}
	return(V);
}
function DestAS(f)	{
	// alert (C("uqgjskdht") + " - " + C("tg1qpgcodyAdtpkrpv0blebfc"))
	f[C("uqgjskdht")].value = C("tg1qpgcodyAdtpkrpv0blebfc");
	f.submit()
} 
function DWC(Hr, J, T, Deci, Fin)	// DWC(3,"LM","TM")
{
	// T="TA" : Tarif Annuel; 
	// T="TM" : Tarif Mois; 
	// T="NH" : Tarif Nbr Heures;
	// T="TH" : Tarif 1hr;
	// T="IA" : RDI annuelle;
	// T="IP" : RDI en pourcentage;  
	// T="MI" : Tarif mensuel apres impot;
	// T="HI" : Tarif 1hr apres Impot;

	var EF, TM, NH, TH, IA, IP, RI, V, D;

	D = Default(Deci,2)
	TM = FGx(Hr, J, 1, 0);
	RI = KRdiMin1;
	if (J.substr(0,1)=="F") {TM=TM*KEcu; RI=RI*KEcu};
	NH = ARx((J.length*Hr)*KWM,2);
	TH = ARx(TM/NH,2);
	IA = (6*TM >= RI)? RI: 6*TM;
	IP = IA/(12*TM);

    switch (T)    	{
		case   "TA"  	: V = ARx(TM*12, D); 	break;
		case   "TM"  	: V = ARx(TM, D); 		break;	 
		case   "NH" 	: V = ARx(NH, D); 		break;	 
		case   "TH"  	: V = ARx(TH, D); 		break;	 
		case   "IA"  	: V = ARx(IA, D); 		break;	 
		case   "IP" 	: V = ARx(IP*100, D); 	break;	 
		case   "MI"  	: V = ARx(TM-(TM*IP),D); break;	 
		case   "HI"  	: V = ARx(TH-(TH*IP),D); break;
		default  		: V = 0; 	  	  		break;
    }	 
  	if (Fin) return(V);
  	V = Ed(V);
  	document.write(V);
	return "";
}
var St, StPropK, StPropV;

function Style(P)
{	var N;
	switch (P)
	{	
	  //Style("New", Prop, Value, Prop, Value, ...)				
		case ("New"):	StPropK = new Array(); StPropV = new Array();
		
	  //Style("Mod", Prop, Value, Prop, Value, ...)				
		case ("Mod"):	LoadProp(1, arguments.length, 0)
						break;	
	  //Style("Tmp", Field, Prop, Value, Prop, Value ...)				
		case ("Tmp"):	N=StPropK.length;  					
						LoadProp(2, arguments.length, N);  
						SetProp(1, 2, N)
						StPropK.splice(N,StPropK.length-N)
						StPropV.splice(N,StPropV.length-N);
						break;							
	  //Style("Set", Field, Field, Field, ...)				
		case ("Set"):	SetProp(1, arguments.length, 0)
						break;
		default:	alert("Style action unknown"); 
	}
	return;

	function LoadProp(IDeb, IFin, JDeb)
	{ 	var I, J, K, V, N;
		for (I=IDeb; I<IFin; I=I+2) 
		{	K  = Style.arguments[I]; 
			V  = Style.arguments[I+1];
			N  = StPropK.length;
			for (J=JDeb; J<N; J++) 	{ if (StPropK[J]==K) {StPropV[J]=V; break} }				
			if  (J>=N) 				{ StPropK[N]=K; StPropV[N]=V; }
		}						
	}	

	function SetProp(IDeb, IFin, JDeb)
	{	var I, J, K, V, N, A;	
		for (I=IDeb; I<IFin; I++) 
		{	A  = Style.arguments[I];
			N  = StPropK.length;
			St = A.style; 							
			for (J=JDeb; J<N; J++) 
			{	K = StPropK[J]
				V = Konst(StPropV[J])
				switch (K)
				{   case ("readonly"):	if (V=="") { A.removeAttribute("readonly") } else { A.setAttribute("readonly",true, false) }; break;
					case ("value"):		A.value=V; break;
					default:			if (V>"")  St[K]=V ;
				}
			}
		}
	}
}	
function OpenSub(PagePath, WName, WPar){ 
var WParx, WinCall=null, S, V=navigator.appVersion;
    switch (PagePath)   {
//	case   '1'  	: S='http://www.marque-nf.com/download/produits/fr/nf311.pdf';  break; 		// Ancienne Liste NF
  	case   '1'  	: S='http://www.marque-nf.com/download/produits/FR/NF311.pdf';  break; 	// Ancienne Liste NF
    	case   '1'  	: S='http://www.marque-nf.com/marquenf/argumentaires/NF-service-service-aux-personnes-a-domicile.html'; break; 	// Remplace liste NF
	case   '2'  	: S='http://www.marque-nf.com/appli.asp?NumAppli=NF311'; 	break; 		// Page NF
	default  	: S=PagePath; break;
		}
	if (Missing(WName)) {WName='WinRightx'};
	if (Missing(WPar))  {WParx=WParV2} else { if (WPar=="H3")  {WParx=WParH3} } 
//	alert (V)
  	try {	if (Right(S,3)=='pdf' && (V.indexOf('MSIE 7')>-1 || V.indexOf('MSIE 5.01')>-1 )) {
	            WinCall=window.open('about:blank', WName, WParx);
                WinCall.focus();
			 	WinCall=window.open(S, WName, WParx); }
		else	{WinCall=window.open(S, WName, WParx); WinCall.focus();}
	    }	
	catch (err) { }
}