// Procédures globales du projet
function _MI3(c,n,l){return c.substring(n-1,n+l-1);}// EXE_Milieu2
function _MI2(c,n){return c.substring(n-1,c.length);}// 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 _DRO(c,n){	return c.substring(c.length-n,c.length);}
function PROCEDURESGLOBALESDEEUROLOCSITENAVIGATEUR_TELEPHONEAFFICHENAV(V_TEL, VSEP){{if (V_TEL===undefined) V_TEL="0101010101";if (VSEP===undefined) VSEP=" ";{var V_P=0;var V_T=V_TEL;var V_F="";for(V_P=1;V_P<=V_T.length;V_P++){V_F=_MI3(V_T,V_P,1)
if((Position("()+0123456789",V_F,null)==0)){V_T=((V_T.substring(0,(V_P-1))+" ")+_MI2(V_T,(V_P+1)))}}V_T=_RMP(V_T," ","");if((V_T!="")){if((V_T.length==9)){V_T=_DRO(("0000000000"+V_T),10)}if((V_T.length==10)){switch(eTelFmt){case 2:{
V_F=((((((((V_T.substring(0,1)+VSEP)+_MI3(V_T,2,3))+VSEP)+_MI3(V_T,5,2))+VSEP)+_MI3(V_T,7,2))+VSEP)+_MI3(V_T,9,2))}break;case 3:{V_F=((((((V_T.substring(0,1)+VSEP)+_MI3(V_T,2,3))+VSEP)+_MI3(V_T,5,3))+VSEP)+_MI3(V_T,8,3))}break;case 4:{V_F=V_T}break
case 5:{VSEP=".";V_F=((((((((V_T.substring(0,2)+VSEP)+_MI3(V_T,3,2))+VSEP)+_MI3(V_T,5,2))+VSEP)+_MI3(V_T,7,2))+VSEP)+_MI3(V_T,9,2))}break;case 6:{VSEP="-"
V_F=((((((((V_T.substring(0,2)+VSEP)+_MI3(V_T,3,2))+VSEP)+_MI3(V_T,5,2))+VSEP)+_MI3(V_T,7,2))+VSEP)+_MI3(V_T,9,2))}break;case 7:{VSEP="/"
V_F=((((((((V_T.substring(0,2)+VSEP)+_MI3(V_T,3,2))+VSEP)+_MI3(V_T,5,2))+VSEP)+_MI3(V_T,7,2))+VSEP)+_MI3(V_T,9,2))}break;default:{V_F=((((((((V_T.substring(0,2)+VSEP)+_MI3(V_T,3,2))+VSEP)+_MI3(V_T,5,2))+VSEP)+_MI3(V_T,7,2))+VSEP)+_MI3(V_T,9,2))}
break}}else {;V_F=V_TEL}}return(V_F)}}}