# server.R
server <- function(input, output, session) {
  
  # ── Globaler Navigations-Bus ───────────────────────────────────────────────
  r_global <- reactiveValues(
    active_tab         = NULL,
    nav_history        = list(),
    buchungen_filter   = "alle",
    umsatz_zeige_alle  = FALSE,
    umsatz_refresh     = 0,
    jump_to_entry_id   = NULL,
    jump_to_account_id = NULL,
    jump_to_contact_id = NULL,
    jump_to_project_id = NULL
  )
  
  # ── Tab-Wechsel ────────────────────────────────────────────────────────────
  observeEvent(r_global$active_tab, ignoreInit = TRUE, {
    req(r_global$active_tab)
    updateTabItems(session, "tabs", selected = r_global$active_tab)
    r_global$active_tab <- NULL
  })
  
  # ── Back-Button ────────────────────────────────────────────────────────────
  observeEvent(input$back_btn, {
    req(length(r_global$nav_history) > 0)
    last             <- tail(r_global$nav_history, 1)[[1]]
    r_global$nav_history <- head(r_global$nav_history, -1)
    updateTabItems(session, "tabs", selected = last$tab)
  })
  
  # ── Filter Buchungen ───────────────────────────────────────────────────────
  observeEvent(input$filter_alle,  { r_global$buchungen_filter <- "alle"  })
  observeEvent(input$filter_giro,  { r_global$buchungen_filter <- "giro"  })
  observeEvent(input$filter_monat, { r_global$buchungen_filter <- "monat" })
  
  # ── Filter Umsätze ─────────────────────────────────────────────────────────
  observeEvent(input$umsatz_filter_ungebucht, { r_global$umsatz_zeige_alle <- FALSE })
  observeEvent(input$umsatz_filter_alle,      { r_global$umsatz_zeige_alle <- TRUE  })
  
  # ── Sync Hibiscus ──────────────────────────────────────────────────────────
  observeEvent(input$umsatz_sync, {
    showNotification("Sync läuft...", type = "message", duration = 3)
    tryCatch({
      source("sync_hibiscus.R", local = TRUE)
      r_global$umsatz_refresh <- isolate(r_global$umsatz_refresh) + 1
      showNotification("✓ Sync abgeschlossen", type = "message")
    }, error = function(e) {
      showNotification(paste("Fehler:", e$message), type = "error")
    })
  })
  
  # ── Module ─────────────────────────────────────────────────────────────────
  accountsServer("accounts_tab", conn, r_global)
  buchungenServer("buchungen_tab", conn, r_global)
  umsatzServer("umsatz_tab", conn, r_global)
}