Saldo Berechnung angegfangen

R/postings/buchungen_mod.R

@@ -7,6 +7,11 @@ buchungenUI <- function(id) {
     h3("Hauptbuchungen"),
     fluidRow(
       column(8, reactableOutput(ns("buchungen_table")),
+        num_inp(ns("saldo"), 0, ro = T),
+        div(
+          style = "display: flex; justify-content: flex-end; margin-top: 5px;",
+
+        ),
         hr(),
         h3("Details / Gegenbuchungen"),
         uiOutput(ns("details_table")) ,
@@ -158,7 +163,7 @@ buchungenServer <- function(id, conn, r_global) {
     })
     
     
-    # ── Anhänge ----
+    ## ** Anhänge ----
     output$attachments_ui <- renderUI({
       req(sel_details())
       entry_id <-