Umsatz-modul eingebaut, buchen noch nicht getestet

db/data_transfer.R

@@ -416,23 +416,7 @@ if (ok) {
   dbWriteTable(con_s, "postings", postings, append = TRUE)
 }
 
-# Transfer Hibiscus transactions ----
-
-if (ok) {
-  spalten <- dbxSelect(con_f, "SELECT * FROM Umsatz WHERE id=1") %>%
-    names %>%
-    paste(collapse = ",")
-  query <- paste("SELECT", spalten, "FROM Umsatz")
-  hib <- dbxSelect(con_f, query) %>%
-    select(-fz_jahr)
-  dbWriteTable(con_s, "hibiscus_transactions", hib, append = TRUE)
-}
-
-
-
-
-# Transfer Attachments
-## * Daten aus Attachments Tabelle übertragen ----
+# 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") %>%
@@ -457,6 +441,31 @@ if(ok){
 } ## -------------------------------------------------------  2026-03-19 16:38 
 
 
+# Transfer Bankverbindungen ----
+if (ok) {
+  bank_connections <- dbxSelect(con_f, "
+    SELECT id, adress_id, kontakt, iban, bic, kreditinstitut, 
+           remote_name, created_at, updated_at
+    FROM Bankverbindungen
+  ") %>%
+    transmute(
+      id          = as.integer(id),
+      contact_id  = as.integer(adress_id),
+      contact_text = kontakt,
+      iban        = iban,
+      bic         = bic,
+      bank_name   = kreditinstitut,
+      remote_name = remote_name,
+      created_at  = as.character(created_at),
+      updated_at  = as.character(updated_at)
+    )
+  
+  dbWriteTable(con_s, "bank_connections", bank_connections, append = TRUE)
+  error_f <- fehler_add(
+    paste(nrow(bank_connections), "Bankverbindungen übertragen"), TRUE, error_f
+  )
+}
+
 # Close ----
 
 dbDisconnect(con_s)