###BASEVEO###

library(readxl)
library(dplyr)
library(lubridate)

setwd("//10.0.0.20/informacioncomercial$/Agenda_Comercial/Bases_Consolidadas")
details<-file.info(list.files(pattern = "ConsolidadoAgendaComercial_"))
details<-details[with(details,order(as.POSIXct(mtime),decreasing=TRUE)),]
files_solicitudes<-rownames(details)[1]
name_subjet<-files_solicitudes
files_solicitudes<-paste("//10.0.0.20/informacioncomercial$/Agenda_Comercial/Bases_Consolidadas/",files_solicitudes,sep = "")
Base_Informe <- read_excel(files_solicitudes, 
                                          col_types = c("date", "numeric", "text", 
                                                        "text", "text", "date", "text", "text", 
                                                        "text", "text", "text", "numeric", 
                                                        "text", "text", "text", "text", "text", 
                                                        "text", "text", "text", "text", "numeric", 
                                                        "numeric", "numeric", "text", "text", 
                                                        "text", "text", "numeric", "text", 
                                                        "text", "text","text","text","text",
                                                        "text","text","text","text","text","text","text"))
Base_Informe<-Base_Informe[,-33:-42]
fecha <- read_excel(files_solicitudes, 
                           col_types = c("date", "numeric", "text", 
                                         "text", "text", "numeric", "text", "text", 
                                         "text", "text", "text", "numeric", 
                                         "text", "text", "text", "text", "text", 
                                         "text", "text", "text", "text", "numeric", 
                                         "numeric", "numeric", "text", "text", 
                                         "text", "text", "numeric", "text", 
                                         "text", "text","text","text","text",
                                         "text","text","text","text","text", "text","text"))
fecha<-fecha[,-33:-42]

fecha<- fecha %>% select(`Fecha de visita`)
colnames(fecha)[1]<-"Fecha"
Base_Informe<- cbind(Base_Informe,fecha)

Base_Informe$`Fecha de visita`[is.na(Base_Informe$`Fecha de visita`)]<-Sys.Date()-1 

Base_Informe$año<-year(Base_Informe$`Fecha de visita`)
Base_Informe$mes<-month(Base_Informe$`Fecha de visita`)

base<-Base_Informe %>% 
  filter(año=="2022")
base<-base %>% 
  filter(mes=="2")
base$`Forma de contacto`[base$`Forma de contacto`=="Vi+E6:U6deo Llamada"]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="Vi+E6:U6de"]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="videollamada"]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="llamada"]<-"Video Llamada "
base$`Motivo Visita`[base$`Motivo Visita`=="producto de Crédito"]<-"Video Llamada "
base$`Hora Inicio Visita`[base$`Hora Inicio Visita`=="03:00 p.m"]<-"15:00:00"
base$`Hora Inicio Visita`[base$`Hora Inicio Visita`=="02:30 p.m"]<-"14:30:00"
base<- base %>% select(-año,-mes)
base$`Rango Hora`<- case_when(
  base$`Hora Inicio Visita` =="12:00:00" ~ "12-1 Pm",
  base$`Hora Inicio Visita` =="12:30:00" ~ "12-1 Pm",
  base$`Hora Inicio Visita` =="13:00:00" ~ "1-2 pm",
  base$`Hora Inicio Visita` =="13:30:00" ~ "1-2 pm",
  base$`Hora Inicio Visita` =="14:00:00" ~ "2-3 pm",
  base$`Hora Inicio Visita` =="14:30:00" ~ "2-3 pm",
  base$`Hora Inicio Visita` =="15:00:00" ~ "3-4 pm",
  base$`Hora Inicio Visita` =="15:30:00" ~ "3-4 pm",
  base$`Hora Inicio Visita` =="16:00:00" ~ "4-5 pm",
  base$`Hora Inicio Visita` =="16:30:00" ~ "4-5 pm",
  base$`Hora Inicio Visita` =="17:00:00" ~ "5-6 pm",
  base$`Hora Inicio Visita` =="17:30:00" ~ "5-6 pm",
  base$`Hora Inicio Visita` =="18:00:00" ~ "6-7 pm",
  base$`Hora Inicio Visita` =="18:30:00" ~ "6-7 pm",
  base$`Hora Inicio Visita` =="07:00:00" ~ "7-8 am",
  base$`Hora Inicio Visita` =="07:30:00" ~ "7-8 am",
  base$`Hora Inicio Visita` =="08:00:00" ~ "8-9 am",
  base$`Hora Inicio Visita` =="08:30:00" ~ "8-9 am",
  base$`Hora Inicio Visita` =="09:00:00" ~ "9-10 am",
  base$`Hora Inicio Visita` =="09:30:00" ~ "9-10 am",
  base$`Hora Inicio Visita` =="10:00:00" ~ "10-11 am",
  base$`Hora Inicio Visita` =="10:30:00" ~ "10-11 am",
  base$`Hora Inicio Visita` =="11:00:00" ~ "11-12 am",
  base$`Hora Inicio Visita` =="11:30:00" ~ "11-12 am",
  base$`Hora Inicio Visita`=="11:30 a.m." ~ "11-12 am",
  base$`Hora Inicio Visita`=="11:00 a.m." ~ "11-12 am",
  base$`Hora Inicio Visita`=="10:30 a.m." ~ "10-11 am",
  base$`Hora Inicio Visita`=="10:00 a.m." ~ "10-11 am",
  base$`Hora Inicio Visita`=="09:30 a.m." ~ "9-10 am",
  base$`Hora Inicio Visita`=="09:00 a.m." ~ "9-10 am",
  base$`Hora Inicio Visita`=="08:30 a.m." ~ "8-9 am",
  base$`Hora Inicio Visita`=="08:00 a.m." ~ "8-9 am",
  base$`Hora Inicio Visita`=="07:00 a.m." ~ "7-8 am",
  base$`Hora Inicio Visita`=="07:30 a.m." ~ "7-8 am",
  base$`Hora Inicio Visita`=="12:30 p.m." ~ "12-1 Pm",
  base$`Hora Inicio Visita`=="12:00 p.m." ~ "12-1 Pm",
  base$`Hora Inicio Visita`=="01:00 p.m." ~ "1-2 pm",
  base$`Hora Inicio Visita`=="01:30 p.m." ~ "1-2 pm",
  base$`Hora Inicio Visita`=="02:00 p.m." ~ "2-3 pm",
  base$`Hora Inicio Visita`=="02:30 p.m." ~ "2-3 pm",
  base$`Hora Inicio Visita`=="03:00 p.m." ~ "3-4 pm",
  base$`Hora Inicio Visita`=="03:30 p.m." ~ "3-4 pm",
  base$`Hora Inicio Visita`=="04:00 p.m." ~ "4-5 pm",
  base$`Hora Inicio Visita`=="04:30 p.m." ~ "4-5 pm",
  base$`Hora Inicio Visita`=="05:00 p.m." ~ "5-6 pm",
  base$`Hora Inicio Visita`=="05:30 p.m." ~ "5-6 pm",
  base$`Hora Inicio Visita`=="06:00 p.m." ~ "6-7 pm",
  base$`Hora Inicio Visita`=="06:30 p.m." ~ "6-7 pm")
 
base$`Motivo Visita`[base$`Motivo Visita`=="producto captacion"]<-"Producto de Captación"
base$`Motivo Visita`[base$`Motivo Visita`=="producto de captacion"]<-"Producto de Captación"
base$`Motivo Visita`[base$`Motivo Visita`=="producto captación"]<-"Producto de Captación"
base$`Motivo Visita`[base$`Motivo Visita`=="producto de captación"]<-"Producto de Captación"
base$`Motivo Visita`[base$`Motivo Visita`=="producto credito"]<-"Producto de Crédito"
base$`Motivo Visita`[base$`Motivo Visita`=="producto de credito"]<-"Producto de Crédito"
base$`Motivo Visita`[base$`Motivo Visita`=="producto crédito"]<-"Producto de Crédito"
base$`Motivo Visita`[base$`Motivo Visita`=="producto de crédito"]<-"Producto de Crédito"

base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo "]<-"Activo"
base$`Tipo de cliente`[is.na(base$`Tipo de cliente`)]<-"Nuevo"  
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo "]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo"]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo"]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Inactivo "]<-"Inactivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="INACTIVO"]<-"Inactivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Nuevo "]<-"Nuevo"

base$`Numero de NIT`<- gsub("-","",base$`Numero de NIT`)
base<-base[!is.na(base$`Numero de NIT`),]

base$Regional[base$Regional=="Antioquia "]<-"Antioquia"
base$Regional[base$Regional=="antioquia"]<-"Antioquia"
base$Regional[base$Regional=="Bogota "]<-"Bogotá"
base$Regional[base$Regional=="Bogota"]<-"Bogotá"
base$Regional[base$Regional=="bogota"]<-"Bogotá"
base$Regional[base$Regional=="Bogotá "]<-"Bogotá"
base$Regional[base$Regional=="bogotá"]<-"Bogotá"
base$Regional[base$Regional=="Cafetera "]<-"Cafetera"
base$Regional[base$Regional=="cafetera"]<-"Cafetera"
base$Regional[base$Regional=="Costa "]<-"Costa"
base$Regional[base$Regional=="costa"]<-"Costa"
base$Regional[base$Regional=="Occidente "]<-"Occidente"
base$Regional[base$Regional=="occidente"]<-"Occidente"
base$Regional[base$Regional=="Oriente "]<-"Oriente"
base$Regional[base$Regional=="oriente"]<-"Oriente"
base$Regional[base$Regional=="Santanderes "]<-"Santanderes"
base$Regional[base$Regional=="santanderes"]<-"Santanderes"
base$Regional[base$Regional=="Santander "]<-"Santanderes"
base$Regional[base$Regional=="santander"]<-"Santanderes"
base$Regional[base$Regional=="Santander"]<-"Santanderes"
base$Regional[base$Regional=="Sur "]<-"Sur"
base$Regional[base$Regional=="sur"]<-"Sur"

