diff --git a/sqlFunctions.R b/sqlFunctions.R
index 745bdec..7a49400 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -165,7 +165,7 @@ sqlWriteTemp<-function(conn=dta, nhcs=nhc.test, file="queryOV.xlsx", samples.mod
     
     ## Exportar tablas a la plantilla de entrada para su rellenado
     wb <- loadWorkbook(file)
-    writeData(wb, "NHC", upd.umid)
+    writeData(wb, "NHC", merge(data.frame("NHC"=nhcs), upd.umid, sort = F))
     if (samples.mod){writeData(wb,"samples",samples.exp)}
     if (clinics.mod){writeData(wb,"CLINICS",upd.clinics)}
     saveWorkbook(wb,file,overwrite = TRUE)