简单的alv显示，FIELDCAT-CHECKBOX选择框

作业1 建立程序ZBC3_<YN>_HM1.
1 进入ABAP数据字典，查看表sflight的表结构
2 建立内表it_sflight和工作区wa_sflight，数据类型与sflight相同
3 建立选择屏幕，其中carrid字段，要求用户选择一项，connid和fldate字段，用户可以选定一定范围的数据
4 设置carrid字段默认值为AA
5 用户在选择屏幕录入数据后，要求carrid必填，connid和fldate字段至少要填一个
6 将sflight的所有字段用ALV进行输出，要求自动调整列宽
作业2 探索ALV
1复制程序ZBC3_<YN>_HM1到ZBC3_<YN>_HM2
2用SE37 分析功能模块 REUSE_ALV_GRID_DISPLAY_LVC
3分析参数IT_FIELDCAT_LVC 的类型和结构
通过给该参数赋值，实现在ALV中只显示
carrid connid fldate price currency planetype seatsmax seatsocc
这几个字段
4 重新定义it_sflight 和 wa_sflight  增加 occpercent字段，计算百分比
在alv中显示occpercent字段
5 增加 avliable字段，当occpercent < 80%的时候，该值为’X’，否则为空
6 在alv中用checkbox显示avliable字段

以上程序要求，采用include程序结构编写
              适当的采用自过程定义
              使用恰当的程序事件

执行执行效果：


主程序代码：

1. INCLUDE ZHOMEWORK_3_2_DEF.
   
2. INCLUDE ZHOMEWORK_3_2_MAIN.
   
3. INCLUDE ZHOMEWORK_3_2_SUB.

复制代码

INCLUDE ZHOMEWORK_3_2_DEF.

1. *&---------------------------------------------------------------------*
   
2. *&  Include           ZHOMEWORK_3_2_DEF
   
3. *&---------------------------------------------------------------------*
   
4. TYPES:BEGIN OF TY_SFLIGHT,
   
5.          carrid    TYPE SFLIGHT-carrid,
   
6.          connid    TYPE SFLIGHT-connid,
   
7.          fldate    TYPE SFLIGHT-fldate,
   
8.          price     TYPE SFLIGHT-price ,
   
9.          currency  TYPE SFLIGHT-currency,
   
10.          planetype TYPE SFLIGHT-planetype,
    
11.          seatsmax  TYPE SFLIGHT-seatsmax ,
    
12.          seatsocc  TYPE SFLIGHT-seatsocc ,
    
13.          occpercent TYPE P DECIMALS 2,
    
14.          avliable   TYPE C LENGTH 1 ,
    
15.        END OF TY_SFLIGHT.
    
16. 
    
17. 
    
18. DATA: WA_SFLIGHT TYPE TY_SFLIGHT.
    
19. DATA:IT_SFLIGHT TYPE STANDARD TABLE OF TY_SFLIGHT.
    
20. 
    
21. PARAMETERS:P_CARR TYPE SFLIGHT-CARRID OBLIGATORY.
    
22. SELECT-OPTIONS:S_CONN FOR WA_SFLIGHT-CONNID.
    
23. SELECT-OPTIONS:S_FLD FOR WA_SFLIGHT-FLDATE.
    
24. PARAMETERS: P_CHECK AS CHECKBOX.

复制代码

INCLUDE ZHOMEWORK_3_2_MAIN.

1. *&---------------------------------------------------------------------*
   
2. *&  Include           ZHOMEWORK_3_2_MAIN
   
3. *&---------------------------------------------------------------------*
   
4. 
   
5. LOAD-OF-PROGRAM.
   
6. P_CARR = 'AA'.
   
7. 
   
8. AT SELECTION-SCREEN.
   
9. IF S_CONN IS INITIAL AND S_FLD IS INITIAL.
   
10. MESSAGE E005(ZVINO).
    
11. *   P_ERDAT IS NOT INITIAL
    
12. ENDIF.
    
13. 
    
14. START-OF-SELECTION.
    
15. 
    
16. PERFORM GET_DATA.
    
17. PERFORM SHOW_DATA.

复制代码

INCLUDE ZHOMEWORK_3_2_SUB.

1. *&---------------------------------------------------------------------*
   
2. *&  Include           ZHOMEWORK_3_2_SUB
   
3. *&---------------------------------------------------------------------*
   
4. *&---------------------------------------------------------------------*
   
5. *&      Form  GET_DATA
   
6. *&---------------------------------------------------------------------*
   
