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

初认识

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( ).
*判断事件IDIF 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_filterio_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(EXPORTINGiv_key = 'SEL_TAB'IMPORTINGev_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-optionlow = 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.