<p> </p> <?php require_once("../shared/class_folder/grid_param.php"); require_once("class_folder/sigesp_scb_c_progpago_creditos.php"); $io_scb = new sigesp_scb_c_progpago_creditos("../"); $io_grid = new grid_param(); uf_limpiar_variables(); switch ($ls_operacion){ case 'CARGAR_DT': uf_load_variables(); $la_object = $io_scb->uf_load_detalles_desembolso($ls_rutfil.'/'.$ls_filnam,$li_totrows); break; case 'PROCESAR': uf_load_variables(); uf_load_grid($li_totrows,$la_object); $lb_valido = $io_scb->uf_procesar_programacion($ls_rutfil.'/'.$ls_filnam,$li_totrows,$la_seguridad); break; } ?> <form id="sigesp_scb_p_progpago_creditos.php" name="form1" method="post" action=""> <?php ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// $io_fun_scb->uf_print_permisos($ls_permisos,$la_permisos,$ls_logusr,"location.href='sigespwindow_blank.php'"); unset($io_fun_scb); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?> <table width="557" border="0" align="center" cellpadding="0" cellspacing="0" class="formato-blanco"> <tr class="titulo-ventana"> <td height="22" colspan="4" class="titulo-ventana"><input name="operacion" type="hidden" id="operacion" value="<?php echo $ls_operacion ?>" /> Créditos - Programación de Pagos
$la_objscg = $io_scb->uf_print_detalles_scg($ls_rutfil.'/'.$ls_filnam,$la_datscg,$li_totrowscg,$ls_codope,$ls_codban,$ls_ctaban,$ls_scgcta,$ld_montotspg,$ld_monret); if ($li_totrowscg<2) { uf_limpiar_variables(); uf_clear_grid(); } } else { uf_limpiar_variables(); uf_clear_grid(); } break; case 'PROCESAR': uf_load_variables($la_seguridad); uf_load_grid($li_totrows,$la_object,$li_totrowscg,$la_objscg); $la_datos["codban"] = $ls_codban; $la_datos["ctaban"] = $ls_ctaban; $la_datos["numdoc"] = $ls_numdoc; $la_datos["codope"] = $ls_codope; $la_datos["cedben"] = $ls_cedben; $la_datos["nomben"] = $ls_nomben; $la_datos["nombenalt"] = $ls_nombenalt; $la_datos["fecmov"] = $ls_fecmov; $la_datos["mondoc"] = $ld_mondoc; $la_datos["conmov"] = $ls_conmov; $la_datos["chevau"] = $ls_chevau; $la_datos["docnum"] = $ls_docnum; $la_datos["monret"] = $ld_monret; if (!$lb_existe) {