点击此处---> 群内免费提供SAP练习系统(在群公告中)
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
初认识
Dylan,公众号:ABAP 技巧与实战一起学FPM之 初识SAP_FPM
文末附加了源代码. 附加源代码是以 查询T001W为查询目标, 如果与你测试的表不同, 请调整相关内容.
读过上一篇并且自己做了demo的朋友们肯定有一些疑问,到底如何根据搜索条件关联到查询结果表?本文就来详细说明一下这个疑问,关于UIBB间数据的传递。
首先我们来看一下看完这篇文档能做出的效果:
前端页面直接进行查询:
按搜索条件查询:
FPM中不同UIBB的值如何传递呢?基本可以给出两种方式:
一是通过标准的传递方式,FPM提供了SET_VALUE和GET_VALUE的方法。
二是使用全局类的方式交互。
SEARCH的类中,找到PROCESS_EVENT方法,打上断点,在前台输入如下条件执行:
可以看到SEARCH类的IF_FPM_SEARCH_CRITERIA已经可以拿到在页面输入的参数了
接下来我们看是如何实现的:
在SEARCH类的PROCESS_EVENT方法中,使用框架提供的方法SET_VALUE( ),添加如下代码:
SET_VALUE( ):
2.来到LIST类的GET_DATA方法中,使用框架提供的方法GET_VALUE( ),添加如下代码:
大家可以通过上面的代码看到GET_VALUE后是如何转为可以使用的range类型的,再之后就比较好理解了,就是取数,
注意需要添加ev_data_changed = 'X' 的语句实现数据刷新,原理和ALV相同。
以上完成后,到前端页面输入条件,执行后就可以达成文初展示的效果了。
需要注意的是: SET_VALUE和GET_VALUE方法的传值思路,在SEARCH的process_event中通过SET_VALUE把查询条件抛到LIST中做查询,同样也可以在SEARCH中直接获取range,写好逻辑,查询结果后把结果内表抛到LIST中,LIST仅将查询结果做展示;当然也可以不用这个方法,自己去封装一个全局类去规划全局参数传递等等,这些都需要大家根据自己的开发思路和项目具体的情况进行思考。
附加的源代码部分一: ZFPM_DEMO_SEARCH
IF_FPM_GUIBB_SEARCH~PROCESS_EVENT
METHOD if_fpm_guibb_search~process_event.
BREAK cabap01.
DATA: lo_fpm TYPE REF TO if_fpm.
DATA(lo_fpm_para) = NEW cl_fpm_parameter( ).
*判断事件ID
IF io_event->mv_event_id = if_fpm_guibb_search=>fpm_execute_search.
lo_fpm = cl_fpm_factory=>get_instance( ).
lo_fpm_para->if_fpm_parameter~set_value(
iv_key = 'SEL_TAB'
iv_value = it_fpm_search_criteria ).
lo_fpm->raise_event_by_id(
iv_event_id = if_fpm_guibb_list=>gc_event_list_filter
io_event_data = lo_fpm_para ).
ENDIF.
ENDMETHOD.
附加的源代码部分二: ZFPM_DEMO_LIST
IF_FPM_GUIBB_LIST~GET_DATA
METHOD if_fpm_guibb_list~get_data.
BREAK cabap01.
DATA: lr_werks TYPE peg_t_werks.
DATA: lt_search TYPE fpmgb_t_search_criteria,
lo_rtti TYPE REF TO cl_abap_datadescr,
lo_exc TYPE REF TO cx_fpmgb,
ls_selopt TYPE rsdsselopt,
ls_range TYPE rsds_frange,
lt_ranges TYPE TABLE OF rsds_frange.
CASE iv_eventid->mv_event_id.
WHEN if_fpm_guibb_list=>gc_event_list_filter.
中抛出的选择条件, 这里接收
iv_eventid->mo_event_data->get_value(
EXPORTING
iv_key = 'SEL_TAB'
IMPORTING
ev_value = lt_search ).
"转换查询条件为RANGE"
CLEAR lr_werks.
LOOP AT lt_search REFERENCE INTO DATA(lr_search).
TRY .
ls_selopt = cl_fpm_guibb_search_conversion=>to_abap_select_option(
is_fpm_search_row = lr_search->* io_attr_rtti = lo_rtti ).
CATCH cx_fpmgb INTO lo_exc.
ENDTRY.
APPEND ls_selopt TO ls_range-selopt_t.
lr_search->search_attribute. =
APPEND ls_range TO lt_ranges.
CLEAR ls_range.
APPEND VALUE #( sign = ls_selopt-sign option = ls_selopt-option
low = ls_selopt-low high = ls_selopt-high ) TO lr_werks.
ENDLOOP.
SELECT * FROM t001w INTO TABLE @DATA(lt_t001w)
WHERE werks IN @lr_werks.
ct_data = lt_t001w.
ev_data_changed = abap_true.
WHEN OTHERS.
ENDCASE.
lr_werks = zfpm_demo_trans_data=>gr_werks .
ENDMETHOD.