DT.355.acc <- addDateCols.periodid_(runQry("SELECT activityperiodid AS activity_periodid, transactiontypeid, sum(sales) as units, sum(gross) as gross FROM production.fact_sales WHERE accountingperiodid >= 150 AND storeid = 355 GROUP BY 1, 2 ORDER BY 2, 1"))
DT.355.anal <- runQry(paste0("SELECT ", sql1stOfMonth("download_activity_date"), " AS activity_date, transactiontypeid, sum(paidunits) as units FROM production.fact_analytics WHERE download_activity_date >= '2011-01-01' AND storeid = 355 GROUP BY 1, 2 ORDER BY 2, 1"))

DT.355.acc <- addDateCols.periodid_(runQry("SELECT activityperiodid AS activity_periodid, transactiontypeid, sum(sales) as units, sum(gross) as gross FROM production.fact_sales WHERE accountingperiodid >= 150 AND storeid = 355 GROUP BY 1, 2 ORDER BY 2, 1"))
DT.355.anal <- runQry(paste0("SELECT ", sql1stOfMonth("download_activity_date"), " AS activity_date, transactiontypeid, sum(paidunits) as units FROM production.fact_analytics WHERE download_activity_date >= '2011-01-01' AND storeid = 355 GROUP BY 1, 2 ORDER BY 2, 1"))

matchKey(DT.355.acc, DT.355.anal, c("activity_date", "transactiontypeid"))
DT.355 <- merge(DT.355.acc, DT.355.anal, all=TRUE, suffix=c(".acc", ".anal")) [!(is.na(units.anal) | (is.na()))]


## Essentially, it looks like for storeid = 355,  transactiontypeid = 12 should be transactiontypeid := 4