// 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 _DRO(c,n){	return c.substring(c.length-n,c.length);}// EXE_Val
function _VAL(v){var r=parseFloat(v);return isNaN(r)?0:r}
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 _NAO(p){if(p==0||p>127)return "toolbar=0,location=0,status=0,scrollbars=0,directories=0,menubar=0,resizable=0";var o="";if(p&1)o+="toolbar=1,";if(p&2)o+="location=1,";if(p&4)o+="status=1,";if(p&8)o+="menubar=1,";if(p&16)o+="scrollbars=1,"
if(p&32)o+="resizable=1,";if(p&64)o+="directories=1,";if(o.length>0)o=o.substr(0, o.length-1);return o}
function PROCEDURESGLOBALESDEMANTECNAVIGATEUR_BVERIFEMAIL(VPSEMAIL, VPSLISTEEX){{var VSEMAIL=VPSEMAIL.toUpperCase();if((Position(VSEMAIL,"@",null)==0)){return(false)}var VSSUFFIXE=_EC(VSEMAIL,2,"@",0);if((Position(VSSUFFIXE,".",null)==0)){
return(false)}var VNDEBUT=0;var VNPOS=0;while(true){VNDEBUT=Position(VSSUFFIXE,".",(VNDEBUT+1));if((VNDEBUT==0)){break}VNPOS=VNDEBUT}VSSUFFIXE=(VSSUFFIXE + "").substr((VNPOS+1)-1);if((_SAE(VSSUFFIXE,3).toUpperCase()==_SAE("",3).toUpperCase())){
return(false)}VSSUFFIXE=(("."+_SAE(VSSUFFIXE,3))+"|");if((Position(VPSLISTEEX,VSSUFFIXE,null)==0)){return(false)}return(true)}}
function PROCEDURESGLOBALESDEMANTECNAVIGATEUR_NAFFICHEEXTERNE(VL_FICHIER){{VL_FICHIER=_SAE(VL_FICHIER,3);switch(_DRO(VL_FICHIER,4).toUpperCase()){case ".HTM":;case "HTML":{_JCL(VL_FICHIER,"text/html","")}break;case ".XLS":{
_JCL(VL_FICHIER,"application/x-msexcel","")}break;case ".DOC":{_JCL(VL_FICHIER,"application/msword","")}break;case ".PDF":{_JCL(VL_FICHIER,"application/pdf","")}break;case ".TXT":{_JCL(VL_FICHIER,"text/plain","")}break;case ".GIF":{
_JCL(VL_FICHIER,"image/gif","")}break;case ".JPG":;case "JPEG":{_JCL(VL_FICHIER,"image/jpeg","")}break;case ".MPG":;case "MPEG":{_JCL(VL_FICHIER,"video/mpeg","")}break;default:{_JCL(VL_FICHIER,"application/unknown","")}break}}}
function PROCEDURESGLOBALESDEMANTECNAVIGATEUR_OUVERTURENAVIGATEUR(V_IMG, V_NLARGEUR, V_NHAUTEUR){{if (V_NLARGEUR===undefined) V_NLARGEUR=-1;if (V_NHAUTEUR===undefined) V_NHAUTEUR=-1;{var VNLARGEURNVG=0;var VNHAUTEURNVG=0;var VNPOSXNVG=0
var VNPOSYNVG=0;var VADAPTEIMAGE=1;var VMODE_OUVERTURE=2;switch(VADAPTEIMAGE){case 1:{if((VMODE_OUVERTURE==1)){VNLARGEURNVG=(_VAL(V_NLARGEUR)+50);VNHAUTEURNVG=(_VAL(V_NHAUTEUR)+180)}else {;VNLARGEURNVG=V_NLARGEUR;VNHAUTEURNVG=V_NHAUTEUR}}break}
VNPOSXNVG=10;VNPOSYNVG=10;switch(VMODE_OUVERTURE){case 1:{open(_RMP(V_IMG,"(1)",""),"NVG_Image".toUpperCase(),_NAO(127)+",width="+VNLARGEURNVG+",height="+VNHAUTEURNVG+",left="+VNPOSXNVG+",top="+VNPOSYNVG)}break;case 2:{
open(_RMP(V_IMG,"(1)",""),"NVG_Image".toUpperCase(),_NAO(0)+",width="+VNLARGEURNVG+",height="+VNHAUTEURNVG+",left="+VNPOSXNVG+",top="+VNPOSYNVG)}break;case 3:{
open(_RMP(V_IMG,"(1)",""),"NVG_Image".toUpperCase(),_NAO("")+",width="+-1+",height="+-1+",left="+0+",top="+0+","+"channelmode=yes")}break;case 4:{
open(_RMP(V_IMG,"(1)",""),"NVG_Image".toUpperCase(),_NAO("")+",width="+-1+",height="+-1+",left="+0+",top="+0+","+"fullscreen=yes")}break}}}}