Filter hinzugefügt

db/data_transfer.R

@@ -218,6 +218,22 @@ if (ok) {
     creditorid TEXT
   );")
   
+  # Attachments ----
+  exec_sql("CREATE TABLE attachments (
+  id            INTEGER PRIMARY KEY AUTOINCREMENT,
+  entry_id      INTEGER,
+  quittung_id   INTEGER,
+  adress_id     INTEGER,
+  wiso_id       INTEGER,
+  btisch_id     TEXT,
+  original_name TEXT,
+  kategorie     TEXT,
+  path          TEXT    NOT NULL,
+  note          TEXT,
+  created_at    TEXT    DEFAULT (datetime('now')),
+  updated_at    TEXT    DEFAULT (datetime('now'))
+);")
+  
   error_f <- fehler_add("Schema created", TRUE, error_f)
 }
 
@@ -412,6 +428,35 @@ if (ok) {
   dbWriteTable(con_s, "hibiscus_transactions", hib, append = TRUE)
 }
 
+
+
+
+# Transfer Attachments
+## * Daten aus Attachments Tabelle übertragen ----
+if(ok){
+  att <- dbxSelect(con_f, "SELECT id, trans_id, quittung_id, wiso_id, btisch_id, 
+    adress_id, ft_dateiname, beschreibung, created_at, updated_at, ft_extension FROM Attachments") %>%
+    mutate(
+      id = as.integer(id),
+      trans_id = as.integer(trans_id),
+      quittung_id = as.integer(quittung_id),
+      wiso_id = as.integer(wiso_id),
+      btisch_id = as.integer(btisch_id),
+      adress_id = as.integer(adress_id),
+      created_at = as.character(created_at),
+      updated_at = as.character(updated_at),
+      path = paste0(id,".", ft_extension)
+    ) %>%
+    rename(
+      entry_id = trans_id,
+      note = beschreibung, 
+      original_name = ft_dateiname
+    ) %>%
+    select(-ft_extension)
+  dbWriteTable(con_s, "Attachments", att, append = T)
+} ## -------------------------------------------------------  2026-03-19 16:38 
+
+
 # Close ----
 
 dbDisconnect(con_s)