Unnötig

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

@@ -15,6 +15,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(),
         ## ** Gegenbuchungen ----
         h3("Details / Gegenbuchungen"),

www/main.css

@@ -0,0 +1,40 @@
+
+      /* Verringert den Abstand in der Filter-Zelle */
+      .rt-filter-group {
+        padding: 2px 4px !important; 
+      }
+      
+      /* Macht die Eingabefelder selbst flacher */
+      .rt-filter-input {
+        height: 28px !important;
+        font-size: 14px !important;
+      }
+/* 1. Den Abstand des Containers verringern */
+.details-row .form-group {
+  margin-bottom: 2px !important;
+}
+
+/* 2. Die Geister-Labels (shiny-label-null) komplett ausblenden */
+.details-row .shiny-label-null {
+  display: none !important;
+}
+
+/* 3. Den Abstand der Zeile selbst minimieren */
+.details-row {
+  margin-top: 0px !important;
+  margin-bottom: 0px !important;
+}
+
+/* 4. Speziell für die Selectize-Felder (die sind oft höher) */
+.details-row .selectize-control {
+  margin-bottom: 0px !important;
+}
+
+
+/* Positioniert das Dropdown-Menü über dem Eingabefeld statt darunter */
+.details-row .selectize-dropdown {
+  top: auto !important;
+  bottom: 100% !important;
+  margin-bottom: 2px !important;
+}
+