1.获取维度模型的方法1
DATA:i_appset_id TYPE uj_appset_id,
i_appl_id TYPE uj_appl_id.
i_appset_id = 'SINOTRUK'.
i_appl_id = 'Consolidation'.
DATA: lo_owner_model TYPE REF TO cl_uja_application,"ownership 模型
lt_owner_dim TYPE uja_t_appl_dim. "ownership 模型的维度list
CREATE OBJECT lo_owner_model
EXPORTING
i_appset_id = i_appset_id
i_application_id = 'OWNERSHIP'.
lo_owner_model->get_appl_dim(
EXPORTING
i_appl_id = 'OWNERSHIP'
IMPORTING
et_appl_dim = lt_owner_dim ).
2获取维度模型方法2
cl_ujk_model=>get_dim_list(
EXPORTING
i_appset_id = i_appset_id
i_appl_id = 'Ownership'
i_with_measures = abap_false
IMPORTING
et_admin_dim_list = DATA(lt_dim_list)
).
3.设置查询条件
DATA: lt_sel TYPE uj0_t_sel. "输入模型的查询条件
"设置查询条件
DEFINE set_select.
APPEND INITIAL LINE TO &1 ASSIGNING <lfs_sel> .
<lfs_sel>-sign = &2.
<lfs_sel>-option = &3.
<lfs_sel>-dimension = &4.
<lfs_sel>-low = &5.
<lfs_sel>-high = &6.
END-OF-DEFINITION.
"维度 ACCOUNT
set_select lt_sel 'I' 'BT' 'ACCOUNT' '1521010000' '1521010002'.
set_select lt_sel 'I' 'BT' 'ACCOUNT' '1522010000' '1522010002'.
set_select lt_sel 'I' 'BT' 'ACCOUNT' '1523010000' '1523010002'.
set_select lt_sel 'I' 'BT' 'ACCOUNT' '1521020000' '1521020001'.
"维度 FLOW
set_select lt_sel 'I' 'BT' 'FLOW' 'F_4A1' 'F_4A5'.
set_select lt_sel 'I' 'BT' 'FLOW' 'F_4B1' 'F_4B5'.
"维度 FLOW1
set_select lt_sel 'I' 'EQ' 'FLOW1' 'F1_NONE' ''.
"维度 FLOW2
set_select lt_sel 'I' 'EQ' 'FLOW2' 'F2_NONE' ''.
"维度 FLOW4
set_select lt_sel 'I' 'EQ' 'FLOW4' 'F4_NONE' ''.
4.查询模型数据方法1
DATA:lt_sel TYPE uj0_t_sel, "输入模型的查询条件
DATA:i_appset_id TYPE uj_appset_id,
i_appl_id TYPE uj_appl_id.
i_appset_id = 'SINOTRUK'.
i_appl_id = 'Consolidation'.
TRY .
*执行查询 ----开始
DATA(lo_query) = cl_ujo_query_factory=>get_query_adapter(
i_appset_id = i_appset_id
i_appl_id = i_appl_id ).
CALL METHOD lo_conso_mgr->create_data_ref
EXPORTING
i_data_type = 'T'
it_dim_name = lt_conso_dim
if_tech_name = abap_false
if_signeddata = abap_true
IMPORTING
er_data = lr_data_4.
ASSIGN lr_data_4->* TO <lfs_data>.
lo_query->run_rsdri_query(
EXPORTING
it_dim_name = lt_conso_dim " BPC: Dimension List
it_range = lt_sel " BPC: Selection condition
if_check_security = abap_true " BPC: Generic indicator
IMPORTING
et_data = <lfs_data>
).
*执行查询 ----结束
CATCH cx_root INTO DATA(lr_exception).
ENDTRY.
5.查询模型数据方法2
DATA: lo_owner_mgr TYPE REF TO if_uja_application_manager,
lt_owner_list TYPE uja_t_dim_list,
lr_data1 TYPE REF TO data,
lt_axis1 TYPE ujo_t_query_dim,
ls_axis TYPE ujo_t_members.
FIELD-SYMBOLS:
<fs_table01> TYPE STANDARD TABLE,
*---读取OWNERSHIP(/CPMB/CYIY0HO)模型
TRY.
CALL METHOD cl_uja_bpc_admin_factory=>get_application_manager
EXPORTING
i_appset_id = i_appset_id
i_application_id = 'Ownership'
RECEIVING
ro_return = lo_owner_mgr.
CALL METHOD lo_owner_mgr->create_data_ref
EXPORTING
i_data_type = 'T'
it_dim_name = lt_owner_list
if_tech_name = abap_false
if_signeddata = abap_true
IMPORTING
er_data = lr_data1.
ASSIGN lr_data1->* TO <fs_table01>.
lo_owner_query = cl_ujo_query_factory=>get_query_adapter(
i_appset_id = i_appset_id
i_appl_id = 'Ownership' ).
lo_owner_query->run_axis_query_symm(
EXPORTING
it_axis = lt_axis1 " BPC: Dimension List
if_no_sign_conversion = abap_true
IMPORTING
et_data = <fs_table01>
).
CATCH cx_ujo_read cx_uj_static_check.
ENDTRY.