BW创建虚拟特性

1、se19:根据classic badi自建implementation

双击DEFINE，写代码：

METHOD if_ex_rsr_olap_badi~define.

DATA:l_s_chanm TYPE rrke_s_chanm,

l_kyfnm TYPE rsd_kyfnm.

FIELD-SYMBOLS:

TYPE rrke_s_chanm.

CASE i_s_rkb1d-infocube.

WHEN 'ZRSDM01' OR 'ZTSDO08'.

l_s_chanm-chanm = '0CALMONTH'.

l_s_chanm-mode = rrke_c_mode-no_selection.

APPEND l_s_chanm TO c_t_chanm.

CLEAR l_s_chanm.

l_s_chanm-chanm = '0PLANT'.

l_s_chanm-mode = rrke_c_mode-read.

APPEND l_s_chanm TO c_t_chanm.

CLEAR l_s_chanm.

l_s_chanm-chanm = 'ZPLTEDATE'.

l_s_chanm-mode = rrke_c_mode-read.

APPEND l_s_chanm TO c_t_chanm.

CLEAR l_s_chanm.

l_s_chanm-chanm = 'ZPLTFDATE'.

l_s_chanm-mode = rrke_c_mode-read.

APPEND l_s_chanm TO c_t_chanm.

CLEAR l_s_chanm.

l_s_chanm-chanm = 'ZPLTDL'.

l_s_chanm-mode = rrke_c_mode-no_selection.

APPEND l_s_chanm TO c_t_chanm.

CLEAR l_s_chanm.

ENDCASE.

ENDMETHOD.

双击INITIALIZE:

METHOD if_ex_rsr_olap_badi~initialize.

DATA: l_global_name TYPE string.

FIELD-SYMBOLS:

TYPE i,

TYPE rrkg_s_sfc,

TYPE rrkg_s_sfk.

* MGD#1282148 When called two different queries, values must be * initialized

CLEAR n_c_cha_0plant.

CLEAR n_c_cha_zpltfdate.

CLEAR n_c_cha_zpltedate.

CLEAR n_c_cha_zpltdl.

* get field postions for characteristics in structure

LOOP AT i_th_sfc ASSIGNING

WHERE user_exit NE rrke_c_mode-none.

* field name in structure is keyreturnnm

* name of the global variable

CONCATENATE 'N_C_CHA' -chanm

INTO l_global_name

SEPARATED BY '_'.

* fill the global variable

UNASSIGN .

ASSIGN (l_global_name) TO .

CHECK IS ASSIGNED.

= get_field_position_d( i_fieldnm = -keyretur nnm

i_s_data = i_s_data ).

ENDLOOP.

* get field positions for key figures in structure

LOOP AT i_th_sfk ASSIGNING .

* name of the global variable

CONCATENATE 'N_C_KYF' -kyfnm

INTO l_global_name

SEPARATED BY '_'.

* fill the global variable

UNASSIGN .

ASSIGN (l_global_name) TO .

CHECK IS ASSIGNED.

* = get_field_position_d( i_fieldnm = -kyfnm

* MGD#1259114 This note corrects 1237653

** MGD#1237653

* = get_field_position_d( i_fieldnm = -keyretur nnm

= get_field_position_d( i_fieldnm = -value_re turnnm

i_s_data = i_s_data ).

ENDLOOP.

* itab_employee_t[] = itab_employee[].

ENDMETHOD.

双击COMPUTE:

method IF_EX_RSR_OLAP_BADI~COMPUTE.

FIELD-SYMBOLS TYPE ANY.

FIELD-SYMBOLS TYPE ANY.

FIELD-SYMBOLS TYPE ANY.

FIELD-SYMBOLS TYPE ANY.

DATA L_DATE1 TYPE SY-DATUM.

DATA L_DATE2 TYPE SY-DATUM.

DATA L_DATE3 TYPE SY-DATUM.

data l_num type CHAR2.

ASSIGN COMPONENT N_C_CHA_0PLANT OF STRUCTURE C_S_DATA TO