ABAP POH和POV事件中 获得屏幕字段的值

时间：2022-01-20 21:09:38

屏幕中有四个主要的逻辑流 (PBO,PAI POH,POV)

PROCESS BEFORE OUTPUT.       该事件在屏幕出来之前被触发

PROCESS AFTER INPUT.       该模块监听用户操作时间

PROCESS ON HELP-REQUEST.

FIELD FIELD_NAME MODULE HELP_MODULE.        "当用户查看帮助信息时（按下F1键）被触发，事件结束后将继续处理当前屏幕

PROCESS ON VALUE-REQUEST.

　FIELD FIELD_NAME MODULE F4_MODULE.             "当用户按下查询帮助按键时（或按下F4）被触发，事件结束后将继续处理当前屏幕。

http://www.mamicode.com/info-detail-1921783.html

在Screen显示之前，系统会自动将程序变量值放到屏幕字段中；在PAI事件中，系统会自动将屏幕字段的值更新到相应的程序变量。

在Screen Logic中我们还有POH和POV事件，所以有时需要调用函数DYNP_VALUES_READ来读取屏幕字段值。
 
比如:屏幕上有两个字段，NAME1 和 NAME2。当字段NAME2触发搜索帮助的时候，必须参照用户在NAME1中的录入值。由于PAI尚未被执行，屏幕字段NAME1的字符串值尚未更新到程序变量NAME1。
此时我们可以调用DYNP_VALUES_READ来实现。
 
DATA: dynpfields TYPE TABLE OF dynpread WITH HEADER LINE.

CLEAR: dynpfields, dynpfields[].

 dynpfields-fieldname = 'NAME1'. "填入需要读值的字段名

APPEND dynpfields.

CALL FUNCTION 'DYNP_VALUES_READ'

   EXPORTING

     dyname             = sy-repid

     dynumb             = sy-dynnr

     translate_to_upper = 'X'

   TABLES

     dynpfields         = dynpfields

   EXCEPTIONS

     OTHERS             = .

IF sy-subrc = .

   READ TABLE dynpfields WITH KEY fieldname = 'NAME1'.

   name1 = dynpfields-fieldvalue. "备注

ENDIF.

相关文章