var LNSvalidaAMDMsg= new Array('Los meses de Año son 12 (DOCE)',
'No existe el Día para el Mes y Año Especificado');
var LNSvalidaFechaMsg= new Array('Verifique el formato de la Fecha Intruducida (deben ser de 10 caracteres)',
'Verifique el formato de la Fecha Intruducida (aaaa-mm-dd)',
'Verifique el formato de la Fecha Intruducida (Año no numérico)',
'Verifique el formato de la Fecha Intruducida (Mes no numérico)',
'Verifique el formato de la Fecha Intruducida (Día no numérico)',
'Esta Introducciendo una Fecha Fuera del Rango permitido. Debe estar entre:');

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;
}

/*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 (!LnsTestMail(tf.elements['textuser'])) {
  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);
 }
 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");
	}
}