base$Ciudad[base$Ciudad=="acandi"]<-"Acandi"
base$Ciudad[base$Ciudad=="ACANDI"]<-"Acandi"
base$Ciudad[base$Ciudad=="alban"]<-"Alban"
base$Ciudad[base$Ciudad=="ALBAN"]<-"Alban"
base$Ciudad[base$Ciudad=="aldana"]<-"Aldana"
base$Ciudad[base$Ciudad=="ALDANA"]<-"Aldana"
base$Ciudad[base$Ciudad=="ALGECIRAS"]<-"Algeciras"
base$Ciudad[base$Ciudad=="algeciras"]<-"Algeciras"
base$Ciudad[base$Ciudad=="ANDES"]<-"Andes"
base$Ciudad[base$Ciudad=="andes"]<-"Andes"
base$Ciudad[base$Ciudad=="ANGELOPOLIS"]<-"Angelopolis"
base$Ciudad[base$Ciudad=="angelopolis"]<-"Angelopolis"
base$Ciudad[base$Ciudad=="ANOLAIMA"]<-"Anolaima"
base$Ciudad[base$Ciudad=="anolaima"]<-"Anolaima"
base$Ciudad[base$Ciudad=="APARTADO"]<-"Apartado"
base$Ciudad[base$Ciudad=="apartado"]<-"Apartado"
base$Ciudad[base$Ciudad=="ARATOCA"]<-"Aratoca"
base$Ciudad[base$Ciudad=="aratoca"]<-"Aratoca"
base$Ciudad[base$Ciudad=="ARAUCA"]<-"Arauca"
base$Ciudad[base$Ciudad=="arauca"]<-"Arauca"
base$Ciudad[base$Ciudad=="ARBOLEDA"]<-"Arboleda"
base$Ciudad[base$Ciudad=="arboleda"]<-"Arboleda"
base$Ciudad[base$Ciudad=="ARMENIA"]<-"Armenia"
base$Ciudad[base$Ciudad=="armenia"]<-"Armenia"
base$Ciudad[base$Ciudad=="ARMERO"]<-"Armero"
base$Ciudad[base$Ciudad=="armero"]<-"Armero"
base$Ciudad[base$Ciudad=="ARMERO-GUAYABAL"]<-"Armero"
base$Ciudad[base$Ciudad=="ATRATO"]<-"Atrato"
base$Ciudad[base$Ciudad=="atrato"]<-"Atrato"
base$Ciudad[base$Ciudad=="ATRATO YUTO"]<-"Atrato"
base$Ciudad[base$Ciudad=="AYAPEL"]<-"Ayapel"
base$Ciudad[base$Ciudad=="ayapel"]<-"Ayapel"
base$Ciudad[base$Ciudad=="BAJO BAUDO"]<-"Bajo Baudo"
base$Ciudad[base$Ciudad=="bajo baudo"]<-"Bajo Baudo"
base$Ciudad[base$Ciudad=="BALBOA"]<-"Balboa"
base$Ciudad[base$Ciudad=="balboa"]<-"Balboa"
base$Ciudad[base$Ciudad=="BARBACOAS"]<-"Barbacoas"
base$Ciudad[base$Ciudad=="barbacoas"]<-"Barbacoas"
base$Ciudad[base$Ciudad=="BARBOSA"]<-"Barbosa"
base$Ciudad[base$Ciudad=="barbosa"]<-"Barbosa"
base$Ciudad[base$Ciudad=="BARICHARA"]<-"Barichara"
base$Ciudad[base$Ciudad=="barichara"]<-"Barichara"
base$Ciudad[base$Ciudad=="BARRANCO DE LOBA"]<-"Barranco de Loba"
base$Ciudad[base$Ciudad=="barranco de loba"]<-"Barranco de Loba"
base$Ciudad[base$Ciudad=="BARRANQUILLA"]<-"Barranquilla"
base$Ciudad[base$Ciudad=="barranquilla"]<-"Barranquilla"
base$Ciudad[base$Ciudad=="BELEN"]<-"Belen"
base$Ciudad[base$Ciudad=="belen"]<-"Belen"
base$Ciudad[base$Ciudad=="BELLO"]<-"Bello"
base$Ciudad[base$Ciudad=="bello"]<-"Bello"
base$Ciudad[base$Ciudad=="BELMIRA"]<-"Belmira"
base$Ciudad[base$Ciudad=="belmira"]<-"Belmira"
base$Ciudad[base$Ciudad=="BETANIA"]<-"Betania"
base$Ciudad[base$Ciudad=="betania"]<-"Betania"
base$Ciudad[base$Ciudad=="BOGOTA"]<-"Bogotá"
base$Ciudad[base$Ciudad=="BOGOT A"]<-"Bogotá"
base$Ciudad[base$Ciudad=="Bogotá D.C"]<-"Bogotá"
base$Ciudad[base$Ciudad=="Bogota D.C"]<-"Bogotá"
base$Ciudad[base$Ciudad=="BUCARAMANGA"]<-"Bucaramanga"
base$Ciudad[base$Ciudad=="bucaramanga"]<-"Bucaramanga"
base$Ciudad[base$Ciudad=="BUENAVISTA"]<-"Buenavista"
base$Ciudad[base$Ciudad=="buenavista"]<-"Buenavista"
base$Ciudad[base$Ciudad=="BUGA"]<-"Buga"
base$Ciudad[base$Ciudad=="buga"]<-"Buga"
base$Ciudad[base$Ciudad=="BUGALAGRANDE"]<-"Bugalagrande"
base$Ciudad[base$Ciudad=="bugalagrande"]<-"Bugalagrande"
base$Ciudad[base$Ciudad=="C BOLIVAR"]<-"Ciudad Bolivar"
base$Ciudad[base$Ciudad=="ciudad bolivar"]<-"Ciudad Bolivar"
base$Ciudad[base$Ciudad=="CABUYARO"]<-"Cabuyaro"
base$Ciudad[base$Ciudad=="cabuyaro"]<-"Cabuyaro"
base$Ciudad[base$Ciudad=="CACHIPAY"]<-"Cachipay"
base$Ciudad[base$Ciudad=="cachipay"]<-"Cachipay"
base$Ciudad[base$Ciudad=="CAICEDO"]<-"Caicedo"
base$Ciudad[base$Ciudad=="caicedo"]<-"Caicedo"
base$Ciudad[base$Ciudad=="CAIMITO"]<-"Caimito"
base$Ciudad[base$Ciudad=="caimito"]<-"Caimito"
base$Ciudad[base$Ciudad=="CAJIBIO"]<-"Cajibio"
base$Ciudad[base$Ciudad=="cajibio"]<-"Cajibio"
base$Ciudad[base$Ciudad=="CAJICA"]<-"Cajica"
base$Ciudad[base$Ciudad=="cajica"]<-"Cajica"
base$Ciudad[base$Ciudad=="CALI"]<-"Cali"
base$Ciudad[base$Ciudad=="cali"]<-"Cali"
base$Ciudad[base$Ciudad=="CALIMA"]<-"Calima"
base$Ciudad[base$Ciudad=="calima"]<-"Calima"
base$Ciudad[base$Ciudad=="CALOTO"]<-"Caloto"
base$Ciudad[base$Ciudad=="caloto"]<-"Caloto"
base$Ciudad[base$Ciudad=="CAMEN DE VIBORAL"]<-"Carmen de Viboral"
base$Ciudad[base$Ciudad=="CARMEN DE VIBORAL"]<-"Carmen de Viboral"
base$Ciudad[base$Ciudad=="carmen de viboral"]<-"Carmen de Viboral"
base$Ciudad[base$Ciudad=="CARACOLI"]<-"Caracoli"
base$Ciudad[base$Ciudad=="caracoli"]<-"Caracoli"
base$Ciudad[base$Ciudad=="CARCASI"]<-"Carcasi"
base$Ciudad[base$Ciudad=="carcasi"]<-"Carcasi"
base$Ciudad[base$Ciudad=="CARMEN DE CARUPA"]<-"Carmen de Carupa"
base$Ciudad[base$Ciudad=="carmen de carupa"]<-"Carmane de Carupa"
base$Ciudad[base$Ciudad=="CARTAGENA"]<-"Cartagena"
base$Ciudad[base$Ciudad=="cartagena"]<-"Cartagena"
base$Ciudad[base$Ciudad=="CASTILLA LA NUEVA"]<-"Castilla la Nueva"
base$Ciudad[base$Ciudad=="castilla la nueva"]<-"Castilla la Nueva"
base$Ciudad[base$Ciudad=="Castilla la nueva"]<-"Castilla la Nueva"
base$Ciudad[base$Ciudad=="CAUCA"]<-"Cauca"
base$Ciudad[base$Ciudad=="cauca"]<-"Cauca"
base$Ciudad[base$Ciudad=="CAUCASIA"]<-"Caucasia"
base$Ciudad[base$Ciudad=="caucasia"]<-"Caucasia"
base$Ciudad[base$Ciudad=="CERETE"]<-"Cereté"
base$Ciudad[base$Ciudad=="cerete"]<-"Cereté"
base$Ciudad[base$Ciudad=="CERETÉ"]<-"Cereté"
base$Ciudad[base$Ciudad=="cereté"]<-"Cereté"
base$Ciudad[base$Ciudad=="CHAPARRAL"]<-"Chaparral"
base$Ciudad[base$Ciudad=="chaparral"]<-"Chaparral"
base$Ciudad[base$Ciudad=="CHIA"]<-"Chia"
base$Ciudad[base$Ciudad=="chia"]<-"Chia"
base$Ciudad[base$Ciudad=="CHINAVITA"]<-"Chinavita"
base$Ciudad[base$Ciudad=="chinavita"]<-"Chinavita" 
base$Ciudad[base$Ciudad=="CHIQUINQUIRA"]<-"Chiquinquira"
base$Ciudad[base$Ciudad=="chiquinquira"]<-"Chiquinquira"
base$Ciudad[base$Ciudad=="CIENAGA"]<-"Cienaga"
base$Ciudad[base$Ciudad=="cienega"]<-"Cienaga"
base$Ciudad[base$Ciudad=="COLON GENOVA"]<-"Colon Genova"
base$Ciudad[base$Ciudad=="colon genova"]<-"Colon Genova"
base$Ciudad[base$Ciudad=="CONCORDIA"]<-"Concordia"
base$Ciudad[base$Ciudad=="concordia"]<-"Concordia"
base$Ciudad[base$Ciudad=="CONSACA"]<-"Consaca"
base$Ciudad[base$Ciudad=="consaca"]<-"Consaca"
base$Ciudad[base$Ciudad=="CONTADERO"]<-"Contadero"
base$Ciudad[base$Ciudad=="contadero"]<-"Contadero"
base$Ciudad[base$Ciudad=="COPACABANA"]<-"Copacabana"
base$Ciudad[base$Ciudad=="copacabana"]<-"Copacabana"
base$Ciudad[base$Ciudad=="COTA"]<-"Cota"
base$Ciudad[base$Ciudad=="cota"]<-"Cota"
base$Ciudad[base$Ciudad=="CUBARA"]<-"Cubara"
base$Ciudad[base$Ciudad=="cubara"]<-"Cubara"
base$Ciudad[base$Ciudad=="CUBARRAL"]<-"Cubarral"
base$Ciudad[base$Ciudad=="cubarral"]<-"Cubarral"
base$Ciudad[base$Ciudad=="CUMARAL META"]<-"Cumaral Meta"
base$Ciudad[base$Ciudad=="cumaral meta"]<-"Cumaral Meta"
base$Ciudad[base$Ciudad=="CUMARIBO"]<-"Cumaribo"
base$Ciudad[base$Ciudad=="cumaribo"]<-"Cumaribo"
base$Ciudad[base$Ciudad=="CUMBAL"]<-"Cumbal"
base$Ciudad[base$Ciudad=="cumbal"]<-"Cumbal"
base$Ciudad[base$Ciudad=="CURITI"]<-"Curiti"
base$Ciudad[base$Ciudad=="curiti"]<-"Curiti"
base$Ciudad[base$Ciudad=="DABEIBA"]<-"Dabeiba"
base$Ciudad[base$Ciudad=="dabeiba"]<-"Dabeiba"
base$Ciudad[base$Ciudad=="DAGUA"]<-"Dagua"
base$Ciudad[base$Ciudad=="dagua"]<-"Dagua"
base$Ciudad[base$Ciudad=="DUITAMA"]<-"Duitama"
base$Ciudad[base$Ciudad=="duitama"]<-"Duitama"
base$Ciudad[base$Ciudad=="EBEJICO"]<-"Ebejico"
base$Ciudad[base$Ciudad=="ebejico"]<-"Ebejico"
base$Ciudad[base$Ciudad=="EL BANCO"]<-"El Banco"
base$Ciudad[base$Ciudad=="el banco"]<-"El Banco"
base$Ciudad[base$Ciudad=="EL CARMEN DEL DARIEN"]<-"El Carmen del Darien"
base$Ciudad[base$Ciudad=="el carmen del darien"]<-"El Carmen del Darien"
base$Ciudad[base$Ciudad=="EL CERRITO"]<-"El Cerrito"
base$Ciudad[base$Ciudad=="el cerrito"]<-"El Cerrito"
base$Ciudad[base$Ciudad=="EL COPEY"]<-"El Copey"
base$Ciudad[base$Ciudad=="el copey"]<-"El Copey"
base$Ciudad[base$Ciudad=="EL RETORNO GUAVIARE"]<-"El Retorno Guaviare"
base$Ciudad[base$Ciudad=="el getorno guaviare"]<-"El Retorno Guaviare"
base$Ciudad[base$Ciudad=="EL TABLON DE GOMEZ"]<-"El Tablon de Goméz"
base$Ciudad[base$Ciudad=="el tablon de gomez"]<-"El Tablon de Goméz"
base$Ciudad[base$Ciudad=="EL TABLON DE GOMÉZ"]<-"El Tablon de Goméz"
base$Ciudad[base$Ciudad=="el tablon de goméz"]<-"El Tablon de Goméz"
base$Ciudad[base$Ciudad=="EL TAMBO"]<-"El Tambo"
base$Ciudad[base$Ciudad=="el tambo"]<-"El Tambo"
base$Ciudad[base$Ciudad=="FACATATIVA"]<-"Facatativa"
base$Ciudad[base$Ciudad=="facatativa"]<-"Facatativa"
base$Ciudad[base$Ciudad=="FALAN"]<-"Falan"
base$Ciudad[base$Ciudad=="falan"]<-"Falan"
base$Ciudad[base$Ciudad=="FLORENCIA"]<-"Florencia"
base$Ciudad[base$Ciudad=="florencia"]<-"Florencia"
base$Ciudad[base$Ciudad=="FLORIDA VALLE"]<-"Florida Valle"
base$Ciudad[base$Ciudad=="florida valle"]<-"Florida Valle"
base$Ciudad[base$Ciudad=="FONSECA"]<-"Fonseca"
base$Ciudad[base$Ciudad=="fonseca"]<-"Fonseca"
base$Ciudad[base$Ciudad=="FRANCISCO PIZARRO"]<-"Francisco Pizarro"
base$Ciudad[base$Ciudad=="francisco pizarro"]<-"Francisco Pizarro"
base$Ciudad[base$Ciudad=="FRONTINO"]<-"Frontino"
base$Ciudad[base$Ciudad=="frontino"]<-"Frontino"
base$Ciudad[base$Ciudad=="FUSAGASUGA"]<-"Fusagasuga"
base$Ciudad[base$Ciudad=="fusagasuga"]<-"Fusagasuga"
base$Ciudad[base$Ciudad=="GACHALÁ"]<-"Gachalá"
base$Ciudad[base$Ciudad=="gachalá"]<-"Gachalá"
base$Ciudad[base$Ciudad=="GACHALA"]<-"Gachalá"
base$Ciudad[base$Ciudad=="gachala"]<-"Gachalá"
base$Ciudad[base$Ciudad=="GAMA"]<-"Gama"
base$Ciudad[base$Ciudad=="gama"]<-"Gama"
base$Ciudad[base$Ciudad=="GARZON"]<-"Garzon"
base$Ciudad[base$Ciudad=="garzon"]<-"Garzon"
base$Ciudad[base$Ciudad=="GIRARDOTA"]<-"Girardota"
base$Ciudad[base$Ciudad=="girardota"]<-"Girardota"
base$Ciudad[base$Ciudad=="GIRÓN"]<-"Girón"
base$Ciudad[base$Ciudad=="girón"]<-"Girón"
base$Ciudad[base$Ciudad=="GIRON"]<-"Girón"
base$Ciudad[base$Ciudad=="giron"]<-"Girón"
base$Ciudad[base$Ciudad=="GIRÒN"]<-"Girón"
base$Ciudad[base$Ciudad=="giròn"]<-"Girón"
base$Ciudad[base$Ciudad=="GUACHUCAL"]<-"Guachucal"
base$Ciudad[base$Ciudad=="guachucal"]<-"Guachucal"
base$Ciudad[base$Ciudad=="GUALMATAN"]<-"Gualmatan"
base$Ciudad[base$Ciudad=="gualmatan"]<-"Gualmatan"
base$Ciudad[base$Ciudad=="GUAPI"]<-"Guapi"
base$Ciudad[base$Ciudad=="guapi"]<-"Guapi"
base$Ciudad[base$Ciudad=="GUATEQUE"]<-"Guateque"
base$Ciudad[base$Ciudad=="guateque"]<-"Guateque"
base$Ciudad[base$Ciudad=="GUAYATÁ"]<-"Guayatá"
base$Ciudad[base$Ciudad=="guayatá"]<-"Guayatá"
base$Ciudad[base$Ciudad=="GUAYATA"]<-"Guayatá"
base$Ciudad[base$Ciudad=="guayata"]<-"Guayatá"
base$Ciudad[base$Ciudad=="HELICONIA"]<-"Heliconia"
base$Ciudad[base$Ciudad=="heliconia"]<-"Heliconia"
base$Ciudad[base$Ciudad=="HISPANIA"]<-"Hispania"
base$Ciudad[base$Ciudad=="hispania"]<-"Hispania"
base$Ciudad[base$Ciudad=="IBAGUE"]<-"Ibague"
base$Ciudad[base$Ciudad=="ibague"]<-"Ibague"
base$Ciudad[base$Ciudad=="IPIALES"]<-"Ipiales"
base$Ciudad[base$Ciudad=="ipiales"]<-"Ipiales"
base$Ciudad[base$Ciudad=="ITAGUI"]<-"Itagüi"
base$Ciudad[base$Ciudad=="itagui"]<-"Itagüi"
base$Ciudad[base$Ciudad=="ITAGÜI"]<-"Itagüi"
base$Ciudad[base$Ciudad=="itagüi"]<-"Itagüi"
base$Ciudad[base$Ciudad=="JAMBALO"]<-"Jambalo"
base$Ciudad[base$Ciudad=="jambalo"]<-"Jambalo"
base$Ciudad[base$Ciudad=="JAMUNDI"]<-"Jamundi"
base$Ciudad[base$Ciudad=="jamundi"]<-"Jamundi"
base$Ciudad[base$Ciudad=="JARDIN"]<-"Jardin"
base$Ciudad[base$Ciudad=="jardin"]<-"Jardin"
base$Ciudad[base$Ciudad=="JESUS MARIA"]<-"Jesus Maria"
base$Ciudad[base$Ciudad=="jesus maria"]<-"Jesus Maria"
base$Ciudad[base$Ciudad=="JURADO"]<-"Jurado"
base$Ciudad[base$Ciudad=="jurado"]<-"Jurado"

