Gegenbuchungen unter Haupttabelle, speichern angefangen.

R/postings/buchungen_mod.R

@@ -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({