function _DATA_Listar_Tabla_Inicio(&$flds,$where,$order){
 return array($w,$o);
}

function DATA_Listar_Tabla_Anterior(&$flds,$where='',$order='',$lc=''){
 global $DATA_NUM_REG_INI,$_DATA_NUM_DIV,$DATA_NUM_REGS_X_PAG,$BDD_MARCA;
 $tab=$flds[0]->tabla;
 list($w,$o)=_DATA_Listar_Tabla_Inicio($flds,$where,$order);
 $nri=VALMAX($DATA_NUM_REG_INI-1,0);
 $NO_USAR_AJAX=1;
 if(empty($NO_USAR_AJAX)){
  DATA_AJAX($flds,$lc,$tab,$where);
  return;
  }
 $nr=bdd_nr($tab,$w);
 list($nri,$nrf)=_DATA_RegNav($nr,$w);
 if($nri>1)$li=$nri-1;else $li=0;
 $rs=bdd_s_no_check($tab,$w,$o,$li,$DATA_NUM_REGS_X_PAG);
 if(bdd_errno()==1054){
  if(!empty($order))$o=" order by $order";else $o='';
  @$rs=bdd_s($tab,$w,$o,$li,$DATA_NUM_REGS_X_PAG);
  if($rs==null)return;
  }
 if($nri){
  if($BDD_MARCA=='informix'){   //Salta los primeros registros
   for($n=0;$n<$li;++$n)bdd_fetch_assoc($rs);
   }
  print "<table cellpadding=2 cellspacing=1 style='border:solid navy 1px;' width='100%'>";
  for($n=0;$nri<=$nrf;++$nri) {
   $REGISTRO_ACTUAL=$reg=&bdd_fetch_assoc($rs);
   if($ff&&$ff())continue; //Filtra registro
   if($n==0)_DATA_Mostrar_Enc($flds,$lc,0);
   if((++$n%2)==0)$cn='clp';else $cn='cli';
   $cod='';foreach($flds as $f)if(!empty($f->clave))@$cod.=$reg[$f->nombre]."_";
   print "\n<tr class=$cn onclick='da$_DATA_NUM_DIV(\"$cod\")' onmouseover='this.className=\"cla\"' onmouseout='this.className=\"$cn\"' title='Clic para mostrar registro $cod' style='cursor:hand'>\n";
   _DATA_Mostrar_Det($flds,$lc);
   }
  print "</table>\n";
  }
 _DATA_Mostrar_Buscar($flds);
}

//Muestra encabezado de las columnas de tabla
function _DATA_Mostrar_EncN(&$lt,&$lc,$modo){
 print "<tr>";
 if(is_array($lc)) {
  if($modo)print "<th>";
  foreach($lc as $cc){
   $c=$cc;$f=$e='';
   if(strchr($cc,'#')!==false){
    list($c,$f)=explode("#",$cc,2);
    if(strchr($f,'#')!==false)
     list($f,$e)=explode("#",$f);
    if($f)print "<th>$e ";
     else print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$c\")'>".$e." ";
    continue;
    }
   foreach($lt as $flds){
   for($nc=1;$nc<count($flds);++$nc){
    if($c==$flds[$nc]->nombre){
     $e=$flds[$nc]->etiquetaCorta;
     // print "<th>".$e." ";
     print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$c\")'>".$e." ";
     break;
     }
    }
    }
   }
  return;
  }
 if($modo)print "<th>";
 for($nc=1;$nc<count($flds);++$nc){
  $e=$flds[$nc]->etiquetaCorta;
  $n=$flds[$nc]->nombre;
  print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$n\")'>".$e." ";
  }
}

