diff --git a/CHANGELOG.md b/CHANGELOG.md index 34024d5..88165ca 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,3 +1,11 @@ +### 0.17.0 (2026-04-24) +##### features +- модуль с задачами: для каждой записи в базе можно создать задачи, на главном экране отображается общее количество активных задач, по сроку выполнения на сегодня и просроченные задачи; +- проверка на наличие орфанных записей в базе (сверка существующих ключей из главной таблицы `main` с каждой вложенной таблицей) + +##### changes +- определение активных схем - теперь в файле `config.yml` + ### 0.16.0 (2026-04-21) ##### features - возможность импорта данных в базу данных из ранее экспортированных .xlsx таблиц; diff --git a/app/tasks.R b/app/tasks.R index 4493808..c6749e9 100644 --- a/app/tasks.R +++ b/app/tasks.R @@ -50,7 +50,7 @@ server <- function(id, values, scheme, mhcs) { if (!is.null(values$tasks_data)) { tasks_selector <- values$tasks_data |> - dplyr::filter(task_status != "completed") |> + dplyr::filter(task_status == "active") |> dplyr::pull(task_id) tasks_selector <- unique(c(values$tasks_id, tasks_selector)) @@ -117,11 +117,15 @@ server <- function(id, values, scheme, mhcs) { on.exit(db$close_db_connection(con, "display_task_modal"), add = TRUE) values$tasks_data <- if ("tasks" %in% DBI::dbListTables(con)) { + DBI::dbGetQuery(con, glue::glue("SELECT * FROM tasks WHERE task_main_key = '{values$main_key}'")) |> dplyr::mutate(dplyr::across(c("task_datetime_created", "task_datetime_last_updated", "task_datetime_completed"), as.POSIXct)) |> dplyr::mutate(dplyr::across(c("task_due_date"), as.Date)) + } else { + NULL + } values$tasks_id <- NULL @@ -159,6 +163,11 @@ server <- function(id, values, scheme, mhcs) { con <- db$make_db_connection(scheme(),"tasks_saving_button") on.exit(db$close_db_connection(con, "tasks_saving_button"), add = TRUE) + if (!values$main_key %in% db$get_keys_from_table("main", mhcs(), con)) { + showNotification("Невозможно создать задачу для данного ID (нет в базе)", type = "error") + return() + } + id_and_types_list <- mhcs()$get_id_type_list("tasks") input_types <- unname(id_and_types_list) input_ids <- names(id_and_types_list) @@ -230,6 +239,7 @@ server <- function(id, values, scheme, mhcs) { date_cols <- c("task_datetime_created", "task_datetime_completed", "task_datetime_last_updated", "task_due_date") date_cols <- which(colnames(values$tasks_data) %in% date_cols) + output$dt_tasks <- DT::renderDataTable( DT::datatable( values$tasks_data, @@ -353,7 +363,8 @@ server <- function(id, values, scheme, mhcs) { display_tasks_dt_review <- function() { values$tasks_data <- values$tasks_data |> - dplyr::select(task_id:task_datetime_last_updated) + dplyr::select(task_id:task_datetime_last_updated) |> + dplyr::arrange(task_due_date) rename_cols <- tasks_colnames[tasks_colnames %in% colnames(values$tasks_data)] @@ -368,6 +379,7 @@ server <- function(id, values, scheme, mhcs) { colnames = rename_cols, extensions = c("FixedColumns"), # editable = 'cell', + class = 'cell-border stripe', selection = "single", options = list( dom = 'tip', diff --git a/config.yml b/config.yml index 9acd10a..719c1b4 100644 --- a/config.yml +++ b/config.yml @@ -1,5 +1,5 @@ default: - form_app_version: 0.16.0 + form_app_version: 0.17.0 form_id: new_formy form_name: NEW FORMY @@ -8,13 +8,12 @@ prod: form_auth_enabled: false form_schemes: example_of_scheme: Тестовая база данных - main_register: АВЗ и АМИЛОИОДОЗЫ devel: form_app_configure_path: _devel/new_bases form_auth_enabled: false - form_app_version: 0.16.0 dev + form_app_version: 0.17.0 dev form_schemes: antifib: антифибротическая d2tra_t: D2TRA_test - \ No newline at end of file + main_register: АВЗ и АМИЛОИОДОЗЫ \ No newline at end of file