Gegenbuchungen unter Haupttabelle, speichern angefangen.

2026-04-28 17:40:05 +02:00
parent 12ef7693d5
commit 4175690455
1 changed files with 13 additions and 5 deletions
@@ -123,8 +123,7 @@ buchungenServer <- function(id, conn, r_global) {
    observeEvent(input$save_trans, {
      req(sel_details())
      n_rows <- nrow(sel_details())
-      
-      # Alle Zeilen in einer Liste sammeln
+            # Alle Zeilen in einer Liste sammeln
      all_records <- lapply(1:n_rows, function(ind) {
        data.frame(
          id         = as.integer(input[[paste0("id_", ind)]]),
@@ -135,10 +134,19 @@ buchungenServer <- function(id, conn, r_global) {
          stringsAsFactors = FALSE
        )
      })
-      
-      # Zu einem großen Dataframe zusammenfügen
+            # Zu einem großen Dataframe zusammenfügen
      final_df <- do.call(rbind, all_records)
-      browser()
+
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
      
      # Datenbank-Update-Logik
      tryCatch({