function _DATA_Mostrar_DetN(&$lt,&$lc){
 global $REGISTRO_ACTUAL;
 if(is_array($lc)){
  foreach($lc as $cc){
   if($cc=='')continue;
   print_r($cc);
   switch(count($t=explode('#',$cc))){
    default:
    case 4: $c=$t[0]; $f=$t[1]; $e=$t[2]; $a=$t[3]; break;
    case 3: $c=$t[0]; $f=$t[1]; $e=$t[2]; $a='';    break;
    case 2: $c=$t[0]; $f=$t[1]; $e='';    $a='';    break;
    case 1: $c=$t[0]; $f='';    $e='';    $a='';    break;
    }
    foreach($lt as $flds){
    for($nc=1;$nc<count($flds);++$nc){
     $v=$REGISTRO_ACTUAL[$c];
     $fld=$flds[$nc];
     if($c==$fld->nombre){
//      if($f&&defined($f)){$v=$f($v);}
      if($f){$v=$f($v);}
      if($a){$fld->tipo=$a; $fld->longitud='16,2';}
      _DATA_Mostrar_Fld($fld,$v);
      break;
     }
    }
   }
   }
  return;
  }
 $nc=0;
 foreach ($REGISTRO_ACTUAL as $k=>$v){
  if($k!='codigo')
   _DATA_Mostrar_Fld($flds[++$nc],$v);
  }
 reset($REGISTRO_ACTUAL);
}


function DATA_Listar_Tabla2Anterior($flds,$flds2,$where='',$order='',$lc=''){
 global $SCRIPT,$DIR_IMG,$BDD_TIPO,$DATA_NUM_REGS_X_PAG,$DATA_NUM_REG_INI,$DATA_NOMBRE_CAMPO_SORT;
 global $REGISTRO_ACTUAL,$NOMBRE_PAGINA_CONSULTA,$ANCHO_PAGINA_CONSULTA,$ALTO_PAGINA_CONSULTA;
 global $NO_USAR_AJAX,$_DATA_NUM_DIV;
 global $BDD_MARCA;
 if(empty($NOMBRE_PAGINA_CONSULTA))$NOMBRE_PAGINA_CONSULTA="../lib/consultar_registro.php";
 if(empty($ANCHO_PAGINA_CONSULTA))$ANCHO_PAGINA_CONSULTA="600";
 if(empty($ALTO_PAGINA_CONSULTA))$ALTO_PAGINA_CONSULTA="480";
 if(empty($_DATA_NUM_DIV))$_DATA_NUM_DIV=0;
 ++$_DATA_NUM_DIV;

 $f=$flds[0];
 $tab=$f->tabla;
 $f2=$flds2[0];
 $tab2=$f2->tabla;

 //print "$tab,$tab2";
 @$mynam=$_POST["mynam"];@$myope=$_POST["myope"];@$myval=$_POST["myval"];
 if(!empty($mynam)&&!empty($myope)&&isset($myval)){
  if($where)$where.=" and ";
  if(stristr($myope,'LIKE')!==false)$myval='%'.$myval.'%';
  $where.="$mynam $myope '$myval'";
  }
 $w='';
 if(empty($order))$order='codigo';
 if(!empty($where))$w=$w." where $where";
 if(!empty($order))$o=" order by $order";else $o='';
 if(!empty($DATA_NOMBRE_CAMPO_SORT))$o=" order by $DATA_NOMBRE_CAMPO_SORT";
 $nri=VALMAX($DATA_NUM_REG_INI-1,0);
 Recuadro_Inicio();
 JS("var dnt$_DATA_NUM_DIV='$tab';function da$_DATA_NUM_DIV(c){window.open('$NOMBRE_PAGINA_CONSULTA?tabla=$tab&c='+c,'winOpen','directories=no,menu=no,width=$ANCHO_PAGINA_CONSULTA,height=$ALTO_PAGINA_CONSULTA,scrollbars=yes');}");
 if(empty($NO_USAR_AJAX)){
  DATA_AJAX($flds,$lc,$tab,$where);
  return;
  }
 $qn="select * from $tab,$tab2 $w";
 $rs=bdd_query($qn);
 if($rs==null) { print "No existe tabla $tab<br>"; return; }
 $nr=bdd_nr($tab,$w);
 list($nri,$nrf)=_DATA_RegNav($nr,$w);
 if($nri>1)$li=$nri-1;else $li=0;
 if($BDD_MARCA=='informix')
  $q="select first ".($li+$DATA_NUM_REGS_X_PAG)." * from $tab,$tab2 $w$o";
 else
  $q="select * from $tab,$tab2 $w$o limit $li,$DATA_NUM_REGS_X_PAG";
 $rs=bdd_query_no_check($q);
 if(bdd_errno()==1054){
  if(!empty($order))$o=" order by $order";else $o='';
  if($BDD_MARCA=='informix')
   $q="select first ".($li+$DATA_NUM_REGS_X_PAG)." * from $tab,$tab2 $w$o";
  else
   $q="select * from $tab,$tab2 $w$o limit $li,$DATA_NUM_REGS_X_PAG";
  $rs=bdd_query($q);
  if($rs==null)return;
  }
 if($nri){
  print "<table cellpadding=2 cellspacing=1 style='border:solid navy 1px;' width='100%'>";
  for($n=0;$nri<=$nrf;++$nri) {
   $REGISTRO_ACTUAL=$reg=mysql_fetch_array($rs);
   if($ff&&$ff())continue; //Filtra registro
   if($n==0)_DATA_Mostrar_Enc2($flds,$flds2,$lc,0);
   if((++$n%2)==0)$cn='clp';else $cn='cli';
   $cod='';foreach($flds as $f)if(!empty($f->clave))@$cod.=$reg[$f->nombre]."_";
   print "\n<tr class=$cn onclick='da$_DATA_NUM_DIV(\"$cod\")' onmouseover='this.className=\"cla\"' onmouseout='this.className=\"$cn\"' title='Clic para mostrar registro $cod' style='cursor:hand'>\n";
   _DATA_Mostrar_Det2($flds,$flds2,$lc);
   }
  print "</table>\n";
  }
 Recuadro_Fin();
 unset($_GET["_o"]); unset($_GET["_c"]);
}

