";
print "";
print "| Fuente de Financiamiento | ";
print "".$la_empresa["nomestpro1"]." | ";
print "".$la_empresa["nomestpro2"]." | ";
print "".$la_empresa["nomestpro3"]." | ";
if ($li_estmodest==2)
{
print "".$la_empresa["nomestpro4"]." | ";
print "".$la_empresa["nomestpro5"]." | ";
}
print "Tipo | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_codestpro1=$_POST["txtcodestpro1"];
$ls_codestpro2=$_POST["txtcodestpro2"];
$ls_codestpro3=$_POST["txtcodestpro3"];
$ls_codestpro4=$_POST["txtcodestpro4"];
$ls_codestpro5=$_POST["txtcodestpro5"];
$ls_estcla=$_POST["hidestcla"];
$ls_sql=" SELECT * ".
" FROM spg_dt_fuentefinanciamiento ".
" WHERE codfuefin LIKE '".$ls_codfuefin."'".
" AND codestpro1 = '".$ls_codestpro1."' ".
" AND codestpro2 = '".$ls_codestpro2."' ".
" AND codestpro3 = '".$ls_codestpro3."' ".
" AND codestpro4 = '".$ls_codestpro4."' ".
" AND codestpro5 = '".$ls_codestpro5."' ".
" AND estcla = '".$ls_estcla."' ".
" ORDER BY codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,estcla,codfuefin ";
$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_codfuefin = $row["codfuefin"];
$ls_codestpro1 = $row["codestpro1"];
$ls_codestpro2 = $row["codestpro2"];
$ls_codestpro3 = $row["codestpro3"];
$ls_codestpro4 = $row["codestpro4"];
$ls_codestpro5 = $row["codestpro5"];
$ls_estcla = $row["estcla"];
if ($ls_estcla=='P')
{
$ls_denestcla='Proyecto';
}
elseif($ls_estcla=='A')
{
$ls_denestcla='Acción';
}
if ($li_estmodest==2)
{
$ls_denestcla = $_SESSION["la_empresa"]["nomestpro1"];
}
print "| ".$ls_codfuefin." | ";
print "".trim(substr($ls_codestpro1,-$li_loncodestpro1))." | ";
print "".trim(substr($ls_codestpro2,-$li_loncodestpro2))." | ";
print "".trim(substr($ls_codestpro3,-$li_loncodestpro3))." | ";
if ($li_estmodest==2)
{
print "".trim(substr($ls_codestpro4,-$li_loncodestpro4))." | ";
print "".trim(substr($ls_codestpro5,-$li_loncodestpro5))." | ";
}
print "".$ls_denestcla." | ";
print "
";
}
}
else
{
$io_msg->message("No se encontraron registros !!!");
}
}
}
print "
";
?>