diff --git a/sqlFunctions.R b/sqlFunctions.R
index c957e31..dd14145 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -15,7 +15,7 @@ sqlInitialize<-function(){
   source("ruta_database.R", encoding = "UTF-8")
 }
 
-sqlBackUp<-function(dbfile=file,bu.dir="BU_OVARIO"){
+sqlBackUp<-function(dbfile=file,bu.dir){
   db=strsplit(dbfile, "/")[[1]]%>% tail(n=1)
   bu_path<-gsub(db,bu.dir,dbfile)
   if (!dir.exists(bu_path)){
diff --git a/workflow.R b/workflow.R
index 30b28cf..888502d 100644
--- a/workflow.R
+++ b/workflow.R
@@ -1,7 +1,10 @@
 source("sqlFunctions.R")
 
+## Asegurarse de que la variable file sea la que nos corresponde:
+file
+
 # Crear copia de seguridad
-sqlBackUp()
+sqlBackUp(bu.dir="BU_OVARIO")
 
 # Cargar dependencias
 sqlInitialize()