function TestNavig(webroot,time) {
var agent=navigator.userAgent.toLowerCase();
var ie=(agent.indexOf('msie')!=-1);
inc = ie ? 'IE5' : 'DOM';
document.write('<script language="javascript" src="'+webroot+'R8_include/R8-1_javascript/DhtmlLib_'+inc+'.js"></script>');
if(time!=0) AlerteSession(time);
//if(parent.window.length!=2 && window.name.substring(0,3)!='Fen') {document.location=webroot;}
}
function AlerteSession(sessiontimeout) 
  {window.setTimeout("window.focus();alert('Attention. Votre session expire dans 5 minutes.')",sessiontimeout*60000);}	
	
function alerte(champ,message) { if(message.length){alert(message);champ.focus();} return false; }

function replace(chaine,sc1,sc2,param){if(chaine!=null){place=chaine.indexOf(sc1);if(place!=-1){if(param) chaine=chaine.substring(0,place)+sc2+replace(chaine.substring(place+1),sc1,sc2,param);else chaine=chaine.substring(0,place)+sc2+chaine.substring(place+1);}return chaine;}}
function saisie(champ,message){if(!champ.value.length) return(alerte(champ,message));return true;}
function saisiemin(champ,mini,message){if(champ.value.length<mini) return(alerte(champ,message));return true;}
function doublesaisie(champ1,champ2,message){if(champ1.value!=champ2.value) return(alerte(champ1,message));return true;}
function entier(champ,message){if(message.length){if(isNaN(champ.value)||(champ.value.indexOf('.')!=-1)) return(alerte(champ,message))}else if(isNaN(champ)||(champ.indexOf('.')!=-1)) return false;return true;}
function selecte(champ,message,optionvalue){if(champ.options[champ.options.selectedIndex].value==optionvalue) return(alerte(champ,message));return true;}
function date(champ,message){if(champ.value.length!=10) return(alerte(champ,message));if(champ.value.substring(2,3)!="/"||champ.value.substring(5,6)!="/") return(alerte(champ,message));var jour=champ.value.substring(0,2);var mois=champ.value.substring(3,5);var annee=champ.value.substring(6,10);if(!entier(jour,'')||!entier(mois,'')||!entier(annee,'')) return(alerte(champ,message));if(mois==1||mois==3||mois==5||mois==7||mois==8||mois==10||mois==12) if(jour<1||jour>31) return(alerte(champ,message));if(mois==4||mois==6||mois==9||mois==11) if(jour<1||jour>30) return(alerte(champ,message));if(mois==2){if((annee%4)||(!(annee%100)&&(annee%400))) if(jour<1||jour >28) return(alerte(champ,message));else if(jour<1||jour>29) return(alerte(champ,message));}if(mois<1||mois>12) return(alerte(champ,message));return true;}

function Ouverture(adresse,nom,lon,lar,bar)
{if(navigator.userAgent.toLowerCase().indexOf('msie')==-1) longueur=lon-15;else longueur=lon;
 str="width="+longueur+",height="+lar+",scrollbars="+bar+"resizable=yes,menubar=no,toolbar=no";
 w=open(adresse,nom,str); if (w) w.focus(); return w;}

function ChangeSelect(Valeur,MenuDest,TabValeur,DefautValue)
{var ind=0; var j=0; var k=0;
 var newdefaut = new Array();
 var TabDefautValue = DefautValue.split(',');
 VideMenu(MenuDest);
 while (ind<TabValeur.length)
   { if(Valeur==TabValeur[ind][2])
	 		 { for (k=0;k<TabDefautValue.length;k++) 
			       { if(TabValeur[ind][0]==TabDefautValue[k]) newdefaut[newdefaut.length]=j+1; }
		     MenuDest.options[++j] = new Option(TabValeur[ind][1],TabValeur[ind][0]);
			 }
		 ind++;
	 }
 for(k=0;k<newdefaut.length;k++) MenuDest.options[newdefaut[k]].selected=true; }
 
function VideMenu(Menu)
{var ind=Menu.options.length;while(ind>=1) Menu.options[ind--]=null;}

function AddTab(Tab,Value0,Value1,lib,ind)
{Tab[ind]=new Array(ind);Tab[ind][0]=Value0;Tab[ind][1]=Value1;Tab[ind][2]=lib;}

