Help on fox used to one/all profit center/cost center of one company code

Question

Hi experts,
I have a fox formula witch is to be applied in diferent situations:
1. To one cost center
2. To all cost centers of one company code
3. To one profit center
4. To all profit centers of one company code
I'm using the following variables:
ZIPROFCE (1st profit center selected in query)
ZIPROFC2 (number of profit centers selected in query)
ZICOSTCE (1st cost center selected in query)
ZICOSTC2 (number of profit centers selected in query)
The formula is actually like below, guess it is not worrking because I can't have an integer number accepted by chars 0profit_ctr and 0costcentr. I am thinking of adding another char in the infocube witch is integer (without master data), and it would do the job. Is there other way out, so I can mantain actual aggregation levels and filters?
DATA PERIOD TYPE 0FISCPER3.
DATA PER_P TYPE 0FISCPER3.
DATA PCENTER TYPE 0PROFIT_CTR.
DATA PCENTER1 TYPE 0PROFIT_CTR.
DATA PCENTER2 TYPE 0PROFIT_CTR.
DATA CCENTER TYPE 0COSTCENTER.
DATA CCENTER1 TYPE 0COSTCENTER.
DATA CCENTER2 TYPE 0COSTCENTER.
DATA PLANPER TYPE F.
PCENTER1 = VARV (ZIPROFCE).
PCENTER2 = VARV (ZIPROFC2).
CCENTER1 = VARV (ZICOSTCE).
CCENTER2 = VARV (ZICOSTC2).
PLANPER = VARV (ZEPLANPE).
PER_P = VARV (ZEPLAPER).
*IF CCENTER2 = 1.
CCENTER = CCENTER1.
*ENDIF.
IF PCENTER2 = 1.
CCENTER = #.
PCENTER = PCENTER1.
ELSEIF PCENTER2 > 1.
CCENTER = #.
ENDIF.
FOREACH CCENTER, PCENTER.
PERIOD = PER_P.
DO.
IF  { ZCOMPROM, CCENTER,  013, PCENTER } <> 0.
  { 0AMOUNT,  CCENTER, PERIOD, PCENTER} = { ZCOMPROM,  CCENTER, 013, PCENTER } / PLANPER.
ENDIF.
PERIOD = PERIOD + 001.
IF PERIOD = 013.
EXIT.
ENDIF.
ENDDO.
ENDFOR.
Tanks in Advance,
João Anastácio

Answer 1

Hello João,
you are making it more complicated than it is:
Fields to be changed: Key figure, period
DATA PERIOD TYPE 0FISCPER3.
DATA PLANPER TYPE F.
PLANPER = VARV (ZEPLANPE).
PERIOD = VARV (ZEPLAPER).
IF { ZCOMPROM, 013 } > 0.
{ 0AMOUNT, PERIOD} = { ZCOMPROM, 013 } / PLANPER.
ENDIF.
Regards,
Marc
SAP NetWeaver RIG