//Muestra encabezado de las columnas de tabla
function _DATA_Mostrar_Enc2(&$flds,&$flds2,&$lc,$modo){
 print "<tr>";
 if(is_array($lc)) {
  if($modo)print "<th>";
  foreach($lc as $cc){
   $c=$cc;$f=$e='';
   if(strchr($cc,'#')!==false){
    list($c,$f)=explode("#",$cc,2);
    if(strchr($f,'#')!==false)
     list($f,$e)=explode("#",$f);
    if($f)print "<th>$e ";
     else print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$c\")'>".$e." ";
    continue;
    }
   for($nc=1;$nc<count($flds);++$nc){
    if($c==$flds[$nc]->nombre){
     $e=$flds[$nc]->etiquetaCorta;
     // print "<th>".$e." ";
     print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$c\")'>".$e." ";
     break;
     }
    }
   for($nc=1;$nc<count($flds2);++$nc){
    if($c==$flds2[$nc]->nombre){
     $e=$flds2[$nc]->etiquetaCorta;
     // print "<th>".$e." ";
     print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$c\")'>".$e." ";
     break;
     }
    }
   }
  return;
  }
 if($modo)print "<th>";
 for($nc=1;$nc<count($flds);++$nc){
  $e=$flds[$nc]->etiquetaCorta;
  $n=$flds[$nc]->nombre;
  print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$n\")'>".$e." ";
  }
}

