From 34b54230cb155f6ded3333988a8604e9c67c8b94 Mon Sep 17 00:00:00 2001
From: del Carpio Huerta <Y2955361J@ICO.SCS.local>
Date: Mon, 28 Feb 2022 16:05:06 +0100
Subject: [PATCH] Solucionar otro problema de duplicado.

---
 sqlFunctions.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/sqlFunctions.R b/sqlFunctions.R
index 3d0b71d..f5c8cea 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -73,7 +73,7 @@ sqlGenOVID<-function(conn=dta, nhcs=nhc.test, verb=T, sinc=F, dbtype=NULL){
   
   dbid<-sqlFetch(conn,db["dbcode"])
   
-  new.nhc<-nhcs[!nhcs %in% dbid$NHC]
+  new.nhc<-nhcs[!nhcs %in% dbid$NHC] %>% unique()
   if(length(new.nhc) > 0){
     next.num<-gsub(db["dbcode"],"",dbid[,db["dbcode"]]) %>% as.numeric %>% max(na.rm=T)+1
     last.num<-next.num+(length(new.nhc)-1)
@@ -82,8 +82,8 @@ sqlGenOVID<-function(conn=dta, nhcs=nhc.test, verb=T, sinc=F, dbtype=NULL){
       dbid<-rbind(dbid,newtab)
     }
     if(dbtype=="UM"){
-      dbid<-merge(dbid, newtab, all=T) %>% select(Id,NHC,UMID) %>% arrange(Id)
-      dbid$Id<-as.numeric(rownames(dbid))
+      dbid<-merge(dbid, newtab, all=T) %>% select(NHC,UMID) %>% arrange(UMID)
+      # dbid$Id<-as.numeric(rownames(dbid))
       dbid$NHC<-as.numeric(dbid$NHC)
     }
     rownames(dbid)<-as.character(1:nrow(dbid))
@@ -91,7 +91,7 @@ sqlGenOVID<-function(conn=dta, nhcs=nhc.test, verb=T, sinc=F, dbtype=NULL){
     
     if (sinc){
       ### !! Atención, esto cambia la base de datos:
-      sqlSave(conn, dbid, tablename=db["dbcode"], append = T)
+      sqlSave(conn, dbid, tablename=db["dbcode"], append = T, rownames = F)
       print("La base ha sido actualizada.")
     }
     if (verb){