这里是使用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继承的每个方法都需要点进去激活,否则可能会有错误。