";
print "
";
print "| ".$la_empresa["nomestpro1"]." | ";
print "".$la_empresa["nomestpro2"]." | ";
print "".$la_empresa["nomestpro3"]." | ";
print "".$la_empresa["nomestpro4"]." | ";
print "Código | ";
print "Denominación | ";
print "Tipo | ";
print "
";
if ($ls_operacion=="BUSCAR")
{
$ls_codestpro1 = str_pad($ls_codestpro1,25,0,0);
$ls_codestpro2 = str_pad($ls_codestpro2,25,0,0);
$ls_codestpro3 = str_pad($ls_codestpro3,25,0,0);
$ls_codestpro4 = str_pad($ls_codestpro4,25,0,0);
if (!empty($ls_codestpro5))
{
$ls_codestpro5 = str_pad($ls_codestpro5,25,0,0);
}
$ls_estcla = $_GET["estcla"];
if ($li_estpreing==1)
{
$ls_sql= " SELECT distinct (spg_ep5.codestpro5), spg_ep5.codestpro1, spg_ep5.codestpro2, spg_ep5.codestpro3, ".
" spg_ep5.codestpro4,spg_ep5.denestpro5, spg_ep5.estcla ".
" FROM spg_ep5 LEFT OUTER JOIN spi_cuentas_estructuras ".
" ON spi_cuentas_estructuras.codemp=spg_ep5.codemp ".
" AND spi_cuentas_estructuras.codestpro1 =spg_ep5.codestpro1 ".
" AND spi_cuentas_estructuras.codestpro2 =spg_ep5.codestpro2 ".
" AND spi_cuentas_estructuras.codestpro3 =spg_ep5.codestpro3 ".
" AND spi_cuentas_estructuras.codestpro4 =spg_ep5.codestpro4 ".
" AND spi_cuentas_estructuras.codestpro5 =spg_ep5.codestpro5 ".
" AND spi_cuentas_estructuras.estcla =spg_ep5.estcla ".
" WHERE spg_ep5.codemp='".$la_empresa["codemp"]."' ".
" AND spg_ep5.codestpro1 ='".$ls_codestpro1."' ".
" AND spg_ep5.codestpro2 ='".$ls_codestpro2."' ".
" AND spg_ep5.codestpro3 ='".$ls_codestpro3."' ".
" AND spg_ep5.codestpro4 ='".$ls_codestpro4."' ".
" AND spg_ep5.codestpro5 like '%".$ls_codestpro5."%' ".
" AND spg_ep5.denestpro5 like '%".$ls_denestpro5."%' ".
" AND spg_ep5.estcla = '".$ls_estcla."' ".
" ORDER BY spg_ep5.codestpro1,spg_ep5.codestpro2,spg_ep5.codestpro3,spg_ep5.codestpro4";
}
else
{
$ls_sql= " SELECT distinct (spg_ep5.codestpro5), spg_ep5.codestpro1, spg_ep5.codestpro2, spg_ep5.codestpro3, ".
" spg_ep5.codestpro4,spg_ep5.denestpro5, spg_ep5.estcla ".
" FROM spg_ep5, spi_cuentas_estructuras ".
" WHERE spg_ep5.codemp='".$la_empresa["codemp"]."' ".
" AND spg_ep5.codestpro1 ='".$ls_codestpro1."' ".
" AND spg_ep5.codestpro2 ='".$ls_codestpro2."' ".
" AND spg_ep5.codestpro3 ='".$ls_codestpro3."' ".
" AND spg_ep5.codestpro4 ='".$ls_codestpro4."' ".
" AND spg_ep5.codestpro5 like '%".$ls_codestpro5."%' ".
" AND spg_ep5.denestpro5 like '%".$ls_denestpro5."%' ".
" AND spg_ep5.estcla = '".$ls_estcla."' ".
" AND spi_cuentas_estructuras.codemp=spg_ep5.codemp ".
" AND spi_cuentas_estructuras.codestpro1 =spg_ep5.codestpro1 ".
" AND spi_cuentas_estructuras.codestpro2 =spg_ep5.codestpro2 ".
" AND spi_cuentas_estructuras.codestpro3 =spg_ep5.codestpro3 ".
" AND spi_cuentas_estructuras.codestpro4 =spg_ep5.codestpro4 ".
" AND spi_cuentas_estructuras.codestpro5 =spg_ep5.codestpro5 ".
" AND spi_cuentas_estructuras.estcla =spg_ep5.estcla ".
" ORDER BY spg_ep5.codestpro1,spg_ep5.codestpro2,spg_ep5.codestpro3,spg_ep5.codestpro4";
}
$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_codestpro4 = trim(substr($row["codestpro4"],-$li_loncodestpro4));
$ls_codestpro5 = trim(substr($row["codestpro5"],-$li_loncodestpro5));
$ls_denestpro5 = $row["denestpro5"];
$ls_estcla = $row["estcla"];
if ($ls_estcla=='P')
{
$ls_denestcla='Proyecto';
}
elseif($ls_estcla=='A')
{
$ls_denestcla='Acción';
}
if ($ls_tipo=="")
{
print "| ".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
if ($ls_tipo=="apertura")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
if ($ls_tipo=="progrep")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
if ($ls_tipo=="reporte")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
if ($ls_tipo=="reporteacumdes_ma")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
if ($ls_tipo=="rephas")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
if ($ls_tipo=="reporteacumhas")
{
print "".$ls_codestpro1." | ";
print "".$ls_codestpro2." | ";
print "".$ls_codestpro3." | ";
print "".$ls_codestpro4." | ";
print "".$ls_codestpro5." | ";
}
print "".$ls_denestpro5." | ";
print "".$ls_denestcla." | ";
print "
";
}
}
else
{
$io_msg->message("No se han definido registros !!!");
}
}
}
print "";
?>