# /Users/rsaporta/git/orch/src/MasterUPC/ManuallyUpdate.r

setScience(proj="MasterUPC", subProj="ManuallyUpdate")
wh <- "LOOKER_WH_LARGE"
dbname <- "prod"

dict.manual_parent_upcs <- get_dict_manual_parent_upcs()

dict.manual_parent_upcs %<>% lapply(as.idcol)



setSnowflake(wh=wh, dbname=dbname)


sfShowTables("bi")

tbl <- "UPC_PARENT_TABLE"
schema <- "bi"

qry <- makeQry(tbl=tbl, schema=schema, colsToPull="*", original_upc=c(names(dict.manual_parent_upcs), unlist(dict.manual_parent_upcs)))
DT.upc_parent_table <- sfQry(qry) %>% setIDCols()

sfQry(makeQry(tbl="dim_release", schema="production", colsToPull="*", releaseid=c(names(dict.manual_parent_upcs), unlist(dict.manual_parent_upcs))))


original_upc  parent_upc min_upc_in_group

i <- 1

qry.alter <- 
sprintf("UPDATE %s
SET parent_upc = %s
WHERE original_upc in %s
"
, dbschematbl(dbname, schema, tbl)
, names(dict.manual_parent_upcs)[[i]]
, pasteQ(dict.manual_parent_upcs[[i]], q="")
)


qry.alter <- 
sprintf("UPDATE %s
SET RELEASE_PARENT_UPC = %s
WHERE RELEASEID in %s
"
, dbschematbl(dbname, schema, "analytics_track_level")
, names(dict.manual_parent_upcs)[[i]]
, pasteQ(dict.manual_parent_upcs[[i]], q="")
)



sfQry(qry.alter)

sfShowCols(tbl="analytics_track_level", schema=schema)


   SELECT MAX(activity_date) AS "activity_date"
   FROM   bi.analytics_track_level
   WHERE  (storeid=286)
   ---------------------------------------------------------------------------------------------------