base$`Estado de visita`[base$`Estado de visita`=="cerrada "]<-"Cerrada "
base$`Estado de visita`[base$`Estado de visita`=="Cerrada"]<-"Cerrada "
base$`Estado de visita`[base$`Estado de visita`=="cerrada"]<-"Cerrada "
base$`Estado de visita`[base$`Estado de visita`=="CERRADA"]<-"Cerrada "
base$`Estado de visita`[base$`Estado de visita`=="CERRADA "]<-"Cerrada "
base$`Estado de visita`[base$`Estado de visita`=="Cancelada "]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="cancelada "]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="cancelada"]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="Reagendada "]<-"Reagendada"
base$`Estado de visita`[base$`Estado de visita`=="reagendada "]<-"Reagendada"
base$`Estado de visita`[base$`Estado de visita`=="reagendada"]<-"Reagendada"

base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="cerrada"]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="Cerrada "]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="cerrada "]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="Sincierre "]<-"Sincierre"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="sincierre "]<-"Sincierre"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="sincierre"]<-"Sincierre"
 
base$`Día Semana`<-format(base$`Fecha de visita`,"%A")
base$Mes<-month(base$`Fecha de visita`)
base$`Dia mes`<-day(base$`Fecha de visita`)

Agenda_Comercial_Nuevo_Formato_VEO <- read_excel("C:/Users/danmarta/Desktop/Proyecto Talento Joven/Agenda Comercial_ Nuevo Formato.xlsx",
                                                 sheet = "Tablas")

agenda<- Agenda_Comercial_Nuevo_Formato_VEO %>% select("DIA", "Semana") 

colnames(agenda)<- c("Fecha de visita",
                       "Semana")

base<- base %>% select(-"Semana") 

