///*******************************************************************

function es_numerico(cadena)
//funcion que devuelve true si la cadena es numerica
{
	var longigud = 0;
	var es_numero = true; //partimos de la idea de que es numérico
	var i = 0;

	longitud = cadena.length;

	while ((i<longitud) && (es_numero))
	{
	   if (isNaN((cadena.substring(i, i+1))))   // si no es numero
	   {
	   	   es_numero = false;
	   	}
	   i++;
	}

	return (es_numero);  //cuando no hay ningun caracter
}	


function Aviso(pagina) {
		EAR = window.open(pagina, 'dy', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=yes,width=400,height=250,resizable=0');
}
function venTana(v_pagina,v_ancho,v_alto,v_barras){
	window.open(v_pagina, 'descripcion', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=' + v_barras + ',width=' + v_ancho + ', height=' +v_alto+ ',left=0,top=0,screenLeft=0,screenTop=0,resizable=1');
}
function IP_swapImgRestore() {  
  var i,x,a=document.IP_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function IP_findObj(n, d) {  
  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=IP_findObj(n,d.layers[i].document); return x;
}

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