Adress-Modul erstellt

2026-04-28 14:39:37 +02:00
parent f16386810f
commit 089a930488
10 changed files with 287 additions and 8 deletions
@@ -0,0 +1,44 @@
+##
+## Datum    : 2026-04-28_13-43 
+## Name     : Christian Oswald
+## Datei    : contact_io.R
+## Projekt  : gemfin-shiny
+## Kommentar: Befüllt die Felder und liest sie aus
+##
+
+contact_io <- function(session, input, output, record, flag){
+  if(flag == "lesen"){
+    record[1,"id"]                <- input$cid
+    record$first_name             <- input$first_name
+    record$last_name              <- input$last_name
+    record$postal_code            <- input$postal_code
+    record$city                   <- input$city
+    record$street                 <- input$street
+    record$phone                  <- input$phone
+    record$mobile                 <- input$mobile
+    record$email                  <- input$email
+    record$member                 <- input$member
+    record$display_name           <- input$display_name
+    record$is_company             <- input$is_company
+    record$notes                  <- input$note
+    record$created_at             <- f_zeitstempel( record$created_at)
+    record$updated_at             <- format(Sys.time(), tz="")
+    return(record)
+  }
+  if(flag == "schreiben"){
+    updateNumericInput(session,"cid", value = record$id)
+    updateTextInput(session,"display_name", value = record$display_name)
+    updateTextInput(session,"first_name", value = record$first_name)
+    updateTextInput(session,"last_name", value = record$last_name)
+    updateTextInput(session,"postal_code", value = record$postal_code)
+    updateTextInput(session,"city", value = record$city)
+    updateTextInput(session,"email", value = record$email)
+    updateTextInput(session,"street", value = record$street)
+    updateTextInput(session,"mobile", value = record$mobile)
+    updateTextInput(session,"phone", value = record$phone)
+    updateTextAreaInput(session,"note", value = record$notes)
+    updateCheckboxInput(session, "is_company", value = record$is_company)
+    updateCheckboxInput(session, "member", value = record$member)
+  }
+  
+}