function pID(sID) {
	 var    p;
	 if(      document.getElementById) // isMozilla || isIE5
	        p=document.getElementById(sID);
	 else if( document.layers)         // isNetscape4
	        p=document.layers[sID];
	 else                              // isIE4
	        p=document.all[sID];
	 return p; ///
	}

	function sLTrim(s) {
	 var bNoBlank=false;
	 var iPosNoBlank=-1;
	 for(var i=0; i<s.length; i++) {
	  if(s.substr(i,1)!=' ') {
	     bNoBlank=true;
	     iPosNoBlank=i;
	     break ; //
	  }
	 }
	 if(iPosNoBlank>-1) return s.substr(iPosNoBlank); ///
	 else               return (!bNoBlank)?'':s; ///
	}
	function sRTrim(s) {
	 var bNoBlank=false;
	 var iPosNoBlank=-1;
	 for(var i=s.length-1; i>=0; i--) {
	  if(s.substr(i,1)!=' ') {
	     bNoBlank=true;
	     iPosNoBlank=i;
	     break ; //
	  }
	 }
	 if(iPosNoBlank>-1) return s.substr(0,iPosNoBlank+1); ///
	 else               return (!bNoBlank)?'':s; ///
	}
	function sTrim(s) {
	 return sLTrim(sRTrim(s)); ///
	}

	function iFindChar(s1, sIn) {
	 var iPos=-1;
	 for(var i=0; i<sIn.length; i++) {
	  if(sIn.charAt(i)==s1) {
	   iPos=i;
	   break; //
	  }
	 }
	 return iPos; ///
	}
	function iFindCharRight(s1, sIn) {
	 var iPos=-1;
	 for(var i=sIn.length-1; i>0; i--) {
	  if(sIn.charAt(i)==s1) {
	   iPos=i;
	   break; //
	  }
	 }
	 return iPos; ///
	}
	function sTheNameOfFile(sFullPathFilename) {
	 var iPos=iFindCharRight('\\', sFullPathFilename);
	 var    s=sFullPathFilename.substr(iPos+1);
	 return s; ///
	}
	function sThePathOfFile(sFullPathFilename) {
	 var iPos=iFindCharRight('\\', sFullPathFilename);
	 var    s=sFullPathFilename.substr(0, iPos+1);
	 return s; ///
	}

	function vColorBarras() {
	 var sNav=             navigator.appName;
	 if( sNav=="Microsoft Internet Explorer" ) {
	  document.body.style.scrollbarFaceColor      ="#003366";
	  document.body.style.scrollbarArrowColor     ="#FAFAFA";
	  document.body.style.scrollbarTrackColor     ="#285B84";
	  document.body.style.scrollbarShadowColor    ="#DBE0E4";
	  document.body.style.scrollbarHighlightColor ="#DBE0E4";
	  document.body.style.scrollbar3dlightColor   ="#003C67";
	  document.body.style.scrollbarDarkshadowColor="#003C67";
	 }
	}

	function bEmail(sEmail) {
	 var iLength=   sEmail.length;
	 var   i=1;
	 if(   7>iLength) return false; /// ...X@XX.es
	 while(i<iLength   && sEmail.charAt(i)!="@")
	       i++;
	 if(   i>iLength-6) return false; ///
	       i+=2;
	 while(i<iLength   && sEmail.charAt(i)!=".")
	       i++;
	 if(   i>iLength-3 || sEmail.charAt(i)!=".") return false; ///
	 return true; ///
	}

	function sSetCookieVarValue( sName, sValue, iMilliseconds, // Caduca en los próximos  iMilliseconds  milisegundos
	                             sPath, sDomain, fSecure ) {
	 var sCookie  =              sName + "=" +
	                            escape( sValue );
	 if( iMilliseconds != 0 ) {
	  var dExpiration = new Date();
	      dExpiration.setTime(  dExpiration.getTime() + iMilliseconds );
	  sCookie += "; expires=" + dExpiration.toGMTString();
	 }
	  sCookie += ( (sPath   ) ? "; path=" + sPath     : "" ) +
	             ( (sDomain ) ? "; domain=" + sDomain : "" ) +
	             ( (fSecure ) ? "; secure"            : "" );
	 window.document.cookie = sCookie;
	 return                   sCookie; ///
	}
	function sGetCookieVarValue( sName ) {
	 var sCookie = window.document.cookie;
	 var sPrefix = sName + "=";
	 var iBegin = sCookie.indexOf( "; " + sPrefix );
	 if( iBegin == -1 ) {
	     iBegin = sCookie.indexOf(        sPrefix );
	  if(iBegin != 0)
	     return '' ; ///
	 } else {
	     iBegin += 2;
	 }
	 var iEnd = sCookie.indexOf( ";", iBegin );
	 if( iEnd == -1 ) {
	     iEnd = sCookie.length;
	 }
	 sCookie =  sCookie.substring(    iBegin + sPrefix.length, iEnd );
	 return unescape( sCookie ); ///
	}
	function vDisplayCookie() {
	 var sCookieActual = window.document.cookie;
	 var s = 'Cookie (galletita) actual (todas las cookies):\n\n' +
 '          window.document.cookie   == "' +           sCookieActual + '"\n\n' +
 'unescape( window.document.cookie ) == "' + unescape( sCookieActual ) + '"';
	 alert( s );
	}
	function vLoadCookies() {
	 var s = sGetCookieVarValue( 'LastRemoteFld' );
	 if( oForm.oRemoteFolder.value != s &&
	     s.substr( 1, 1 ) == ':' ) { // Si es una cookie de valor diferente y válido
	     oForm.oRemoteFolder.value  = s;
	 }
	}
	function vSaveCookies() {
	 var iMilliseconds = 24 * 60 * 60 * 1000; // Expira al día
	 if               ( oForm.oRemoteFolder.value != '' ) {
	  sSetCookieVarValue( 'LastRemoteFld',
	                    oForm.oRemoteFolder.value, iMilliseconds );
	 }
	}

	function s2(n) { // n>=0
		if(n<10) return "0"+n;
		else     return     n;
	}

	function sSinCerosALaIzquierda(s) { // parseInt(sSinCerosALaIzquierda(s))
		if(s.length>1) {
			for(var i=0; i<s.length-1; i++) {
				if(s.charAt(i)=='0') {
					s=sSinCerosALaIzquierda(s.substr(1));
					break; //
				}
			}
		}
		return s; ///
	}

	function sHoyDD_MM_AAAA() {
	 return     sDD_MM_AAAA(new Date()); ///
	}
	function    sDD_MM_AAAA(pDate) {
//	 var i0a6 =pDate.getDay();
	 var i1a31=pDate.getDate();
	 var i1a12=pDate.getMonth()+1;
	 var iAgno=pDate.getFullYear();
	 return s2(i1a31)+'-'+s2(i1a12)+'-'+iAgno; ///
	}
	function sAAAA_MM_DD_HH_MM() {
	 var pDate=new Date();
	 var s01a31=s2(pDate.getDate());
	 var s01a12=s2(pDate.getMonth()+1);
	 var iAgno=pDate.getFullYear();
	 var sHH=s2(pDate.getHours());
	 var sMM=s2(pDate.getMinutes());
//	 var sS=s2(pDate.getSeconds());
	 return iAgno+'.'+s01a12+'.'+s01a31+' '+sHH+':'+sMM; ///
	}

	function sPointedsDigits(iNum) {
	 var i;
	 var sOut="", s=""+iNum;
	 if(iNum<=999) sOut=s;
	 else {
	  for(i=s.length-3; i>=1; i-=3) // ( s.length > 3 )
	   sOut="."+s.substr(i, 3)+sOut;
	  sOut=s.substr(0, i+3)+sOut;
	  if(sOut.substr(0, 1)==".")
	     sOut=sOut.substr(1);
	 }
	 return sOut; ///
	}

	function vAnhadirSiNo(pCbx,           x) {
	 var b=false;
	 for(var i=0; i<pCbx.options.length; i++)
	             if(pCbx.options[i].text==x) {
	     b=true; break;                           }
	 if(!b) {
	  var pOpt=new Option();
//	      pOpt.selected=false;
	      pOpt.value   ='';
	      pOpt.text    =                  x;
	                      pCbx.options[pCbx.options.length]=pOpt; // Añadido al final
	 }
	}
	function vSelectOption(pCbx,                 x) {
	 for(var i=0; i <      pCbx.options.length; i++)
	                    if(pCbx.options[i].text==x) {
	                       pCbx.options[i].selected=true;
	                       break;                   }
	}

	function bIsEmail(sIn) {
	 var iArrobas=0, iPuntos=0;
	 for(var s1,i=0;i<sIn.length; i++) {
	     s1=          sIn.substr(i,1);
	  if(s1=='@') ++iArrobas;
	  if(s1=='.')  ++iPuntoss;
	 }
	 if(iArrobas==1 && iPuntos>0) return true; ///
	 return false; ///
	}

	function bIsFirefox() {
	 var sUserAgent=navigator.userAgent.toLowerCase();
	 if( sUserAgent.indexOf("firefox")!=-1 ) return true; ///
	 else                                    return false; ///
	}

// ( .replace(sFrom, sTo)  solo actúa la primera vez )
	function sReplace(sAll, sFrom, sTo) {
	 if(!sAll) return ""; ///
	 if(sAll.indexOf(sFrom)!=-1) {
	  var    a=sAll.split(sFrom);
	  return a.join(sTo); ///
	 } else {
	  return sAll; //
	 }
	}

	function sKgr(f) { //(Para números positivos float)
		var   s=   f+'.0'; //Que al menos tenga un '.' -Solo tomamos en consideración el primero
		var a=s.split('.');
		    s='      '+a[0]; // 6 blancos delante
		var sKilos=s.substr(s.length-6);
		    s=a[1]+"00";
		  s=s.substr(0, 3);
		var s000_100=s.substr(0, 1);
		var s000_010=s.substr(1, 1);
		var s000_001=s.substr(2, 1);
		return sKilos+','+s000_100+s000_010+s000_001; ///
	}

	function vClearListbox(pLbx, iFrom) {
		for(var i=pLbx.options.length-1; i>=iFrom; i--)
			       pLbx.options[i]=null;
		          pLbx.selectedIndex=-1;
	}

	function bRegresar() {
		history.go(-1);
		return false; ///
	}