DT.dateCheck <- runQry("
        select  accounting_month
               , activity_month
               -- , store_group_less AS store
               , store_name AS store
               , country_code = 'US' AS is_usa
               , label_SC_group
               , sum(gross) AS gross
               , sum(units) AS units
        from  aggregated_accounting
        where accounting_month >= '2014-01-01'
        group by  1,2,3,4,5
      ")


## Change Date
DT.dateCheck[, activity_month   := as.Date(activity_month)]
DT.dateCheck[, accounting_month := as.Date(accounting_month)]


## Count how many months ago
DT.dateCheck[, months_ago := 0L]
DT.dateCheck[activity_month < accounting_month , months_ago := Vectorize(function(from, to, by) -1L + length(seq.Date(from=from, to=to, by=by)))(from=activity_month, to=accounting_month, by="month")]
DT.dateCheck[activity_month > accounting_month , months_ago := -(Vectorize(function(from, to, by) -1L + length(seq.Date(from=from, to=to, by=by)))(to=activity_month, from=accounting_month, by="month"))]

setkey(DT.dateCheck, store, accounting_month)

## Look at iTunes-USA-RED.   Already adjusted in OA fact_sales / aggregated_accounting
DT.dateCheck[months_ago == 0 ]

formnumb(DT.dateCheck[.("iTunes")][months_ago  < 14, list(gross=round(sum(gross), -1)), by=list(year=year(accounting_month),months_ago,is_red=label_sc_group=='RED')][order(months_ago, year)] )
formnumb(DT.dateCheck[!.("iTunes")][months_ago < 14, list(gross=round(sum(gross), -1)), by=list(year=year(accounting_month),months_ago,is_red=label_sc_group=='RED')][order(months_ago, year)] )
formnumb(DT.dateCheck[.("iTunes")][months_ago < 5, list(gross=round(sum(gross), -1)), by=list(year=year(accounting_month),months_ago,is_red=label_sc_group=='RED',is_usa)][order(months_ago, year)] )


DT.dateCheck.itunes <- DT.dateCheck[months_ago < 5, list(gross=round(sum(gross), -1)), by=list(year=year(accounting_month),months_ago,is_itunes=store=="iTunes",is_red=label_sc_group=='RED',is_usa)]
setkey(DT.dateCheck.itunes, months_ago,is_itunes,is_usa,is_red)
DT.dateCheck.itunes


(DT.i <- DT.dateCheck[.("iTunes", as.Date("2014-03-01"))]) [, gpu := round(gross / units, 5)]  [gross>100 | activity_month == '2014-01-01'] [, gross := formnumb(gross, round=-1)][, units := formnumb(units, round=-1)][order(activity_month,label_sc_group,is_usa)]