Adress-Modul erstellt

R/postings/buchungen.R

@@ -22,7 +22,7 @@ read_buch_tabelle <- function(conn, trans_id = NULL){
     left_join(accounts,          by = c("account_id" = "id")) |>
     left_join(projects,          by = c("project_id" = "id")) |>
     left_join(attachment_counts, by = "entry_id") |>
-    select(id, valuta, account_name, projektname, display_name, amount, entry_id, n_attachments, account_id) |>
+    select(id, valuta, account_name, projektname, display_name, amount, entry_id, n_attachments, account_id, contact_id) |>
     collect() %>%
     mutate(
       saldo         = 0,

R/postings/buchungen_mod.R

@@ -123,13 +123,13 @@ buchungenServer <- function(id, conn, r_global) {
       )
     })
     
-    # ── Detail hinzufügen ──────────────────────────────────────────────────────
+    # ── Detail hinzufügen ----
     observeEvent(input$add_detail, {
       req(selected_trans_id())
       modal_trigger(list(post_id = NULL, counter = modal_trigger()$counter + 1))
     })
     
-    # ── Detail editieren ───────────────────────────────────────────────────────
+    # ── Detail editieren ----
     sel_detail <- reactive(getReactableState("details_table", "selected"))
     
     observeEvent(sel_detail(), ignoreInit = TRUE, {
@@ -137,7 +137,7 @@ buchungenServer <- function(id, conn, r_global) {
       modal_trigger(list(post_id = p_id, counter = modal_trigger()$counter + 1))
     })
     
-    # ── DB-Update durch Modal ──────────────────────────────────────────────────
+    # ── DB-Update durch Modal ----
     observeEvent(update_db_trigger(), ignoreInit = TRUE, {
       req(selected_trans_id())
       details_data(read_buch_tabelle(conn, trans_id = selected_trans_id()))
@@ -145,7 +145,7 @@ buchungenServer <- function(id, conn, r_global) {
       updateReactable("buchungen_table", data = gefilterte_daten())
     })
     
-    # ── Neue Transaktion ───────────────────────────────────────────────────────
+    # ── Neue Transaktion ----
     observeEvent(input$add_trans, {
       new_t_id <- max_id(conn, "entries") + 1
       dbxInsert(conn, "entries", data.frame(id = new_t_id))
@@ -172,7 +172,7 @@ buchungenServer <- function(id, conn, r_global) {
       scroll_to_row(ns("buchungen_table"), neue_zeile)
     })
     
-    # ── Transaktion löschen ────────────────────────────────────────────────────
+    # ── Transaktion löschen ----
     observeEvent(input$del_trans, ignoreInit = TRUE, {
       req(selected_trans_id())
       dbxDelete(conn, "postings", where = data.frame(entry_id = selected_trans_id()))
@@ -184,7 +184,7 @@ buchungenServer <- function(id, conn, r_global) {
       updateReactable("buchungen_table", data = gefilterte_daten())
     })
     
-    # ── Anhänge ────────────────────────────────────────────────────────────────
+    # ── Anhänge ----
     output$attachments_ui <- renderUI({
       req(selected_trans_id())
       att <- dbxSelect(conn, paste0(