base<- left_join(base,agenda, by ="Fecha de visita")

base<- base %>% select("Fecha Agendamiento","Cedula Gerente",                   
                       "Nombre Gerente","Regional",                         
                       "Forma de contacto","Fecha de visita",                  
                       "Hora Inicio Visita","Hora Finalización Visita",         
                       "Motivo Visita","Tipo de cliente",
                       "Razón Social","Numero de NIT",
                       "Nombre Contacto","Ciudad",                           
                       "Celular  / contacto","Estado de visita",                 
                       "Resultado Visita","Venta de Producto",                
                       "Venta de Producto 2","Venta de Producto 3",              
                       "Observaciones de Cierre","Día Semana",                       
                       "Mes","Dia mes",                          
                       "Semana","Rango Hora",                       
                       "Rango Calendario","Campo Calendario",                 
                       "Anticipación Visita","Estado Visita Calendario",         
                       "Agrupador actualizaciòn visita","Campo estado de visita Calendario",
                       "Fecha") 

base$`Rango Calendario`<-paste(base$Semana,base$`Dia mes`,base$`Rango Hora`,
                               sep = "")

base$`Campo Calendario`<-paste(base$`Razón Social`," ","-"," "," ",base$`Nombre Contacto`,"-"," ",
                               base$`Motivo Visita`,"-",base$`Celular  / contacto`
                               )


base$`Agrupador actualizaciòn visita`<-paste(base$Fecha,base$`Hora Inicio Visita`,base$`Numero de NIT`)
                                          
base<- base %>% select(-Fecha)
library(stringr)
base$negativo<- str_detect(base$`Anticipación Visita`,"-")
base$`Anticipación Visita`<- case_when(
  base$negativo=="TRUE" ~ 0,
  base$negativo=="FALSE" ~ base$`Anticipación Visita`)
base<- base %>% select(-negativo)

base$`Fecha Agendamiento`<-as.Date(base$`Fecha Agendamiento`, origin="1899-12-30")
base$`Fecha de visita`<-as.Date(base$`Fecha de visita`, origin="1899-12-30")

base$`Anticipación Visita`[is.na(base$`Anticipación Visita`)]<-100

base$`Anticipación Visita`<- case_when(
  base$`Anticipación Visita`> 30 ~ 0,
  base$`Anticipación Visita`<= 30 ~ base$`Anticipación Visita`)

base<- base[!duplicated(base[,31]),]

library(openxlsx)
library(glue)
library(lubridate)
fecha<-glue::glue("Base VEO_{today()-ifelse(weekdays(today())=='Monday',3,1)}.xlsx")
nombre_archivo<-paste(fecha)
archivo_final<-paste("C:/Users/danmarta/Desktop/Proyecto Talento Joven/",nombre_archivo)

write.xlsx(base,archivo_final)

archivo_final<-paste("//B6500cj040u70/compartida/Agenda Comercial/Informes/VEO/",nombre_archivo)

write.xlsx(base,archivo_final)



###BASEPYMES###

library(readxl)
library(dplyr)
library(lubridate)

setwd("//10.0.0.20/informacioncomercial$/Agenda_Comercial/Bases_Consolidadas")
details<-file.info(list.files(pattern = "ConsolidadoPymes_"))
details<-details[with(details,order(as.POSIXct(mtime),decreasing=TRUE)),]
files_solicitudes<-rownames(details)[1]
name_subjet<-files_solicitudes
files_solicitudes<-paste("//10.0.0.20/informacioncomercial$/Agenda_Comercial/Bases_Consolidadas/",files_solicitudes,sep = "")
Base_Informe <- read_excel(files_solicitudes, 
                           col_types = c("date", "numeric", "text", 
                                         "text", "text", "date", "text", "text", 
                                         "text", "text", "text", "numeric", 
                                         "text", "text", "text", "text", "text", 
                                         "text", "text", "text", "text", "numeric", 
                                         "numeric", "numeric", "text", "text", 
                                         "text", "text", "numeric", "text", 
                                         "text", "text","text"))
Base_Informe<-Base_Informe[,-33]
fecha <- read_excel(files_solicitudes, 
                    col_types = c("date", "numeric", "text", 
                                  "text", "text", "date", "text", "text", 
                                  "text", "text", "text", "numeric", 
                                  "text", "text", "text", "text", "text", 
                                  "text", "text", "text", "text", "numeric", 
                                  "numeric", "numeric", "text", "text", 
                                  "text", "text", "numeric", "text", 
                                  "text", "text","text"))
fecha<-fecha[,-33]

fecha<- fecha %>% select(`Fecha de visita`)
colnames(fecha)[1]<-"Fecha"
Base_Informe<- cbind(Base_Informe,fecha)

Base_Informe$`Fecha de visita`[is.na(Base_Informe$`Fecha de visita`)]<-Sys.Date()-1 

Base_Informe$año<-year(Base_Informe$`Fecha de visita`)
Base_Informe$mes<-month(Base_Informe$`Fecha de visita`)

base<-Base_Informe %>% 
  filter(año=="2022")
base<-base %>% 
  filter(mes=="2")
base$`Forma de contacto`[base$`Forma de contacto`=="Vi+E6:U6deo Llamada"]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="videollamada"]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="videollamada "]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="Videollamada"]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="Videollamada "]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="llamada"]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="llamada "]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="Llamada "]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="Llamada"]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="Videoconferencia "]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="Videoconferencia"]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="videoconferencia "]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="videoconferencia"]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="VIDEOCONFERENCIA "]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="VIDEOCONFERENCIA"]<-"Teleconferencia "
base$`Forma de contacto`[base$`Forma de contacto`=="visita"]<-"Visita "
base$`Forma de contacto`[base$`Forma de contacto`=="visita "]<-"Visita "
base$`Forma de contacto`[base$`Forma de contacto`=="VISITA"]<-"Visita "
base$`Forma de contacto`[base$`Forma de contacto`=="VISITA "]<-"Visita "
base$`Forma de contacto`[base$`Forma de contacto`=="VISIITA"]<-"Visita "
base$`Forma de contacto`[base$`Forma de contacto`=="VISIITA "]<-"Visita "


base$`Motivo Visita`[base$`Motivo Visita`=="producto de Crédito"]<-"Video Llamada"
base$`Hora Inicio Visita`[base$`Hora Inicio Visita`=="03:00 p.m"]<-"15:00:00"
base$`Hora Inicio Visita`[base$`Hora Inicio Visita`=="02:30 p.m"]<-"14:30:00"
base<- base %>% select(-año,-mes)
base$`Rango Hora`<- case_when(
  base$`Hora Inicio Visita` =="12:00:00" ~ "12-1 Pm",
  base$`Hora Inicio Visita` =="12:30:00" ~ "12-1 Pm",
  base$`Hora Inicio Visita` =="13:00:00" ~ "1-2 pm",
  base$`Hora Inicio Visita` =="13:30:00" ~ "1-2 pm",
  base$`Hora Inicio Visita` =="14:00:00" ~ "2-3 pm",
  base$`Hora Inicio Visita` =="14:30:00" ~ "2-3 pm",
  base$`Hora Inicio Visita` =="15:00:00" ~ "3-4 pm",
  base$`Hora Inicio Visita` =="15:30:00" ~ "3-4 pm",
  base$`Hora Inicio Visita` =="16:00:00" ~ "4-5 pm",
  base$`Hora Inicio Visita` =="16:30:00" ~ "4-5 pm",
  base$`Hora Inicio Visita` =="17:00:00" ~ "5-6 pm",
  base$`Hora Inicio Visita` =="17:30:00" ~ "5-6 pm",
  base$`Hora Inicio Visita` =="18:00:00" ~ "6-7 pm",
  base$`Hora Inicio Visita` =="18:30:00" ~ "6-7 pm",
  base$`Hora Inicio Visita` =="07:00:00" ~ "7-8 am",
  base$`Hora Inicio Visita` =="07:30:00" ~ "7-8 am",
  base$`Hora Inicio Visita` =="08:00:00" ~ "8-9 am",
  base$`Hora Inicio Visita` =="08:30:00" ~ "8-9 am",
  base$`Hora Inicio Visita` =="09:00:00" ~ "9-10 am",
  base$`Hora Inicio Visita` =="09:30:00" ~ "9-10 am",
  base$`Hora Inicio Visita` =="10:00:00" ~ "10-11 am",
  base$`Hora Inicio Visita` =="10:30:00" ~ "10-11 am",
  base$`Hora Inicio Visita` =="11:00:00" ~ "11-12 am",
  base$`Hora Inicio Visita` =="11:30:00" ~ "11-12 am",
  base$`Hora Inicio Visita`=="11:30 a.m." ~ "11-12 am",
  base$`Hora Inicio Visita`=="11:00 a.m." ~ "11-12 am",
  base$`Hora Inicio Visita`=="10:30 a.m." ~ "10-11 am",
  base$`Hora Inicio Visita`=="10:00 a.m." ~ "10-11 am",
  base$`Hora Inicio Visita`=="09:30 a.m." ~ "9-10 am",
  base$`Hora Inicio Visita`=="09:00 a.m." ~ "9-10 am",
  base$`Hora Inicio Visita`=="08:30 a.m." ~ "8-9 am",
  base$`Hora Inicio Visita`=="08:00 a.m." ~ "8-9 am",
  base$`Hora Inicio Visita`=="07:00 a.m." ~ "7-8 am",
  base$`Hora Inicio Visita`=="07:30 a.m." ~ "7-8 am",
  base$`Hora Inicio Visita`=="12:30 p.m." ~ "12-1 Pm",
  base$`Hora Inicio Visita`=="12:00 p.m." ~ "12-1 Pm",
  base$`Hora Inicio Visita`=="01:00 p.m." ~ "1-2 pm",
  base$`Hora Inicio Visita`=="01:30 p.m." ~ "1-2 pm",
  base$`Hora Inicio Visita`=="02:00 p.m." ~ "2-3 pm",
  base$`Hora Inicio Visita`=="02:30 p.m." ~ "2-3 pm",
  base$`Hora Inicio Visita`=="03:00 p.m." ~ "3-4 pm",
  base$`Hora Inicio Visita`=="03:30 p.m." ~ "3-4 pm",
  base$`Hora Inicio Visita`=="04:00 p.m." ~ "4-5 pm",
  base$`Hora Inicio Visita`=="04:30 p.m." ~ "4-5 pm",
  base$`Hora Inicio Visita`=="05:00 p.m." ~ "5-6 pm",
  base$`Hora Inicio Visita`=="05:30 p.m." ~ "5-6 pm",
  base$`Hora Inicio Visita`=="06:00 p.m." ~ "6-7 pm",
  base$`Hora Inicio Visita`=="06:30 p.m." ~ "6-7 pm")

