function mkdirlima(u1,u2,u3,d1,d2,d3,rlnk,msgst) {
 var x=new Array('"','@',"'");
 var d= u2 + u3 + u1 + x[1] + d3 + d1 + d2;
 var z="<a href=";
 z+=x[0] + "mailto:" + d + rlnk + x[0];
 z+=" onMouseOut=" + x[0] + "Stnor();return true" + x[0];
 z+=" onMouseOver=" + x[0] + "Stpon(" + x[2] + msgst + x[2] + "); return true" + x[0];
 z+=">" + d + "</a>";
 document.write(z);
}

function Stnor() {
 Stpon(stdefault);
}

function Stpon(Stmsg) {
 window.status=Stmsg;
}

function ventana(scrfile,nombre,ancho,alto) {
 var aaa="width=" +ancho+ ",height=" +alto+ ",toolbar=no,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no,top=0,left=0";
 var x=window.open(scrfile,nombre,aaa);
 x.focus();
}

function ventanafix(scrfile,nombre,ancho,alto) {
 var aaa="width=" +ancho+ ",height=" +alto+ ",toolbar=no,directories=no,status=no,scrollbars=no,resizable=no,menubar=no,top=0,left=0";
 window.open(scrfile,nombre,aaa);
}

/* Funciones de Soporte Validación */

function trimDoublepace(e) {
	var xx = '  ';
	var re = new RegExp(xx, "g");
	var rx = /  /;
	var obj2 = ' ';
	var t=e.value;
	while (rx.test(t)) {
		t=t.replace(re, obj2);
	}
	e.value=t;
	return true;
}

function trimWhitespace(e) {
	var newSt  = '';
	var subst  = '';
	var str    = e.value;
	var beginningFound = false;
	for (var i = 0; i < str.length; i++) {
		if (str.charAt(i) != ' ' && str.charCodeAt(i) != 9) {
			if (subst != '') {
				newSt += subst;
				subst = '';
			}
			newSt += str.charAt(i);
			if (beginningFound == false) {
				beginningFound = true;
			}
		} else {
			if (beginningFound == true) subst += str.charAt(i);
		}
	}
	e.value = newSt;
	return true;
}

function isNumeric(str) {
	var obj = /[^\d]/;
	if (str.search(obj) == -1)  {
		return false;
	}
	return true;
}

function LNSamaystr(str) {
	return str.toUpperCase(str);
}

function LNSamay(e) {
	e.value=LNSamaystr(e.value);
}

function LNSaminstr(str) {
	return str.toLowerCase(str);
}

function LNSamin(e) {
	e.value=LNSaminstr(e.value);
}

function LNSEnumerochk(v) {
 var numero =  /^[0-9]+$/;
 return numero.test(v);
}

function LNSTestRE(v,ex) {
	 var miexpr=new RegExp("^"+ex);
	 return miexpr.test(v);
}

function LNSgetRBSValue(e) {
 var r='';
 for(i=0;i<e.length;i++) {
  if(e[i].checked) {
	 r=e[i].value;
	 i+=e.length;
  }
 }
 return r;
}

function LNSvalidaAMD(a1,a2,a3) {
	var dayarray=new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);
	
	if (!LNSEnumerochk(a1)) return false;
	if (!LNSEnumerochk(a2)) return false;
	if (!LNSEnumerochk(a3)) return false;
	
	var anio=parseInt(a1,10);
	var dia=parseInt(a3,10);
	var mes=parseInt(a2,10);
	if ((mes < 1) || (mes > 12)) {
		return false;
	}
	if (anio % 100 == 0) {
		if (anio % 400 == 0) {
			dayarray[2]=29;
		}
	} else {
		if (anio % 4 == 0) {
			dayarray[2]=29;
		}
	}
	if ((dia < 1) || (dia > dayarray[mes] )) {
		return false;
	}
	return true;
}
/*final Funciones Soporte de Validación */

