$varRegiFina = $aplNumeRegiPagi;
$recordset = funEjecutaQuerySelect("select COD_ARCHIVO from " . $aplPrefClie . "_dat_archivo");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
if ($nr < $aplNumeRegiPagi) {
$varRegiFina = $nr;
}
} else {
$varRegiInic = 0;
$varRegiFina = 0;
}
funLiberaRecordset($recordset);
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_archivo order by NOM_ARCHIVO");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
// crea la tabla
print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
// imprime los regsitros
for ($varI = 0; $varI < $nr; $varI++) {
// guardo los datos en variables
$varCodiArch = trim($results["COD_ARCHIVO"][$varI]);
$varNombArch = trim($results["NOM_ARCHIVO"][$varI]);
$varFileArch = trim($results["FIL_ARCHIVO"][$varI]);
// control de paginacion
if ($varI + 1 >= $varRegiInic && $varI + 1 <= $varRegiFina) {
// despliego los datos
print "<tr>";
print "\t<td width=\"97%\" class=\"texttabl\"><a href=\"./frm_arch.php?txtCodiArch={$varCodiArch}\" target=\"form\" class=\"linktabl\">{$varNombArch}</a><br><font style=\"color:#ca6500\">../../_upload/{$varFileArch}</font></td>";
print "\t<td width=\"3%\" class=\"texttabl\" align=\"center\"><a href=\"./exe_arch.php?txtCodiArch={$varCodiArch}&cmdComando=Eliminar\" onClick=\"return confirm('Esta seguro que desea eliminar el Archivo?');\" class=\"linktabl\"><img src=\"./../images/btnx.gif\" width=\"12\" height=\"12\" border=0></a></td>";
print "\t<td width=\"100%\" style=\"color:#004080;padding-left:60px;\" class=\"texttabl\"><a href=\"./frm_cont.php?txtCodiInfo={$varCodiSubs3}\" target=\"form\" style=\"color:#004080\" class=\"linktabl\">{$varNombSubs3}</a> {$varIconEsta}</td>";
} else {
print "\t<td width=\"100%\" style=\"color:#004080;padding-left:60px;\" class=\"texttabl\">{$varNombSubs3} {$varIconEsta}</td>";
}
print "</tr>";
} elseif ($varNiveSubs3 == "5") {
print "<tr>";
if ($varTipoSubs3 == "L" || $varTipoSubs3 == "H") {
print "\t<td width=\"100%\" style=\"color:#004080;padding-left:80px;\" class=\"texttabl\"><a href=\"./frm_cont.php?txtCodiInfo={$varCodiSubs3}\" target=\"form\" style=\"color:#004080\" class=\"linktabl\">{$varNombSubs3}</a> {$varIconEsta}</td>";
} else {
print "\t<td width=\"100%\" style=\"color:#004080;padding-left:80px;\" class=\"texttabl\">{$varNombSubs3} {$varIconEsta}</td>";
}
print "</tr>";
}
$recordsubs4 = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_infoseccion where COD_SECCIONPADRE='{$varCodiSubs3}' and COD_SECCION<>COD_SECCIONPADRE order by ORD_SECCION");
$ns4 = funDevuelveArregloRecordset($recordsubs4, $resultsubs4);
for ($varO = 0; $varO < $ns4; $varO++) {
// guardo los datos en variables
$varCodiSubs4 = trim($resultsubs4["COD_SECCION"][$varO]);
$varNombSubs4 = trim($resultsubs4["NOM_SECCION"][$varO]);
$varNiveSubs4 = trim($resultsubs4["NIV_SECCION"][$varO]);
$varTipoSubs4 = trim($resultsubs4["TIP_SECCION"][$varO]);
$varEstaSubs4 = trim($resultsubs4["EST_SECCION"][$varO]);
// seteo el icono de estado
if ($varEstaSubs4 == "A") {
$varIconEsta = "";
} else {
$varIconEsta = "<img src=\"../graficos/ic_x3.gif\" width=\"12\" height=\"11\">";
}
if ($varNiveSubs4 == "1") {
print "<tr>";
print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
// imprime los regsitros
for ($varI = 0; $varI < $nr; $varI++) {
// guardo los datos en variables
$varCodiCate = trim($results["COD_CATEGORIA"][$varI]);
$varNombCate = trim($results["NOM_CATEGORIA"][$varI]);
$varEstaCate = trim($results["EST_CATEGORIA"][$varI]);
$varCiudCate = trim($results["COD_CIUDAD"][$varI]);
if ($varEstaCate == "A") {
$varEstaCateNomb = "(Activo)";
} elseif ($varEstaCate == "I") {
$varEstaCateNomb = "(Inactivo)";
}
if ($varJ != $varCiudCate) {
$recordset1 = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_ref_ciudad where COD_CIUDAD={$varCiudCate}");
$nr1 = funDevuelveArregloRecordset($recordset1, $results1);
if ($nr1 > 0) {
print "<tr>";
print "\t<td colspan=\"2\" class=\"texttabl\" bgcolor=\"{$aplTigraBackColorOver}\"><font style=\"color:#ca6500\">" . $results1['NOM_CIUDAD'][0] . "</font></td>";
print "<tr>";
}
$varJ = $varCiudCate;
}
// despliego los datos
print "<tr>";
print "\t<td width=\"97%\" class=\"texttabl\" style=\"padding-left:15px;\"><a href=\"./frm_cate.php?txtCodiCate={$varCodiCate}\" target=\"form\" class=\"linktabl\">{$varNombCate}</a> <font style=\"color:#666666\"><i>{$varEstaCateNomb}</i></font></td>";
print "\t<td width=\"3%\" class=\"texttabl\" align=\"center\"><a href=\"./exe_cate.php?txtCodiCate={$varCodiCate}&cmdComando=Eliminar\" onClick=\"return confirm('Esta seguro que desea eliminar la Categoria?');\" class=\"linktabl\"><img src=\"./../images/btnx.gif\" width=\"12\" height=\"12\" border=0></a></td>";
print "</tr>";
}
// cierra la tabla
print "</table>";
$varCodiSubs = trim($resultsubs["COD_SECCION"][$varJ]);
$varNombSubs = trim($resultsubs["NOM_SECCION"][$varJ]);
$varNiveSubs = trim($resultsubs["NIV_SECCION"][$varJ]);
$varTipoSubs = trim($resultsubs["TIP_SECCION"][$varJ]);
// crea los espacios de nivel
$varEspacios = "";
for ($varM = 1; $varM < $resultsubs["NIV_SECCION"][$varJ]; $varM++) {
$varEspacios = $varEspacios . " ";
}
if (trim(strpos($varListCodiSecc, "," . $varCodiSubs . ",")) != "") {
print "\t\t<option style=\"color:#000000\" value=\"" . $varCodiSubs . "\" selected>" . $varEspacios . $varNombSubs;
} else {
print "\t\t<option style=\"color:#000000\" value=\"" . $varCodiSubs . "\">" . $varEspacios . $varNombSubs;
}
$recordsubs2 = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_infoseccion where COD_SECCIONPADRE='{$varCodiSubs}' and COD_SECCION<>COD_SECCIONPADRE order by ORD_SECCION");
$ns2 = funDevuelveArregloRecordset($recordsubs2, $resultsubs2);
for ($varK = 0; $varK < $ns2; $varK++) {
// guardo los datos en variables
$varCodiSubs2 = trim($resultsubs2["COD_SECCION"][$varK]);
$varNombSubs2 = trim($resultsubs2["NOM_SECCION"][$varK]);
$varNiveSubs2 = trim($resultsubs2["NIV_SECCION"][$varK]);
$varTipoSubs2 = trim($resultsubs2["TIP_SECCION"][$varK]);
// crea los espacios de nivel
$varEspacios2 = "";
for ($varM = 1; $varM < $resultsubs2["NIV_SECCION"][$varK]; $varM++) {
$varEspacios2 = $varEspacios2 . " ";
}
if (trim(strpos($varListCodiSecc, "," . $varCodiSubs2 . ",")) != "") {
print "\t\t<option style=\"color:#8a8a8a\" value=\"" . $varCodiSubs2 . "\" selected>" . $varEspacios2 . $varNombSubs2;
} else {
print "\t\t<option style=\"color:#8a8a8a\" value=\"" . $varCodiSubs2 . "\">" . $varEspacios2 . $varNombSubs2;
