";
print "
";
print "| Presupuestaria | ";
print "".$arr["nomestpro1"]." | ";
print "".$arr["nomestpro2"]." | ";
print "".$arr["nomestpro3"]." | ";
print "Denominación | ";
print "Contable | ";
print "Disponible | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_cadena ="SELECT *,(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 like '%".$ls_estpro1."%' AND codestpro2 like '%".$ls_estpro2."%' AND codestpro3 like '%".$ls_estpro3."%' ORDER BY spg_cuenta";
$rs_cta=$SQL->select($ls_cadena);
if($rs_cta===false)
{
$io_msg->message($fun->uf_convertirmsg($SQL->message));
}
else
{
$data=$rs_cta;
if($row=$SQL->fetch_row($rs_cta))
{
$data=$SQL->obtener_datos($rs_cta);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("spg_cuenta");
for($z=1;$z<=$totrow;$z++)
{
$cuenta=$data["spg_cuenta"][$z];
$denominacion=$data["denominacion"][$z];
$codest1=$data["codestpro1"][$z];
$codest2=$data["codestpro2"][$z];
$codest3=$data["codestpro3"][$z];
$scgcuenta=$data["sc_cuenta"][$z];
$status=$data["status"][$z];
$disponible=$data["disponible"][$z];
if($status=="S")
{
print "
";
print "| ".$cuenta." | ";
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." | ";
print "".$denominacion." | ";
print "".$scgcuenta." | ";
print "".number_format($disponible,2,",",".")." | "; }
print "
";
}
$SQL->free_result($rs_cta);
$SQL->close();
}
else
{
$io_msg->message("No se han definido Cuentas de gasto para la programatica seleccionada");
}
}
}
print "";
?>