screen-group属性的用法

screen-group1/group2/group3....，这里的group通常是用来修改屏幕的时候使用，控制分组

选择屏幕：

执行屏幕效果：

点击修改按钮效果：


主程序代码：

1. TABLES SPFLI.
   
2. DATA: OK_CODE TYPE SY-UCOMM.
   
3. DATA: G_MODIFY TYPE I VALUE 0.
   
4. 
   
5. PARAMETERS: P_CARRID TYPE SPFLI-CARRID OBLIGATORY.
   
6. PARAMETERS: P_CONNID TYPE SPFLI-CONNID OBLIGATORY.
   
7. 
   
8. CALL SCREEN 100.
   
9. 
   
10. INCLUDE ZLXG_007_100_PBO.
    
11. INCLUDE ZLXG_007_100_PAI.

复制代码

INCLUDE ZLXG_007_100_PBO.

1. *----------------------------------------------------------------------*
   
2. ***INCLUDE ZLXG_007_100_PBO .
   
3. *----------------------------------------------------------------------*
   
4. *&---------------------------------------------------------------------*
   
5. *&      Module  GET_DATA  OUTPUT
   
6. *&---------------------------------------------------------------------*
   
7. *       text
   
8. *----------------------------------------------------------------------*
   
9. MODULE GET_DATA OUTPUT.
   
10. SELECT SINGLE *
    
11.   INTO SPFLI
    
12.   FROM SPFLI
    
13.   WHERE CARRID = P_CARRID AND CONNID = P_CONNID.
    
14. ENDMODULE.                 " GET_DATA  OUTPUT
    
15. *&---------------------------------------------------------------------*
    
16. *&      Module  SETSCREEN  OUTPUT
    
17. *&---------------------------------------------------------------------*
    
18. *       text
    
19. *----------------------------------------------------------------------*
    
20. MODULE SETSCREEN OUTPUT.
    
21. LOOP AT SCREEN.
    
22. CHECK SCREEN-GROUP1 = 'INS'.
    
23. SCREEN-INPUT = G_MODIFY.
    
24. MODIFY SCREEN.
    
25. ENDLOOP.
    
26. ENDMODULE.                 " SETSCREEN  OUTPUT
    
27. *&---------------------------------------------------------------------*
    
28. *&      Module  STATUS_0100  OUTPUT
    
29. *&---------------------------------------------------------------------*
    
30. *       text
    
31. *----------------------------------------------------------------------*
    
32. MODULE STATUS_0100 OUTPUT.
    
33.   SET PF-STATUS 'STATUS_100'.
    
34.   SET TITLEBAR 'TITLE_100'.
    
35. 
    
36. ENDMODULE.                 " STATUS_0100  OUTPUT

复制代码

INCLUDE ZLXG_007_100_PAI.

1. *----------------------------------------------------------------------*
   
2. ***INCLUDE ZLXG_007_100_PAI .
   
3. *----------------------------------------------------------------------*
   
4. 
   
5. *&---------------------------------------------------------------------*
   
6. *&      Module  USER_COMMAND_0100  INPUT
   
7. *&---------------------------------------------------------------------*
   
8. *       text
   
9. *----------------------------------------------------------------------*
   
10. MODULE USER_COMMAND_0100 INPUT.
    
11. CASE OK_CODE.
    
12.   WHEN 'MOD'.
    
13.    IF G_MODIFY = 0.
    
14.    G_MODIFY = 1.
    
15.    ELSE.
    
16.    G_MODIFY = 0.
    
17.    ENDIF.
    
18.   WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
    
19.     LEAVE TO SCREEN 0.
    
20. ENDCASE.
    
21. ENDMODULE.                 " USER_COMMAND_0100  INPUT

复制代码

注意：1.定义screen 100 Attribute->screen type:normal2.element list 定义ok_code和group分组标记（group1、group2、group3....可以分为多组，本例只分了1组）

3.flow logic

1. PROCESS BEFORE OUTPUT.
   
2.   MODULE STATUS_0100.
   
3.   MODULE GET_DATA.
   
4.   MODULE SETSCREEN.
   
5. 
   
6. PROCESS AFTER INPUT.
   
7.   MODULE USER_COMMAND_0100.

复制代码

4.定义工具栏（SET PF-STATUS 'STATUS_100'） 如下图：