/* Funciones de Validación */

function LNSvalidaFecha(f,d,h) {
	if (f.length != 10 ) {
		alert(LNSvalidaFechaMsg[0]);
		return false;
	}
	if (f.charAt(4) != '-') {
		alert(LNSvalidaFechaMsg[1]);
		return false;
	}
	if (f.charAt(7) != '-') {
		alert(LNSvalidaFechaMsg[1]);
		return false;
	}
	var aa=f.charAt(0)+f.charAt(1)+f.charAt(2)+f.charAt(3);
	var mm=f.charAt(5)+f.charAt(6);
	var dd=f.charAt(8)+f.charAt(9);
	if (isNumeric(aa)) {
		alert(LNSvalidaFechaMsg[2]);
		return false;
	}
	if (isNumeric(mm)) {
		alert(LNSvalidaFechaMsg[3]);
		return false;
	}
	if (isNumeric(dd)) {
		alert(LNSvalidaFechaMsg[4]);
		return false;
	}
	if (!LNSvalidaAMD(aa,mm,dd)) {
		return false;
	}
	var xd=d.charAt(0)+d.charAt(1)+d.charAt(2)+d.charAt(3)+'-'+d.charAt(4)+d.charAt(5)+'-'+d.charAt(6)+d.charAt(7);
	var xh=h.charAt(0)+h.charAt(1)+h.charAt(2)+h.charAt(3)+'-'+h.charAt(4)+h.charAt(5)+'-'+h.charAt(6)+h.charAt(7);
	var fd= parseInt(d,10);
	var fh= parseInt(h,10);
	var fac= parseInt(aa+mm+dd,10);
	if ((fac < fd) || (fac > fh )) {
		alert(LNSvalidaFechaMsg[5] + ' '+xd+' y '+xh);
		return false;
	}
	return true;
}


function LNSuspacios(e) {
 trimDoublepace(e);
 trimWhitespace(e);
 LNSamay(e);
}

function LNSlspacios(e) {
 trimDoublepace(e);
 trimWhitespace(e);
 LNSamin(e);
}

function LNSXspacios(e) {
 trimDoublepace(e);
 trimWhitespace(e);
}

function LNSEnumero(e) {
 if (!LNSEnumerochk(e.value)) {
  e.value='';
  return false;
 }
 return true;
}

function LNSEnumeroR(e,mi,ma) {
 if (!LNSEnumerochk(e.value)) {
  e.value='';
  return false;
 }
 if ((e.value>= mi) && (e.value<= ma)) return true;
 e.value='';
 return false;
}

function LNStestA9(e,lmin,lmax,msg) {
 var reto=false;
 if(e.value.length > 0) {
   var charpos = e.value.search("[^A-Za-z0-9]");
   if (charpos < 0) {
    if (e.value.length >= lmin && e.value.length <= lmax) reto=true;
   }
 }
 if (!reto) alert(msg);
 return reto;
}

function LNStestA9C(e) {
 if(e.value.length > 0) {
	 var LNSclave =  /^[0-9a-z]{5,10}/;
	 LNSamin(e);
   var charpos = e.value.search("[^A-Za-z0-9]");
   if (!LNSclave.test(e.value)) {
	    e.value='';
  	  return false;
   } else {
	   return true;
   }
 }
 return true;
}

function LNStestA9C2(e) {
 if(e.value.length > 0) {
	 var LNSclave =  /^[0-9a-z]{5,10}/;
	 LNSamin(e);
   var charpos = e.value.search("[^A-Za-z0-9]");
   if (!LNSclave.test(e.value)) {
	    e.value='';
  	  return false;
   } else {
	   return true;
   }
 }
 return false;
}

function LNStestUC(e,lmin,lmax,msg) {
 var reto=false;
 if(e.value.length > 0) {
   var charpos = e.value.search("[^a-z_]");
   if (charpos < 0) {
    if (e.value.length >= lmin && e.value.length <= lmax) reto=true;
   }
 }
 if (!reto) alert(msg);
 return reto;
}

