// Procédures globales du projet
function _EC(c,p,s,n){var t=new Array();if(typeof(s)!=typeof(t))t[0]=s;else t=s;if (!(n == 1)){var d=0;for(var i=0;i<p-1;i++){var m=-1;var l=0;for(var j=0;j<t.length;j++){s=t[j];var k=c.indexOf(s,d);if((k>-1)&&((m<0)||(k<m))){m=k;l=s.length}}d=m+l
if(d==-1)return(p==1?c:"\b")}var f=-1;for(var j=0;j<t.length;j++){var k=c.indexOf(t[j],d);if((k>-1)&&((f<0)||(k<f)))f=k}if(f==-1)f=c.length;return c.substring(d,f)}else{var d = c.length;for(var i=0;i<p-1;i++){var m=-1;for(var j=0;j<t.length;j++){
var k=c.lastIndexOf(t[j],d-1);if(k>m)m=k}d=m;if (d == -1)	return (p==1?c:"\b")}var f=-1;var l=0;for(var j=0;j<t.length;j++){s=t[j];var k=c.lastIndexOf(s,d-1);if(k>f){f=k;l=s.length}}f+=l;if (f == -1)return c.substr(0, d);return c.substr(f, d - f)}}
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 _MI3(c,n,l){return c.substring(n-1,n+l-1);}// EXE_Remplace
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 PROCEDURESGLOBALESDEPAPET7NAVIGATEUR_BNETSCAPE(){{if((Position(navigator.appName.toUpperCase(),"NETSCAPE",null)>0)){return(true)}else {;return(false)}}}
function PROCEDURESGLOBALESDEPAPET7NAVIGATEUR_BVERIFIEFORMATEMAIL(VSEMAIL){{var VNLONGARO=0;var VNLONGLASTPOINT=0;var VNDBLEPOINT=0;var VI=1;var VSUTILISATEUR="";var VSSERVEUR="";var VSPAYS="";var VSALPHABETMIN="abcdefghijklmnopqrstuvwxyz"
var VSALPHABETMAJ="ABCDEFGHIJKLMNOPQRSTUVWXYZ";var VSCHIFFRES="0123456789";var VSSIGNES="-_.";var VSCARAUTO="";var VSCAR="";VNLONGARO=Position(VSEMAIL,"@",null);if((!(VNLONGARO>0))){return(0)}
if((Position((VSEMAIL + "").substring((VNLONGARO+1)-1, VSEMAIL.length),"@",null)!=0)){return(0)}if(((Position(VSEMAIL,".@",null)>0)||(Position(VSEMAIL,"@.",null)>0))){return(false)}VNDBLEPOINT=Position(VSEMAIL,"..",null);if((VNDBLEPOINT>0)){
return(false)}while((_EC(VSEMAIL,VI,".",0)!=clWDEncode.sEncodeCharset(unescape("\b")))){VSPAYS=_EC(VSEMAIL,VI,".",0);VI=VI+1}if((VI==1)){return(0)}VNLONGLASTPOINT=(VSEMAIL.length-VSPAYS.length)
VSUTILISATEUR=(VSEMAIL + "").substring(1-1, (VNLONGARO-1));VSSERVEUR=(VSEMAIL + "").substring((VNLONGARO+1)-1, (VNLONGLASTPOINT-1));if(((VSUTILISATEUR.length==0)||(VSSERVEUR.length==0))){return(0)}if(((VSPAYS.length<2)||(VSPAYS.length>3))){
return(0)}if((Position(_SAE(VSEMAIL,3)," ",null)>0)){return(0)}VSCARAUTO=((VSALPHABETMIN+VSALPHABETMAJ)+VSCHIFFRES);if((!(Position(VSCARAUTO,VSUTILISATEUR.substring(0,1),null)>0))){return(false)}
VSCARAUTO=(((VSALPHABETMIN+VSALPHABETMAJ)+VSCHIFFRES)+VSSIGNES);for(VI=1;VI<=VSUTILISATEUR.length;VI++){VSCAR=_MI3(VSUTILISATEUR,VI,1);if((Position(VSCARAUTO,VSCAR,null)==0)){return(false)}}VSCARAUTO=((VSALPHABETMIN+VSALPHABETMAJ)+VSCHIFFRES)
if((!(Position(VSCARAUTO,VSSERVEUR.substring(0,1),null)>0))){return(false)}VSCARAUTO=(((VSALPHABETMIN+VSALPHABETMAJ)+VSCHIFFRES)+VSSIGNES);for(VI=1;VI<=VSSERVEUR.length;VI++){VSCAR=_MI3(VSSERVEUR,VI,1);if((Position(VSCARAUTO,VSCAR,null)==0)){
return(false)}}VSCARAUTO=(VSALPHABETMIN+VSALPHABETMAJ);for(VI=1;VI<=VSPAYS.length;VI++){VSCAR=_MI3(VSPAYS,VI,1);if((Position(VSCARAUTO,VSCAR,null)==0)){return(false)}}return(true)}}
function PROCEDURESGLOBALESDEPAPET7NAVIGATEUR_CLICDROIT(){{}}
function PROCEDURESGLOBALESDEPAPET7NAVIGATEUR_BVERIFIEFORMATADR(VSEMAIL){{var VI=1;var VSUTILISATEUR="";var VSALPHABETMAJ="A BCDEFGHIJKLMNOPQRSTUVWXYZ";var VSCHIFFRES="0 123456789";var VSCARAUTO="";var VSCAR="";var VSCHAMPRETOUR=""
if((_SAE(VSEMAIL,3).toUpperCase()==_SAE("",3).toUpperCase())){return(true)}VSUTILISATEUR=VSEMAIL;VSCARAUTO=(VSALPHABETMAJ+VSCHIFFRES);for(VI=1;VI<=VSUTILISATEUR.length;VI++){VSCAR=_MI3(VSUTILISATEUR,VI,1);if((Position(VSCARAUTO,VSCAR,null)==0)){
alert(clWDEncode.sEncodeCharset(unescape("Seuls les caract%E8res non accentu%E9s, les chiffres et l\'espace sont autoris%E9s dans ce champ, merci")));break}else {;VSCHAMPRETOUR=VSCHAMPRETOUR+VSCAR}}return(VSCHAMPRETOUR)}}
function PROCEDURESGLOBALESDEPAPET7NAVIGATEUR_VERIFIEFORMATFAMILLE(V_FAMILLE){{var VFAMRETOUR=ChaineFormate(V_FAMILLE,5);VFAMRETOUR=_RMP(VFAMRETOUR,", ",",");VFAMRETOUR=_RMP(VFAMRETOUR,"-","_");VFAMRETOUR=_RMP(VFAMRETOUR," ","_")
VFAMRETOUR=_RMP(VFAMRETOUR,"(","");VFAMRETOUR=_RMP(VFAMRETOUR,")","");VFAMRETOUR=_RMP(VFAMRETOUR,".","");VFAMRETOUR=_RMP(VFAMRETOUR,"/","");VFAMRETOUR=_RMP(VFAMRETOUR,"%","");VFAMRETOUR=(VFAMRETOUR + "").substring(1-1, 190);return(VFAMRETOUR)}}
function PROCEDURESGLOBALESDEPAPET7NAVIGATEUR_NEFAITRIEN(V_RIEN){{}}
function nBoutton()
{

// Renvoie le code de la touche frappée au clavier (sous Internet Explorer)

if ( !bNetscape() )
{
	return event.button;
}
return scx.which; //0;
	
}

function nTouche()
{

// Renvoie le code de la touche frappée au clavier (sous Internet Explorer)

if ( !bNetscape() )
{
	return event.keyCode;
}
	return 0;
	
}

function Fenetre_Focus()
{
	window.focus()
}
//Procédure Fenetre_Focus()
//
//
//
function clavier(evt) {// frappe sur une touche 
	var key = null; 
	if( evt ) 
	{ 
		key = evt.which; 
	} 
	else 
	{ 
		key = window.event.keyCode; // MS 
	} 
	alert(key)	
//	if (key==13) alert('coucou')  //lien[adr].click(); 
} 


function Quelle_touche(evenement)
{
	var touche = window.event ? evenement.keyCode : evenement.which;
	alert(touche);
}	

////Dans la fonction on vérifie que window.event existe,
////dans ce cas on attribue l'évènement keyCode (correspond à IE) 
////sinon il s'agit d'un navigateur de type Gecko (Firefox..) 
////et on lui attribue which puis on affiche le code de la touche.