*清洗表统一维护 REPORT ZXOQXBWH. SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE TITLE1. SELECTION-SCREEN COMMENT /1(30) COMM1 . SELECTION-SCREEN ULINE. PARAMETERS: p1 RADIOBUTTON GROUP grp1 , p2 RADIOBUTTON GROUP grp1, p3 RADIOBUTTON GROUP grp1, p4 RADIOBUTTON GROUP grp1, p5 RADIOBUTTON GROUP grp1, p6 RADIOBUTTON GROUP grp1, p7 RADIOBUTTON GROUP grp1, p8 RADIOBUTTON GROUP grp1, p9 RADIOBUTTON GROUP grp1. SELECTION-SCREEN END OF BLOCK bk1. ***初始化参数. INITIALIZATION. TITLE1 = ' 【清洗表维护清单】 '. COMM1 = '请选择需要维护的清洗表:'. " AT SELECTION-SCREEN OUTPUT. *判断用户权限 PERFORM VIEW_MAIN. *点击调用CAll视图维护函数。 FORM VIEW_MAIN. IF P1 = 'X' . *SET PARAMETER ID 'DVI' FIELD 'V_001_B'. *CALL TRANSACTION 'OBVU' AND SKIP FIRST SCREEN . *BW系统无此 OBVU Tcode *CALL TRANSACTION 'SM30' AND SKIP FIRST SCREEN . *SM30跳过启动屏幕不行,所以使用函数VIEW_MAINTENANCE_CALL CALL FUNCTION 'VIEW_MAINTENANCE_CALL' EXPORTING ACTION = 'U' VIEW_NAME = 'V_001_B'. ENDIF . IF P2 = 'X' . CALL FUNCTION 'VIEW_MAINTENANCE_CALL' EXPORTING ACTION = 'U' VIEW_NAME = 'V023'. ENDIF . |