WDA-FPM-3-SEARCH(OIF)

转载：https://www.cnblogs.com/sapSB/p/10097830.html

 

FPM三：简单的SEARCH(OIF)

这里是使用FPM Workbench自动生成的，没有去SE80创建WDA程序。

1.使用事务代码：FPM_WB。打开工作台。

2.点击Wizard for Creating Empty FPM Applications创建application

输入application名称和描述，选择FPM配置类型。这里选的是OIF。

点击下一步。选择包和请求，保存。

3.完成后会返回到配置界面：

选择编辑配置。

选择组件：

4.选择UIBB行，点击

保存。选择包，保存。弹出填写feeder class对话框。

5.创建Feeder class

se24

添加接口类：IF_FPM_GUIBB，IF_FPM_GUIBB_SEARCH

6.定义全局结果

DATA gt_table TYPE TABLE OF ZHSB_ORDER_INDEX.(public section)

GW_TABLE Instance Attribute Public Type ZHSB_ORDER_INDEX(attribute)

MO_CATALOG Instance Attribute Public Type Ref To CL_ABAP_STRUCTDESCR(attribute)

重定义GET_DEFINITION方法

  method IF_FPM_GUIBB_SEARCH~GET_DEFINITION.
    DATA:gt_data TYPE TABLE OF zhsb_order_index.

    DATA:ls_desc LIKE LINE OF et_field_description_attr.

    eo_field_catalog_attr ?= cl_abap_structdescr=>describe_by_data( gw_table ).

    mo_catalog = eo_field_catalog_attr.

    eo_field_catalog_result ?= cl_abap_tabledescr=>describe_by_data( gt_data ).
  endmethod.

重定义GET_DATA方法：

  METHOD if_fpm_guibb_search~get_data.
    et_result_list = gt_table.
  ENDMETHOD.

重定义查询处理：PROCESS_EVENT

  method IF_FPM_GUIBB_SEARCH~PROCESS_EVENT.
    DATA:lt_where TYPE rsds_where_tab.
    DATA:lt_order TYPE TABLE OF zhsb_order_index,
         ls_order TYPE zhsb_order_index.
    DATA:lc_para TYPE REF TO cl_fpm_parameter.
    DATA:ls_value TYPE string.

    DATA:ls_result TYPE zhsb_order_index.

    IF io_event->mv_event_id = if_fpm_guibb_search=>fpm_execute_search.

      TRY .
          CALL METHOD cl_fpm_guibb_search_conversion=>to_abap_select_where_tab
            EXPORTING
              it_fpm_search_criteria = it_fpm_search_criteria
              iv_table_name          = 'ZHSB_ORDER_INDEX'
              io_field_catalog       = mo_catalog
            IMPORTING
              et_abap_select_table   = lt_where.
        CATCH cx_fpmgb.
      ENDTRY.

      SELECT * FROM zhsb_order_index INTO TABLE lt_order UP TO iv_max_num_results ROWS WHERE (lt_where).
      IF sy-subrc = 0.
        LOOP AT lt_order INTO  ls_order.
          MOVE-CORRESPONDING ls_order TO ls_result.
          APPEND ls_result TO gt_table.
        ENDLOOP.
        ev_result = 'OK'.
      ENDIF.
    ENDIF.
  endmethod.

保存方法

回到配置页面，输入feeder class：

添加查询条件字段：

添加结果字段，如下：

、

保存，然后测试。

个人参数中可设置查询默认条目，查询结果条目等。

feeder class继承的每个方法都需要点进去激活，否则可能会有错误。