";
print "
";
print "| Presupuestaria | ";
print "".$arr["nomestpro1"]." | ";
print "".$arr["nomestpro2"]." | ";
print "".$arr["nomestpro3"]." | ";
if($as_estmodest==2)
{
print "".$arr["nomestpro4"]." | ";
print "".$arr["nomestpro5"]." | ";
}
print "Denominación | ";
print "Contable | ";
print "Disponible | ";
print "
";
$ls_sql_aux="";
if($ls_operacion=="BUSCAR")
{
if($as_estmodest==2)
{
$ls_sql_aux=" AND codestpro4='".$ls_estpro4."' ";
$ls_sql_aux=$ls_sql_aux." AND codestpro5='".$ls_estpro5."' ";
}
$ls_sql = "SELECT spg_cuenta,denominacion,codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,".
" sc_cuenta,status,disponible, ".
" (asignado-(comprometido+precomprometido)+aumento-disminucion) as disponible ".
" FROM spg_cuentas ".
" WHERE codemp = '".$as_codemp."' AND spg_cuenta like '".$ls_codigo."%' ".
" AND denominacion like '%".$ls_denominacion."%' AND sc_cuenta like '".$ls_codscg."%'".
" AND codestpro1='".$fun->uf_cerosizquierda($ls_estpro1,20)."' ".
" AND codestpro2='".$fun->uf_cerosizquierda($ls_estpro2,6)."' ".
" AND codestpro3='".$fun->uf_cerosizquierda($ls_estpro3,3)."' ".$ls_sql_aux."
ORDER BY spg_cuenta";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data==false)
{
$msg->message($fun->uf_convertirmsg($io_sql->message));
}
else
{
$li_numrows = $io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
while ($row=$io_sql->fetch_row($rs_data))
{
$cuenta = $row["spg_cuenta"];
$denominacion = $row["denominacion"];
$codest1 = $row["codestpro1"];
$codest2 = $row["codestpro2"];
$codest3 = $row["codestpro3"];
$codest4 = $row["codestpro4"];
$codest5 = $row["codestpro5"];
$scgcuenta = $row["sc_cuenta"];
$status = $row["status"];
$disponible = $row["disponible"];
if ($status=="S")
{
print "
";
print "| ".$cuenta." | ";
print "".$codest1." | ";
print "".$codest2." | ";
print "".$codest3." | ";
if ($as_estmodest==2)
{
print "".substr($codest1,-2)." | ";
print "".substr($codest2,-2)." | ";
print "".substr($codest3,-2)." | ";
print "".$codest4." | ";
print "".$codest5." | ";
}
else
{
print "".$codest1." | ";
print "".$codest2." | ";
print "".$codest3." | ";
}
print "".$denominacion." | ";
print "".$scgcuenta." | ";
print "".number_format($disponible,2,",",".")." | ";
}
else
{
print "
";
print "| ".$cuenta." | ";
print "".$codest1." | ";
print "".$codest2." | ";
print "".$codest3." | ";
if ($as_estmodest==2)
{
print "".substr($codest1,-2)." | ";
print "".substr($codest2,-2)." | ";
print "".substr($codest3,-2)." | ";
print "".$codest4." | ";
print "".$codest5." | ";
}
else
{
print "".$codest1." | ";
print "".$codest2." | ";
print "".$codest3." | ";
}
print "".$denominacion." | ";
print "".$scgcuenta." | ";
print "".number_format($disponible,2,",",".")." | ";
}
print "
";
}
$io_sql->free_result($rs_cta);
$io_sql->close();
}
else
{
$msg->message("No se han creado Cuentas de gasto para la programatica seleccionada");
}
}
}
print "";
?>