##
## 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)
  }
  
}