function ValidChecked(champ,message)
{ for(i=0;i<champ.length;i++) if (champ[i].checked) return true;
	if (i>=champ.length) return(alerte(champ[0],message));
}
function RechercheChecked(champ)
{ for (i=0;i<champ.length;i++) if (champ[i].checked) return i;
	if (i>=champ.length) return -1;
}

function VerifExt(champ,message,ext){if(!saisie(champ,'')) return true;var temoin=0;var fichier=champ.value.split('.');var extension=ext.split(',');for(ind=0;ind<extension.length;ind++) if(replace(extension[ind],' ','',1)==fichier[1]) temoin=1;if(temoin==1) return true;return alerte(champ,message);}
function CheckFamille(formul,nom,valeur,listefils,debform){liste=listefils.split(',');for(var i=0;i<liste.length;i++){for(var ind=debform;ind<document.forme.length;ind++) if(formul.elements[ind].name==nom) if(formul.elements[ind].value==liste[i]) formul.elements[ind].checked=valeur;}}
function multipleselecte(champ,message) 
{ if(champ.selectedIndex==-1) return(alerte(champ,message)); return true;}

function mail(champ,message)
{ if(saisie(champ,'')) 
	{ esp = champ.value.indexOf(' ');
		if (esp>0 && esp<champ.value.length) return alerte(champ,message);
		if(champ.value.indexOf('@')>1) 
	       var domaine = champ.value.substring(champ.value.indexOf('@'));
		else return alerte(champ,message);
		if(domaine.indexOf('.')>1 && domaine.indexOf('.')<=domaine.length-3) 
		     return true;
		else return alerte(champ,message);
	}
return true; }

function comparedate(date1,date2)   // si date1>date2 renvoie 1, si == renvoie 0, si < renvoie 2 (format jj/mm/aaaa)
{var d1=date1.split('/'); var d2=date2.split('/');
if (d1[2]>d2[2]) return 1;
if (d1[2]==d2[2]) { 
	if (d1[1]>d2[1]) return 1;
	if (d1[1]==d2[1])
	  { if (d1[0]>d2[0]) return 1; if (d1[0]==d2[0]) return 0; } }
return 2;
}

function validcodeNAF(code,message){if(code.value.length!=4) return alerte(code,message);if(!entier(code.value.substring(0,3),'')) return alerte(code,message);if((!(code.value.substring(3)>='a' && code.value.substring(3)<='z')) && (!(code.value.substring(3)>='A' && code.value.substring(3)<='Z'))) return alerte(code,message);return true;}
function validSIRET(champ,message){if(champ.value.length!=14 || !entier(champ,message)) return alerte(champ,message);return true;}
function ouvrir(page,nom,x,y,scroll){wo=window.open(page,nom,"width="+x+",height="+y+",scrollbars="+scroll);wo.focus();}

//------------------------------------------------
function pushTab(tab,valpere,etiq,val) { tab[tab.length] = new Array(valpere,etiq,val); }
function trouveTab(tab,val) 
{ var ret=-1; var i=0; 
  while ((i<tab.length) && (ret==-1)) { if (tab[i]==val) ret=i; i++; }
  return ret; }
function deselect_all(champ) { for (i=0;i<champ.options.length;i++) champ.options[i].selected=false; }
function videSelect(sel,deb) {var ind=sel.options.length; while(ind>=deb) sel.options[ind--]=null;}
function initSelect(selectdest, tab, valcible, listdefaut)
{
videSelect(selectdest,1); 
lastdest = selectdest.options.length;
tabdefaut = listdefaut.split(',');
var i;
for (i=0;i<tab.length;i++)
	{
	var elemtab = tab[i];	
	if (elemtab[0]==valcible) 
		{ selectdest.options[lastdest] = new Option(elemtab[1],elemtab[2]); 
			if (trouveTab(tabdefaut,elemtab[2])!=-1) selectdest.options[lastdest].selected=true;
			lastdest++;
		}
	}
}
//-------------
function textLimit(champ, maxlen) { 
if (champ.value.length > maxlen) 
  { champ.value = champ.value.substring(0, maxlen);
    alert('Nombre maximum de caract\350res atteint ('+maxlen+')');
  }
}
//-------------
function montrer_bloc(id,voir)
{
if (document.getElementById)
	{ elem = document.getElementById(id);
		if (elem!=null)
			{ elem.style.visibility = (voir)?'visible':'hidden'; elem.style.display = (voir)?'block':'none'; } } 
}