*清洗表統一維護 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 . |