7. *       text
   
8. *----------------------------------------------------------------------*
   
9. *  -->  p1        text
   
10. *  <--  p2        text
    
11. *----------------------------------------------------------------------*
    
12. FORM GET_DATA .
    
13. SELECT  carrid
    
14.         connid
    
15.         fldate
    
16.         price
    
17.         currency
    
18.         planetype
    
19.         seatsmax
    
20.         seatsocc
    
21.    INTO CORRESPONDING FIELDS OF TABLE IT_SFLIGHT
    
22.    FROM SFLIGHT
    
23.    WHERE CARRID = P_CARR AND CONNID IN S_CONN AND FLDATE IN S_FLD.
    
24. 
    
25. LOOP AT IT_SFLIGHT INTO WA_SFLIGHT.
    
26.    WA_SFLIGHT-occpercent = WA_SFLIGHT-seatsocc / WA_SFLIGHT-seatsmax.
    
27.    IF WA_SFLIGHT-occpercent < '0.8'.
    
28.        WA_SFLIGHT-avliable = 'X'.
    
29.        MODIFY IT_SFLIGHT FROM WA_SFLIGHT.
    
30.      ELSE.
    
31.        MODIFY IT_SFLIGHT FROM WA_SFLIGHT.
    
32.    ENDIF.
    
33. ENDLOOP.
    
34. ENDFORM.                    " GET_DATA
    
35. *&---------------------------------------------------------------------*
    
36. *&      Form  SHOW_DATA
    
37. *&---------------------------------------------------------------------*
    
38. *       text
    
39. *----------------------------------------------------------------------*
    
40. *  -->  p1        text
    
41. *  <--  p2        text
    
42. *----------------------------------------------------------------------*
    
43. FORM SHOW_DATA .
    
44. DATA:L_LAYOUT TYPE LVC_S_LAYO.
    
45. L_LAYOUT-CWIDTH_OPT = 'X'.
    
46. DATA:LT_FIELDCAT TYPE LVC_T_FCAT.
    
47. DATA:LW_FIELDCAT LIKE LINE OF LT_FIELDCAT.
    
48. LW_FIELDCAT-KEY = 'X'.
    
49. LW_FIELDCAT-COL_POS = '1'.
    
50. LW_FIELDCAT-FIELDNAME = 'CARRID'.
    
51. LW_FIELDCAT-SCRTEXT_L = 'CARRID11'.
    
52. APPEND LW_FIELDCAT TO LT_FIELDCAT.
    
53. 
    
54. LW_FIELDCAT-KEY = 'X'.
    
55. LW_FIELDCAT-COL_POS = '2'.
    
56. LW_FIELDCAT-FIELDNAME = 'CONNID'.
    
57. LW_FIELDCAT-SCRTEXT_L = 'CONNID'.
    
58. APPEND LW_FIELDCAT TO LT_FIELDCAT.
    
59. 
    
60. LW_FIELDCAT-KEY = 'X'.
    
61. LW_FIELDCAT-COL_POS = '3'.
    
62. LW_FIELDCAT-FIELDNAME = 'FLDATE'.
    
63. LW_FIELDCAT-SCRTEXT_L = 'FLDATE'.
    
64. APPEND LW_FIELDCAT TO LT_FIELDCAT.
    
65. 
    
66. LW_FIELDCAT-KEY = ''.
    
67. LW_FIELDCAT-COL_POS = '4'.
    
68. LW_FIELDCAT-FIELDNAME = 'PRICE'.
    
69. LW_FIELDCAT-SCRTEXT_L = 'PRICE'.
    
70. APPEND LW_FIELDCAT TO LT_FIELDCAT.
    
71. 
    
72. LW_FIELDCAT-KEY = ''.
    
73. LW_FIELDCAT-COL_POS = '5'.
    
74. LW_FIELDCAT-FIELDNAME = 'CURRENCY'.
    
75. LW_FIELDCAT-SCRTEXT_L = 'CURRENCY'.
    
76. APPEND LW_FIELDCAT TO LT_FIELDCAT.
    
77. 
    
78. LW_FIELDCAT-KEY = ''.
    
79. LW_FIELDCAT-COL_POS = '6'.
    
80. LW_FIELDCAT-FIELDNAME = 'PLANTYPE'.
    
81. LW_FIELDCAT-SCRTEXT_L = 'FLANTYPE'.
    
82. APPEND LW_FIELDCAT TO LT_FIELDCAT.
    
83. 
    
84. LW_FIELDCAT-KEY = ''.
    