base$`Motivo Visita`[base$`Motivo Visita`=="producto captacion"]<-"Producto de Captación"
base$`Motivo Visita`[base$`Motivo Visita`=="producto de captacion"]<-"Producto de Captación"
base$`Motivo Visita`[base$`Motivo Visita`=="producto captación"]<-"Producto de Captación"
base$`Motivo Visita`[base$`Motivo Visita`=="producto de captación"]<-"Producto de Captación"
base$`Motivo Visita`[base$`Motivo Visita`=="producto credito"]<-"Producto de Crédito"
base$`Motivo Visita`[base$`Motivo Visita`=="producto de credito"]<-"Producto de Crédito"
base$`Motivo Visita`[base$`Motivo Visita`=="producto crédito"]<-"Producto de Crédito"
base$`Motivo Visita`[base$`Motivo Visita`=="producto de crédito"]<-"Producto de Crédito"

base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo "]<-"Activo"
base$`Tipo de cliente`[is.na(base$`Tipo de cliente`)]<-"Nuevo"  
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo "]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo"]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo"]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Inactivo "]<-"Inactivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="INACTIVO"]<-"Inactivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Nuevo "]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Nuevo"]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="nuevo"]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="nuevo "]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Nuevo  Prospecto"]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Nuevo Prospecto"]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="nuevo prospecto"]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="nuevo prospecto "]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="nuevo  prospecto "]<-"Nuevo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo- profundización "]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo- profundización "]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo-profundización "]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo-profundización"]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo- profundizacion "]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo- profundizacion "]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo-profundizacion "]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo-profundizacion"]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo-profundizacion"]<-"Activo- profundización"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Pasivo "]<-"Pasivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Pasivo"]<-"Pasivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="pasivo "]<-"Pasivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="pasivo"]<-"Pasivo"

base$`Numero de NIT`<- gsub("-","",base$`Numero de NIT`)
base<-base[!is.na(base$`Numero de NIT`),]

base$Regional[base$Regional=="Antioquia "]<-"Antioquia"
base$Regional[base$Regional=="antioquia"]<-"Antioquia"
base$Regional[base$Regional=="Antioaquia"]<-"Antioquia"
base$Regional[base$Regional=="antioaquia"]<-"Antioquia"
base$Regional[base$Regional=="Bogota "]<-"Bogotá"
base$Regional[base$Regional=="Bogota"]<-"Bogotá"
base$Regional[base$Regional=="bogota"]<-"Bogotá"
base$Regional[base$Regional=="Bogotá "]<-"Bogotá"
base$Regional[base$Regional=="bogotá"]<-"Bogotá"
base$Regional[base$Regional=="Cafetera "]<-"Cafetera"
base$Regional[base$Regional=="cafetera"]<-"Cafetera"
base$Regional[base$Regional=="Costa "]<-"Costa"
base$Regional[base$Regional=="costa"]<-"Costa"
base$Regional[base$Regional=="Occidente "]<-"Occidente"
base$Regional[base$Regional=="occidente"]<-"Occidente"
base$Regional[base$Regional=="Oriente "]<-"Oriente"
base$Regional[base$Regional=="oriente"]<-"Oriente"
base$Regional[base$Regional=="Santanderes "]<-"Santanderes"
base$Regional[base$Regional=="santanderes"]<-"Santanderes"
base$Regional[base$Regional=="Santander "]<-"Santanderes"
base$Regional[base$Regional=="santander"]<-"Santanderes"
base$Regional[base$Regional=="Santander"]<-"Santanderes"
base$Regional[base$Regional=="Sur "]<-"Sur"
base$Regional[base$Regional=="sur"]<-"Sur"