function LNScheckdo(a) {
	var xxt = 'HTTP://';
	if (a.search(xxt)>-1) return false;
	xxt= 'CONTENT-TRANSFER-ENCODING';
	if (a.search(xxt)>-1) return false;
	xxt= 'CONTENT-TYPE';
	if (a.search(xxt)>-1) return false;
	xxt= 'BCC:';
	if (a.search(xxt)>-1) return false;
	return true;
}

function LnsemailCheck(emailStr) {
	var checkTLD=1;
	var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum|es|tv|us|ws)$/;
	var emailPat=/^(.+)@(.+)$/;
	var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";
	var validChars="\[^\\s" + specialChars + "\]";
	var quotedUser="(\"[^\"]*\")";
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
	var atom=validChars + '+';
	var word="(" + atom + "|" + quotedUser + ")";
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
	var matchArray=emailStr.match(emailPat);
	if (matchArray==null) {
		return false;
	}
	var user=matchArray[1];
	var domain=matchArray[2];
	for (i=0; i<user.length; i++) {
		if (user.charCodeAt(i)>127) {
			return false;
		}
	}
	for (i=0; i<domain.length; i++) {
		if (domain.charCodeAt(i)>127) {
			return false;
		}
	}
	if (user.match(userPat)==null) {
		return false;
	}
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null) {
		for (var i=1;i<=4;i++) {
			if (IPArray[i]>255) {
				return false;
			}
		}
		return true;
	}
	var atomPat=new RegExp("^" + atom + "$");
	var domArr=domain.split(".");
	var len=domArr.length;
	for (i=0;i<len;i++) {
		if (domArr[i].search(atomPat)==-1) {
			return false;
		}
	}
	
	if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1) {
		return false;
	}
	
	if (len<2) {
		return false;
	}
	return true;
}

function LnsTestMail(e) {
	LNSlspacios(e);
	if (!LnsemailCheck(e.value)) {
		return false;
	}
	return true;
}

function LNSctrlcuit(cc) {
	if (!LNSEnumerochk(cc.value)) {
		return false;
	}
	if (cc.value.length != 11) {
		return false;
	}
	var valor=cc.value;
	var j=2;
	var acu=0;
	var d_cont=parseInt(valor.charAt(10),10);
	for (var i = 9; i >= 0; i--) {
		acu+=parseInt(valor.charAt(i),10)*j;
		j++;
		if (j > 7) {
			j=2;
		}
	}
	var d_cont2= acu % 11;
	if (d_cont2 > 1) {
		d_cont2 = 11 - d_cont2;
	} else {
		d_cont2=0;
	}
	if (d_cont2 != d_cont) {
		return false;
	}
	return true;
}
/*final Funciones de Validación */
function getObj(name) {
	if (document.getElementById) {
		return document.getElementById(name).style;
	} else {
		if (document.all) {
			return document.all[name].style;
		} else {
			if (document.layers) {
				return document.layers[name];
			}
		}
	}
	return false;
}

function LNSswitchDiv(a,b) {
	var j1=getObj(a);
	var j2=getObj(b);
	j1.display = '';
	j2.display = 'none';
}

function LNSVisualiza(a,b) {
	var j1=getObj(a);
	j1.display = b;
}

function Form_Login(tf) {
 var mireto=true;
 var xx=0;
 if (tf.elements['textuser'].value=='') {
  mireto=false;
 }
 if (tf.elements['textpassw'].value=='') {
        mireto=false;
 } else {
  LNSamin(tf.elements['textpassw']);
 }
 if (!mireto) {
  LNSwd.Dialogo.alert(FormLoginMsg);
 } else {
	LNSwd.Dialogo.ajax(FormLoginIng);
  nn= new Array('lang', WEBLanguaje, 'textuser', tf.elements['textuser'].value, 'textpassw', tf.elements['textpassw'].value, 'ingresar','Ingresar');
  LNSR_ejecutar('Form_LoginOK','Form_LoginErr','Form_LoginJS','','POST','/rmt.php','login', nn);
 }
 return false;
}

