";
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")
{
if (!empty($ls_codestpro5))
{
$ls_codestpro5 = str_pad($ls_codestpro5,25,0,0);
}
$ls_sql = " SELECT a.codestpro1 as codestpro1,a.denestpro1 as denestpro1,b.codestpro2 as codestpro2, ".
" b.denestpro2 as denestpro2,c.codestpro3 as codestpro3,c.denestpro3 as denestpro3, ".
" d.codestpro4 as codestpro4,d.denestpro4 as denestpro4,e.codestpro5 as codestpro5, ".
" e.denestpro5 as denestpro5, e.estcla ".
" FROM spg_ep1 a,spg_ep2 b,spg_ep3 c,spg_ep4 d,spg_ep5 e ".
" WHERE e.codemp='".$la_empresa["codemp"]."'
AND e.codestpro5 like '%".$ls_codestpro5."%'
AND e.denestpro5 like '%".$ls_denestpro5."%'
AND a.codemp=b.codemp
AND b.codemp=c.codemp
AND c.codemp=d.codemp
AND d.codemp=e.codemp
AND a.codestpro1=b.codestpro1
AND a.codestpro1=c.codestpro1
AND a.codestpro1=d.codestpro1
AND a.codestpro1=e.codestpro1
AND b.codestpro2=c.codestpro2
AND b.codestpro2=d.codestpro2
AND b.codestpro2=d.codestpro2
AND b.codestpro2=e.codestpro2
AND c.codestpro3=d.codestpro3
AND c.codestpro3=e.codestpro3
AND d.codestpro4=e.codestpro4
AND a.estcla=b.estcla
AND c.estcla=a.estcla
AND d.estcla=a.estcla
AND e.estcla=a.estcla";
$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_denestpro1 = $row["denestpro1"];
$ls_denestpro2 = $row["denestpro2"];
$ls_denestpro3 = $row["denestpro3"];
$ls_denestpro4 = $row["denestpro4"];
$ls_denestpro5 = $row["denestpro5"];
$ls_estcla = $row["estcla"];
if ($ls_estcla=='P')
{
$ls_denestcla='Actividad';
}
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=="rephas")
{
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 "";
?>