var ns4 = (document.layers);
var ie4 = (document.all && !document.getElementById);
var ie5 = (document.all && document.getElementById);
var ns6 = (!document.all && document.getElementById);
var factual = 11;

function DarFormato(Campo,NvoTag){	
	Nav = (document.all)? true:false	
	ta = document.getElementById(Campo);
	
	if (Nav == true){
		//IE
		if (document.selection){
			var sel = document.selection;
			var rng = sel.createRange();
			
			input = document.all[Campo];  
			input.focus(input.caretPos);
			input.caretPos = document.selection.createRange();
		 
			if (sel.type == "Text"){
				text = rng.text;
				if(NvoTag != 'BL' && NvoTag != 'HR'){
					rng.text = "[" + NvoTag + "]" + text + "[*" + NvoTag + "] ";
				} else {
					input.caretPos.text = "[" + NvoTag + "*] ";
				}								
			} else {
				if(NvoTag == 'BL' || NvoTag == 'HR'){
					input.caretPos.text = "[" + NvoTag + "*] ";
				}				 
			}
			input.focus();
		}
	} else {		
		start = ta.selectionStart;
		end = ta.selectionEnd;
		
		before = (ta.value).substring(0, start);
		sel = (ta.value).substring(start, end);
		after = (ta.value).substring(end, ta.textLength);
		
		 if ((NvoTag != "BL") && (NvoTag != "HR") && (sel.length > 0)){
			 ta.value = before + "[" + NvoTag + "]" + sel + "[*" + NvoTag + "] " + after;
			 ta.focus();
			 ta.selectionStart = end + 5 + (NvoTag.length * 2);
			 ta.selectionEnd = ta.selectionStart;
		 } else {
			if (NvoTag == "HR") {
				ta.value = before + "[" + NvoTag + "*] " + after;
				ta.focus();
				ta.selectionStart = end + 4 + NvoTag.length - sel.length;
			} else if (NvoTag == "BL")  {
				ta.value = before + "[" + NvoTag + "*] " + after;
				ta.focus();
				ta.selectionStart = end + 2 + NvoTag.length - sel.length;
			}
			ta.selectionEnd = ta.selectionStart;		 
		 }
	}
}

function checkCDV(dvr){
	dv = dvr + ""
	if ( dv != '0' && dv != '1' && dv != '2' && dv != '3' && dv != '4' && dv != '5' && dv != '6' && dv != '7' && dv != '8' && dv != '9' && dv != 'k'  && dv != 'K')
	{
		return false;
	}
	return true;
}
	
function echeck(str) {
	var at="@"
	var dot="."
	var lat=str.indexOf(at)
	var lstr=str.length
	var ldot=str.indexOf(dot)
	if (str.indexOf(at)==-1){
	   return false
	}

	if (str.indexOf(at)==-1 || str.indexOf(at)==0 || str.indexOf(at)==lstr){
	   return false
	}

	if (str.indexOf(dot)==-1 || str.indexOf(dot)==0 || str.indexOf(dot)==lstr){
		return false
	}

	 if (str.indexOf(at,(lat+1))!=-1){
		return false
	 }

	 if (str.substring(lat-1,lat)==dot || str.substring(lat+1,lat+2)==dot){
		return false
	 }

	 if (str.indexOf(dot,(lat+2))==-1){
		return false
	 }
	
	 if (str.indexOf(" ")!=-1){
		return false
	 }

	 return true					
}

function checkDV(rut,dv){		
	largo = rut.length;
	if ( largo < 1 )
	{
		return false;
	}

	if ( !checkCDV( dv ) )
		return false;
	if ( rut == null || dv == null )
			return 0
	var dvr = '0'
	suma = 0
	mul  = 2
	for (i= rut.length -1 ; i >= 0; i--)
	{
		suma = suma + rut.charAt(i) * mul
		if (mul == 7)
			mul = 2
		else    
			mul++
	}
	res = suma % 11
	if (res==1)
		dvr = 'k'
	else if (res==0)
		dvr = '0'
	else
	{
	dvi = 11-res
	dvr = dvi + ""
	}

	if ( dvr != dv.toLowerCase() )
	{		
	return false
	}
	return true;
}
	
function Mid(s, n, c){
	var numargs=Mid.arguments.length;
	if(numargs<3) c=s.length-n+1;	
	if(c<1) c=s.length-n+1;
	if(n+c >s.length) c=s.length-n+1;
	if(n>s.length) return "";		
	return s.substring(n-1,n+c-1);
}

