FOX: how to calculate weeks totals?

Question

All, I need to calculate the suggested order order quantity (KF = ZPOSUGQTY) for a vendor/material combination. For this I need to calculate,
the total sales quantity (KF 0QUANTITY) of the last 4 weeks (so 'current week - 1' till 'current week - 4')
the total sales quantity of week 5 till 9 (so 'current week - 5' till 'current week - 9')
In my fields to be changed I have 0MATERIAL and 0VENDOR. 0CALWEEK is in the aggregation level. My plan is to get current week via the VARV/VARC statement from a Bex variable.
I am not sure how to get the 4 week total and the 5-9 week total though. I start off with FOREACH MATERIAL VENDOR. But what would the code look after that?
Any help appreciated! Cheers.

Answer 1

Thanks Cornelia. I used the code below. It is not working though. I tried to debug it, there are a couple of problems
- the IF statement on CALWEEK is not working, the program does not seem to be able to calculate lower/higher compared to eg
CURWEEK1
- I think the program is calculating the formula per week. What I need is calulate the total sales figures for the last 4 weeks, then total sales of week 5-9. When this is done execute the formula to calculate ZPOSUGQTY. So the formula should only be calculated once for a material. For this I should not have 0CALWEEK in my fields to be changed? How would a DO statement fit below? FYI I have omaterial and 0calweek in my fields to be changed.
DATA MATERIAL TYPE 0MATERIAL.
DATA CALWEEK TYPE 0CALWEEK.
DATA TOT_SALES_1TO4 TYPE F.
DATA TOT_SALES_5TO9 TYPE F.
DATA CURWEEK TYPE 0CALWEEK.
DATA CURWEEK1 TYPE 0CALWEEK.
DATA CURWEEK4 TYPE 0CALWEEK.
DATA CURWEEK5 TYPE 0CALWEEK.
DATA CURWEEK9 TYPE 0CALWEEK.
BRING IN CURRENT WEEK PLUS DERIVED WEEKS
CURWEEK = VARV ('0CWEEK').
CURWEEK1 = TMVL(CURWEEK, -1).
CURWEEK4 = TMVL(CURWEEK, -4).
CURWEEK5 = TMVL(CURWEEK, -5).
CURWEEK9 = TMVL(CURWEEK, -9).
*INITIALIZE THE LOCAL KEY FIGURES
TOT_SALES_1TO4 = 0.
TOT_SALES_5TO9 = 0.
FOREACH MATERIAL, CALWEEK.
  IF CALWEEK <= CURWEEK1 AND CALWEEK >= CURWEEK4.
      TOT_SALES_1TO4 = TOT_SALES_1TO4 + {0ACT_DL_QTY, CALWEEK, MATERIAL}.
  ELSEIF CALWEEK <= CURWEEK5 AND CALWEEK >= CURWEEK9.
         TOT_SALES_5TO9 = TOT_SALES_5TO9 + {0ACT_DL_QTY, CALWEEK, MATERIAL}.
  ENDIF.
ENDFOR.
{ZPOSUGQTY, CALWEEK, MATERIAL} = (2 * TOT_SALES_1TO4 + TOT_SALES_5TO9 )/ 13.