sqlFile<-function(file=1, list=F){
  source("~/.BDpath.R", encoding = "UTF-8")
  sqlFiles<-list()
  if (list){
    print(sqlFiles)
  }else{
    return(sqlFiles[[file]])
  }
}