Buchungs modal um actions erweitert

R/_funktionen/f_leer_from_tabelle.R

@@ -0,0 +1,15 @@
+##
+## Datum: 2024-10-17_14-29 
+## Name: Christian Oswald
+## Projekt:  etatverwaltung
+## Datei:  f_leer_df_from_table.R
+## Kommentar: Erstellt einen leeren DS einer Tabelle
+##
+
+leer_df_from_table <- function(conn, tabelle){
+  felder <- dbListFields(conn, tabelle)
+  record <- data.frame(matrix(ncol = length(felder), nrow = 0)) 
+  colnames(record) <- felder
+  return(record)
+}
+

R/_funktionen/f_max_id.R

@@ -0,0 +1,17 @@
+##
+## Datum    : 2026-03-09_15-47 
+## Name     : Christian Oswald
+## Datei    : f_max_id.R
+## Projekt  : gemfin-shiny
+## Kommentar: Ermittelt den maximalen id einer tabelle
+##
+
+## * Initialisierung ----
+
+max_id <- function(conn, tablle){
+  paste0("SELECT max(id) FROM ", tabelle) %>%
+    dbxSelect(conn,.) %>% 
+    pull
+}
+
+