";
echo "| ".$la_empresa["nomestpro1"]." | ";
echo "".$la_empresa["nomestpro2"]." | ";
echo "".$la_empresa["nomestpro3"]." | ";
echo "".$la_empresa["nomestpro4"]." | ";
echo "Código | ";
echo "Denominación | ";
echo "
";
$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);
$ls_codestpro5 = str_pad($ls_codestpro5,25,0,0);
if (array_key_exists('session_activa',$_SESSION))
{
$ls_sql=" SELECT SUBSTR(codestpro1,".$li_longestpro1.",25) as codestpro1,".
" SUBSTR(codestpro2,".$li_longestpro2.",25) as codestpro2,".
" SUBSTR(codestpro3,".$li_longestpro3.",25) as codestpro3,".
" SUBSTR(codestpro4,".$li_longestpro4.",25) as codestpro4,".
" SUBSTR(codestpro5,".$li_longestpro5.",25) as codestpro5,".
" ep5.denestpro5,ep5.estcla,'' as codfuefin, '' as denfuefin".
" FROM spg_ep5 as ep5".
" WHERE ep5.codemp='".$ls_codemp."' AND ep5.codestpro1 like '%".$ls_codestpro1."%' AND estcla='".$ls_estcla5."' ".
" AND ep5.codestpro2 like '%".$ls_codestpro2."%' AND ep5.codestpro3 like '%".$ls_codestpro3."%' ".
" AND ep5.codestpro4 like '%".$ls_codestpro4."%' ".
" AND ep5.denestpro5 like '%".$ls_denestpro5."%'";
}
else
{
$ls_sql=" SELECT SUBSTR(codestpro1,".$li_longestpro1.",25) as codestpro1,".
" SUBSTR(codestpro2,".$li_longestpro2.",25) as codestpro2,".
" SUBSTR(codestpro3,".$li_longestpro3.",25) as codestpro3,".
" SUBSTR(codestpro4,".$li_longestpro4.",25) as codestpro4,".
" SUBSTR(codestpro5,".$li_longestpro5.",25) as codestpro5,".
" ep5.denestpro5,ep5.estcla,ff.codfuefin,ff.denfuefin".
" FROM spg_ep5 as ep5, sigesp_fuentefinanciamiento as ff ".
" WHERE ep5.codfuefin= ff.codfuefin".
" AND ep5.codemp='".$ls_codemp."' AND ep5.codestpro1 like '%".$ls_codestpro1."%' AND estcla='".$ls_estcla5."' ".
" AND ep5.codestpro2 like '%".$ls_codestpro2."%' AND ep5.codestpro3 like '%".$ls_codestpro3."%' ".
" AND ep5.codestpro4 like '%".$ls_codestpro4."%' ".
" AND ep5.denestpro5 like '%".$ls_denestpro5."%'";
}
$rs_data = $io_sql->select($ls_sql);
$data = $rs_data;
if($io_sql->num_rows($rs_data)==0)
{
$io_msg->message("No se han definido ".$_SESSION["la_empresa"]["nomestpro3"]);
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
print "