// Procedures globales du projet
function _VAL(v){var r=parseFloat(v);return isNaN(r)?0:r}
function _DRO(c,n){	return c.substring(c.length-n,c.length);}// EXE_SansEspace
function _SAE(c,o){var d=0;c += "";var f=c.length-1;if(o&1)while(c.charAt(d)==" ")d++;if(o&2)while(c.charAt(f)==" ")f--;if (f < d) f= d;return c.substring(d,f+1)}
function _RMP(c,o,r){var p=0;var t=c.indexOf(o);var s=new String();while(t!=-1){s+=c.substring(p,t);s+=r;p=t+o.length;t=c.indexOf(o,p);		}s+=c.substring(p,c.length);return s}
function _ARR(v,d){v*=Math.pow(10,d);v=Math.round(v);return v/Math.pow(10,d)}
function EXE_NVC(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal,nBase){var szRes=Math.abs(Math.round(fVal)).toString(nBase);var nLgr=szRes.length;if(bSigne||(fVal<0))nLgr++;if(bMillier){var szRes2=""
for(var i=0;i<Math.ceil(szRes.length/3);i++){szRes2=szRes.substring(szRes.length-(3*(i+1)),szRes.length-(3*i))+" "+szRes2;nLgr++}szRes=szRes2.substring(0,szRes2.length-1);nLgr--}if(nLgr<eval(nTaille)){if(bCadrageGauche){while(nLgr<eval(nTaille)){
szRes+=" ";nLgr++}}else{if(bZero){while(nLgr<eval(nTaille)){if(bMillier&&(((nLgr)%4)==0))szRes=" "+szRes;else szRes="0"+szRes;nLgr++}}else{while(nLgr<eval(nTaille)){szRes=" "+szRes;nLgr++}}}}if(bSigne||(fVal<0)){var n=0
while((szRes.charAt(n)==" ")&&(n<nLgr))n++;var szSgn="+";if(fVal<0)szSgn="-";szRes=szRes.substring(0,n)+szSgn+szRes.substring(n,szRes.length)}return szRes}
function EXE_NVC_d(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal,10)}
function EXE_NVC_x(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal,16)}
function EXE_NVC_o(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal,8)}
function EXE_NVC_e(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){var nExp=Math.round(Math.log(Math.abs(fVal))/Math.LN10);var fPuiss=Math.pow(10,nExp);var szRes=EXE_NVC_f(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,(fVal/fPuiss))
while(szRes.charAt(szRes.length-1)==" ")szRes=szRes.substring(0,szRes.length-1);szRes+="e";if(nExp>=0)szRes+="+";else szRes+="-";if(nExp<10)szRes+="0";szRes+=Math.abs(nExp);while(szRes.length<nTaille)if(bCadrageGaucHe)szRes+=" ";else szRes=" "+szRes
return szRes}
function EXE_NVC_f(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){var fEnt=Math.floor(fVal);if((fVal<0)&&(fEnt!=fVal))fEnt+=1;var szDec=""+(Math.round((Math.abs(fVal)-Math.floor(Math.abs(fVal)))*Math.pow(10,nPrec))/Math.pow(10,nPrec))
szDec=szDec.substring(2,szDec.length);var szRes=EXE_NVC_d(bCadrageGauche,bSigne,bZero,nTaille-(nPrec+1),nPrec,bMillier,fEnt);if(bCadrageGauche)while(szRes.charAt(szRes.length-1)==" ")szRes=szRes.substring(0,szRes.length-1)
while(szRes.charAt(0)==" ")szRes=szRes.substr(1);if(nPrec>0){szRes+=".";while(szDec.length<nPrec)szDec+="0";szRes+=szDec.substring(0,nPrec)}while(szRes.length<nTaille)if(bCadrageGauche)szRes+=" ";else szRes=" "+szRes;return szRes}
function EXE_NVC_D(bCadrageGauche,bSigne,bZero,nTaille,nPreC,bMillier,fVal){return EXE_NVC_d(bcadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal)}
function EXE_NVC_E(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC_e(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal)}
function EXE_NVC_O(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC_o(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal)}
function EXE_NVC_X(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){var szRes = EXE_NVC_x(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal);return szRes.toUpperCase()}
function EXE_NVC_F(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal){return EXE_NVC_f(bCadrageGauche,bSigne,bZero,nTaille,nPrec,bMillier,fVal)}
function _NVC(fVal,szFormat){if(isNaN(fVal))return fVal;var bCadrageGauche=false;var bSigne=false;var bZero=false;var nTaille=0;var nPrec=0;var szType="f";var bMillier=false;if(szFormat.charAt(0)=="-"){bCadrageGauche=true
szFormat=szFormat.substring(1,szFormat.length)}if(szFormat.charAt(0)=="+"){bSigne=true;szFormat=szFormat.substring(1,szFormat.length)}if(szFormat.charAt(0)=="0"){bZero=true;szFormat=szFormat.substring(1,szFormat.length)}
if((szFormat.charAt(szFormat.length-1)=="s")||(szFormat.charAt(szFormat.length-1)=="S")){bMillier=true;szFormat=szFormat.substring(0,szFormat.length-1)}szType=szFormat.charAt(szFormat.length-1);szFormat=szFormat.substring(0,szFormat.length-1)
if((szType!="d")&&(szType!="e")&&(szType!="f")&&(szType!="o")&&(szType!="x")&&(szType!="D")&&(szType!="E")&&(szType!="F")&&(szType!="O")&&(szType!="X"))return"";nTaille=parseInt(szFormat)
if(szFormat.indexOf(".")!=-1)nPrec=parseInt(szFormat.substring(szFormat.indexOf(".")+1,szFormat.length));else{var szEnt=""+fVal;var szDec=""+fVal;var nPosPt=szDec.indexOf(".");if(nPosPt!=-1){szDec=szDec.substring(nPosPt+1)
szEnt=szEnt.substring(nPosPt-1);nPrec=nTaille-(szEnt.length+1)}}return eval("EXE_NVC_"+szType+"("+bCadrageGauche+","+bSigne+","+bZero+","+nTaille+","+nPrec+","+bMillier+","+fVal+")")}
function _JCIR(c){if (bIE){return c.innerText}else{var f = c.firstChild;var t = [];while (f){if (f.nodeName == "#text"){t.push(f.textContent)}else if (clWDUtil.bBaliseEstTag(f,"br")){t.push("\r\n")}f = f.nextSibling}return t.join("")}}
function _JGCS(e){if(e.currentStyle) return e.currentStyle;var d = e.ownerDocument;if (!d){d = document}var w = d.defaultView;if (w.getComputedStyle){if (e.nodeName == "#text"){e = e.parentNode}return w.getComputedStyle(e, null)}return new Object()}
function _MI3(c,n,l){return c.substring(n-1,n+l-1);}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_CALCULDUREENAV(VHD, VMIND, VHF, VMINF){{return (((_VAL(VHF)*12)+_VAL(VMINF))-((_VAL(VHD)*12)+_VAL(VMIND)))}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_CLIENTVERIFIECLENAV(VNUMCLIENT){{var VSNUMCLIENTCH="";VSNUMCLIENTCH=VNUMCLIENT;var VNTOTAL=0;VNTOTAL=(_VAL(VSNUMCLIENTCH.substring(0,13))+_VAL(_DRO(VSNUMCLIENTCH,2)))
return (Math.abs((VNTOTAL/83))-Math.floor(Math.abs((VNTOTAL/83)))==0)}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_CODEPOSTALCONTROLENAV(VCHR_CP){{var VTEXTE="";VCHR_CP=_SAE(VCHR_CP,3);var VNVALCP=0;VNVALCP=_VAL(VCHR_CP.substring(0,2));if((VCHR_CP.length!=5)){
alert("Merci de corriger le code postal."+"\r\n"+"Il doit comporter exactement 5 chiffres.");return false}else if(((VNVALCP==96)||(VNVALCP<1))){alert("Merci de saisir le code postal");return false}else {;return true}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_CONVCHAINENUMNAV(VCHNB, VFILTRENEG){{if (VFILTRENEG===undefined) VFILTRENEG=false;{var VCH="";var VI=0;var VIND=0;VCH=_SAE(VCHNB,3);VCH=_RMP(VCHNB,",",".");VIND=Position(VCH,".",1);while((VIND!=0)){
VI=VI+1;VIND=Position(VCH,".",(VIND+1))}if((VI>1)){return "ERR"}return VCH}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_CONVMOISVERSLETTRESNAV(VM){{if((VM==1)){return "Janvier"}else if((VM==2)){return clWDEncode.sEncodeCharset(unescape("F%E9vrier"))}else if((VM==3)){return "Mars"}else if((VM==4)){return "Avril"}
else if((VM==5)){return "Mai"}else if((VM==6)){return "Juin"}else if((VM==7)){return "Juillet"}else if((VM==8)){return clWDEncode.sEncodeCharset(unescape("Ao%FBt"))}else if((VM==9)){return "Septembre"}else if((VM==10)){return "Octobre"}
else if((VM==11)){return "Novembre"}else {;return clWDEncode.sEncodeCharset(unescape("D%E9cembre"))}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_CONVREELVERSCHAINENAV(VR, VNBDEC){{if (VNBDEC===undefined) VNBDEC=2;{var VE=0;VE=Math.floor((_ARR(VR,VNBDEC)*Math.pow(10,VNBDEC)));var VCH="";VCH=_NVC(VE,"d")
return ((VCH.substring(0,(VCH.length-VNBDEC))+",")+_DRO(VCH,VNBDEC))}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_INSEEVERIFIECLENAV(VCHR_INSEE, VALERTE, VGAD){{if (VALERTE===undefined) VALERTE=true;if (VGAD===undefined) VGAD=false;{if((VCHR_INSEE.length<15)){if(VALERTE){
alert(clWDEncode.sEncodeCharset(unescape("Num%E9ro Insee incorrect."))+"\r\n"+"Il doit comporter exactement 15 chiffres.")}return 0}if(((!VGAD)&&(_DRO(VCHR_INSEE,10)=="0000000000"))){return 2}var VNTOTAL=0
VNTOTAL=(_VAL(VCHR_INSEE.substring(0,13))+_VAL(_DRO(VCHR_INSEE,2)));if((!(Math.abs((VNTOTAL/97))-Math.floor(Math.abs((VNTOTAL/97)))==0))){if(VALERTE){alert(clWDEncode.sEncodeCharset(unescape("Ce n\'est pas un num%E9ro Insee correct.")))}return 0}
return 1}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_ISGIDENTIQUESNAV(VCH1, VCH2){{return (VCH1==VCH2)}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_ISGTAILLEOKNAV(VTXT, VLMIN, VLMAX){{if (VLMAX===undefined) VLMAX=0;{if((VLMAX==0)){return (VLMIN<=VTXT.length)}else {;return ((VLMIN<=VTXT.length)&&(VTXT.length<=VLMAX))}}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_MAJUSCULE1NAV(VCHAIN){{return (VCHAIN.substring(0,1).toUpperCase()+_DRO(VCHAIN,(VCHAIN.length-1)))}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_OBJETVISIBILITENAV(VOBJ, VV){{if(VV){eval(("_PAGE_."+VOBJ)).style.visibility="visible"}else {;eval(("_PAGE_."+VOBJ)).style.visibility="hidden"}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_SANSESPACENAV(VCHAINECARAC, VCOTE){{if(Position(VCOTE,"G",null)){while(((VCHAINECARAC.substring(0,1)==" ")&&(VCHAINECARAC.length>0))){VCHAINECARAC=_DRO(VCHAINECARAC,(VCHAINECARAC.length-1))}}
if(Position(VCOTE,"D",null)){while(((_DRO(VCHAINECARAC,1)==" ")&&(VCHAINECARAC.length>0))){VCHAINECARAC=VCHAINECARAC.substring(0,(VCHAINECARAC.length-1))}}return VCHAINECARAC}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_TESTAJAXNAV(){{if((!_JAD())){var VTEXTENAV="";VTEXTENAV=clWDEncode.sEncodeCharset(unescape("ATTENTION : Votre navigateur est trop ancien.\r\n\r\n"))
VTEXTENAV=VTEXTENAV+clWDEncode.sEncodeCharset(unescape("Le site ne fonctionnera pas correctement sur votre poste. Pour pouvoir y acc%E9der, vous devez d\'abord installer un navigateur de version r%E9cente.\r\n"))
VTEXTENAV=VTEXTENAV+clWDEncode.sEncodeCharset(unescape("Merci de votre compr%E9hension"));alert(VTEXTENAV);return false}return true}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_PWSECURITENAV(VM_NOM, VM_PRENOM, VM_ID, VM_PW){{VM_NOM=_SAE(VM_NOM,3).toUpperCase().toLowerCase();VM_PRENOM=_SAE(VM_PRENOM,3).toUpperCase().toLowerCase()
VM_ID=_SAE(VM_ID,3).toUpperCase().toLowerCase();VM_PW=_SAE(VM_PW,3).toUpperCase().toLowerCase();var VSALPHABET="abcdefghijklmnopqrstuvwxyz";var VSCHIFFRES="01234567890";if((((VM_PW==VM_NOM)||(VM_PW==VM_PRENOM))||(VM_PW==VM_ID))){return 0}
else if((Position(VSALPHABET,VM_PW,null)!=0)){return 1}else if((Position(VSCHIFFRES,VM_PW,null)!=0)){return 1}else {;return 9}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_CONVDATEVERSCHAINENAV(VDATE, VTYPE){{if (VTYPE===undefined) VTYPE=1;{var VSDATECH="";if((VTYPE==1)){VSDATECH=(_DRO(VDATE,2)+"/");VSDATECH=VSDATECH+(_MI3(VDATE,5,2)+"/")
VSDATECH=VSDATECH+VDATE.substring(0,4)}else {;VSDATECH=_VAL(_DRO(VDATE,2));if((VSDATECH==1)){VSDATECH="1er"}VSDATECH=VSDATECH+" ";switch(_MI3(VDATE,5,2)){case "01":{VSDATECH=VSDATECH+"janvier "}break;case "02":{
VSDATECH=VSDATECH+clWDEncode.sEncodeCharset(unescape("f%E9vrier "))}break;case "03":{VSDATECH=VSDATECH+"mars "}break;case "04":{VSDATECH=VSDATECH+"avril "}break;case "05":{VSDATECH=VSDATECH+"mai "}break;case "06":{VSDATECH=VSDATECH+"juin "}break
case "07":{VSDATECH=VSDATECH+"juillet "}break;case "08":{VSDATECH=VSDATECH+clWDEncode.sEncodeCharset(unescape("ao%FBt "))}break;case "09":{VSDATECH=VSDATECH+"septembre "}break;case "10":{VSDATECH=VSDATECH+"octobre "}break;case "11":{
VSDATECH=VSDATECH+"novembre "}break;default:{VSDATECH=VSDATECH+clWDEncode.sEncodeCharset(unescape("d%E9cembre "))}break}VSDATECH=VSDATECH+VDATE.substring(0,4)}return VSDATECH}}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_ZOZONAV(){{var VI=0}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_ZOZO2NAV(){{var VJ=1}}
function PROCEDURESGLOBALESDEFAMILIAPAYENAVIGATEUR_ZOZO2NAV1(){{var VJ=1;VJ=VJ+1}}
function cache_attente()
{
	if (ie) document.all("patience").style.visibility="hidden"
	else if (ff) document.getElementById("patience").style.visibility="hidden"
	else document.layers("patience").visibility="hide"
}

function Cellule_Opacite_nav(Cellule)
{
//	eval(Cellule).style.filter = "alpha(opacity=70)"		
//	eval(Cellule).style.opacity = 0.70
////	eval("dww" + iGFI).innerHTML = "";
////	eval("dww" + iGFI).style.backgroundColor = "#333333";	
	
	
}
function Champ_Select_nav(champ)
{
champ.select()
}

function droite_carac_nav(chaine,carac)
{
	ind = chaine.indexOf(carac);
	l = chaine.length;
	return chaine.slice(ind + 1,l)
}

function droite_carac_nav2(chaine,carac)
{
	ind = chaine.indexOf(carac);
	l = chaine.length;
	return chaine.slice(ind + 1,l)
}

function droite_nav(chaine,long)
{
	l = chaine.length;
	return chaine.slice(long - l,l)
}

function gauche_carac_nav(chaine,carac)
{
	ind = chaine.indexOf(carac);
	return chaine.slice(0,ind)
}

function gauche_nav(chaine,long)
{
	return chaine.slice(0,long)
}

function init_legende()
{
ie = (document.all);
ff = (document.getElementById);
ne = (document.layers);
fenetre = (ne) ? document.legend:legend.style;
}

function jsCodeTouche(e)
{
var txtAgent = navigator.userAgent.toLowerCase();
var iePos = txtAgent.indexOf("msie");
var ffPos = txtAgent.indexOf("firefox");

if (iePos >= 0){return event.keyCode;}
//if (ffPos >= 0){return e.charCode;}
return ""
}

function milieu_nav(chaine,ind,long)
{
	return chaine.slice(ind-1,ind+long-1)	
}
function montre_attente()
{
	var contenu ="<table cellpadding=1 cellspacing=20 border=0 width=250 ><tr><td bgcolor=#005199><table border=0 width=100% cellpadding=3 cellspacing=0><tr><td align = center><font face=verdana size=1 color=#FFFFFF>"
   
	
	contenu += "Calculs en cours, veuillez patienter..."
	contenu += "</font></td></tr></table></td></tr></table>";

	fenetre.top = 200;
	fenetre.left = (800 - 250) / 2;
	
	if (ie) // affichage avec Internet Explorer
	{ 
		document.all("patience").innerHTML = contenu;
		fenetre.visibility = "visible";
		}
	else if (ff) // affichage avec FireFox
	{
		document.getElementById("patience").innerHTML = contenu;
		document.getElementById("patience").style.visibility = "visible";  
		}
	else // affichage avec Netscape
	{
		fenetre.document.write(contenu);
		fenetre.document.close();
		fenetre.visibility = "visible";
		}
}

function RedimensionneTo(x,y)
{
resizeTo(x,y)
}