45 lines
1.9 KiB
R
45 lines
1.9 KiB
R
##
|
|
## 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)
|
|
}
|
|
|
|
}
|