函数：
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
