Code to calculate Revenue

Question

Hi Gurus,
Please write me a code for the following requirement. This is for using in a report in BI 7.0.
I have to calculate the field “Revenue in Future years” from the field “Revenue” .I.e. the source field is “Revenue” and the data source from which we take it is an Info cube.
“Revenue in Future years” will be the cumulative value of all Revenues for which Revenue effective date is greater than Current date.
I don’t have a field called Current date, we can pick it from the system.
I have to use this logic at the Query level(not at the cube level) because Revenue in Future years will vary every day when we run the Query.
Each time when we run the query, our code should pick the “Revenue effective date” for each value, compare them with the Current date and add up the Revenues for those values whose Revenue effective date is greater than Current date. The sum will be “Revenue in Future years”. 
Thank you
Sailesh.

Answer 1

Hi SUDHARSAN RAO
U r clearing the headers and tables. So u cannot use the values on the nested loops  as u have cleared the values. There wont be anything in the workare ur using in where clause.
Please see the below comments that I kept.
LOOP AT it_prps.
ACTUAL BILLING
LOOP AT it_final INTO wa_final
WHERE posid = it_prps-posid
AND wrttp = c_04
AND beltp = c_02
AND versn = c_0
AND ( vorga = c_coin OR vorga = c_rku2 ).
CLEAR act_billing.
IF sy-subrc IS INITIAL.
MOVE wa_final-wlp08 TO t_act_billing.
act_billing = act_billing + t_act_billing.
ENDIF.
CLEAR: it_prps, it_final.
Here IT_FINAL is cleared by u... should not be cleared
ENDLOOP.
*************PLANNED REVENUE
LOOP AT it_final INTO wa_final
WHERE posid = it_prps-posid
AND wrttp = c_01
AND beltp = c_02
AND versn = c_0
AND ( vorga = c_sdor OR vorga = c_rkp5 ).
CLEAR plan_rev.
IF sy-subrc IS INITIAL.
MOVE wa_final-wlp08 TO t_plan_rev.
plan_rev = plan_rev + t_plan_rev.
ENDIF.
Again ur clearing both tables.
CLEAR: it_prps, it_final.
ENDLOOP.
ENDCASE.
ENDLOOP.
WRITE:/10 'Actual Billing is',act_billing.
WRITE:/20 'Actual Cost is........', actu_cost.