Gegenbuchungen unter Haupttabelle, speichern angefangen.

R/postings/buchungen_mod.R

@@ -6,7 +6,13 @@ buchungenUI <- function(id) {
     useShinyjs(), 
     h3("Hauptbuchungen"),
     fluidRow(
-      column(8, reactableOutput(ns("buchungen_table"))),
+      column(8, reactableOutput(ns("buchungen_table")),
+        hr(),
+        h3("Details / Gegenbuchungen"),
+        uiOutput(ns("details_table")) ,
+        
+        
+        ),
       
       column(4, 
         selectizeInput(ns("contact"), label = "Kontakt", choices = get_contact_choices(conn), 
@@ -35,9 +41,7 @@ buchungenUI <- function(id) {
       )
     ),
     
-    hr(),
+
-    h3("Details / Gegenbuchungen"),
-    uiOutput(ns("details_table")) ,