";
print "
";
print "| Código | ";
print "Denominación | ";
print "Tipo | ";
print "Unidad Administrativa | ";
print "
";
if ($ls_operacion=="BUSCAR")
{
$ls_sqlaux = "";
if ($ls_estuniadm=='C')
{
$ls_sqlaux = "AND spg_ministerio_ua.coduac='".$ls_coduniadm."'";
}
$ls_sql="SELECT spg_ep1.codestpro1 as codestpro1,
spg_ep1.denestpro1 as denestpro1,
spg_ep1.estcla,
spg_ministerio_ua.coduac as coduniadm,
spg_ministerio_ua.denuac as denuniadm
FROM spg_ep1, spg_ministerio_ua
WHERE spg_ep1.codemp='".$ls_codemp."'
AND spg_ep1.codestpro1 like '%".$ls_codestpro1."%'
AND spg_ep1.denestpro1 like '%".$ls_denestpro1."%' $ls_sqlaux
AND spg_ep1.codemp=spg_ministerio_ua.codemp
AND spg_ep1.codestpro1<>'-------------------------'
ORDER BY spg_ep1.codestpro1 ASC";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data===false)
{
$io_msg->message("Error en Consulta, Contacte al Administrador del Sistema !!!");
}
else
{
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
while ($row=$io_sql->fetch_row($rs_data))
{
echo "
";
$ls_codestpro1 = trim(substr($row["codestpro1"],-$li_loncodestpro1));
$ls_denestpro1 = $row["denestpro1"];
$ls_estcla = $row["estcla"];
if ($ls_estcla=='P')
{
$ls_denestcla='Proyecto';
}
elseif($ls_estcla=='A')
{
$ls_denestcla='Acción';
}
$ls_coduniadm = $row["coduniadm"];
$ls_denuniadm = $row["denuniadm"];
echo "| ".$ls_codestpro1." | ";
echo "".$ls_denestpro1." | ";
echo "".$ls_denestcla." | ";
echo "".$ls_coduniadm.'-'.$ls_denuniadm." | ";
echo "
";
}
}
else
{
$io_msg->message("No se han definido registros !!!");
}
}
}
echo "";
?>