function Form_LoginOK() {
	LNSwd.Dialogo.close();
	return true;
}

function Form_LoginErr() {
	LNSwd.Dialogo.close();
	return true;
}

function Form_LoginJS() {
	LNSwd.Dialogo.close();
	eval(LRMT_ResultadoJS);
}

function Form_Logout() {
  nn= new Array('lang', WEBLanguaje, 'salir','logout');
  LNSR_ejecutar('LogoutOK','LogoutErr','LogoutJS','','POST','/rmt.php','logout', nn);
}

function LogoutOK() {
	return true;
}

function LogoutErr() {
	return true;
}

function LogoutJS() {
	eval(LRMT_ResultadoJS);
	return true;
}


function ForgotPwd() {
/*
 var tf=document.forms.accuser;
 var mireto=true;
 var xx=0;
 if (!LnsTestMail(tf.elements['textuser'])) {
  mireto=false;
 }
 if (!mireto) {
  LNSwd.Dialogo.alert(ForgotPwdMsg);
 } else {
	LNSwd.Dialogo.ajax(FormLoginIng);
  nn= new Array('lang', WEBLanguaje, 'txtemail', tf.elements['textuser'].value, 'forgot','Forgot');
  LNSR_ejecutar('ForgotPwdOK','ForgotPwdErr','ForgotPwdJS','','POST','/rmt.php','forgot', nn);
 }
 */
 LNSwd.Dialogo.alert(ForgotPwdMsg);
 return true;
}

function ForgotPwdOK() {
	LNSwd.Dialogo.close();
	return true;
}

function ForgotPwdErr() {
	LNSwd.Dialogo.close();
	return true;
}

function ForgotPwdJS() {
	LNSwd.Dialogo.close();
	eval(LRMT_ResultadoJS);
}

function Form_Buscar(tf) {
 var mireto=true;
 var xx=0;
 if (tf.elements['txtbuscar'].value=='') {
  mireto=false;
 }
 if (!mireto) {
	tf.elements['txtbuscar'].focus();
	LNSwd.Dialogo.alert(FormBuscarMsg);
 } else {
	LNSwd.Dialogo.ajax(FormBuscarBus);
	nn= new Array('lang', WEBLanguaje, 'txtbuscar', tf.elements['txtbuscar'].value,
      'donde', tf.elements['secbusca'].value, 'tipo', tf.elements['tipbusca'].value);
	LNSR_ejecutar('Form_BuscarOK','Form_BuscarErr','Form_BuscarJS','','POST','/rmt.php','buscador', nn);
 }
 return false;
}

function Form_BuscarOK() {
/*
	LNSwd.Dialogo.close();
*/
	var xs='/buscador.html';
	window.location.href=xs;
	return true;
}

function Form_BuscarErr() {
	LNSwd.Dialogo.close();
	return true;
}

function Form_BuscarJS() {
	LNSwd.Dialogo.close();
	return true;
}

function TraePublicacion(id) {
 nn= new Array('lang', WEBLanguaje, 'id', id);
 LNSR_ejecutar('TraePublicacionOK','TraePublicacionErr','TraePublicacionJS','pub-right','POST','/rmt.php','tpublicacion', nn);
 return false;
}

function TraePublicacionOK() {
	window.scroll(0,0);
	return true;
}

function TraePublicacionErr() {
	return true;
}

function TraePublicacionJS() {
	return true;
}

function PagPublicacion(id,p) {
 nn= new Array('lang', WEBLanguaje, 'id', id, 'p', p);
 LNSR_ejecutar('PagPublicacionOK','PagPublicacionErr','PagPublicacionJS','pub-lista','POST','/rmt.php','ppublicacion', nn);
 return false;
}

