";
print "
";
print "| ".$arr["nomestpro1"]." | ";
print "".$arr["nomestpro2"]." | ";
print "Código | ";
print "Denominación | ";
print "
";
if ($ls_operacion=="BUSCAR")
{
if (!empty($ls_codestpro1) && !empty($ls_codestpro2))
{
$ls_codestpro1 = $io_funcion->uf_cerosizquierda($ls_codestpro1,25);
$ls_codestpro2 = $io_funcion->uf_cerosizquierda($ls_codestpro2,25);
}
$ls_sql="SELECT substr(codestpro1,".$li_longestpro1.",25) as codestpro1 ,substr(codestpro2,".$li_longestpro2.",25) as codestpro2 ,
substr(codestpro3,".$li_longestpro3.",25) as codestpro3,denestpro3,estcla,sigesp_fuentefinanciamiento.codfuefin,
sigesp_fuentefinanciamiento.denfuefin
FROM spg_ep3,sigesp_fuentefinanciamiento
WHERE spg_ep3.codfuefin=sigesp_fuentefinanciamiento.codfuefin ".
"AND spg_ep3.codemp='".$ls_codemp."' AND estcla='".$ls_estcla."' AND codestpro1 ='".$ls_codestpro1."' AND ".
" codestpro2 ='".$ls_codestpro2."' AND codestpro3 like '%".$ls_codestpro3."%' AND ".
" denestpro3 like '%".$ls_denestpro3."%' ".
" ORDER BY codestpro3 ";
$rs_data = $io_sql->select($ls_sql);
$data = $rs_data;
if ($row=$io_sql->fetch_row($rs_data))
{
$data = $io_sql->obtener_datos($rs_data);
$arrcols = array_keys($data);
$totcol = count($arrcols);
$ds->data = $data;
$totrow = $ds->getRowCount("codestpro3");
for ($z=1;$z<=$totrow;$z++)
{
print "
";
$ls_codestpro1 = $data["codestpro1"][$z];
$ls_codestpro2 = $data["codestpro2"][$z];
$ls_codestpro3 = $data["codestpro3"][$z];
$ls_denestpro3 = $data["denestpro3"][$z];
$ls_estcla =$data["estcla"][$z];
print "| ".trim($ls_codestpro1)." | ";
print "".trim($ls_codestpro2)." | ";
print "".trim($ls_codestpro3)." | ";
print "".trim($ls_denestpro3)." | ";
print "
";
}
}
else
{
$io_msg->message("No se han definido ".$arr["nomestpro3"]);
}
}
print "";
?>