Adress-Modul erstellt

R/contacts/contacts.R

@@ -1,3 +1,22 @@
+##
+## Datum    : 2026-04-28_13-11 
+## Name     : Christian Oswald
+## Datei    : contacts.R
+## Projekt  : gemfin-shiny
+## Kommentar: model für contacts
+##
+
+
+f_contacts_tabelle <- function(conn){
+    tbl(conn, "contacts") %>%
+    select(id, display_name, street, city, member) %>%
+    arrange(display_name) %>%
+    collect
+ }
+
+f_contact <- function(conn, idwert){
+  dbxSelect(conn, paste0("SELECT * FROM contacts WHERE id=", idwert))
+}
 
 get_contact_choices <- function(conn) {
   contacts <- tbl(conn, "contacts") |>