#install.packages("DBI")
#install.packages("readr")

# Activar librerías
library(odbc)
library(DBI)
library(openxlsx)
library(readxl)
library(readr)

# Script para conectarse a la BD alojada en el SQL SERVER
driver <- "ODBC Driver 17 for SQL Server"
server <- "192.168.200.63"
database <- "BD_NOTI_CALIDAD"
uid <- "mgomez"
pwd <- "y9Gi7pe2dsRHsewM"

con <- dbConnect(odbc::odbc(),
                 Driver = driver,
                 Server = server,
                 Database = database,
                 UID = uid,
                 PWD = pwd)

if (dbIsValid(con)) {
  print("Connection successful!")
} else {
  print("Connection failed.")
}

# Define la consulta SQL para descargar la tabla (crear un proyecto previamente)
data_individual_actual <- dbReadTable(con, "investigacion_ind")
data_febriles_actual <- dbReadTable(con, "investigacion_feb")
data_edas_actual <- dbReadTable(con, "investigacion_eda")
data_iras_actual <- dbReadTable(con, "investigacion_ira")
data_noti_sp <- dbReadTable(con, "noti_sp")
data_noti_sp <- subset(data_noti_sp, select = -usuario)

data_noti_sp_fil <- dbReadTable(con, "noti_sp")
#Filtrando temporalmente los registros 
data_noti_sp_fil <- subset(data_noti_sp_fil, usuario != "INTEROPER", select = -usuario)

# Exporta en archivo csv
ruta_individual_actual <- "Y:/individual_actual.csv"
ruta_febriles_actual <- "Y:/febriles_actual.csv"
ruta_edas_actual <- "Y:/edas_actual.csv"
ruta_iras_actual <- "Y:/iras_actual.csv"
ruta_noti_sp <- "Y:/noti_sp.csv"

ruta_noti_sp_fil <- "Y:/noti_sp_fil.csv"

readr::write_csv(data_individual_actual, ruta_individual_actual, na = "")
readr::write_csv(data_febriles_actual, ruta_febriles_actual, na = "")
readr::write_csv(data_edas_actual, ruta_edas_actual, na = "")
readr::write_csv(data_iras_actual, ruta_iras_actual, na = "")
readr::write_csv(data_noti_sp, ruta_noti_sp, na = "")

readr::write_csv(data_noti_sp_fil, ruta_noti_sp_fil, na = "")