function Extension(strArc,ComExt){
	largo = strArc.length; inicio = largo - 2; fin = 3;
	ExtAct = Mid(strArc,inicio,fin);
	if (ExtAct != ComExt){
		return false;
	} else {
		return true;
	}
}

//--------------------------------------------------------------

function MM_showHideLayers() { //v3.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) {obj=obj.style;v=(v=='show')?'visible':(v='hide')?'hidden':v;}
    obj.visibility=v;
  }
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MostrarOcultar(id){
    elem = document.getElementById(id);    
    if (elem.style.display == 'none')
	    Mostrar(id);
	else
	   Ocultar(id);	
}

var menuActivo=1;
var numMenus = 5; //Nº menus
function Temporizar(valor) {
	setTimeout("OcultarMenu('"+valor+"');", 500);
}



function Imprimir(Cont){
	window.open('Imprimir.asp?C='+Cont,'Imprimir','width=750,height=600,scrollbars=yes');
}

function Enviar(Cont){
	var tdAlerta = document.getElementById('tdAlerta');
	tdAlerta.style.background = '#FFFFFF';
	tdAlerta.innerHTML = '';
	
	document.frmEnviar.Para.value = '';
	document.frmEnviar.De.value = '';
	document.frmEnviar.comentarios.value = '';
	
	Ocultar('divEnviando');
	Mostrar('divFrm');
	
	MostrarDiv('divEnviar');
	document.getElementById('C').value = Cont;
}

function EnviarMensaje(Para, De, Comentario){
	var errmsj = '';
		
	if(Para =='')errmsj+='- Nombre. \n';
	if(!echeck(De))errmsj+='- Email. \n';
	if(Comentario =='')errmsj+='- Mensaje. ';
	if(errmsj==''){
//		EnviarSMTP(Para, De, Comentario);
		document.envio.submit();	
	}else{
		//tdAlerta.style.background = '#FFDADA';
		alert('Complete: \n'+errmsj);		
	}
}

function GetXmlHttpObject(){
	if (window.XMLHttpRequest){
	  // code for IE7+, Firefox, Chrome, Opera, Safari
	  return new XMLHttpRequest();
	}

	if (window.ActiveXObject) {
		// code for IE6, IE5
		return new ActiveXObject("Microsoft.XMLHTTP");
	}
	return null;
}

function EnviarSMTP(Para, De, Comentario){	
	xmlhttp = GetXmlHttpObject();
	if (xmlhttp==null){
		alert ("Su navegador no soporta Ajax");
		return;
	}
	var params = "T=GLEDN02802&Para="+Para+"&De="+De+"&Comentario="+escape(Comentario);
	url="SMTP.asp";
	
	xmlhttp.open("POST",url,true);
	xmlhttp.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
	xmlhttp.setRequestHeader("Content-length", params.length);
	xmlhttp.setRequestHeader("Connection", "close");	
	xmlhttp.onreadystatechange=stateChanged;
	/*
	http.onreadystatechange = function() {//Call a function when the state changes.
		if(http.readyState == 4 && http.status == 200) {
			alert(http.responseText);
		}
	}*/
	xmlhttp.send(params);
}

function stateChanged(){
	if (xmlhttp.readyState==4){		
		try {
			Ocultar('loader');
			var res = xmlhttp.responseText;
			var tx = document.getElementById('Resultado');			
			if (res == '1'){
				tx.innerHTML = '<b>El mensaje fue envíado con éxito.</b>';
			} else {
				alert(res);
				tx.innerHTML = '<b>El mensaje no se pudo enviar.</b>';
			}
		}  
		catch(e) {
			alert(e);
			return;
		}				
	}
}

function findPosX(obj)
{
 var curleft = 0;
 if (document.getElementById || document.all)
 {
  while (obj.offsetParent)
  {
   curleft += obj.offsetLeft
   obj = obj.offsetParent;
  }
 }
 else if (document.layers)
  curleft += obj.x;
 return curleft;
}

function findPosY(obj)
{
 var curtop = 0;
 if (document.getElementById || document.all)
 {
  while (obj.offsetParent)
  {
   curtop += obj.offsetTop
   obj = obj.offsetParent;
  }
 }
 else if (document.layers)
  curtop += obj.y;
 return curtop;
}

function findPos(obj) {
	var curleft = curtop = 0;
	if (obj.offsetParent) {
		curleft = obj.offsetLeft
		curtop = obj.offsetTop
		while (obj = obj.offsetParent) {
			curleft += obj.offsetLeft
			curtop += obj.offsetTop
		}
	}
	return [curleft,curtop];
}

