标准屏幕嵌套子屏幕Subscreen

子屏幕Subscreen主要是嵌套在normal screen中，用来展示数据数据的，一个normal screen可以嵌套多个Subscreen。

subscreen需要注意一下几点：

• 在subscreen中不能设置GUI status
• 在subscreen中不能定义OKCODE
• Sub screen不能再嵌套Sub screen
• Sub screen不能包含AT EXIT-COMMAND
  

多个子屏幕：

• 在normal screen的同一area区域，可以通过动态的调用屏幕号来call不同的sub screen
• 在任一时间点只能normal screen的同一area区域只能call一个subscreen
  

我们通过2个子屏幕来演示这种场景
一、se38建立一个程序，然后创建屏幕
1、Normal screen (0100) -> Customer Number

选择normal screen类型

“格式”中添加KNA1-KUNNR

“格式”中添加subscreen区域，命名SUB

“格式”中添加按钮DISPLAY、EXIT，注意功能码不要忘了
定义OK_CODE

100screen逻辑流

2、Subscreen (0110)->  Bank Account Number

选择sub screen类型

“格式”中添加KNBK-BANKN
添加一个box，命名sub1
逻辑流：

1. PROCESS BEFORE OUTPUT.
   
2.   MODULE GET_DATA_0110.
   
3. *
   
4. PROCESS AFTER INPUT.
   
5.   MODULE USER_COMMAND_0110.

复制代码

3、Subscreen(0120)-> Name and Country Details

选择sub screen类型
“格式”中添加KNA1-LAND1、KNA1-NAME1
添加一个box，命名sub2
逻辑流：

1. PROCESS BEFORE OUTPUT.
   
2.   MODULE GET_DATA_0120.
   
3. *
   
4. PROCESS AFTER INPUT.
   
5. * MODULE USER_COMMAND_0120.

复制代码

二、程序代码

1. TABLES:kna1,knbk.
   
2. DATA :
   
3.     kunnr TYPE kna1-kunnr,
   
4.     bankn TYPE knbk-bankn,
   
5.     name1 TYPE kna1-name1,
   
6.     regio TYPE kna1-regio.
   
7. DATA:
   
8.    screen  TYPE n LENGTH 4 VALUE 0110,
   
9.    ok_code LIKE sy-ucomm,
   
10.    ok_save LIKE sy-ucomm.
    
11. CALL SCREEN 100.
    
12. CALL SCREEN 110.
    
13. CALL SCREEN 120.
    
14. *&---------------------------------------------------------------------*
    
15. *&      Module  STATUS_0100  OUTPUT
    
16. *&---------------------------------------------------------------------*
    
17. *       text
    
18. *----------------------------------------------------------------------*
    
19. MODULE status_0100 OUTPUT.
    
20.   SET PF-STATUS 'ZMENU'.
    
21. *  SET TITLEBAR 'xxx'.
    
22. 
    
23. ENDMODULE.                 " STATUS_0100  OUTPUT
    
24. *&---------------------------------------------------------------------*
    
25. *&      Module  USER_COMMAND_0100  INPUT
    
26. *&---------------------------------------------------------------------*
    
27. *       text
    
28. *----------------------------------------------------------------------*
    
29. MODULE user_command_0100 INPUT.
    
30.   CASE ok_code.
    
31.     WHEN 'DISPLAY'.
    
32.       screen = 0110.
    
33.     WHEN 'EXIT' OR 'BACK' OR 'CANCEL'.
    
34.       LEAVE PROGRAM.
    
35.   ENDCASE.
    
36. ENDMODULE.                 " USER_COMMAND_0100  INPUT
    
37. *&---------------------------------------------------------------------*
    
38. *&      Module  GET_DATA_0110  OUTPUT
    
39. *&---------------------------------------------------------------------*
    
40. *       text
    
41. *----------------------------------------------------------------------*
    
42. MODULE get_data_0110 OUTPUT.
    
43.   SELECT SINGLE bankn
    
44.      FROM knbk
    
45.      INTO knbk-bankn
    
46.      WHERE kunnr = kna1-kunnr.
    
47. ENDMODULE.                 " GET_DATA_0110  OUTPUT
    
48. *&---------------------------------------------------------------------*
    
49. *&      Module  USER_COMMAND_0110  INPUT
    
50. *&---------------------------------------------------------------------*
    
51. *       text
    
52. *----------------------------------------------------------------------*
    
53. MODULE user_command_0110 INPUT.
    
54.   CASE ok_code.
    
55.     WHEN 'DISPLAY'.
    
56.       screen = 0120.
    
57.     WHEN 'EXIT'.
    
58.       LEAVE PROGRAM.
    
59.   ENDCASE.
    
60. ENDMODULE.                 " USER_COMMAND_0110  INPUT
    
61. *&---------------------------------------------------------------------*
    
62. *&      Module  GET_DATA_0120  OUTPUT
    
63. *&---------------------------------------------------------------------*
    
64. *       text
    
65. *----------------------------------------------------------------------*
    
66. MODULE get_data_0120 OUTPUT.
    
67.   SELECT SINGLE name1
    
68.                 land1
    
69.      FROM kna1
    
70.      INTO (kna1-name1,kna1-land1)
    
71.      WHERE kunnr = kna1-kunnr.
    
72. ENDMODULE.                 " GET_DATA_0120  OUTPUT

复制代码

三、测试
执行程序

输入一个存在的customer number
点击显示按钮

再次点击显示按钮

请问两个子屏幕的逻辑流能不能截个图贴一下呢？
因为我按照这个帖子做，点击第一下display可以显示sub1，但是再点击display时候就没有反应了。
谢谢啦

Colin大少 发表于 2015-3-6 10:00
请问两个子屏幕的逻辑流能不能截个图贴一下呢？
因为我按照这个帖子做，点击第一下display可以显示sub1， ...

逻辑流添加上了....