Balance Carryfoward Function Using FOX

Question

Hi ,
  I got to create a FOX function to do (BCF) Balance Carryforward ..
i need to COPY some records from one version(P6),Fiscal Year(2008) to another version(P1) and fiscal year(2009).While doin so i also need to carryforward the Previous years Balance(0BALANCE).
<b>Records in the Real-Time Cube:</b>
Zrecordid, ZPLANYEAR, 0FISCYEAR,0version,0Balance,0AMOUNT
123,          2008,             2008,           P6,         100,          50
123           2008,             2009,           P6,          0.0,          40
123           2008,             2010,           P6,          0.0,          30
124           2008,             2008,           P6,          200,         60
124           2008,             2009,           P6,          0.0,          25
<b>After the FOX Funtion i should get records:</b>
Zrecordid, ZPLANYEAR, 0FISCYEAR,0version,0Balance,0AMOUNT
123,          2009,             2009,           P1,         150,          40
123           2009,             2010,           P1,          0.0,          30
124           2009,             2009,           P1,          260,         25
<b>I keyed in the following code to copy the records that doesn't have BCF value
: Will it work ???</b>
IF CHA_FYEAR <> '2008' .
       {0AMOUNT,#,'P1','2009'} = {0AMOUNT,#,'P6','2008'}.
   ENDIF.
I have started come coding assuming the copy to version and year is done..
**BALANCE CARRY FORWARD CALCULATION**
DATA ZFISCYEAR TYPE 0FISCYEAR.
DATA ZPLANYEAR TYPE ZPLANYEAR.
DATA ZVERSION TYPE 0VERSION.
DATA ZRECORDID TYPE ZRECID.
DATA L_RECS TYPE I.
DATA L_COUNT TYPE I.
*ZFISCYEAR = VARV( 'TOFISCYEAR' ).
*ZPLANYEAR = VARV( 'TOPLANYEAR' ).
*ZVERSION = VARV( 'TOVERSION' ).
L_RECS = VARC(ZRECID).
BREAK-POINT.
*IF {0BALANCE,#,#,#} <> 0.0
FOREACH ZRECORDID.
   {0AMOUNT,#,'P6',2008'
ENDFOR.
*ENDIF.
DO.
   L_COUNT = L_COUNT + 1.
   IF ZFISCYEAR = '2008' AND ZPLANYEAR = '2008'.
       {0BALANCE, ZFISCYEAR , ZVERSION, ZPLANYEAR} =
                            {0BALANCE, '2009', 'P1' , '2009'} + {0AMOUNT,
'2009', 'P1', '2009'}.
ELSE.
       {0AMOUNT, ZFISCYEAR , ZVERSION, ZPLANYEAR} = {0AMOUNT, '2009',
'P1' , '2009'}.
ENDIF.
   IF L_COUNT = L_RECS.
     EXIT.
   ENDIF.
ENDDO.
Can someone help me with this issue..........
regards,
Nava.

Answer 1

I guess DU is not required in your 'Fields to be changed' in planning function as it is not changing anywhere in your function and you do not have any condition on this field also. So, if you remove DU try the below code:
DATA BRAND TYPE ZCH_BRAND.
DATA SEASON TYPE ZCH_SEASN.
FOREACH BRAND, SEASON.
IF BRAND = 'ADIDAS' AND SEASON = 'WINTER'.
{ ZKF_HPVOL ,BRAND,SEASON} = { ZKF_HPVOL ,BRAND,SEASON} * 20.
ENDIF.
ENDFOR.
If you want to keep DU, then try below code:
DATA BRAND TYPE ZCH_BRAND.
DATA DU TYPE ZCH_DEVUT.
DATA SEASON TYPE ZCH_SEASN.
FOREACH DU,BRAND.
IF BRAND = 'ADIDAS'.
FOREACH SEASON.
IF SEASON = 'WINTER'.
{ ZKF_HPVOL ,BRAND,DU,SEASON} = { ZKF_HPVOL ,BRAND,DU,SEASON} * 20.
ENDIF.
ENDFOR.
ENDIF.
ENDFOR.
Regards,
Deepti