setScience("forSarah", create=FALSE, subl=FALSE)
lib(bit64)
lib(reshape2)
lib(data.table)

UPCs1 <- c("859704232091", "84854224195", "84854250309", "84854292996", "84854295478", "84854263927", "859704027833", "847108050403", "84854216671", "888002019745", "859705979254", "847108037497", "859703682491", "859703682019", "859705403551", "859703578541", "847108000392", "859703807528")
UPCs2 <- c("859706469754", "84854231278", "859705962317", "84854263965", "859706464254", "859705406743", "859705979384", "859703621780", "859703682378", "859705400536", "859703577742", "847108008374", "847108000729")
UPCs <- unique(c(UPCs1, UPCs2))

ISRCs <- c("QMT281200393", "859705401922", "QMT281200392", "QMT281202005", "QMT281202006", "QMT281202007", "QMT281200414", "QMT281100054")


colsToPull = c("activity_month", "track_name", "releaseid", "isrc")
colsToAgg = c("units")

## Whoops! Trackid is NOT ISRC.  No ISRC info in DB
where <- sprintf("releaseid in %s OR isrc in %s", pasteQ(UPCs), pasteQ(ISRCs))

qry.sandusk <- makeQry(tbl="accounting", schema="bi", colsToAgg=colsToAgg, colsToPull, minDate="2013-01-01", maxDate="2013-12-31", dateCol="activity_month", where=where)

# if (FALSE)
#   SanduskResults <- fread("~rsaporta/git/orch/out/forSarah/sandusk.csv")
SanduskResults <- runQry(qry.sandusk, verbose=TRUE)
SanduskResults[, releaseid := as.character(releaseid)]
SanduskResults[, isrc      := as.character(isrc)]

SanduskResults.dcast <- dcast.data.table(SanduskResults, releaseid + isrc + track_name ~ activity_month, value.var="units", FUN="sumn")

f.out <- out.p("sandusk", ts=TRUE, frmt.ts = "_%Y%m%d", ext="csv")
if (file.exists(f.out))
  unlink(f.out)

write.table(x=SanduskResults.dcast, file=f.out, sep=",", row.names=FALSE, col.names=TRUE)

quickEmail("sarah" = "ssandusky@theorchard.com",
          subject="Updated UPCs/ISRCs for 2013", file=f.out, 
          body="Hey %fname%,\nI ran an updated version of your request and is attached.\nI hope it's still useful.\n\nPS. If you got this email twice this afternoon, please disregard this second one.", sig="rick")



quickEmail("RR TO" = "rsaporta@theorchard.com", cc=getrscc(), 
          subject="NEW 456-same2", file=f.out, 
          body="Hey %fname%,\nI ran an updated version of your request and is attached.\nI hope it's still useful.\n", sig="rick")