function PagPublicacionOK() {
	return true;
}

function PagPublicacionErr() {
	return true;
}

function PagPublicacionJS() {
	return true;
}

function LNSRLive_ejecutar(okfun,errorfun,jsfun,lay,metodo,uri) {
 var i, n;
 var post_data;
 var retorno=true;
 LRMT_ResultadoError='';
 LRMT_ResultadoHttp='';
 LRMT_ResultadoJS='';
 LNSR_layer=lay;
 LNSR_funcionok=okfun;
 LNSR_funcionjs=jsfun;
 LNSR_funcionerror=errorfun;
 if (typeof(metodo) == "undefined" || metodo== "") 	metodo = "GET";
 if (metodo == "GET") {
	/*
  if (uri.indexOf("?") == -1) uri += "?fn=" + escape(funcion);
  else uri += "&fn=" + escape(funcion);
  uri += "&fnrnd=" + new Date().getTime();*/
  post_data = null;
 } else if (metodo == "POST") {
	/*
  post_data = "fn=" + escape(funcion);*/
  post_data += "&fnrnd=" + new Date().getTime();
 } else {
  alert(LRMTmsg[1]+ ": " + LRMT_tipopeticion);
  LNSR_funcionerror();
  return false;
 }
 if (LRMT_conector == null) {
  alert(LRMTmsg[2]+'....');
  LNSR_funcionerror();
  return false;
 } else {
	bComplete = false;
  LRMT_conector.open(metodo, uri, true);
  if (metodo == "POST") {
   LRMT_conector.setRequestHeader("Method", "POST " + uri + " HTTP/1.1");
   LRMT_conector.setRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=iso-8859-1");
  }
  LRMT_conector.onreadystatechange = function(){
   if (LRMT_conector.readyState == 4 && !bComplete) {
     bComplete = true
     LNSRLive_ejecutar2(LRMT_conector)
   }
  };
  LRMT_conector.send(post_data);
  return retorno;
 }
}

function LNSRLive_ejecutar2(a) {
		var oFunc;
		var reto = false;
		try {
			switch(a.status) {
				case 200:
					LRMT_ResultadoHttp=a.responseText;
 					document.getElementById(LNSR_layer).innerHTML=LRMT_ResultadoHttp;
					oFunc = this[LNSR_funcionok];
					oFunc();
					reto = true;
					break;
				case 400:
					alert(LRMTmsg[3]+': '+a.status+' '+LRMTmsg[4]);
					break;
				case 401:
					alert(LRMTmsg[3]+': '+a.status+' '+LRMTmsg[5]);
					break;
				case 403:
					alert(LRMTmsg[3]+': '+a.status+' '+LRMTmsg[6]);
					break;
				case 404:
					alert(LRMTmsg[3]+': '+a.status+' '+LRMTmsg[7]);
					break;
				default:
					alert(LRMTmsg[3]+': '+a.status+' '+LRMTmsg[8]);
					break;
			}
		} catch (e) {
			alert(LRMTmsg[9])
		}
	if (!reto) {
		oFunc = this[LNSR_funcionerror];
		oFunc();
	}
	return reto;
}

function LNSafavoritos(){
	if ((navigator.appName=="Microsoft Internet Explorer") && (parseInt(navigator.appVersion)>=4)) {
	var url="http://www.miguelfranco.com.ar/";
	var titulo="Miguel J. Franco S.R.L.  - Droguería - Insumos Médicos";
	window.external.AddFavorite(url,titulo);
	}	else {
		if(navigator.appName == "Netscape")
			alert ("Presione Crtl+D para agregar este sitio en sus Favoritos");
	}
}

function LNSpagini(objk,direccion){
	if ((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion)>3)){
		objk.style.behavior="url(#default#homepage)";
		objk.setHomePage(direccion);
	}
	else{
		alert("Su navegador no dispone de esta opción x");
	}
}