Gegenbuchungen unter Haupttabelle, speichern angefangen.

R/postings/buchungen_mod.R

@@ -123,7 +123,6 @@ buchungenServer <- function(id, conn, r_global) {
     observeEvent(input$save_trans, {
       req(sel_details())
       n_rows <- nrow(sel_details())
-      
             # Alle Zeilen in einer Liste sammeln
       all_records <- lapply(1:n_rows, function(ind) {
         data.frame(
@@ -135,10 +134,19 @@ buchungenServer <- function(id, conn, r_global) {
           stringsAsFactors = FALSE
         )
       })
-      
             # Zu einem großen Dataframe zusammenfügen
       final_df <- do.call(rbind, all_records)
-      browser()
+
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       
       # Datenbank-Update-Logik
       tryCatch({