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

最新推荐文章于 2024-09-13 21:06:12 发布

syjf1976_ABAP

最新推荐文章于 2024-09-13 21:06:12 发布

阅读量734

点赞数

初认识

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.
        "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.