FM实现F4帮助系列一：常规实现

一、 定义时利用数据类型本身的帮助

PARAMETERS: carrid TYPE   sflight-carrid,

            connid TYPE   sflight-connid .

如果需要定义工厂、公司、仓库地点等，可以找有搜索帮助的数据元素做参考

  二、 使用帮助函数完成一般帮助

函数：

F4IF_INT_TABLE_VALUE_REQUEST

效果：

 

本例代码：

REPORT   ZLM_TEST_044.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS:   p_matnr TYPE   matnr.

SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_matnr.

  PERFORM frm_f4.

FORM frm_f4.

  TYPES: BEGIN OF values,

          matnr TYPE matnr,

          maktx TYPE maktx,

        END OF values.

  DATA: values_tab       TYPE TABLE OF values.

  SELECT   matnr maktx

    FROM   makt

    INTO TABLE values_tab.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

    EXPORTING

      retfield     = 'MATNR'                     "需要回传的字段

      dynpprog     = sy-repid

      dynpnr       = sy-dynnr

      dynprofield   = 'MAKTX'                     "需要显示的字段

      window_title = '情选择物料 '

      value_org     = 'S'

    TABLES

      value_tab     = values_tab.

ENDFORM.                     "frm_f4