function EsNumero(valor) {
  var CadenaNumeros="0123456789";
  var EsteCaracter;
  var Contador = 0;
  
  for(var i=0; i< valor.length; i++) {
    EsteCaracter = valor.substring(i,i+1);
    if (CadenaNumeros.indexOf(EsteCaracter) != -1)
      Contador++;
  }
  
  if (Contador==valor.length) {
    return true;
  }
  else {
    return false;
  }
}


function EsVacia(valor) {
   for (var contador=0; contador < valor.length; contador++) {
     if ((valor.substring(contador,contador+1)!=" ")) {
        return false;
     }
   }
   return true;
}


function validar_datos() {
  str_parametro = document.forms[0].parametro.value;

  if (EsVacia(str_parametro)) {
     alert("Debe ingresar el parámetro a consultar");
     document.forms[0].parametro.focus();
     return false;
  }

  if ((document.forms[0].tipo_parametro[0].checked)||(document.forms[0].tipo_parametro[1].checked)) {
    if (!EsNumero(str_parametro)) {
       alert("El parámetro (R.U.C. o Expediente) no puede tener letras.");
       document.forms[0].parametro.focus();
       return false;
    }
  }

  return true;
}


function devolver_expediente() {
  var fila = DataGrid2_Disp.fRow;
  var valor = DataGrid2_Disp.getValue(0,fila);
  if (valor!='') {
    if (opcion=='ecn') window.opener.document.forms[0].dpr_expasociado.value = valor;
    if (opcion=='icn') window.opener.document.forms[0].dpr_expasociado8.value = valor;
    window.opener.poner_nombre_expediente();
    window.close();
  }
}


function traer_datos_compania() {
  var fila;
  var expediente_depurado;

  fila = DataGrid2_Disp.page * DataGrid2_Disp.rows + DataGrid2_Disp.scrolloffs + DataGrid2_Disp.fRow; 
  expediente_depurado = depurados[fila];


  if (perfil != '301') {
      if ((perfil == '302')&&(expediente_depurado != "0")) {
         var resultado = confirm("Este expediente está marcado como depurado. ¿Desea continuar?");
         if (resultado) {
           fila = DataGrid2_Disp.fRow;
           var expediente = DataGrid2_Disp.getValue(0,fila);
           location = '/web/privado/archivo/cgi/clientes/cl_archivo.exe/principal?expediente=' + expediente + '&sesion=' + sesion;  
         }  
      }
      else {
        fila = DataGrid2_Disp.fRow;
        var expediente = DataGrid2_Disp.getValue(0,fila);
        location = '/web/privado/archivo/cgi/clientes/cl_archivo.exe/principal?expediente=' + expediente + '&sesion=' + sesion;  
      }
  }
  else {
    if (expediente_depurado == "0") {
      fila = DataGrid2_Disp.fRow;
      var expediente = DataGrid2_Disp.getValue(0,fila);
      location = '/web/privado/archivo/cgi/clientes/cl_archivo.exe/principal?expediente=' + expediente + '&sesion=' + sesion;  
    }
    else {
      alert('Este expediente no puede ser modificado puesto que ya ha sido depurado.');
    }


  }
}