$lb_existe = $io_estpro4->uf_spg_select_estprog4($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_codestp4, $ls_clasificacion); if (!$lb_existe) { $lb_valido = $io_estpro4->uf_spg_insert_estprog4($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_codestp4, $ls_denestpro4, $li_estmodest, $ls_clasificacion, $la_seguridad); if ($lb_valido) { $io_sql->commit(); $io_msg->message("Registro Incluido !!!"); $ls_codestpro4 = ""; $ls_denestpro4 = ""; $ls_status = "NUEVO"; $readonly = ""; } else { $io_sql->rollback(); $io_msg->message($io_estpro4->is_msg_error); } } else { $lb_valido = $io_estpro4->uf_spg_update_estprog4($ls_codemp, $ls_codestp1, $ls_codestp2, $ls_codestp3, $ls_codestp4, $ls_denestpro4, $ls_clasificacion, $la_seguridad); if ($lb_valido) { $io_sql->commit(); $io_msg->message("Registro Actualizado !!!"); $ls_codestpro4 = ""; $ls_denestpro4 = ""; $ls_status = "NUEVO"; $readonly = ""; } else { $io_sql->rollback(); $io_msg->message($io_estpro4->is_msg_error); } } } else { $io_msg->message("Debe registrar la Estructura de Nivel 3 previamente !!!"); }