今天做了一个程序,其中有部分的功能是这样的:
点击新增按钮弹出屏幕,输入数据,点击保存到自建表。
这个功能不难,自建屏幕调用即可。但是这里有一个问题,在输入数据后,直接点击保存,数据到不了你的工作区里面。这是因为没有触发PAI和PBO,所以数据不会进工作区,一般操作是回车触发获得数据,但是显然不可能要求每个用户都能做到输入数据后敲回车。所以这里用到了:DYNP_VALUES_READ这个FM。
具体代码如下:
DATA: GT_FIELD TYPE TABLE OF DYNPREAD,
GS_FIELD TYPE DYNPREAD.
FIELD-SYMBOLS <GF_VAL>.
"屏幕上的字段名
GS_FIELD-FIELDNAME = 'GS_ALV-WERKS'.
APPEND GS_FIELD TO GT_FIELD.
CLEAR GS_FIELD.
GS_FIELD-FIELDNAME = 'GS_ALV-MATNR'.
APPEND GS_FIELD TO GT_FIELD.
CLEAR GS_FIELD.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = SY-REPID
DYNUMB = SY-DYNNR
TRANSLATE_TO_UPPER = 'X'
TABLES
DYNPFIELDS = GT_FIELD[]
EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8
DOUBLE_CONVERSION = 9
STEPL_NOT_FOUND = 10.
IF SY-SUBRC = 0.
LOOP AT GT_FIELD INTO GS_FIELD.
"这里使用指针的方式获取数据
ASSIGN (GS_FIELD-FIELDNAME) TO <GF_VAL>.
<GF_VAL> = GS_FIELD-FIELDVALUE.
ENDLOOP.
ENDIF.
这样子,不需要用户敲回车,直接就能获取到自建屏幕上的数据。
OVER……