Derive the Currency from Costcenter or Currency

Question

Dear Guru's ,
I Think this problem should be easy to save but I missed something.
I have this scenario:
Table ZCHCOCOST_var
with the following fields:
USERNAME COSTCENTER FROM COSTCENTER TO Local Curr COM CODE
The table ZCHCOCOST_VAR is used to input but the FICO function manually the users that are allowed to plan on the cost centers and with currency relation.
On the planning area I have the following variables
COSTCENT type user exit
CURRENCY type user exit
The user exit has the following code:
DATA: BEGIN OF i_zchcocost_var OCCURS 0.
          INCLUDE STRUCTURE zchcocost_var.
  DATA: END OF i_zchcocost_var.
WHEN 'COSTCENT'.
          SORT i_zchcocost_var BY zchcocost_low.
          DELETE ADJACENT DUPLICATES FROM i_zchcocost_var
          COMPARING zchcocost_low.
          LOOP AT i_zchcocost_var.
            ADD 1 TO count.
            CLEAR: ls_charsel.
            ls_charsel-chanm = 'ZCHCOCOST'.
            ls_charsel-seqno = count.
            ls_charsel-sign  = 'I'.
            IF i_zchcocost_var-zchcocost_high EQ space.
              ls_charsel-opt   = 'EQ'.
              ls_charsel-low   = i_zchcocost_var-zchcocost_low.
            ELSE.
              ls_charsel-opt   = 'BT'.
              ls_charsel-low   = i_zchcocost_var-zchcocost_low.
              ls_charsel-high  = i_zchcocost_var-zchcocost_high.
            ENDIF.
            INSERT ls_charsel INTO TABLE eto_charsel.
          ENDLOOP.
  SEM-BPS Currency variable
        WHEN 'CURRENCY'.
          SORT i_zchcocost_var BY curkey_lc.
          DELETE ADJACENT DUPLICATES FROM i_zchcocost_var
          COMPARING curkey_lc.
          LOOP AT i_zchcocost_var.
            ADD 1 TO count.
            CLEAR: ls_charsel.
            ls_charsel-chanm = '0CURKEY_LC'.
            ls_charsel-seqno = count.
            ls_charsel-sign  = 'I'.
            ls_charsel-opt   = 'EQ'.
            ls_charsel-low   = i_zchcocost_var-curkey_lc.
            INSERT ls_charsel INTO TABLE eto_charsel.
          ENDLOOP.
  SEM-BPS Company code variable
        WHEN 'COMPCODE'.
          SORT i_zchcocost_var BY comp_code.
          DELETE ADJACENT DUPLICATES FROM i_zchcocost_var
          COMPARING comp_code.
          LOOP AT i_zchcocost_var.
            ADD 1 TO count.
            CLEAR: ls_charsel.
            ls_charsel-chanm = '0COMP_CODE'.
            ls_charsel-seqno = count.
            ls_charsel-sign  = 'I'.
            ls_charsel-opt   = 'EQ'.
            ls_charsel-low   = i_zchcocost_var-comp_code.
            INSERT ls_charsel INTO TABLE eto_charsel.
          ENDLOOP.
      ENDCASE.
The planning level has the following structure:
ASML Cost center               COSTCENT
Local currency               CURRENCY
When I run the layout the popup is coming to choose the values from costcenter and currency.
The program behind the variables is creating i_zchcocost_var that for example has the following values
Costcenter     Currency
100000     EUR
200000     USD
The problem is that the system can choose the wrong combination:
Costcenter Currency
100000          USD
Is there some idea how to avoid this issue?
Thanks in advance
Frank

Answer 1

Frank,
Here is an example. I have tried to keep it simple. You might have to modify it to suit your exact requirement.
  Tables: upc_var_cha_act, /bi0/mcostcenter.
  DATA: cur1(3) type c,
        cc1 type /bi0/mcostcenter-costcenter.
Derive values for currency
  if i_variable = 'YOUR VARIABLE FOR CURRENCY'.
  clear cur1.
    select single * from upc_var_cha_act where
     area = 'YOUR PLANNING AREA' and var = ' YOUR COST CENTER VARIABLE' and varuser = sy-uname.
    if sy-subrc = 0.
      cc1 = upc_var_cha_act-low.
    ENDIF.
derive curr
    select single * from /bi0/mcostcenter where
      costcenter = cc1 and "ADD ANYOTHER RESTRICTION AS REQUIRED".
    if sy-subrc = 0.  
      cur1 = /bi0/mcostcenter-obj_curr. 
      t_valuline-chanm = 'YOUR VARIABLE FOR CURRENCY'.
      t_valuline-seqno = '0001'.
      t_valuline-sign = 'I'.
      t_valuline-opt = 'EQ'.
      t_valuline-low = cur1.
      INSERT t_valuline INTO TABLE eto_charsel.
    endif.
  endif.
As mentioned use this as a reference to build the user exit specific for your need.
Hope this helps.
Sunil