base$Ciudad[base$Ciudad=="acandi"]<-"Acandi"
base$Ciudad[base$Ciudad=="ACANDI"]<-"Acandi"
base$Ciudad[base$Ciudad=="alban"]<-"Alban"
base$Ciudad[base$Ciudad=="ALBAN"]<-"Alban"
base$Ciudad[base$Ciudad=="aldana"]<-"Aldana"
base$Ciudad[base$Ciudad=="ALDANA"]<-"Aldana"
base$Ciudad[base$Ciudad=="ALGECIRAS"]<-"Algeciras"
base$Ciudad[base$Ciudad=="algeciras"]<-"Algeciras"
base$Ciudad[base$Ciudad=="ANDES"]<-"Andes"
base$Ciudad[base$Ciudad=="andes"]<-"Andes"
base$Ciudad[base$Ciudad=="ANGELOPOLIS"]<-"Angelopolis"
base$Ciudad[base$Ciudad=="angelopolis"]<-"Angelopolis"
base$Ciudad[base$Ciudad=="ANOLAIMA"]<-"Anolaima"
base$Ciudad[base$Ciudad=="anolaima"]<-"Anolaima"
base$Ciudad[base$Ciudad=="APARTADO"]<-"Apartado"
base$Ciudad[base$Ciudad=="apartado"]<-"Apartado"
base$Ciudad[base$Ciudad=="ARATOCA"]<-"Aratoca"
base$Ciudad[base$Ciudad=="aratoca"]<-"Aratoca"
base$Ciudad[base$Ciudad=="ARAUCA"]<-"Arauca"
base$Ciudad[base$Ciudad=="arauca"]<-"Arauca"
base$Ciudad[base$Ciudad=="ARBOLEDA"]<-"Arboleda"
base$Ciudad[base$Ciudad=="arboleda"]<-"Arboleda"
base$Ciudad[base$Ciudad=="ARMENIA"]<-"Armenia"
base$Ciudad[base$Ciudad=="armenia"]<-"Armenia"
base$Ciudad[base$Ciudad=="ARMERO"]<-"Armero"
base$Ciudad[base$Ciudad=="armero"]<-"Armero"
base$Ciudad[base$Ciudad=="ARMERO-GUAYABAL"]<-"Armero"
base$Ciudad[base$Ciudad=="ATRATO"]<-"Atrato"
base$Ciudad[base$Ciudad=="atrato"]<-"Atrato"
base$Ciudad[base$Ciudad=="ATRATO YUTO"]<-"Atrato"
base$Ciudad[base$Ciudad=="AYAPEL"]<-"Ayapel"
base$Ciudad[base$Ciudad=="ayapel"]<-"Ayapel"
base$Ciudad[base$Ciudad=="BAJO BAUDO"]<-"Bajo Baudo"
base$Ciudad[base$Ciudad=="bajo baudo"]<-"Bajo Baudo"
base$Ciudad[base$Ciudad=="BALBOA"]<-"Balboa"
base$Ciudad[base$Ciudad=="balboa"]<-"Balboa"
base$Ciudad[base$Ciudad=="BARBACOAS"]<-"Barbacoas"
base$Ciudad[base$Ciudad=="barbacoas"]<-"Barbacoas"
base$Ciudad[base$Ciudad=="BARBOSA"]<-"Barbosa"
base$Ciudad[base$Ciudad=="barbosa"]<-"Barbosa"
base$Ciudad[base$Ciudad=="BARICHARA"]<-"Barichara"
base$Ciudad[base$Ciudad=="barichara"]<-"Barichara"
base$Ciudad[base$Ciudad=="BARRANCO DE LOBA"]<-"Barranco de Loba"
base$Ciudad[base$Ciudad=="barranco de loba"]<-"Barranco de Loba"
base$Ciudad[base$Ciudad=="BARRANQUILLA"]<-"Barranquilla"
base$Ciudad[base$Ciudad=="barranquilla"]<-"Barranquilla"
base$Ciudad[base$Ciudad=="BELEN"]<-"Belen"
base$Ciudad[base$Ciudad=="belen"]<-"Belen"
base$Ciudad[base$Ciudad=="BELLO"]<-"Bello"
base$Ciudad[base$Ciudad=="bello"]<-"Bello"
base$Ciudad[base$Ciudad=="BELMIRA"]<-"Belmira"
base$Ciudad[base$Ciudad=="belmira"]<-"Belmira"
base$Ciudad[base$Ciudad=="BETANIA"]<-"Betania"
base$Ciudad[base$Ciudad=="betania"]<-"Betania"
base$Ciudad[base$Ciudad=="BOGOTA"]<-"Bogotá"
base$Ciudad[base$Ciudad=="BOGOT A"]<-"Bogotá"
base$Ciudad[base$Ciudad=="Bogotá D.C"]<-"Bogotá"
base$Ciudad[base$Ciudad=="Bogota D.C"]<-"Bogotá"
base$Ciudad[base$Ciudad=="BUCARAMANGA"]<-"Bucaramanga"
base$Ciudad[base$Ciudad=="bucaramanga"]<-"Bucaramanga"
base$Ciudad[base$Ciudad=="BUENAVISTA"]<-"Buenavista"
base$Ciudad[base$Ciudad=="buenavista"]<-"Buenavista"
base$Ciudad[base$Ciudad=="BUGA"]<-"Buga"
base$Ciudad[base$Ciudad=="buga"]<-"Buga"
base$Ciudad[base$Ciudad=="BUGALAGRANDE"]<-"Bugalagrande"
base$Ciudad[base$Ciudad=="bugalagrande"]<-"Bugalagrande"
base$Ciudad[base$Ciudad=="C BOLIVAR"]<-"Ciudad Bolivar"
base$Ciudad[base$Ciudad=="ciudad bolivar"]<-"Ciudad Bolivar"
base$Ciudad[base$Ciudad=="CABUYARO"]<-"Cabuyaro"
base$Ciudad[base$Ciudad=="cabuyaro"]<-"Cabuyaro"
base$Ciudad[base$Ciudad=="CACHIPAY"]<-"Cachipay"
base$Ciudad[base$Ciudad=="cachipay"]<-"Cachipay"
base$Ciudad[base$Ciudad=="CAICEDO"]<-"Caicedo"
base$Ciudad[base$Ciudad=="caicedo"]<-"Caicedo"
base$Ciudad[base$Ciudad=="CAIMITO"]<-"Caimito"
base$Ciudad[base$Ciudad=="caimito"]<-"Caimito"
base$Ciudad[base$Ciudad=="CAJIBIO"]<-"Cajibio"
base$Ciudad[base$Ciudad=="cajibio"]<-"Cajibio"
base$Ciudad[base$Ciudad=="CAJICA"]<-"Cajica"
base$Ciudad[base$Ciudad=="cajica"]<-"Cajica"
base$Ciudad[base$Ciudad=="CALI"]<-"Cali"
base$Ciudad[base$Ciudad=="cali"]<-"Cali"
base$Ciudad[base$Ciudad=="CALIMA"]<-"Calima"
base$Ciudad[base$Ciudad=="calima"]<-"Calima"
base$Ciudad[base$Ciudad=="CALOTO"]<-"Caloto"
base$Ciudad[base$Ciudad=="caloto"]<-"Caloto"
base$Ciudad[base$Ciudad=="CAMEN DE VIBORAL"]<-"Carmen de Viboral"
base$Ciudad[base$Ciudad=="CARMEN DE VIBORAL"]<-"Carmen de Viboral"
base$Ciudad[base$Ciudad=="carmen de viboral"]<-"Carmen de Viboral"
base$Ciudad[base$Ciudad=="CARACOLI"]<-"Caracoli"
base$Ciudad[base$Ciudad=="caracoli"]<-"Caracoli"
base$Ciudad[base$Ciudad=="CARCASI"]<-"Carcasi"
base$Ciudad[base$Ciudad=="carcasi"]<-"Carcasi"
base$Ciudad[base$Ciudad=="CARMEN DE CARUPA"]<-"Carmen de Carupa"
base$Ciudad[base$Ciudad=="carmen de carupa"]<-"Carmane de Carupa"
base$Ciudad[base$Ciudad=="CARTAGENA"]<-"Cartagena"
base$Ciudad[base$Ciudad=="cartagena"]<-"Cartagena"
base$Ciudad[base$Ciudad=="CASTILLA LA NUEVA"]<-"Castilla la Nueva"
base$Ciudad[base$Ciudad=="castilla la nueva"]<-"Castilla la Nueva"
base$Ciudad[base$Ciudad=="Castilla la nueva"]<-"Castilla la Nueva"
base$Ciudad[base$Ciudad=="CAUCA"]<-"Cauca"
base$Ciudad[base$Ciudad=="cauca"]<-"Cauca"
base$Ciudad[base$Ciudad=="CAUCASIA"]<-"Caucasia"
base$Ciudad[base$Ciudad=="caucasia"]<-"Caucasia"
base$Ciudad[base$Ciudad=="CERETE"]<-"Cereté"
base$Ciudad[base$Ciudad=="cerete"]<-"Cereté"
base$Ciudad[base$Ciudad=="CERETÉ"]<-"Cereté"
base$Ciudad[base$Ciudad=="cereté"]<-"Cereté"
base$Ciudad[base$Ciudad=="CHAPARRAL"]<-"Chaparral"
base$Ciudad[base$Ciudad=="chaparral"]<-"Chaparral"
base$Ciudad[base$Ciudad=="CHIA"]<-"Chia"
base$Ciudad[base$Ciudad=="chia"]<-"Chia"
base$Ciudad[base$Ciudad=="CHINAVITA"]<-"Chinavita"
base$Ciudad[base$Ciudad=="chinavita"]<-"Chinavita" 
base$Ciudad[base$Ciudad=="CHIQUINQUIRA"]<-"Chiquinquira"
base$Ciudad[base$Ciudad=="chiquinquira"]<-"Chiquinquira"
base$Ciudad[base$Ciudad=="CIENAGA"]<-"Cienaga"
base$Ciudad[base$Ciudad=="cienega"]<-"Cienaga"
base$Ciudad[base$Ciudad=="COLON GENOVA"]<-"Colon Genova"
base$Ciudad[base$Ciudad=="colon genova"]<-"Colon Genova"
base$Ciudad[base$Ciudad=="CONCORDIA"]<-"Concordia"
base$Ciudad[base$Ciudad=="concordia"]<-"Concordia"
base$Ciudad[base$Ciudad=="CONSACA"]<-"Consaca"
base$Ciudad[base$Ciudad=="consaca"]<-"Consaca"
base$Ciudad[base$Ciudad=="CONTADERO"]<-"Contadero"
base$Ciudad[base$Ciudad=="contadero"]<-"Contadero"
base$Ciudad[base$Ciudad=="COPACABANA"]<-"Copacabana"
base$Ciudad[base$Ciudad=="copacabana"]<-"Copacabana"
base$Ciudad[base$Ciudad=="COTA"]<-"Cota"
base$Ciudad[base$Ciudad=="cota"]<-"Cota"
base$Ciudad[base$Ciudad=="CUBARA"]<-"Cubara"
base$Ciudad[base$Ciudad=="cubara"]<-"Cubara"
base$Ciudad[base$Ciudad=="CUBARRAL"]<-"Cubarral"
base$Ciudad[base$Ciudad=="cubarral"]<-"Cubarral"
base$Ciudad[base$Ciudad=="CUMARAL META"]<-"Cumaral Meta"
base$Ciudad[base$Ciudad=="cumaral meta"]<-"Cumaral Meta"
base$Ciudad[base$Ciudad=="CUMARIBO"]<-"Cumaribo"
base$Ciudad[base$Ciudad=="cumaribo"]<-"Cumaribo"
base$Ciudad[base$Ciudad=="CUMBAL"]<-"Cumbal"
base$Ciudad[base$Ciudad=="cumbal"]<-"Cumbal"
base$Ciudad[base$Ciudad=="CURITI"]<-"Curiti"
base$Ciudad[base$Ciudad=="curiti"]<-"Curiti"
base$Ciudad[base$Ciudad=="DABEIBA"]<-"Dabeiba"
base$Ciudad[base$Ciudad=="dabeiba"]<-"Dabeiba"
base$Ciudad[base$Ciudad=="DAGUA"]<-"Dagua"
base$Ciudad[base$Ciudad=="dagua"]<-"Dagua"
base$Ciudad[base$Ciudad=="DUITAMA"]<-"Duitama"
base$Ciudad[base$Ciudad=="duitama"]<-"Duitama"
base$Ciudad[base$Ciudad=="EBEJICO"]<-"Ebejico"
base$Ciudad[base$Ciudad=="ebejico"]<-"Ebejico"
base$Ciudad[base$Ciudad=="EL BANCO"]<-"El Banco"
base$Ciudad[base$Ciudad=="el banco"]<-"El Banco"
base$Ciudad[base$Ciudad=="EL CARMEN DEL DARIEN"]<-"El Carmen del Darien"
base$Ciudad[base$Ciudad=="el carmen del darien"]<-"El Carmen del Darien"
base$Ciudad[base$Ciudad=="EL CERRITO"]<-"El Cerrito"
base$Ciudad[base$Ciudad=="el cerrito"]<-"El Cerrito"
base$Ciudad[base$Ciudad=="EL COPEY"]<-"El Copey"
base$Ciudad[base$Ciudad=="el copey"]<-"El Copey"
base$Ciudad[base$Ciudad=="EL RETORNO GUAVIARE"]<-"El Retorno Guaviare"
base$Ciudad[base$Ciudad=="el getorno guaviare"]<-"El Retorno Guaviare"
base$Ciudad[base$Ciudad=="EL TABLON DE GOMEZ"]<-"El Tablon de Goméz"
base$Ciudad[base$Ciudad=="el tablon de gomez"]<-"El Tablon de Goméz"
base$Ciudad[base$Ciudad=="EL TABLON DE GOMÉZ"]<-"El Tablon de Goméz"
base$Ciudad[base$Ciudad=="el tablon de goméz"]<-"El Tablon de Goméz"
base$Ciudad[base$Ciudad=="EL TAMBO"]<-"El Tambo"
base$Ciudad[base$Ciudad=="el tambo"]<-"El Tambo"
base$Ciudad[base$Ciudad=="FACATATIVA"]<-"Facatativa"
base$Ciudad[base$Ciudad=="facatativa"]<-"Facatativa"
base$Ciudad[base$Ciudad=="FALAN"]<-"Falan"
base$Ciudad[base$Ciudad=="falan"]<-"Falan"
base$Ciudad[base$Ciudad=="FLORENCIA"]<-"Florencia"
base$Ciudad[base$Ciudad=="florencia"]<-"Florencia"
base$Ciudad[base$Ciudad=="FLORIDA VALLE"]<-"Florida Valle"
base$Ciudad[base$Ciudad=="florida valle"]<-"Florida Valle"
base$Ciudad[base$Ciudad=="FONSECA"]<-"Fonseca"
base$Ciudad[base$Ciudad=="fonseca"]<-"Fonseca"
base$Ciudad[base$Ciudad=="FRANCISCO PIZARRO"]<-"Francisco Pizarro"
base$Ciudad[base$Ciudad=="francisco pizarro"]<-"Francisco Pizarro"
base$Ciudad[base$Ciudad=="FRONTINO"]<-"Frontino"
base$Ciudad[base$Ciudad=="frontino"]<-"Frontino"
base$Ciudad[base$Ciudad=="FUSAGASUGA"]<-"Fusagasuga"
base$Ciudad[base$Ciudad=="fusagasuga"]<-"Fusagasuga"
base$Ciudad[base$Ciudad=="GACHALÁ"]<-"Gachalá"
base$Ciudad[base$Ciudad=="gachalá"]<-"Gachalá"
base$Ciudad[base$Ciudad=="GACHALA"]<-"Gachalá"
base$Ciudad[base$Ciudad=="gachala"]<-"Gachalá"
base$Ciudad[base$Ciudad=="GAMA"]<-"Gama"
base$Ciudad[base$Ciudad=="gama"]<-"Gama"
base$Ciudad[base$Ciudad=="GARZON"]<-"Garzon"
base$Ciudad[base$Ciudad=="garzon"]<-"Garzon"
base$Ciudad[base$Ciudad=="GIRARDOTA"]<-"Girardota"
base$Ciudad[base$Ciudad=="girardota"]<-"Girardota"
base$Ciudad[base$Ciudad=="GIRÓN"]<-"Girón"
base$Ciudad[base$Ciudad=="girón"]<-"Girón"
base$Ciudad[base$Ciudad=="GIRON"]<-"Girón"
base$Ciudad[base$Ciudad=="giron"]<-"Girón"
base$Ciudad[base$Ciudad=="GIRÒN"]<-"Girón"
base$Ciudad[base$Ciudad=="giròn"]<-"Girón"
base$Ciudad[base$Ciudad=="GUACHUCAL"]<-"Guachucal"
base$Ciudad[base$Ciudad=="guachucal"]<-"Guachucal"
base$Ciudad[base$Ciudad=="GUALMATAN"]<-"Gualmatan"
base$Ciudad[base$Ciudad=="gualmatan"]<-"Gualmatan"
base$Ciudad[base$Ciudad=="GUAPI"]<-"Guapi"
base$Ciudad[base$Ciudad=="guapi"]<-"Guapi"
base$Ciudad[base$Ciudad=="GUATEQUE"]<-"Guateque"
base$Ciudad[base$Ciudad=="guateque"]<-"Guateque"
base$Ciudad[base$Ciudad=="GUAYATÁ"]<-"Guayatá"
base$Ciudad[base$Ciudad=="guayatá"]<-"Guayatá"
base$Ciudad[base$Ciudad=="GUAYATA"]<-"Guayatá"
base$Ciudad[base$Ciudad=="guayata"]<-"Guayatá"
base$Ciudad[base$Ciudad=="HELICONIA"]<-"Heliconia"
base$Ciudad[base$Ciudad=="heliconia"]<-"Heliconia"
base$Ciudad[base$Ciudad=="HISPANIA"]<-"Hispania"
base$Ciudad[base$Ciudad=="hispania"]<-"Hispania"
base$Ciudad[base$Ciudad=="IBAGUE"]<-"Ibague"
base$Ciudad[base$Ciudad=="ibague"]<-"Ibague"
base$Ciudad[base$Ciudad=="IPIALES"]<-"Ipiales"
base$Ciudad[base$Ciudad=="ipiales"]<-"Ipiales"
base$Ciudad[base$Ciudad=="ITAGUI"]<-"Itagüi"
base$Ciudad[base$Ciudad=="itagui"]<-"Itagüi"
base$Ciudad[base$Ciudad=="ITAGÜI"]<-"Itagüi"
base$Ciudad[base$Ciudad=="itagüi"]<-"Itagüi"
base$Ciudad[base$Ciudad=="JAMBALO"]<-"Jambalo"
base$Ciudad[base$Ciudad=="jambalo"]<-"Jambalo"
base$Ciudad[base$Ciudad=="JAMUNDI"]<-"Jamundi"
base$Ciudad[base$Ciudad=="jamundi"]<-"Jamundi"
base$Ciudad[base$Ciudad=="JARDIN"]<-"Jardin"
base$Ciudad[base$Ciudad=="jardin"]<-"Jardin"
base$Ciudad[base$Ciudad=="JESUS MARIA"]<-"Jesus Maria"
base$Ciudad[base$Ciudad=="jesus maria"]<-"Jesus Maria"
base$Ciudad[base$Ciudad=="JURADO"]<-"Jurado"
base$Ciudad[base$Ciudad=="jurado"]<-"Jurado"

