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

Posted 2020-09-29 明大叔

在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             = 9.
IF sy-subrc = 0.
   READ TABLE dynpfields WITH KEY fieldname = ‘NAME1‘.
   name1 = dynpfields-fieldvalue. "备注
ENDIF.