PROCESS ON HELP-REQUEST.
"当用户查看帮助信息时(或按下F1键)被触发、事件结束后将处理当前
FIELD FIELD_NAME MODULE HELP_MODULE. 屏幕
PROCESS ON VALUE-REQUEST.
"当用户按下查询帮助按键时(或按下F4键)被触发,事件结束后将继续处
FIELD FIELD_NAME MODULE F4_MODULE. 理当前屏幕
在SCREEN显示之前,系统会自动将程序变量值存放到屏幕字段中:在PAI事件中,系统会自动将屏幕字段的值更新到相应的程序变量中。 在SCREEN LOGIC中我们还有POH和POV事件,所以需要调用DYNP_VALUES_READ函数来读取屏幕字段值。
屏幕上有FIELD_1和FIELD_2两个字段,必须根据FIELD_1的值后台查询对应搜索帮助的数据。由于PAI尚未被执行,屏幕字段FIELD_1的值尚未更新到程序变量FIELD_1。 此时我们可以调用DYNP_VALUES_READ 来实现,读取FIELD_1字段值
DATA:DYNPFIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE.
DYNPFIELDS-FIELDNAME = 'FIELD_1'.
APPEND DYNPFIELDS.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = SY-REPID
DYNUMB = SY-DYNNR
TABLES
DYNPFIELDS = DYNPFIELDS.
IF SY-SUBRC = 0.
READ TABLE DYNPFIELDS WITH KEY FIELDNAME = 'FIELD_1'.
IF SY-SUBRC = 0.
ZMMT001-WERKS = DYNPFIELDS-FIELDVALUE.
ENDIF.
ENDIF.