85. LW_FIELDCAT-COL_POS = '7'.
    
86. LW_FIELDCAT-FIELDNAME = 'SEATSMAX'.
    
87. LW_FIELDCAT-SCRTEXT_L = 'SEATSMAX'.
    
88. APPEND LW_FIELDCAT TO LT_FIELDCAT.
    
89. 
    
90. LW_FIELDCAT-KEY = ''.
    
91. LW_FIELDCAT-COL_POS = '8'.
    
92. LW_FIELDCAT-FIELDNAME = 'SEATSOCC'.
    
93. LW_FIELDCAT-SCRTEXT_L = 'SEATSOCC'.
    
94. APPEND LW_FIELDCAT TO LT_FIELDCAT.
    
95. 
    
96. LW_FIELDCAT-KEY = ''.
    
97. LW_FIELDCAT-COL_POS = '9'.
    
98. LW_FIELDCAT-FIELDNAME = 'OCCPERCENT'.
    
99. LW_FIELDCAT-SCRTEXT_L = 'OCCPERCENT'.
    
100. APPEND LW_FIELDCAT TO LT_FIELDCAT.
     
101. 
     
102. IF P_CHECK = 'X'.
     
103. LW_FIELDCAT-CHECKBOX = 'X'.
     
104. LW_FIELDCAT-KEY = ''.
     
105. LW_FIELDCAT-COL_POS = '10'.
     
106. LW_FIELDCAT-FIELDNAME = 'AVLIABLE'.
     
107. LW_FIELDCAT-SCRTEXT_L = 'AVLIABLE'.
     
108. APPEND LW_FIELDCAT TO LT_FIELDCAT.
     
109. ENDIF.
     
110. 
     
111. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
     
112. EXPORTING
     
113. *   I_INTERFACE_CHECK                 = ' '
     
114. *   I_BYPASSING_BUFFER                =
     
115. *   I_BUFFER_ACTIVE                   =
     
116. *   I_CALLBACK_PROGRAM                = ' '
     
117. *   I_CALLBACK_PF_STATUS_SET          = ' '
     
118. *   I_CALLBACK_USER_COMMAND           = ' '
     
119. *   I_CALLBACK_TOP_OF_PAGE            = ' '
     
120. *   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
     
121. *   I_CALLBACK_HTML_END_OF_LIST       = ' '
     
122. *   I_STRUCTURE_NAME                  =
     
123. *   I_BACKGROUND_ID                   = ' '
     
124. *   I_GRID_TITLE                      =
     
125. *   I_GRID_SETTINGS                   =
     
126.     IS_LAYOUT_LVC                     = L_LAYOUT
     
127.     IT_FIELDCAT_LVC                   = LT_FIELDCAT
     
128. *   IT_EXCLUDING                      =
     
129. *   IT_SPECIAL_GROUPS_LVC             =
     
130. *   IT_SORT_LVC                       =
     
131. *   IT_FILTER_LVC                     =
     
132. *   IT_HYPERLINK                      =
     
133. *   IS_SEL_HIDE                       =
     
134. *   I_DEFAULT                         = 'X'
     
135. *   I_SAVE                            = ' '
     
136. *   IS_VARIANT                        =
     
137. *   IT_EVENTS                         =
     
138. *   IT_EVENT_EXIT                     =
     
139. *   IS_PRINT_LVC                      =
     
140. *   IS_REPREP_ID_LVC                  =
     
141. *   I_SCREEN_START_COLUMN             = 0
     
142. *   I_SCREEN_START_LINE               = 0
     
143. *   I_SCREEN_END_COLUMN               = 0
     
144. *   I_SCREEN_END_LINE                 = 0
     
145. *   I_HTML_HEIGHT_TOP                 =
     
146. *   I_HTML_HEIGHT_END                 =
     
147. *   IT_ALV_GRAPHICS                   =
     
148. *   IT_EXCEPT_QINFO_LVC               =
     
149. *   IR_SALV_FULLSCREEN_ADAPTER        =
     
150. * IMPORTING
     
151. *   E_EXIT_CAUSED_BY_CALLER           =
     
152. *   ES_EXIT_CAUSED_BY_USER            =
     
153.   TABLES
     
154.     T_OUTTAB                          = IT_SFLIGHT
     
155. * EXCEPTIONS
     
156. *   PROGRAM_ERROR                     = 1
     
157. *   OTHERS                            = 2
     
158. .
     
159. 
     
160. ENDFORM.                    " SHOW_DATA

复制代码