////////////////////////// GRID DETALLE PRESUPUESTARIO //////////////////////////////////////
$lb_valido = $io_report->uf_select_detalle_spg($ls_numsol);
// Cargar el DS con los datos del reporte
if ($lb_valido) {
$io_report->ds_detalle_spg->group_by(array('0' => 'codestpro', '1' => 'estcla', '2' => 'spg_cuenta'), array('0' => 'monto'), array('0' => 'codestpro', '1' => 'estcla', '2' => 'spg_cuenta'));
$li_totrowspg = $io_report->ds_detalle_spg->getRowCount("codestpro");
$la_data = "";
$li_totpre = 0;
for ($li_s = 1; $li_s <= $li_totrowspg; $li_s++) {
$ls_codestpro = $io_report->ds_detalle_spg->data["codestpro"][$li_s];
$ls_spgcuenta = $io_report->ds_detalle_spg->data["spg_cuenta"][$li_s];
$ls_denominacion = $io_report->ds_detalle_spg->data["denominacion"][$li_s];
$li_monto = $io_report->ds_detalle_spg->data["monto"][$li_s];
$li_totpre = $li_totpre + $li_monto;
$li_monto = number_format($li_monto, 2, ",", ".");
$io_fun_cxp->uf_loadmodalidad(&$li_len1, &$li_len2, &$li_len3, &$li_len4, &$li_len5, &$ls_titulo);
$ls_codestpro1 = substr($ls_codestpro, 0, 25);
$ls_codestpro2 = substr($ls_codestpro, 25, 25);
$ls_codestpro3 = substr($ls_codestpro, 50, 25);
$ls_codestpro4 = substr($ls_codestpro, 75, 25);
$ls_codestpro5 = substr($ls_codestpro, 100, 25);
$ls_codestpro1 = substr($ls_codestpro1, 25 - $li_len1, $li_len1);
$ls_codestpro2 = substr($ls_codestpro2, 25 - $li_len2, $li_len2);
$ls_codestpro3 = substr($ls_codestpro3, 25 - $li_len3, $li_len3);
$ls_codestpro4 = substr($ls_codestpro4, 25 - $li_len4, $li_len4);
$ls_codestpro5 = substr($ls_codestpro5, 25 - $li_len5, $li_len5);
if ($ls_estmodest == 1) {
$la_data[$li_s] = array('codestpro' => $ls_codestpro1 . " - " . $ls_codestpro2 . " - " . $ls_codestpro3, 'spg_cuenta' => $ls_spgcuenta, 'denominacion' => $ls_denominacion, 'monto' => $li_monto);
} else {
$ls_titcuentas = "Estructura Programatica";
$la_data[$li_s] = array('codestpro' => $ls_codestpro1 . " - " . $ls_codestpro2 . " - " . $ls_codestpro3 . " - " . $ls_codestpro4 . " - " . $ls_codestpro5, 'spg_cuenta' => $ls_spgcuenta, 'denominacion' => $ls_denominacion, 'monto' => $li_monto);
