今天做了一个程序,其中有部分的功能是这样的:
点击新增按钮弹出屏幕,输入数据,点击保存到自建表。
这个功能不难,自建屏幕调用即可。但是这里有一个问题,在输入数据后,直接点击保存,数据到不了你的工作区里面。这是因为没有触发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……
本文来自博客园,作者:雨水果冻,转载请注明原文链接:https://www.cnblogs.com/yushuiguodong/p/16965919.html