";
print "
";
print "| ".$la_empresa["nomestpro1"]." | ";
print "".$la_empresa["nomestpro2"]." | ";
print "Código | ";
print "Denominación | ";
print "Tipo | ";
print "
";
if ($ls_operacion=="BUSCAR")
{
$ls_estpreing=$la_empresa["estpreing"];/// manejo de estructura presupuestarias
if (!empty($ls_codestpro3))
{
$ls_codestpro3 = str_pad($ls_codestpro3,25,0,0);
}
if (($ls_estpreing=='1')&&($ls_tipo=="ingreso"))
{
$ls_sql = "SELECT DISTINCT(spg_ep3.codestpro3) as codestpro3,
spg_ep1.codestpro1 as codestpro1,spg_ep1.denestpro1 as denestpro1,
spg_ep2.codestpro2 as codestpro2,spg_ep2.denestpro2 as denestpro2,
spg_ep3.denestpro3 as denestpro3, spg_ep3.estcla
FROM spg_ep1, spg_ep2, spg_ep3, spi_cuentas_estructuras
WHERE spg_ep1.codemp='".$la_empresa["codemp"]."'
AND spg_ep3.codestpro3 like '%".$ls_codestpro3."%'
AND spg_ep3.denestpro3 like '%".$ls_denestpro3."%'
AND spg_ep1.codemp=spg_ep2.codemp
AND spg_ep1.codestpro1=spg_ep2.codestpro1
AND spg_ep1.codemp=spg_ep3.codemp
AND spg_ep1.codestpro1=spg_ep3.codestpro1
AND spg_ep2.codemp=spg_ep3.codemp
AND spg_ep2.codestpro1=spg_ep3.codestpro1
AND spg_ep2.codestpro2=spg_ep3.codestpro2
AND spg_ep1.estcla=spg_ep2.estcla
AND spg_ep2.estcla=spg_ep3.estcla
AND spg_ep3.estcla=spg_ep1.estcla
AND spg_ep3.codestpro1=spi_cuentas_estructuras.codestpro1
AND spg_ep3.codestpro2=spi_cuentas_estructuras.codestpro2
AND spg_ep3.codestpro3=spi_cuentas_estructuras.codestpro3
AND spg_ep1.codestpro1<>'-------------------------'
ORDER BY spg_ep1.codestpro1";
}
else
{
$ls_sql = "SELECT spg_ep1.codestpro1 as codestpro1,spg_ep1.denestpro1 as denestpro1,
spg_ep2.codestpro2 as codestpro2,spg_ep2.denestpro2 as denestpro2,
spg_ep3.codestpro3 as codestpro3,spg_ep3.denestpro3 as denestpro3, spg_ep3.estcla
FROM spg_ep1, spg_ep2, spg_ep3
WHERE spg_ep1.codemp='".$la_empresa["codemp"]."'
AND spg_ep3.codestpro3 like '%".$ls_codestpro3."%'
AND spg_ep3.denestpro3 like '%".$ls_denestpro3."%'
AND spg_ep1.codestpro1<>'-------------------------'
AND spg_ep1.codemp=spg_ep2.codemp
AND spg_ep1.codestpro1=spg_ep2.codestpro1
AND spg_ep1.codemp=spg_ep3.codemp
AND spg_ep1.codestpro1=spg_ep3.codestpro1
AND spg_ep2.codemp=spg_ep3.codemp
AND spg_ep2.codestpro1=spg_ep3.codestpro1
AND spg_ep2.codestpro2=spg_ep3.codestpro2
AND spg_ep1.estcla=spg_ep2.estcla
AND spg_ep2.estcla=spg_ep3.estcla
AND spg_ep3.estcla=spg_ep1.estcla
ORDER BY spg_ep3.codestpro1,spg_ep3.codestpro2,spg_ep3.codestpro3 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))
{
print "
";
$ls_codestpro1 = trim(substr($row["codestpro1"],-$li_loncodestpro1));
$ls_codestpro2 = trim(substr($row["codestpro2"],-$li_loncodestpro2));
$ls_codestpro3 = trim(substr($row["codestpro3"],-$li_loncodestpro3));
$ls_denestpro1 = $row["denestpro1"];
$ls_denestpro2 = $row["denestpro2"];
$ls_denestpro3 = $row["denestpro3"];
$ls_estcla = $row["estcla"];
if ($ls_estcla=='P')
{
$ls_denestcla='Proyecto';
}
elseif($ls_estcla=='A')
{
$ls_denestcla='Acción';
}
if (($ls_tipo=="")||($ls_tipo=="ingreso"))
{
print "| ".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
}
if ($ls_tipo=="apertura")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
}
if ($ls_tipo=="progrep")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
}
if ($ls_tipo=="reporte")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
}
if ($ls_tipo=="rephas")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
}
print "".$ls_denestpro3." | ";
print "".$ls_denestcla." | ";
print "
";
}
}
else
{
$io_msg->message("No se han definido registros !!!");
}
}
}
print "";
?>