From 24cd858bcded4ea16fc2676d7ae9962a66a36046 Mon Sep 17 00:00:00 2001
From: Marin Jimenez <44653479Z@ICO.SCS.local>
Date: Mon, 15 Nov 2021 14:19:17 +0100
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20lectura=20de=20NHCs.=20Soluci?=
 =?UTF-8?q?=C3=B3n=20error=20en=20sincronizaci=C3=B3n=20de=20SAMPLES=20por?=
 =?UTF-8?q?=20la=20fecha=20de=20columna=20nueva.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 sqlFunctions.R | 3 ++-
 workflow.R     | 5 ++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/sqlFunctions.R b/sqlFunctions.R
index 4414782..a2e9a5f 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -91,8 +91,9 @@ sqlSincBD<-function(conn=dta, filetemp="QueryOV.xlsx", sinc.samples=F, sinc.clin
   
   if (sinc.samples & nrow(upd.samples) > 0){
     upd.samples$IQ_date<-as.Date(upd.samples$IQ_date)
+    upd.samples$TIL_date<-as.Date(upd.samples$TIL_date)
     ### !! Atención, esto cambia la base de datos:
-    sqlSave(conn, upd.samples, tablename="SAMPLES", append = T, varTypes = c("IQ_date"="date"))
+    sqlSave(conn, upd.samples, tablename="SAMPLES", append = T, varTypes = c("IQ_date"="date","TIL_date"="date"))
     print("Tabla SAMPLES sincronizada.")
   }
   
diff --git a/workflow.R b/workflow.R
index 24beb52..e2cefe4 100644
--- a/workflow.R
+++ b/workflow.R
@@ -7,6 +7,9 @@ sqlInitialize()
 dta<-odbcConnectAccess2007(access.file = file, 
                            pwd = .rs.askForPassword("Enter password:"))
 
+## Importamos los NHC de las muestras nuevas
+nhc.test<-read.xlsx("queryOV.xlsx", sheet = "NHC") %>% pull(NHC)
+
 # Ver si ya hay muestras de los pacientes (opcional, para uno mismo)
 sqlShowSamples()
 
@@ -21,4 +24,4 @@ sqlWriteTemp()
 ####
 
 # Sincronizar lo rellenado en las pestañas samples y clinics
-sqlSincBD(sinc.samples = T, sinc.clinics = T)
\ No newline at end of file
+sqlSincBD(sinc.samples = T, sinc.clinics = T)