base$`Estado de visita`[base$`Estado de visita`=="cerrada "]<-"Cerrada "
base$`Estado de visita`[base$`Estado de visita`=="Cerrada"]<-"Cerrada "
base$`Estado de visita`[base$`Estado de visita`=="cerrada"]<-"Cerrada "
base$`Estado de visita`[base$`Estado de visita`=="Cancelada "]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="cancelada "]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="cancelada"]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="Reagendada "]<-"Reagendada"
base$`Estado de visita`[base$`Estado de visita`=="reagendada "]<-"Reagendada"
base$`Estado de visita`[base$`Estado de visita`=="reagendada"]<-"Reagendada"

base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="cerrada"]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="Cerrada "]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="cerrada "]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="Sincierre "]<-"Sincierre"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="sincierre "]<-"Sincierre"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="sincierre"]<-"Sincierre"

base$`Día Semana`<-format(base$`Fecha de visita`,"%A")
base$Mes<-month(base$`Fecha de visita`)
base$`Dia mes`<-day(base$`Fecha de visita`)

Agenda_Comercial_Nuevo_Formato_VEO <- read_excel("C:/Users/danmarta/Desktop/Proyecto Talento Joven/Agenda Comercial_ Nuevo Formato.xlsx",
                                                 sheet = "Tablas")

agenda<- Agenda_Comercial_Nuevo_Formato_VEO %>% select("DIA", "Semana") 

colnames(agenda)<- c("Fecha de visita",
                     "Semana")

base<- base %>% select(-"Semana") 

base<- left_join(base,agenda, by ="Fecha de visita")

base<- base %>% select("Fecha Agendamiento","Cedula Gerente",                   
                       "Nombre Gerente","Regional",                         
                       "Forma de contacto","Fecha de visita",                  
                       "Hora Inicio Visita","Hora Finalización Visita",         
                       "Motivo Visita","Tipo de cliente",
                       "Razón Social","Numero de NIT",
                       "Nombre Contacto","Ciudad",                           
                       "Celular  / contacto","Estado de visita",                 
                       "Resultado Visita","Venta de Producto",                
                       "Venta de Producto 2","Venta de Producto 3",              
                       "Observaciones de Cierre","Día Semana",                       
                       "Mes","Dia mes",                          
                       "Semana","Rango Hora",                       
                       "Rango Calendario","Campo Calendario",                 
                       "Anticipación Visita","Estado Visita Calendario",         
                       "Agrupador actualizaciòn visita","Campo estado de visita Calendario",
                       "Fecha") 

base$`Rango Calendario`<-paste(base$Semana,base$`Dia mes`,base$`Rango Hora`,
                               sep = "")

base$`Campo Calendario`<-paste(base$`Razón Social`," ","-"," "," ",base$`Nombre Contacto`,"-"," ",
                               base$`Motivo Visita`,"-",base$`Celular  / contacto`
)


base$`Agrupador actualizaciòn visita`<-paste(base$Fecha,base$`Hora Inicio Visita`,base$`Numero de NIT`)

base<- base %>% select(-Fecha)
library(stringr)
base$negativo<- str_detect(base$`Anticipación Visita`,"-")
base$`Anticipación Visita`<- case_when(
  base$negativo=="TRUE" ~ 0,
  base$negativo=="FALSE" ~ base$`Anticipación Visita`)
base<- base %>% select(-negativo)

base$`Fecha Agendamiento`<-as.Date(base$`Fecha Agendamiento`, origin="1899-12-30")
base$`Fecha de visita`<-as.Date(base$`Fecha de visita`, origin="1899-12-30")

base$`Anticipación Visita`[is.na(base$`Anticipación Visita`)]<-100

base$`Anticipación Visita`<- case_when(
  base$`Anticipación Visita`> 30 ~ 0,
  base$`Anticipación Visita`<= 30 ~ base$`Anticipación Visita`)

base<- base[!duplicated(base[,31]),]

library(openxlsx)
library(glue)
library(lubridate)
fecha<-glue::glue("Base Pymes_{today()-ifelse(weekdays(today())=='Monday',3,1)}.xlsx")
nombre_archivo<-paste(fecha)
archivo_final<-paste("C:/Users/danmarta/Desktop/Proyecto Talento Joven/",nombre_archivo)
write.xlsx(base,archivo_final)
archivo_final<-paste("//B6500cj040u70/compartida/Agenda Comercial/Informes/Pymes_Consolida/",nombre_archivo)

write.xlsx(base,archivo_final)

###BASENEGESPECIALIZADOS###

library(readxl)
library(dplyr)
library(lubridate)

setwd("//10.0.0.20/informacioncomercial$/Agenda_Comercial/Bases_Consolidadas")
details<-file.info(list.files(pattern = "NegEsp_Agenda_"))
details<-details[with(details,order(as.POSIXct(mtime),decreasing=TRUE)),]
files_solicitudes<-rownames(details)[1]
name_subjet<-files_solicitudes
files_solicitudes<-paste("//10.0.0.20/informacioncomercial$/Agenda_Comercial/Bases_Consolidadas/",files_solicitudes,sep = "")
Base_Informe <- read_excel(files_solicitudes, 
                           col_types = c("date", "numeric", "text", 
                                         "text", "text", "text", "date", "text", 
                                         "text", "text", "text", "text", 
                                         "text", "text", "text", "text", "text", 
                                         "text", "text", "text", "text", "numeric", 
                                         "numeric", "numeric", "text", "text", 
                                         "numeric", "text", "text", "text", 
                                         "text", "text","text","text","text",
                                         "text","text","text","text","text","text",
                                         "text","text","text","text","text"))
Base_Informe<-Base_Informe[,-34:-46]
fecha <- read_excel(files_solicitudes, 
                    col_types = c("date", "numeric", "text", 
                                  "text", "text", "text", "numeric", "text", 
                                  "text", "text", "text", "numeric", 
                                  "text", "text", "text", "text", "text", 
                                  "text", "text", "text", "text", "numeric", 
                                  "numeric", "numeric", "text", "text", 
                                  "numeric", "text", "text", "text", 
                                  "text", "text","text","text","text",
                                  "text","text","text","text","text","text",
                                  "text","text","text","text","text"))
fecha<-fecha[,-34:-46]

fecha<- fecha %>% select(`Fecha de visita`)
colnames(fecha)[1]<-"Fecha"
Base_Informe<- cbind(Base_Informe,fecha)

Base_Informe$`Fecha de visita`[is.na(Base_Informe$`Fecha de visita`)]<-Sys.Date()-1 

Base_Informe$año<-year(Base_Informe$`Fecha de visita`)
Base_Informe$mes<-month(Base_Informe$`Fecha de visita`)

base<-Base_Informe %>% 
  filter(año=="2022")
base<-base %>% 
  filter(mes=="2")
