//-------------- Control de Tipo de Caracteres --------- Inicio//

function solonumeros(obj){
   if(window.event.keyCode<48 || window.event.keyCode>57){
      if(window.event.keyCode==46 || window.event.keyCode==44){ //46 es el "." y 44 es la ","
			window.event.keyCode=44;
			}
      else{
         	window.event.keyCode=0;
      		}
   	}

}

function solodecimales(obj){
   if(window.event.keyCode<48 || window.event.keyCode>57){
      if(window.event.keyCode==46 || window.event.keyCode==44){ //46 es el "." y 44 es la ","
			window.event.keyCode=46;
			}
      else{
         	window.event.keyCode=0;
      		}
   	}

}


//-------------- Control de Tipo de Caracteres --------- Fin//

//-------------- Mensajes --------- Inicio//
var Msj_Error_Form = "FORMULARIO NO ACTUALIZADO POR LAS SIGUIENTES CAUSAS :";
var Msj_Fecha = "No es Correcta la Fecha";
//-------------- Mensajes --------- Fin//

//-------------- Comprobación Fecha --------- Inicio//

function Fecha_Correcta(DD,MM,AAAA){
	var correcto=true;

        if ((!isNaN(AAAA)) && (parseInt(AAAA) < 100))AAAA=parseInt(AAAA);

//alert("Fecha Recibida : "+DD+"/"+MM+"/"+AAAA);
 
        if (isNaN(AAAA))correcto=false;
		
        else if (AAAA < 1900 || AAAA > 2075)correcto=false;
          else if ((MM > 12) || (MM < 1))correcto=false;
		  
           else if ((DD > 31) || (DD < 1))correcto=false;
          
		    else if (((MM == 4) || (MM == 6) || (MM == 9) || (MM == 11)) && (DD > 30))correcto=false;
          
		     else if ((MM == 2) && (DD > 28)){
                    if ((DD != 29) || (parseInt(AAAA/4) != parseFloat(AAAA/4)))correcto=false;
             		}

		if(DD=="" || MM=="" || AAAA=="")correcto=false;
	
		return correcto;
}

//-------------- Comprobación Fecha --------- Fin//

function cuentacaracterescoma(obj){
   var cuentacomas=0;
   for(var i=0;i<obj.value.length;i++)
   {
      if(obj.value.charAt(i)==",")
      {
         cuentacomas++;
      }
   }
   return cuentacomas;
}

function despuesdelacoma(obj){
   if(obj.value==''){obj.value=0;return false;}
   var poscoma=obj.value.indexOf(',',0);
   if(poscoma==-1){return false;}
   var cuentadigitos=0;
   for(var i=poscoma+1;i<obj.value.length;i++)
   {
      if(obj.value.charAt(i)!='')
      {
         cuentadigitos++;
      }
   }
   if(poscoma!=-1 && cuentadigitos==0)
   {
      obj.value=obj.value+'00'; 
   }
   if(cuentadigitos==1)
   {
      obj.value=obj.value+'0';
   }
}


//--------------- Control de Filas ----------------------- Inicio //

function anade(tr,td,tabla,fila){
   tr.appendChild(td);
   eval(fila).appendChild(tr);
   eval(tabla).appendChild(eval(fila));
//   alert(eval(tr)+","+eval(td)+","+tabla+","+fila);
}

function borrarfila(tabla,fila){
var i = contador-1;
	if(i > 0){
/*
		alert("contador : "+contador);
		alert("i : "+i);
		alert("Fila : "+eval(fila));
*/	
		eval(fila).deleteRow(i);
		i--;
		contador --;
		}
	else {
		alert('ˇ No Existen Filas a Eliminar !');
		}
}
//--------------- Control de Filas ----------------------- Fin //

//  **** FECHAS ***
//  ***************

function PonCero(entero)
{
	sentero=entero.toString();
	if (sentero.length==1)
	{
		entero="0"+entero;
	}
	return entero;
}

var hoy= new Date();
function Dia()
{
	return (PonCero(hoy.getDate()));
}

function Mes()
{
	return (PonCero(hoy.getMonth()+1));
}

function Anyo()
{
	return (hoy.getYear());
}



function Carga(){
	document.frm.Referencia_R.select();
	document.frm.DD_Fecha_R.value=Dia();
	document.frm.MM_Fecha_R.value=Mes();
	document.frm.AAAA_Fecha_R.value=Anyo();
}

//DES(Deshabilita=true), HAB(Habilita=false) -- Inicio --//
function Des_Habilita(Objeto,Accion){

	var DES_HAB = "";
	if(Accion == "DES")DES_HAB = "document.frm."+Objeto+".disabled=true";
	else DES_HAB = "document.frm."+Objeto+".disabled=false";
	eval(DES_HAB);
	
}
//DES(Deshabilita=true), HAB(Habilita=false) -- Fin --//

//DES-HABILITA COMBOS -- Inicio --//
function Des_Hab_Combo(Objeto,Accion){

	var DES_HAB = "";
	if(Accion == "DES")DES_HAB = "document.all."+Objeto+".style.display='none'";
	else DES_HAB = "document.all."+Objeto+".style.display='block';";
	eval(DES_HAB);	
	
}
//DES-HABILITA COMBOS -- Fin --//

//Rollover -- Inicio --//
function poncolor(obj){
	for(var i=0;i<obj.cells.length;i++){
		obj.cells(i).style.color="#B4B4B4";
		}
}
function quitacolor(obj){
	for(var i=0;i<obj.cells.length;i++){
		obj.cells(i).style.color="black";
		}
}
//Rollover -- Fin --//


//Resetea un Combo -- Inicio -- //
function Resetea_Combo(Combo){
	var frm_Combo = "document.frm."+Combo+".options[0].selected=true;document.frm."+Combo+".focus();";
	eval(frm_Combo);
}
//Resetea un Combo -- Fin -- //

//Imprime la página del formulario que se le pase
function imprime(pag){
   window.open(pag,'Nueva','top=0,left=0,width=2,height=2');
}