$ls_codestpro2 = substr(substr($ls_codestpro, 20, 6), -2);
$ls_codestpro3 = substr(substr($ls_codestpro, 26, 3), -2);
$ls_codestpro4 = substr($ls_codestpro, 29, 2);
$ls_codestpro5 = substr($ls_codestpro, 31, 2);
$ls_codestpro = $ls_codestpro1 . "-" . $ls_codestpro2 . "-" . $ls_codestpro3 . "-" . $ls_codestpro4 . "-" . $ls_codestpro5;
break;
}
$ls_denominacionspg = $row["denominacion"];
$ldec_montocuentaspg = $row["monto"];
$ldec_montocuentaspg = number_format($ldec_montocuentaspg, 2, ",", ".");
$la_data1[$b] = array('programatica' => $ls_codestpro, 'spg_cuenta' => $ls_cuentaspg, 'denominacion' => $ls_denominacionspg, 'monto' => $ldec_montocuentaspg);
}
uf_print_detallespg($la_data1, $io_pdf);
}
$io_report->io_sql->free_result($rs_data);
$lb_valido = $io_report->uf_select_dt_scg_nota($ls_numnota, $ls_numord, $ls_numrecdoc, $ls_codtipdoc, $ls_tipproben, $ls_codproben, &$rs_data);
if ($lb_valido) {
$a = 0;
while ($row = $io_report->io_sql->fetch_row($rs_data)) {
$a++;
$ldec_montocuentascgdeb = "";
$ldec_montocuentascghab = "";
$ls_denominacionscg = "";
$ls_cuentascg = trim($row["sc_cuenta"]);
$ls_denominacionscg = $row["denominacion"];
$ls_columna = $row["debhab"];
if ($ls_columna == "D") {
$ldec_montodeb = number_format($row["monto"], 2, ",", ".");
$ldec_montohab = "";
} else {
$ldec_montohab = number_format($row["monto"], 2, ",", ".");
