FM实现F4帮助系列二：联动的搜索

函数：

DYNP_VALUES_READ（Read screen field values before PAI field transport）

F4IF_INT_TABLE_VALUE_REQUEST

效果图：

 

误区：

P_CONNID帮助中直接如下：

  SELECT   …… 

    WHERE werks = p_werks.

如果用户填写p_werks 未回车而直接点p_matnr的帮助，p_werks此时还为空.

本例子代码：

REPORT   zlm_test_043.

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

PARAMETERS: p_werks TYPE   werks_d,

            p_matnr TYPE   matnr.

SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

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: progname         TYPE sy-repid,

        dynnum           TYPE sy-dynnr,

        dynpro_values     TYPE TABLE OF dynpread,

        field_value       LIKE LINE OF dynpro_values,

        values_tab       TYPE TABLE OF values.

  progname = sy-repid.

  dynnum   = sy-dynnr.

  CLEAR: field_value, dynpro_values.

  "指定需要取值的屏幕字段

  field_value-fieldname = 'P_WERKS'.       "

  APPEND field_value TO dynpro_values.

  "获取屏幕 P_WERKS 字段的值

  CALL FUNCTION 'DYNP_VALUES_READ'

    EXPORTING

      dyname             = progname

      dynumb             = dynnum

      translate_to_upper = 'X'

    TABLES

      dynpfields         = dynpro_values.

  "根据屏幕输入值进行进一步搜索

  READ TABLE dynpro_values INDEX 1 INTO field_value.

  SELECT   makt~matnr makt~maktx

    FROM   makt

    INNER JOIN marc ON   marc~matnr = makt~matnr

    INTO   CORRESPONDING FIELDS OF TABLE values_tab

    WHERE werks = field_value-fieldvalue.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

    EXPORTING

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

      dynpprog     = progname

      dynpnr       = dynnum

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

      window_title = '情选择物料 '

      value_org     = 'S'

    TABLES

      value_tab     = values_tab.

ENDFORM.                     "frm_f4