##
## Datum    : 2026-05-13_09-37 
## Name     : Christian Oswald
## Datei    : sync_hibiscus.R
## Projekt  : gemfin-shiny
## Kommentar: Liest Daten aus der Hibiscus Datenbank
##

## * Initialisierung ----

sync_hibiscus <- function(){
    if (as.character(Sys.info())[1] == "Linux") {
    jdbc_url   <- "jdbc:h2:/home/cosw/.jameica/hibiscus/h2db/hibiscus;IFEXISTS=TRUE;CIPHER=AES"
    pw    <- "LsOX6Ytldl4lJBcVoA6j+MDLzaA= LsOX6Ytldl4lJBcVoA6j+MDLzaA="
  }
  
  if(as.character(Sys.info())[1] == "Windows"){
    source("c:/Users/chris/R/rfunc/fehler_add.R")
    url   <- "jdbc:h2:~/Insync/Projekte/Gemeindefinanzen/jameica/hibiscus/h2db/hibiscus;IFEXISTS=TRUE;CIPHER=AES"
    h2jar <- "C:/Users/chris/bin/jameica/lib/h2/migration-h2/disabled/h2-1.4.199.jar"
  }
  # JDBC - Verbindung ----
  if (as.character(Sys.info())[1] == "Darwin") {
    source("/Users/cosw/R/rfunc/fehler_add.R")
    h2jar <- "/Users/cosw/bin/jameica.app/lib/h2/migration-h2/disabled/h2-1.4.199.jar"
    url   <- "jdbc:h2:/Users/cosw/insync/Projekte/Gemeindefinanzen/jameica/hibiscus/h2db/hibiscus;IFEXISTS=TRUE;CIPHER=AES"
  }
  user  <- "hibiscus"
  pw <- "FbvGoL+yJlH1GtUojnC8ZajYuTA= FbvGoL+yJlH1GtUojnC8ZajYuTA="
  drv   <- JDBC("org.h2.Driver", h2jar, identifier.quote="`")
  
  con_j <- dbConnect(drv, url, user, pw)
  originaldaten <- dbReadTable(con_j, "UMSATZ")
  dbDisconnect(con_j)
  return(originaldaten)
}