0.17.0

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 таблиц;

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',

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
-    
+    main_register: АВЗ и АМИЛОИОДОЗЫ