一起学FPM之 UIBB间的数据传递

2021-10-30 18:54发布


          点击此处--->   EasySAP.com 群内免费提供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已经可以拿到在页面输入的参数了

接下来我们看是如何实现的:

  1. 在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.        "SEARCH 中抛出的选择条件, 这里接收        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.          ls_range-fieldname = 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.
赞赏支持