ABAP通过交互界面向自建表里添加/删除数据

最新推荐文章于 2024-07-29 09:58:14 发布

兔宝

最新推荐文章于 2024-07-29 09:58:14 发布

阅读量7.5k

点赞数

分类专栏： ABAP

本文链接：https://blog.csdn.net/szlaptop/article/details/8488080

版权

ABAP 专栏收录该内容

54 篇文章 6 订阅

订阅专栏

ABAP通过交互界面向自建表里添加/删除数据。

结果如图：

STEP 1，自建表ZSALE_WM1,ZSALE_WM2.

STEP 2，通过事务码：SE54 生成对象。

双击概述屏幕1的位置，弹出

进入格式后，可以修改文本的名称了。

STEP 3，写如下代码即可

REPORT  Z_WUWEI_0008.
TABLES:ZSALE_WM1,ZSALE_WM2.
  DATA:  V_VIEW_MODE     TYPE C, "定义触发函数
         V_VIEW_NAME     TYPE DD02V-TABNAME.

PARAMETERS:  P_QUER1 RADIOBUTTON GROUP RADI DEFAULT 'X',
             P_QUER2 RADIOBUTTON GROUP RADI.

IF P_QUER1 = 'X'."创建ZSALE_WM1表数据
    V_VIEW_MODE = 'U'.
    V_VIEW_NAME = 'ZSALE_WM1'.
    CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
      EXPORTING
        ACTION    = V_VIEW_MODE
        VIEW_NAME = V_VIEW_NAME.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
  IF P_QUER2 = 'X'."创建ZSALE_WM2表数据
    V_VIEW_MODE = 'U'.
    V_VIEW_NAME = 'ZSALE_WM2'.
    CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
      EXPORTING
        ACTION    = V_VIEW_MODE
        VIEW_NAME = V_VIEW_NAME.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.