ABAP OO 或是 分屏的问题。

林五胖子

1. 
   
2. DATA: ok_code TYPE sy-ucomm,
   
3.       save_ok LIKE ok_code,
   
4.       output  LIKE ok_code.
   
5. 
   
6. 
   
7. class SCREEN_INIT definition create private.
   
8.   public section.
   
9.     class-methods INIT_SCREEN.
   
10.     methods CONSTRUCTOR.
    
11.   private section.
    
12.     data: SPLITTER_H type ref to CL_GUI_SPLITTER_CONTAINER,
    
13.           SPLITTER_V type ref to CL_GUI_SPLITTER_CONTAINER.
    
14. endclass.
    
15. *
    
16. 
    
17. class SCREEN_INIT implementation.
    
18. 
    
19.   method INIT_SCREEN.
    
20.     data SCREEN type ref to SCREEN_INIT.
    
21.     create object SCREEN.
    
22.   endmethod.
    
23. 
    
24.   method CONSTRUCTOR.
    
25.     data: EVENTS type CNTL_SIMPLE_EVENTS,
    
26.           EVENT like line of EVENTS,
    
27.           CONTAINER_LEFT type ref to CL_GUI_CONTAINER,
    
28.           CONTAINER_RIGHT type ref to CL_GUI_CONTAINER,
    
29.           CONTAINER_TOP type ref to CL_GUI_CONTAINER,
    
30.           CONTAINER_BOTTOM type ref to CL_GUI_CONTAINER.
    
31. 
    
32.     create object SPLITTER_V
    
33.            exporting
    
34.            PARENT = CL_GUI_CONTAINER=>SCREEN0
    
35.            ROWS = 2
    
36.            COLUMNS = 1.
    
37.     call method SPLITTER_V->SET_BORDER
    
38.          exporting BORDER = CL_GUI_CFW=>FALSE.
    
39. 
    
40.     call method SPLITTER_V->SET_ROW_MODE
    
41.          exporting MODE = SPLITTER_V->MODE_ABSOLUTE.
    
42. 
    
43.     call method SPLITTER_V->SET_ROW_HEIGHT
    
44.          exporting ID = 1
    
45.          HEIGHT = 160.
    
46. 
    
47.     CONTAINER_TOP    = SPLITTER_V->GET_CONTAINER( ROW = 1 COLUMN = 1 ).
    
48.     CONTAINER_BOTTOM = SPLITTER_V->GET_CONTAINER( ROW = 2 COLUMN = 1 ).
    
49. 
    
50.     create object SPLITTER_H
    
51.            exporting
    
52.            PARENT = CONTAINER_BOTTOM
    
53.            ROWS = 1
    
54.            COLUMNS = 2.
    
55. 
    
56.     call method SPLITTER_H->SET_BORDER
    
57.          exporting BORDER = CL_GUI_CFW=>FALSE.
    
58. 
    
59.     call method SPLITTER_H->SET_COLUMN_MODE
    
60.          exporting MODE = SPLITTER_H->MODE_ABSOLUTE.
    
61. 
    
62.     call method SPLITTER_H->SET_COLUMN_WIDTH
    
63.          exporting ID = 1
    
64.          WIDTH = 500.
    
65. 
    
66.     CONTAINER_LEFT  = SPLITTER_H->GET_CONTAINER( ROW = 1 COLUMN = 1 ).
    
67.     CONTAINER_RIGHT = SPLITTER_H->GET_CONTAINER( ROW = 1 COLUMN = 2 ).
    
68. 
    
69.   endmethod.
    
70. 
    
71. endclass.
    
72. 
    
73. 
    
74. LOAD-OF-PROGRAM.
    
75. CALL SCREEN 100.
    
76. *&---------------------------------------------------------------------*
    
77. *&      Module  STATUS_0100  OUTPUT
    
78. *&---------------------------------------------------------------------*
    
79. *       text
    
80. *----------------------------------------------------------------------*
    
81. MODULE STATUS_0100 OUTPUT.
    
82.   SET PF-STATUS 'STATUS_100'.
    
83. *  SET TITLEBAR 'xxx'.
    
84.   call method SCREEN_INIT=>INIT_SCREEN.
    
85.   CREATE OBJECT CONTAINER_TOP.
    
86.   write :/ '0000'.
    
87. ENDMODULE.                 " STATUS_0100  OUTPUT
    
88. *&---------------------------------------------------------------------*
    
89. *&      Module  USER_COMMAND_0100  INPUT
    
90. *&---------------------------------------------------------------------*
    
91. *       text
    
92. *----------------------------------------------------------------------*
    
93. MODULE USER_COMMAND_0100 INPUT.
    
94.   save_ok = ok_code.
    
95.   CLEAR ok_code.
    
96.   CASE save_ok.
    
97.     WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
    
98.       LEAVE TO SCREEN 0.
    
99.     WHEN OTHERS.
    
100.       output = save_ok.
     
101.   ENDCASE.
     
102. ENDMODULE.                 " USER_COMMAND_0100  INPUT

复制代码

例如这个，我已经分成 如下三屏， 请问要如果在这三屏里write进文字？

SAPOK_ABAP

这里不能用write了，要在屏幕里拖出一个output field了

gulinyu

没看懂~~