From cb38ea347d156e1cf341b348192bf34345562fe2 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Mon, 4 Jul 2022 11:08:45 +0200
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20notificaci=C3=B3n=20de=20sincroni?=
 =?UTF-8?q?zaci=C3=B3n=20y=20backup=20de=20nitr=C3=B3geno.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 BDAccess/app.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/BDAccess/app.R b/BDAccess/app.R
index 1909ddd..703156a 100644
--- a/BDAccess/app.R
+++ b/BDAccess/app.R
@@ -754,6 +754,7 @@ server <- function(input, output) {
                 sqlFetch(dta, "NITROGEN"),
                 file=paste0(NitroRoute, format(Sys.time(), format="%Y%m%d"),"-","UM-Nitrogen.xlsx")
             )
+            print("Backup Creado.")
             
             table<-read.xlsx(paste0(gsub("/BU_NITRO/", "", NitroRoute),"/Nitrogen_ICO.xlsx"))
             
@@ -784,6 +785,7 @@ server <- function(input, output) {
             
             sqlDrop(dta, "NITROGEN")
             sqlSave(dta, table.um %>% select(-FECHA) %>% filter(!is.na(CODIGO)), tablename="NITROGEN", rownames=F)
+            print("Tabla Actualizada.")
         }
         if (input$dbtype == "OV"){
             ## Copia de backup
@@ -797,6 +799,7 @@ server <- function(input, output) {
                 sqlFetch(dta, "NITROGEN"),
                 file=paste0(NitroRoute, format(Sys.time(), format="%Y%m%d"),"-","OV-Nitrogen.xlsx")
             )
+            print("Backup Creado.")
             
             ## Lectura del excel
             table<-read.xlsx(paste0(gsub("/BU_NITRO/", "", NitroRoute),"/Nitrogen_ICO.xlsx"))
@@ -822,6 +825,7 @@ server <- function(input, output) {
             
             sqlDrop(dta, "NITROGEN")
             sqlSave(dta, table.ov, tablename="NITROGEN", rownames=F)
+            print("Tabla Actualizada.")
         }
 
     })