ABAP:DYNP_VALUES_READ读取屏幕字段值

在Screen显示之前,系统会自动将程序变量值放到屏幕字段中;在PAI事件中,系统会自动将屏幕字段的值更新到相应的程序变量。在Screen Logic中我们还有POH和POV事件,所以有时需要调用函数DYNP_VALUES_READ来读取屏幕字段值。
比如屏幕上有两个字段,NAME1 和 NAME2。当字段NAME2触发搜索帮助的时候,必须参照用户在NAME1中的录入值。由于PAI尚未被执行,屏幕字段NAME1的字符串值尚未更新到程序变量NAME1。此时我们可以调用DYNP_VALUES_READ来实现。
DYNP_VALUES_READ中首要的接口是DYNPFIELDS,它主要含2个字段,字段名和字段值。由于它读取的是屏幕字段,所以字段值自然是未经转换的字符串输入值。

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.

备注:
如果必要,这里要进行输入转换(Input Conversion),将用户录入的字符串转换成SAP的内部变量值。可以调用CONVERSION_EXIT_XXXXX_INPUT此类函数。

原文地址:http://blogold.chinaunix.net/u2/86821/showart_2136481.html

猜你喜欢

转载自caoxuhuan.iteye.com/blog/1036142
今日推荐