SM30 函数自定义开发（筛选数据、获取单元格值、添加功能码）

在做SM30维护视图的时候发现标准的函数功能满足不了我的开发需求。直接上菜吧。
1.过滤筛选字段数据显示
2.获取sm30维护视图表里面单元格的值
3.添加功能码
4.添加列
1.SM30做数据筛选
定义一个range表 里面的值进行过滤筛选 G_FIELDNAME 存放字段名
DATA: GT_SELLIST TYPE TABLE OF VIMSELLIST.
DATA: G_FIELDNAME TYPE VIMSELLIST-VIEWFIELD.
DATA: GT_EXCLUDE TYPE TABLE OF VIMEXCLFUN,
GWA_EXCLUDE TYPE VIMEXCLFUN.
DATA: LR_NUM TYPE RANGE OF ZJZPPT05420-ITEM_NUM WITH HEADER LINE.
CONSTANTS: C_U TYPE CHAR1 VALUE ‘U’,
C_AND TYPE CHAR3 VALUE ‘AND’.

LR_NUM[] = VALUE #( ( SIGN = ‘I’ OPTION = ‘EQ’ LOW = LV_NUM ) ).

G_FIELDNAME = ‘ITEM_NUM’.
CALL FUNCTION ‘VIEW_RANGETAB_TO_SELLIST’
EXPORTING
FIELDNAME = G_FIELDNAME
APPEND_CONJUNCTION = C_AND
TABLES
SELLIST = GT_SELLIST
RANGETAB = LR_NUM.

CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’
EXPORTING
ACTION = C_U
VIEW_NAME = ‘ZJZPPT05420’
TABLES
DBA_SELLIST = GT_SELLIST.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
2.获取sm30维护视图表里面单元格的值
3.添加功能码
以下：

功能码：DELE
存放展示的alv 很难找到 debug了很久 几百个全局变量
后来发现EXTRACT里面有展示内表的数据

但是这数据需要自己加工处理
通过 GET CURSOR FIELD L_FIELD LINE L_LINE.获取行数读取内表EXTRACT获取里面的值
MODULE BTN_CODE INPUT.
DATA: OK_SAVE TYPE SY-UCOMM.
OK_SAVE = SY-UCOMM.
DATA:LV_NUM(11) TYPE I.
DATA: L_LINE TYPE I,
L_FIELD TYPE SCREEN-NAME.
GET CURSOR FIELD L_FIELD LINE L_LINE.
READ TABLE EXTRACT INDEX L_LINE.
IF SY-SUBRC EQ 0.
LV_NUM = EXTRACT+3(10).
ENDIF.

CASE OK_SAVE.
WHEN ‘FIX’.
PERFORM FRM_FIX_SM30 CHANGING LV_NUM.
ENDCASE.
CLEAR OK_SAVE.
ENDMODULE.


在做删除处理的时候要注意 module要放在语句 loot at EXTRACT之前 这样内表数据才是清空前的数据。
4.sm30 屏幕添加列