Saldo Berechnung angegfangen

R/_funktionen/f_inputs.R

@@ -0,0 +1,13 @@
+num_inp <- function(id, betrag, ro = FALSE){
+  autonumericInput(
+    inputId = id,
+    label = NULL,
+    width = "100%",
+    value = betrag,
+    currencySymbol = "",
+    currencySymbolPlacement = "s",
+    align = "right",
+    readOnly = ro,
+    style = "height: 15px !important;    padding: 1px 1px;"
+  )
+}

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 <-