diff --git a/.dbeaver/.gitignore b/.dbeaver/.gitignore
index b2c008c4661ae24f3db993170dc62e14b44cca3d..8c508faa6615a0f026a30f8c02eb37932abdaf08 100644
--- a/.dbeaver/.gitignore
+++ b/.dbeaver/.gitignore
@@ -4,3 +4,4 @@
 /data-sources.json
 /.project-metadata.json.bak
 /project-metadata.json
+/project-settings.json
diff --git a/R/ref_dc.R b/R/ref_dc.R
index e9058ca750554dd54e656bc11c40c5f6de45991a..77cb6e6c56d69460b72354ea537e36ef7b697cc6 100644
--- a/R/ref_dc.R
+++ b/R/ref_dc.R
@@ -105,6 +105,7 @@ setMethod(
             sep = ""
         )
         requete <- stacomirtools::query(requete)
+				if (grepl("Error",requete@status)) stop(requete@status)	
         # funout(gettext('The query to load counting devices is done
         # \n',domain='R-stacomiR'))
         object@data <- requete@query
diff --git a/R/report_annual.R b/R/report_annual.R
index 6446f8c031cb0be005cb7ac6c8e3c8fc495109bd..6de95c24efc9eceded7d9ac3ab6d40c33c29fe40 100644
--- a/R/report_annual.R
+++ b/R/report_annual.R
@@ -549,7 +549,7 @@ setMethod(
 						legend.text = dat0$ope_dic_identifiant
 						barplot(mat, legend.text = legend.text, ...)
 					} else {
-						barplot(mat, ...)
+						barplot(mat, legend.text=legend.text)
 					}
 					
 				} else if (length(lestax) == 1 & length(lesdic) == 1) {
diff --git a/R/stacomi.R b/R/stacomi.R
index 4fa5d02f38f7e55dd7643b302126e269f641b0b8..3a03e6926afbb950b791f75cfc3640cba3941e33 100644
--- a/R/stacomi.R
+++ b/R/stacomi.R
@@ -28,13 +28,13 @@ load_stacomi <- function(...) {
 				password <- readline(prompt="Enter password: ")	
 				options("stacomiR.password"=password)
 			} else {
-				user <- "postgres"
-				password <- "postgres"
+				user <- "group_stacomi"
+				password <- "group_stacomi"
 				warning('no user set by default, reverted to user <- "postgres" and  password <- "postgres", 
-                you can change it with options("stacomiR.user"=user) and options("stacomiR.password"=password)')
+								you can change it with options("stacomiR.user"=user) and options("stacomiR.password"=password)')
 			}
 		}
-
+		
 		
 		con = new("ConnectionDB")
 		e = expression(con <- connect(con))
@@ -54,7 +54,9 @@ load_stacomi <- function(...) {
 		if (test) {
 			requete = new("RequeteDB")
 			requete@sql = paste0("select count(*) from ", sch, "t_lot_lot")
+			message <- NULL
 			requete <- stacomirtools::query(requete)
+			if (grepl("Error",requete@status)) stop(requete@status)			
 			if (nrow(requete@query) == 0) {
 				# the database link is not working or the 
 				# schema