base$`Forma de contacto`[base$`Forma de contacto`=="Vi+E6:U6deo Llamada"]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="videollamada"]<-"Video Llamada "
base$`Forma de contacto`[base$`Forma de contacto`=="llamada"]<-"Video Llamada "
base$`Motivo Visita`[base$`Motivo Visita`=="producto de Crédito"]<-"Video Llamada "
base$`Hora Inicio Visita`[base$`Hora Inicio Visita`=="03:00 p.m"]<-"15:00:00"
base$`Hora Inicio Visita`[base$`Hora Inicio Visita`=="02:30 p.m"]<-"14:30:00"
base<- base %>% select(-año,-mes)
base$`Rango Hora`<- case_when(
  base$`Hora Inicio Visita` =="12:00:00" ~ "12-1 Pm",
  base$`Hora Inicio Visita` =="12:30:00" ~ "12-1 Pm",
  base$`Hora Inicio Visita` =="13:00:00" ~ "1-2 pm",
  base$`Hora Inicio Visita` =="13:30:00" ~ "1-2 pm",
  base$`Hora Inicio Visita` =="14:00:00" ~ "2-3 pm",
  base$`Hora Inicio Visita` =="14:30:00" ~ "2-3 pm",
  base$`Hora Inicio Visita` =="15:00:00" ~ "3-4 pm",
  base$`Hora Inicio Visita` =="15:30:00" ~ "3-4 pm",
  base$`Hora Inicio Visita` =="16:00:00" ~ "4-5 pm",
  base$`Hora Inicio Visita` =="16:30:00" ~ "4-5 pm",
  base$`Hora Inicio Visita` =="17:00:00" ~ "5-6 pm",
  base$`Hora Inicio Visita` =="17:30:00" ~ "5-6 pm",
  base$`Hora Inicio Visita` =="18:00:00" ~ "6-7 pm",
  base$`Hora Inicio Visita` =="18:30:00" ~ "6-7 pm",
  base$`Hora Inicio Visita` =="07:00:00" ~ "7-8 am",
  base$`Hora Inicio Visita` =="07:30:00" ~ "7-8 am",
  base$`Hora Inicio Visita` =="08:00:00" ~ "8-9 am",
  base$`Hora Inicio Visita` =="08:30:00" ~ "8-9 am",
  base$`Hora Inicio Visita` =="09:00:00" ~ "9-10 am",
  base$`Hora Inicio Visita` =="09:30:00" ~ "9-10 am",
  base$`Hora Inicio Visita` =="10:00:00" ~ "10-11 am",
  base$`Hora Inicio Visita` =="10:30:00" ~ "10-11 am",
  base$`Hora Inicio Visita` =="11:00:00" ~ "11-12 am",
  base$`Hora Inicio Visita` =="11:30:00" ~ "11-12 am",
  base$`Hora Inicio Visita`=="11:30 a.m." ~ "11-12 am",
  base$`Hora Inicio Visita`=="11:00 a.m." ~ "11-12 am",
  base$`Hora Inicio Visita`=="10:30 a.m." ~ "10-11 am",
  base$`Hora Inicio Visita`=="10:00 a.m." ~ "10-11 am",
  base$`Hora Inicio Visita`=="09:30 a.m." ~ "9-10 am",
  base$`Hora Inicio Visita`=="09:00 a.m." ~ "9-10 am",
  base$`Hora Inicio Visita`=="08:30 a.m." ~ "8-9 am",
  base$`Hora Inicio Visita`=="08:00 a.m." ~ "8-9 am",
  base$`Hora Inicio Visita`=="07:00 a.m." ~ "7-8 am",
  base$`Hora Inicio Visita`=="07:30 a.m." ~ "7-8 am",
  base$`Hora Inicio Visita`=="12:30 p.m." ~ "12-1 Pm",
  base$`Hora Inicio Visita`=="12:00 p.m." ~ "12-1 Pm",
  base$`Hora Inicio Visita`=="01:00 p.m." ~ "1-2 pm",
  base$`Hora Inicio Visita`=="01:30 p.m." ~ "1-2 pm",
  base$`Hora Inicio Visita`=="02:00 p.m." ~ "2-3 pm",
  base$`Hora Inicio Visita`=="02:30 p.m." ~ "2-3 pm",
  base$`Hora Inicio Visita`=="03:00 p.m." ~ "3-4 pm",
  base$`Hora Inicio Visita`=="03:30 p.m." ~ "3-4 pm",
  base$`Hora Inicio Visita`=="04:00 p.m." ~ "4-5 pm",
  base$`Hora Inicio Visita`=="04:30 p.m." ~ "4-5 pm",
  base$`Hora Inicio Visita`=="05:00 p.m." ~ "5-6 pm",
  base$`Hora Inicio Visita`=="05:30 p.m." ~ "5-6 pm",
  base$`Hora Inicio Visita`=="06:00 p.m." ~ "6-7 pm",
  base$`Hora Inicio Visita`=="06:30 p.m." ~ "6-7 pm")

base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo "]<-"Activo"
base$`Tipo de cliente`[is.na(base$`Tipo de cliente`)]<-"Nuevo"  
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo "]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Activo"]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="activo"]<-"Activo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Inactivo "]<-"Inactivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="INACTIVO"]<-"Inactivo"
base$`Tipo de cliente`[base$`Tipo de cliente`=="Nuevo "]<-"Nuevo"

base$`Numero de NIT`<- gsub("-","",base$`Numero de NIT`)
base<-base[!is.na(base$`Numero de NIT`),]

base$Regional[base$Regional=="Antioquia "]<-"Antioquia"
base$Regional[base$Regional=="antioquia"]<-"Antioquia"
base$Regional[base$Regional=="Bogota "]<-"Bogotá"
base$Regional[base$Regional=="Bogota"]<-"Bogotá"
base$Regional[base$Regional=="bogota"]<-"Bogotá"
base$Regional[base$Regional=="Bogotá "]<-"Bogotá"
base$Regional[base$Regional=="bogotá"]<-"Bogotá"
base$Regional[base$Regional=="Cafetera "]<-"Cafetera"
base$Regional[base$Regional=="cafetera"]<-"Cafetera"
base$Regional[base$Regional=="Costa "]<-"Costa"
base$Regional[base$Regional=="costa"]<-"Costa"
base$Regional[base$Regional=="Occidente "]<-"Occidente"
base$Regional[base$Regional=="occidente"]<-"Occidente"
base$Regional[base$Regional=="Oriente "]<-"Oriente"
base$Regional[base$Regional=="oriente"]<-"Oriente"
base$Regional[base$Regional=="Santanderes "]<-"Santanderes"
base$Regional[base$Regional=="santanderes"]<-"Santanderes"
base$Regional[base$Regional=="Santander "]<-"Santanderes"
base$Regional[base$Regional=="santander"]<-"Santanderes"
base$Regional[base$Regional=="Santander"]<-"Santanderes"
base$Regional[base$Regional=="Sur "]<-"Sur"
base$Regional[base$Regional=="sur"]<-"Sur"

base$`Estado de visita`[base$`Estado de visita`=="Realizada "]<-"Realizada"
base$`Estado de visita`[base$`Estado de visita`=="realizada"]<-"Realizada"
base$`Estado de visita`[base$`Estado de visita`=="Cancelada "]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="cancelada "]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="cancelada"]<-"Cancelada"
base$`Estado de visita`[base$`Estado de visita`=="Reagendada "]<-"Reagendada"
base$`Estado de visita`[base$`Estado de visita`=="reagendada "]<-"Reagendada"
base$`Estado de visita`[base$`Estado de visita`=="reagendada"]<-"Reagendada"

base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="cerrada"]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="Cerrada "]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="cerrada "]<-"Cerrada"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="Sincierre "]<-"Sincierre"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="sincierre "]<-"Sincierre"
base$`Campo estado de visita Calendario`[base$`Campo estado de visita Calendario`=="sincierre"]<-"Sincierre"

base$`Día Semana`<-format(base$`Fecha de visita`,"%A")
base$Mes<-month(base$`Fecha de visita`)
base$`Dia mes`<-day(base$`Fecha de visita`)

Agenda_Comercial_Nuevo_Formato_VEO <- read_excel("C:/Users/danmarta/Desktop/Proyecto Talento Joven/Agenda Comercial_ Nuevo Formato.xlsx",
                                                 sheet = "Tablas")

agenda<- Agenda_Comercial_Nuevo_Formato_VEO %>% select("DIA", "Semana") 

colnames(agenda)<- c("Fecha de visita",
                     "Semana")

base<- base %>% select(-"Semana") 

base<- left_join(base,agenda, by ="Fecha de visita")
names(base)





base<- base %>% select("Fecha Agendamiento","Cedula Gerente Negocios Especializados",                   
                       "Nombre Gerente Especializado","Gerente Comercial","Regional",                         
                       "Forma de contacto","Fecha de visita",                  
                       "Hora Inicio Visita","Hora Finalización Visita",         
                       "Motivo Visita","Tipo de cliente",
                       "Razón Social","Numero de NIT",
                       "Nombre Contacto",                       
                       "Celular  / contacto","Estado de visita",                 
                       "Resultado Visita","Venta de Producto",
                       "Observaciones de Cierre","Día Semana",                       
                       "Mes","Dia mes",                          
                       "Semana","Rango Hora",                       
                       "Rango Calendario","Campo Calendario",                 
                       "Anticipación Visita","Estado Visita Calendario",         
                       "Agrupador actualizaciòn visita","Campo estado de visita Calendario","Campo estados de Producto Gerente de cuenta",
                       "Campo estados de Producto tipo de cliente","Viceprecidencia","Fecha") 

base$`Rango Calendario`<-paste(base$Semana,base$`Dia mes`,base$`Rango Hora`,
                               sep = "")

base$`Campo Calendario`<-paste(base$`Razón Social`," ","-"," "," ",base$`Nombre Contacto`,"-"," ",
                               base$`Motivo Visita`,"-",base$`Celular  / contacto`
)


base$`Agrupador actualizaciòn visita`<-paste(base$Fecha,base$`Hora Inicio Visita`,base$`Numero de NIT`)

base<- base %>% select(-Fecha)
library(stringr)
base$negativo<- str_detect(base$`Anticipación Visita`,"-")
base$`Anticipación Visita`<- case_when(
  base$negativo=="TRUE" ~ 0,
  base$negativo=="FALSE" ~ base$`Anticipación Visita`)
base<- base %>% select(-negativo)

base$`Fecha Agendamiento`<-as.Date(base$`Fecha Agendamiento`, origin="1899-12-30")
base$`Fecha de visita`<-as.Date(base$`Fecha de visita`, origin="1899-12-30")

base$`Anticipación Visita`[is.na(base$`Anticipación Visita`)]<-100

base$`Anticipación Visita`<- case_when(
  base$`Anticipación Visita`> 30 ~ 0,
  base$`Anticipación Visita`<= 30 ~ base$`Anticipación Visita`)

base<- base[!duplicated(base[,29]),]

library(openxlsx)
library(glue)
library(lubridate)
fecha<-glue::glue("Base NegEsp_Agenda{today()-ifelse(weekdays(today())=='Monday',3,1)}.xlsx")
nombre_archivo<-paste(fecha)
archivo_final<-paste("C:/Users/danmarta/Desktop/Proyecto Talento Joven/",nombre_archivo)

write.xlsx(base,archivo_final)

archivo_final<-paste("//B6500cj040u70/compartida/Agenda Comercial/Informes/Neg_Especializados/",nombre_archivo)

write.xlsx(base,archivo_final)