SAP DYNP_VALUES_READ获取自建屏幕字段值<转载>

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值