function getXY(obj){
  var curleft = 0;
  var curtop = obj.offsetHeight + 5;
  var border;
  if (obj.offsetParent)
  {
    do
    {
      // XXX: If the element is position: relative we have to add borderWidth
      if (getStyle(obj, 'position') == 'relative')
      {
        if (border = _pub.getStyle(obj, 'border-top-width')) curtop += parseInt(border);
        if (border = _pub.getStyle(obj, 'border-left-width')) curleft += parseInt(border);
      }
      curleft += obj.offsetLeft;
      curtop += obj.offsetTop;
    }
    while (obj = obj.offsetParent)
  }
  else if (obj.x)
  {
    curleft += obj.x;
    curtop += obj.y;
  }
  return curleft;
}

function getStyle(obj, styleProp){
  if (obj.currentStyle)
    return obj.currentStyle[styleProp];
  else if (window.getComputedStyle)
    return document.defaultView.getComputedStyle(obj,null).getPropertyValue(styleProp);
}

function MostrarDiv(idDiv, posX, posY){
	elem = document.getElementById(idDiv);    
	posX = parseInt(((document.body.clientWidth-995)/2)+550);	
		
	// Netscape 4
	if(ns4){
		document.layers[idDiv].left = posX+'px';
	}
	// Explorer 4
	else if(ie4){
		document.all[idDiv].style.left = posX+'px';
	}
	// W3C - Explorer 5+ and Netscape 6+
	else if(ie5 || ns6){
		document.getElementById(idDiv).style.left = posX+'px';
	}
	
	if (elem.style.display == 'none'){	
	 	 // Netscape 4
	    if(ns4){		   
		    document.layers[idDiv].visibility = 'show';
	    }
	    // Explorer 4
	    else if(ie4){
		    document.all[idDiv].style.visibility = 'visible';
	    }
	    // W3C - Explorer 5+ and Netscape 6+
	    else if(ie5 || ns6){
		    document.getElementById(idDiv).style.visibility = 'visible';
	    }
	    elem.style.display = '';
	} else {
		 // Netscape 4
	    if(ns4){
		    document.layers[idDiv].visibility = 'hide';
	    }
	    // Explorer 4
	    else if(ie4){
		    document.all[idDiv].style.visibility = 'hidden';
	    }
	    // W3C - Explorer 5+ and Netscape 6+
	    else if(ie5 || ns6){
		    document.getElementById(idDiv).style.visibility = 'hidden';
	    }
	    elem.style.display = 'none';
	}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function aumentarFontSize(texto){
	if (factual < 20 ){
		factual++; 
		setFuentes(factual,texto);
	}
}

function reducirFontSize(texto){
	if (factual > 11){
		factual--;
		setFuentes(factual,texto);
	}
}

function setFuentes(fontactual,idtexto){
	var lay = document.getElementById(idtexto);
	try{
		lay.style.fontSize = fontactual + "px";
		lay.style.lineHeight = (fontactual + 7) + "px";
	}catch(e){
		//alert(e.description  + " | " + fontactual + " | " + idtexto)
	}
}

function Valfecha(Cadena){   
		var Fecha= new String(Cadena) 
		var RealFecha= new Date() 
		var Ano= new String(Fecha.substring(Fecha.lastIndexOf("-")+1,Fecha.length))   
		var Mes= new String(Fecha.substring(Fecha.indexOf("-")+1,Fecha.lastIndexOf("-")))   
		var Dia= new String(Fecha.substring(0,Fecha.indexOf("-")))   
		var leapYear
		
		if ((Ano/4) != Math.floor(Ano/4)) {
			leapYear = "N";
		} else if ((Ano/100) != Math.floor(Ano/100)) {
			leapYear = "Y";
		} else if ((Ano/400) != Math.floor(Ano/400)) {
			leapYear = "N";		
		} else {
			leapYear = "Y";
		}
			
		if (Fecha.length != 10){
			return false
		}
		
		if (isNaN(Ano) || Ano.length<4 || parseFloat(Ano)<1900){   
			return false   
		}   
		if (isNaN(Mes) || parseFloat(Mes)<1 || parseFloat(Mes)>12){   
			return false   
		}   
		if (isNaN(Dia) || parseInt(Dia, 10)<1 || parseInt(Dia, 10)>31){   
			return false   
		}   
		if (Mes==4 || Mes==6 || Mes==9 || Mes==11 || Mes==2) {   

			if (Mes==2){
				if (leapYear == 'Y'){
					if (Dia > 29) {   
						return false   
					}					
				}else{
					if (Dia > 28) {   
						return false   
					}									
				}
			}else{
				if (Dia > 30) {   
					return false   
				}											
			}
		}   
	  return true     
	}