在屏幕上建立custom control控件，实现oolav输出报表

oo（oriented object）面向对象，现行流行的编程方式，sap labs用的多，一般在项目上还是用面向过程的方式。

oolav程序运行效果图：


1.创建screen（se80新建程序右击）


2.在屏幕上创建一个custom control控件和一个pushbutton 控件（点击screen屏幕上layout按钮进入）




3.定义逻辑流（flow logic里面不能直接写代码，必须写在module里）

1. PROCESS BEFORE OUTPUT.
   
2. MODULE CLEAR_OK_CODE.
   
3. MODULE STATUS_0100.
   
4. MODULE DISPLAY_OOALV.
   
5. *
   
6. PROCESS AFTER INPUT.
   
7. MODULE USER_COMMAND_0100.

复制代码

4.定义ok_code



5.主程序coding

1. REPORT  ZDEMON_003.
   
2. DATA OK_CODE TYPE SY-UCOMM. " SY-UCOMM：Function code that PAI triggered
   
3. DATA IT_SPFLI TYPE TABLE OF SPFLI.
   
4. DATA:S_CONTAINER TYPE SCRFNAME VALUE 'ALVDATA',  " SCRFNAME: Name of a Screen Element  只能为该类型
   
5.       ALV_GRID TYPE REF TO CL_GUI_ALV_GRID, "参考CL_GUI_ALV_GRID类，定义对象ALV_GRID
   
6.       LO_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
   
7. 
   
8. SELECT *
   
9.   INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
   
10.   FROM SPFLI.
    
11. 
    
12. CALL SCREEN 100.
    
13. 
    
14. MODULE STATUS_0100 OUTPUT.
    
15.   SET PF-STATUS 'STATUS1'.
    
16.   SET TITLEBAR 'ALV TITLEBAR'.
    
17. ENDMODULE.                 " STATUS_0100  OUTPUT
    
18. 
    
19. MODULE USER_COMMAND_0100 INPUT.
    
20. CASE OK_CODE.
    
21.   WHEN 'CANCEL'.
    
22.     LEAVE PROGRAM.
    
23.   WHEN 'BACK' OR 'EXIT'.
    
24.     LEAVE TO SCREEN 0.
    
25. ENDCASE.
    
26. ENDMODULE.                 " USER_COMMAND_0100  INPUT
    
27. 
    
28. MODULE CLEAR_OK_CODE OUTPUT.
    
29.   CLEAR OK_CODE.
    
30. ENDMODULE.                 " CLEAR_OK_CODE  OUTPUT
    
31. 
    
32. MODULE DISPLAY_OOALV OUTPUT.
    
33.   IF LO_CUSTOM_CONTAINER IS INITIAL. "如果LO_CUSTOM_CONTAINE RDialog容器对象不存在，实例化该对象
    
34.     CREATE OBJECT LO_CUSTOM_CONTAINER
    
35.            EXPORTING CONTAINER_NAME = S_CONTAINER.
    
36.     CREATE OBJECT ALV_GRID "实例化alv对象
    
37.            EXPORTING I_PARENT = LO_CUSTOM_CONTAINER.
    
38.     CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY "调用alv对象的方法显示报表
    
39.          EXPORTING I_STRUCTURE_NAME = 'SPFLI'
    
40.            CHANGING IT_OUTTAB = IT_SPFLI.
    
41.   ENDIF.
    
42. ENDMODULE.                 " DISPLAY_OOALV  OUTPUT

复制代码

注：create object 也可以用pattern call出来，不用手写（pattern->abap objects->patterns 出现如下界面，可以call method / object ....）



6.双击主程序中的STATUS1 创建toolbar back和exit菜单


7.激活所有（包括屏幕、控件、菜单、程序等）