//--线条 //3-----点击文字特效---

今天做了一个程序,其中有部分的功能是这样的:
在这里插入图片描述
点击新增按钮弹出屏幕,输入数据,点击保存到自建表。
这个功能不难,自建屏幕调用即可。但是这里有一个问题,在输入数据后,直接点击保存,数据到不了你的工作区里面。这是因为没有触发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……

 
 
posted on 2022-12-08 14:01  雨水果冻  阅读(210)  评论(0编辑  收藏  举报