更改屏幕：DYNP_VALUES_READ（UPDATE）

最新推荐文章于 2024-08-26 15:45:56 发布

原创最新推荐文章于 2024-08-26 15:45:56 发布 · 450 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ABAP

10.Abap 专栏收录该内容

57 篇文章

订阅专栏

该代码段涉及了一个名为REPORTZTEST_T001的SAPABAP报告，它处理VBAK表的数据，并定义了参数P_BUKRSTYPEBUKRS。在选择屏幕事件中，调用了FRM_SH_SPMON形式来读取和更新动态参数DYNP。程序使用DYNP_VALUES_READ和DYNP_VALUES_UPDATE函数来获取和修改参数值。

REPORT ZTEST_T001.

TABLES: VBAK.


PARAMETERS: P_BUKRS TYPE BUKRS.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_BUKRS.
  PERFORM FRM_SH_SPMON.


START-OF-SELECTION.





*&---------------------------------------------------------------------*
*&      Form  FRM_SH_SPMON
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM FRM_SH_SPMON.

  DATA: LT_DYNP TYPE TABLE OF DYNPREAD WITH HEADER LINE.

  DATA: LV_RETURNCODE   LIKE SY-SUBRC,
        LV_MONAT        LIKE ISELLIST-MONTH,
        LV_HLP_REPID    LIKE SY-REPID.

  LT_DYNP-FIELDNAME  = 'P_BUKRS'.
  APPEND LT_DYNP.

  LV_HLP_REPID = SY-REPID.

  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME               = LV_HLP_REPID
      DYNUMB               = SY-DYNNR
    TABLES
      DYNPFIELDS           = LT_DYNP
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 01
      INVALID_DYNPROFIELD  = 02
      INVALID_DYNPRONAME   = 03
      INVALID_DYNPRONUMMER = 04
      INVALID_REQUEST      = 05
      NO_FIELDDESCRIPTION  = 06
      UNDEFIND_ERROR       = 07.

  LT_DYNP-FIELDVALUE = 'X200'.
  MODIFY LT_DYNP INDEX 1.

  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      DYNAME               = LV_HLP_REPID
      DYNUMB               = SY-DYNNR
    TABLES
      DYNPFIELDS           = LT_DYNP
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 01
      INVALID_DYNPROFIELD  = 02
      INVALID_DYNPRONAME   = 03
      INVALID_DYNPRONUMMER = 04
      INVALID_REQUEST      = 05
      NO_FIELDDESCRIPTION  = 06
      UNDEFIND_ERROR       = 07.


ENDFORM.