$ls_estactpre = "1";
             $lb_valido = $io_saf->uf_saf_update_saf_dta($ls_codemp, $ls_codact, $ls_coduniadmcede, $ls_idact, $ls_estactpre, $ld_fecenacta, $ls_coduniadmrece, $la_seguridad);
         }
         if ($lb_valido) {
             $io_msg->message("El registro fue actualizado con exito");
             uf_limpiarvariables();
         } else {
             $io_msg->message("El registro no pudo ser actualizado");
             uf_limpiarvariables();
         }
     }
     // fin del if $ls_estpres
 } else {
     $ld_fecenacta = $io_fun->uf_convertirdatetobd($ld_fecenacta);
     $io_sql->begin_transaction();
     $lb_valido = $io_saf->uf_saf_insertar_prestamo($ls_codemp, $ls_cmpres, $ld_fecenacta, $ls_coduniadmcede, $ls_coduniadmrece, $ls_codreserec, $ls_codreserec, $ls_codper, $ls_estpres, $la_seguridad);
     if ($lb_valido) {
         $io_sql->commit();
         for ($li_i = 1; $li_i < $li_totrows; $li_i++) {
             $ls_codact = $_POST["txtcodact" . $li_i];
             $ls_denact = $_POST["txtdenact" . $li_i];
             $ls_idact = $_POST["txtidact" . $li_i];
             //$ls_desmov= $_POST["txtdesmov".$li_i];
             $li_monact = $_POST["txtmonact" . $li_i];
             $li_monact = str_replace(".", "", $li_monact);
             $li_monact = str_replace(",", ".", $li_monact);
             $ld_fecenacta = $io_fun->uf_convertirdatetobd($ld_fecenacta);
             $lb_valido = $io_saf->uf_saf_insert_dt_prestamo($ls_codemp, $ls_cmpres, $ld_fecenacta, $ls_coduniadmcede, $ls_coduniadmrece, $ls_codact, $ls_idact, $la_seguridad);
             if ($lb_valido) {
                 $ls_estactpre = "1";
                 $lb_valido = $io_saf->uf_saf_update_saf_dta($ls_codemp, $ls_codact, $ls_coduniadmcede, $ls_idact, $ls_estactpre, $ld_fecenacta, $ls_coduniadmrece, $la_seguridad);