function TestNavig(webroot,time) {
var agent=navigator.userAgent.toLowerCase();
//var major=parseInt(navigator.appVersion); var minor=parseFloat(navigator.appVersion);
var ie=(agent.indexOf('msie')!=-1);
/*var ns=((agent.indexOf('mozilla')!=-1) && (agent.indexOf('spoofer')==-1) && (agent.indexOf('compatible')==-1));
var ns4=(ns && (major>=4 && major<5));
var ns6=(ns && (major>=5));
var ie4=(ie && (major>=4 && major<5));
var ie5=(ie && (major>=5));*/
inc = ie ? 'IE5' : 'DOM';
document.write('<script language="javascript" src="'+webroot+'R8_include/R8-1_javascript/DhtmlLib_'+inc+'.js"></script>');
/*
else{alert('Votre navigateur est trop ancien et non compatible avec le site.\nVeuillez mettre votre navigateur à jour.\nPour plus d\'informations sur les navigateurs, veuillez consulter le document "Configuration minimum" accessible depuis la page d\'accueil');document.location=webroot+'R1_prive/F1.cfm';}*/
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 = window.open(adresse,nom,str); if (w.focus) w.focus(); return w; }

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

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.options.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){var temp1=date1.split('/');var temp2=date2.split('/');if(temp1[2]>temp2[2]) return(1);else if(temp1[2]==temp2[2]){if(temp1[1]>temp2[1]) return(1);else if(temp1[1]==temp2[1]){if(temp1[0]>temp2[0]) return(1);else if(temp1[0]==temp2[0]) return(0);else return(2);}else return(2);}else 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 ChangeSelect(Valeur,MenuDest,TabValeur,DefautValue)
  {
	var ind=0;var j=0;var newdefaut=new Array();var k=0;
	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,Value2)
  {i=Tab.length; Tab[i]=new Array(3); Tab[i][0]=Value0; Tab[i][1]=Value1; Tab[i][2]=Value2;}

//------------------------------------------------
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 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'; } } 
}

function confirmer(msg) { return confirm("Veuillez confirmer "+msg); }