$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, ",", ".");