function _DATA_Mostrar_Det2(&$flds,&$flds2,&$lc){
 global $REGISTRO_ACTUAL;
 if(is_array($lc)){
  foreach($lc as $cc){
   if($cc=='')continue;
   switch(count($t=explode('#',$cc))){
    default:
    case 4: $c=$t[0]; $f=$t[1]; $e=$t[2]; $a=$t[3]; break;
    case 3: $c=$t[0]; $f=$t[1]; $e=$t[2]; $a='';    break;
    case 2: $c=$t[0]; $f=$t[1]; $e='';    $a='';    break;
    case 1: $c=$t[0]; $f='';    $e='';    $a='';    break;
    }
   for($nc=1;$nc<count($flds);++$nc){
    $v=$REGISTRO_ACTUAL[$c];
    $fld=$flds[$nc];
    if($c==$fld->nombre){
//     if($f&&defined($f)){$v=$f($v);}
     if($f){$v=$f($v);}
     if($a){$fld->tipo=$a; $fld->longitud='16,2';}
     _DATA_Mostrar_Fld($fld,$v);
     break;
     }
    }
   for($nc=1;$nc<count($flds2);++$nc){
    $v=$REGISTRO_ACTUAL[$c];
    $fld=$flds2[$nc];
    if($c==$fld->nombre){
//     if($f&&defined($f)){$v=$f($v);}
     if($f){$v=$f($v);}
     if($a){$fld->tipo=$a; $fld->longitud='16,2';}
     _DATA_Mostrar_Fld($fld,$v);
     break;
     }
    }
   }
  return;
  }
 $nc=0;
 foreach ($REGISTRO_ACTUAL as $k=>$v){
  if($k!='codigo')
   _DATA_Mostrar_Fld($flds[++$nc],$v);
  }
 reset($REGISTRO_ACTUAL);
}

//Muestra encabezado de las columnas de tabla
function _DATA_Mostrar_Enc(&$flds,&$lc,$modo){
 print "<tr>";
 if(is_array($lc)) {
  if($modo)print "<th>";
  foreach($lc as $cc){
   $c=$cc;$f=$e='';
   if(strchr($cc,'#')!==false){
    list($c,$f)=explode("#",$cc,2);
    if(strchr($f,'#')!==false)
     list($f,$e)=explode("#",$f);
    if($f)print "<th>$e ";
     else print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$c\")'>".$e." ";
    continue;
    }
   for($nc=1;$nc<count($flds);++$nc){
    if($c==$flds[$nc]->nombre){
     $e=$flds[$nc]->etiquetaCorta;
     // print "<th>".$e." ";
     print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$c\")'>".$e." ";
     break;
     }
    }
   }
  return;
  }
 if($modo)print "<th>";
 for($nc=1;$nc<count($flds);++$nc){
  $e=$flds[$nc]->etiquetaCorta;
  $n=$flds[$nc]->nombre;
  print "<th ".tClass("Clic para clasificar por $e")." onclick='jsrt(\"$n\")'>".$e." ";
  }
}

function _DATA_Mostrar_Det(&$flds,&$lc){
 global $REGISTRO_ACTUAL;
 if(is_array($lc)){
  foreach($lc as $cc){
   if($cc=='')continue;
   switch(count($t=explode('#',$cc))){
    default:
    case 4: $c=$t[0]; $f=$t[1]; $e=$t[2]; $a=$t[3]; break;
    case 3: $c=$t[0]; $f=$t[1]; $e=$t[2]; $a='';    break;
    case 2: $c=$t[0]; $f=$t[1]; $e='';    $a='';    break;
    case 1: $c=$t[0]; $f='';    $e='';    $a='';    break;
    }
   for($nc=1;$nc<count($flds);++$nc){
    $v=$REGISTRO_ACTUAL[$c];
    $fld=$flds[$nc];
    if(empty($fld->nombre)) continue;
    if($c==$fld->nombre){
//     if($f&&defined($f)){$v=$f($v);}
     if($f){$v=$f($v);}
     if($a){$fld->tipo=$a; $fld->longitud='16,2';}
     _DATA_Mostrar_Fld($fld,$v);
     break;
     }
    }
   }
  return;
  }
 if(!empty($REGISTRO_ACTUAL)){
  $nc=0;
  foreach ($REGISTRO_ACTUAL as $k=>$v){
   if($k!='codigo')_DATA_Mostrar_Fld($flds[++$nc],$v);
   }
  reset($REGISTRO_ACTUAL);
  }
}