diff --git a/R/_funktionen/f_inputs.R b/R/_funktionen/f_inputs.R new file mode 100644 index 0000000..657bf4d --- /dev/null +++ b/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;" + ) +} diff --git a/R/postings/buchungen_mod.R b/R/postings/buchungen_mod.R index 991402c..b21fca1 100755 --- a/R/postings/buchungen_mod.R +++ b/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 <- diff --git a/www/main.css b/www/main.css index d9a631d..e1dcd41 100755 --- a/www/main.css +++ b/www/main.css @@ -38,5 +38,3 @@ margin-bottom: 2px !important; } - -