不使用DEBUG实现对SAP底表的编辑更改

关注

原创 2024-09-20 16:10:21 2k 阅读 AI 写同款· GEO 优化 ›

在开发测试中经常会遇到一个场景，为了便于测试，可能会经常手动更改数据库表里的数据，有一次在项目上，有同事问我（现在是我的老婆哈哈哈），有没有什么方法能直接编辑底表，我就告诉了她我们常用的/H,GD-EDIT,GD-SAPEDIT的方式，但是每次都需要/H改参数，觉得还是有点麻烦，我就花了点时间研究了一下有没有其他方式可以改表，常见的方式有以下几种：

1，SE11维护表的维护类型为可编辑

2.为表维护表格维护生成器，也就是SM30

3.使用函数SE16N_INTERFACE

4.使用DEBUG方式编辑，当我们没有维护表为可编辑状态，也没有维护SM30时，就需要用这种方式来使表格可以进行编辑，需要更改GD-EDIT，以及GD-SAPEDIT参数值为X即可，但是每次都需要如此操作，所以在这里我介绍一种船新版本，不使用DEBUG也可以更改SE16N的值，同时可以使用SE16N的初始界面的所有功能。

5.全新版本SE16N

首先创建如下函数，参数及类型保持一致

然后创建自定义程序（示例程序同时还有打开SE11及CDS VIEW等功能，只关注SE16N即可）

然后创建自定义的事务码或者直接SE38使用即可，效果如下

执行后进入SE16N初始界面，这里可以进行字段筛选，设置筛选条件等，比SE16N_INTERFACE灵活很多

继续执行，可以随意进行更改

要注意的是，该方式可以更改任何数据库表，更改时要考虑清楚后果，不建议更改标准数据库表的值，因为标准表数据之间大多有关联关系，随意更改可能导致系统异常！！更改前请确认好是否有其他影响！！

同时SE16N更改的记录会有标准记录，存储在SE16N_CD_KEY和SE16N_CD_DATA中，使用RKSE16N_CD_DISPLAY程序可以进行查看。

完整代码如下：

FUNCTION YSE16N_EXIT.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_TAB) TYPE  SE16N_TAB
*"  TABLES
*"      IT_SELFIELDS STRUCTURE  SE16N_SELFIELDS
*"----------------------------------------------------------------------

  ASSIGN ('(SAPLSE16N)GD-EDIT') TO FIELD-SYMBOL(<FS_G_EDIT>).
  IF <FS_G_EDIT> IS ASSIGNED.
    <FS_G_EDIT> = ABAP_TRUE.
  ENDIF.

  ASSIGN ('(SAPLSE16N)GD-SAPEDIT') TO FIELD-SYMBOL(<FS_G_SAPEDIT>).
  IF <FS_G_SAPEDIT> IS ASSIGNED.
    <FS_G_SAPEDIT> = ABAP_TRUE.
  ENDIF.

ENDFUNCTION.

*&---------------------------------------------------------------------*
*& Report YSE16N_13065
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YSE16N_13065.
*include yinclude_test.
TABLES:DD02L.

PARAMETERS:P_TAB TYPE TABNAME.
SELECTION-SCREEN SKIP.
PARAMETERS:P_SE11  TYPE CHAR1 RADIOBUTTON GROUP G1 USER-COMMAND UC,
           P_SE16N TYPE CHAR1 RADIOBUTTON GROUP G1 DEFAULT 'X',
           P_CDS_A TYPE CHAR1 RADIOBUTTON GROUP G1,
           P_CDS_B TYPE CHAR1 RADIOBUTTON GROUP G1.

START-OF-SELECTION.
CHECK P_TAB IS NOT INITIAL.
CHECK SY-UNAME = 'SHIN063'.
CASE ABAP_TRUE.
  WHEN P_SE11.
    CALL FUNCTION 'RS_DD_DEF_SHOW'
      EXPORTING
*       FNAME   = '          '
        OBJNAME = P_TAB
*       SHOW_TYPE                  = 'L'
*       MONITOR_ACTIVATE           = 'X'
*     EXCEPTIONS
*       OBJECT_NOT_FOUND           = 1
*       OBJECT_NOT_SPECIFIED       = 2
*       PERMISSION_FAILURE         = 3
*       OTHERS  = 4
      .
    IF SY-SUBRC <> 0.
* Implement suitable error handling here
    ENDIF.
  WHEN P_SE16N.
    CALL FUNCTION 'SE16N_START'
      EXPORTING
        I_TAB              = P_TAB
        I_DISPLAY          = 'X'
        I_EXIT_SELFIELD_FB = 'YSE16N_EXIT'
*       I_SINGLE_TABLE     = ' '
*       I_HANA             = ' '
      .
  WHEN P_CDS_A.
    SELECT SINGLE OBJECTNAME
      INTO @DATA(GV_OBJNAME)
      FROM DDLDEPENDENCY
     WHERE DDLNAME = @P_TAB
       AND STATE   = 'A'
       AND OBJECTTYPE = 'VIEW'.

    CALL FUNCTION 'RS_DD_DEF_SHOW'
      EXPORTING
*       FNAME   = '          '
        OBJNAME = GV_OBJNAME
*       SHOW_TYPE                  = 'L'
*       MONITOR_ACTIVATE           = 'X'
*     EXCEPTIONS
*       OBJECT_NOT_FOUND           = 1
*       OBJECT_NOT_SPECIFIED       = 2
*       PERMISSION_FAILURE         = 3
*       OTHERS  = 4
      .
    IF SY-SUBRC <> 0.
* Implement suitable error handling here
    ENDIF.

  WHEN P_CDS_B.
    SELECT SINGLE OBJECTNAME
      INTO @GV_OBJNAME
      FROM DDLDEPENDENCY
     WHERE DDLNAME = @P_TAB
       AND STATE   = 'A'
       AND OBJECTTYPE = 'VIEW'.

    CALL FUNCTION 'SE16N_START'
      EXPORTING
        I_TAB              = GV_OBJNAME
        I_DISPLAY          = 'X'
*        I_EXIT_SELFIELD_FB = 'YSE16N_EXIT'
*       I_SINGLE_TABLE     = ' '
*       I_HANA             = ' '
      .
  WHEN OTHERS.
ENDCASE.
*PERFORM frm_test_get_name.

以上。

收录于