# Checking Test UPC.r


.us()
setScience("EU_PricingTest_2015", create=TRUE, subl=FALSE, load=FALSE)
setDBall(cluster = 09)

testUpc <- "829410710466"

## This returns 0 rows. 
## runQry("SELECT downlaod_activity_date from fact_analytics where not (downlaod_activity_date is NULL) limit 1")

dateCol <- "download_activity_date"
colsToPull <- c(dateCol, "storeid", "releaseid")
colsToAgg  <- c("paidunits", "royaltydollar")
# minDate <- as.Date("2010-01-01") 
minDate <- as.Date("2014-09-01") 
minDate <- as.Date("2015-02-01") 

Q <- makeQry(tbl="fact_analytics", schema="production", colsToPull=colsToPull, colsToAgg, dateCol=dateCol[[1]], minDate=minDate, where=list(artistid=74410))
(DT.testupc <- runQry(Q, cluster=9))

qMaxDate(tbl="fact_analytics", schema="production")