创建带有可编辑和着色单元格的动态alv

程序代码：

1. TYPE-POOLS : ABAP.
   
2. FIELD-SYMBOLS: <LINE> TYPE STANDARD TABLE,
   
3.                 <WA>   TYPE ANY.
   
4. DATA: DYN_TABLE     TYPE REF TO DATA,
   
5.        DYN_LINE      TYPE REF TO DATA,
   
6.        WA_FIELDCAT   TYPE LVC_S_FCAT,
   
7.        IT_FIELDCAT   TYPE LVC_T_FCAT,
   
8.        IT_FIELDCAT_1 TYPE LVC_T_FCAT,
   
9.        OK_CODE       TYPE SY-UCOMM.
   
10. TYPES: BEGIN OF TY_1,
    
11.         TIME    TYPE T,
    
12.         REMARKS TYPE CHAR50,
    
13.        END OF TY_1.
    
14. DATA: LV_FLD_1 TYPE TY_1.
    
15. 
    
16. START-OF-SELECTION.
    
17. * Create dynamic table stricture..
    
18.    PERFORM GET_TABLE_STRUCTURE.
    
19. *Create dynamic internale table..
    
20.    PERFORM CREATE_ITAB_DYNAMICALLY.
    
21. * filling the data into dynamic internal table..
    
22.    PERFORM GET_DATA.
    
23. END-OF-SELECTION.
    
24. * display dynamic interal data.
    
25.    PERFORM DISPLAY_ALV_REPORT.
    
26.    CALL SCREEN 2000.
    
27. *&---------------------------------------------------------------------*
    
28. *&      Form  get_table_structure
    
29. *&---------------------------------------------------------------------*
    
30. *       Get structure of an SAP table
    
31. *----------------------------------------------------------------------*
    
32. FORM GET_TABLE_STRUCTURE.
    
33.    DATA : REF_TABLE_DESCR TYPE REF TO CL_ABAP_STRUCTDESCR,
    
34.           IT_TABDESCR TYPE ABAP_COMPDESCR_TAB,
    
35.           WA_TABDESCR TYPE ABAP_COMPDESCR,
    
36.           LV_NO_DAYS  TYPE P,
    
37.           LV_DATE     TYPE SY-DATUM,
    
38.           LV_DATUM    TYPE SY-DATUM,
    
39.           LV_DAY      TYPE TEXT40,
    
40.           LV_WEEK_DAY TYPE TEXT10,
    
41.           LIN         TYPE SY-TFILL,
    
42.           C_REM       TYPE STRING VALUE 'Remarks' .
    
43. * fill the data into fieldcatlog of static field
    
44.    PERFORM BUILD_FIELDCATALOG USING IT_FIELDCAT.
    
45. * Return structure of the table.
    
46.    REF_TABLE_DESCR ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA( LV_FLD_1 ).
    
47.    IT_TABDESCR[] = REF_TABLE_DESCR->COMPONENTS[].
    
48. 
    
49. * Get no of days in a month..
    
50.    CALL FUNCTION 'HR_E_NUM_OF_DAYS_OF_MONTH'
    
51.      EXPORTING
    
52.        P_FECHA        = SY-DATUM
    
53.      IMPORTING
    
54.        NUMBER_OF_DAYS = LV_NO_DAYS.
    
55. 
    
56. * get no of lines..
    
57.    DESCRIBE TABLE IT_FIELDCAT LINES LIN .
    
58. 
    
59.    LV_DATUM            = SY-DATUM.
    
60.    LV_DATUM+6(2)       = 1.
    
61.    WA_FIELDCAT-COL_POS = LIN.
    
62. * fill dynamic field into fields cate..
    
63.    DO LV_NO_DAYS TIMES.
    
64.      LV_DATE = LV_DATUM  + SY-INDEX - 1.
    
65.      CALL FUNCTION 'DATE_TO_DAY'
    
66.        EXPORTING
    
67.          DATE    = LV_DATE
    
68.        IMPORTING
    
69.          WEEKDAY = LV_WEEK_DAY.
    
70. 
    
71.      CONCATENATE LV_DATE+6(2) ',' LV_WEEK_DAY INTO LV_DAY.
    
72. 
    
73.      LOOP AT IT_TABDESCR INTO WA_TABDESCR.
    
74.        WA_FIELDCAT-COL_POS   = WA_FIELDCAT-COL_POS + 1   .
    
75.        IF SY-TABIX = 1.
    
76.          WA_FIELDCAT-FIELDNAME = LV_DATE .
    
77.          WA_FIELDCAT-COLTEXT   = LV_DAY.
    
78.        ELSE.
    
79.          CONCATENATE LV_DATE  '_R'  INTO WA_FIELDCAT-FIELDNAME.
    
80.          WA_FIELDCAT-COLTEXT   = C_REM."'Remarks'.
    
81.        ENDIF.
    
82.        WA_FIELDCAT-INTTYPE   = WA_TABDESCR-TYPE_KIND.
    
83.        WA_FIELDCAT-INTLEN    = WA_TABDESCR-LENGTH / 2.
    
84.        APPEND  WA_FIELDCAT TO  IT_FIELDCAT.
    
85.      ENDLOOP.
    
86.    ENDDO.
    
87. ENDFORM.                    "get_table_structure
    
88. 
    
89. *&---------------------------------------------------------------------*
    
90. *&      Form  create_itab_dynamically
    
91. *&---------------------------------------------------------------------*
    
92. *       Create internal table dynamically
    
93. *----------------------------------------------------------------------*
    
94. FORM CREATE_ITAB_DYNAMICALLY.
    
95. * Create dynamic internal table and assign to Field-Symbol
    
96.    CLEAR WA_FIELDCAT.
    
97. *move fields from IT_FIELDCAT into IT_FIELDCAT_1.
    
98.    IT_FIELDCAT_1 = IT_FIELDCAT.
    
99. * Use ref table CALENDAR_TYPE and ref field 'COLTAB'
    
100.   WA_FIELDCAT-FIELDNAME = 'CELLCOLOR'.
     
101.    WA_FIELDCAT-REF_TABLE = 'CALENDAR_TYPE'.
     
102.    WA_FIELDCAT-REF_FIELD = 'COLTAB'.
     
103.    APPEND WA_FIELDCAT TO IT_FIELDCAT.
     
104.    CLEAR WA_FIELDCAT.
     
105. * create a table type 'ZCELLSTYL' with field 'CELLSTYLE' of type  LVC_T_STYL
     
106.    WA_FIELDCAT-FIELDNAME = 'CELLSTYLE'.
     
107.    WA_FIELDCAT-REF_TABLE = 'ZCELLSTYL'.
     
108.    WA_FIELDCAT-REF_FIELD = 'CELLSTYLE'.
     
109.    APPEND WA_FIELDCAT TO IT_FIELDCAT.
     
110. *Create a dynamic table with IT_FIELDCAT.
     
111. * and Use IT_FIELDCAT_1 to display ALV.
     
112.    CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
     
113.      EXPORTING
     
114.        IT_FIELDCATALOG = IT_FIELDCAT
     
115.      IMPORTING
     
116.        EP_TABLE        = DYN_TABLE.
     
117.    ASSIGN DYN_TABLE->* TO <LINE>.
     
118. * Create dynamic work area and assign to Field Symbol
     
119.    CREATE DATA DYN_LINE LIKE LINE OF <LINE> .
     
120.    ASSIGN DYN_LINE->* TO <WA> .
     
121. ENDFORM.                    "create_itab_dynamically
     
122. *&---------------------------------------------------------------------*
     
123. *&      Form  get_data
     
124. *&---------------------------------------------------------------------*
     
125. *       Populate dynamic itab
     
126. *----------------------------------------------------------------------*
     
127. FORM GET_DATA.
     
128.    FIELD-SYMBOLS: <FS_PERNR> TYPE ANY,
     
129.                   <FS_FIELD> TYPE ANY,
     
130.                   <FS_COLOR> TYPE LVC_T_SCOL,
     
131.                   <FS_STYLE> TYPE LVC_T_STYL,
     
132.                   <WA_FIELDCAT> TYPE LVC_S_FCAT.
     
133.    DATA: IT_CELLCOLOR TYPE LVC_T_SCOL,
     
134.          IT_CELLSTYLE TYPE LVC_T_STYL,
     
135.          L_DAY_P      TYPE P,
     
136.          LV_MOD_DATE  TYPE DATUM,
     
137.          C_HOL        TYPE CHAR10 VALUE ' Holiday '.
     
138.    ASSIGN COMPONENT 'PERNR' OF STRUCTURE <WA> TO <FS_PERNR>.
     
139.     LOOP  AT IT_FIELDCAT ASSIGNING <WA_FIELDCAT> ."WHERE
     
140. * adde color to dynamci fields..
     
141.      ASSIGN COMPONENT 'CELLCOLOR' OF STRUCTURE <WA> TO <FS_COLOR>.
     
142.      IF <WA_FIELDCAT>-INTTYPE  = 'T'.
     
143.        PERFORM  MODIFY_CELL_COLOR USING <WA_FIELDCAT>-FIELDNAME
     
144.                                   CHANGING IT_CELLCOLOR.
     
145.        <FS_COLOR> = IT_CELLCOLOR.
     
146.      ELSE.
     
147.        IF <WA_FIELDCAT>-FIELDNAME+8(2) = '_R'.
     
148.          LV_MOD_DATE = <WA_FIELDCAT>-FIELDNAME+0(8).
     
149.          L_DAY_P = LV_MOD_DATE  MOD 7.
     
150.          IF L_DAY_P > 1.
     
151.            L_DAY_P = L_DAY_P - 1.
     
152.          ELSE.
     
153.            L_DAY_P = L_DAY_P + 6.
     
154.          ENDIF.
     
155.          IF L_DAY_P = 6 OR L_DAY_P = 7.
     
156.            PERFORM  MODIFY_CELL_COLOR USING <WA_FIELDCAT>-FIELDNAME
     
157.                                       CHANGING IT_CELLCOLOR.
     
158.            <FS_COLOR> = IT_CELLCOLOR.
     
159.            ASSIGN COMPONENT <WA_FIELDCAT>-FIELDNAME OF STRUCTURE <WA> TO <FS_FIELD>.
     
160.            <FS_FIELD> = C_HOL."' Holiday '.
     
161.          ENDIF.
     
162.        ENDIF.
     
163.      ENDIF.
     
164. *Dynamic editable
     
165.      IF <WA_FIELDCAT>-FIELDNAME+0(8)  =  SY-DATUM.
     
166.        ASSIGN COMPONENT 'CELLSTYLE' OF STRUCTURE <WA> TO <FS_STYLE>.
     
167.        PERFORM EDITABLE_CELL USING <WA_FIELDCAT>-FIELDNAME
     
168.                              CHANGING IT_CELLSTYLE.
     
169.        <FS_STYLE> = IT_CELLSTYLE.
     
170.      ENDIF.
     
171.    ENDLOOP.
     
172.    APPEND <WA> TO <LINE>.
     
173. ENDFORM.                    "get_data
     
174. 
     
175. *&---------------------------------------------------------------------*
     
176. *&      Form  modify_cell_color
     
177. *&---------------------------------------------------------------------*
     
178. *      -->P_FIELDNAME   text
     
179. *      -->PT_CELLCOLOR  text
     
180. *----------------------------------------------------------------------*
     
181. FORM MODIFY_CELL_COLOR  USING P_FIELDNAME   TYPE LVC_FNAME
     
182.                          CHANGING PT_CELLCOLOR  TYPE TABLE.
     
183.    DATA L_CELLCOLOR TYPE LVC_S_SCOL.
     
184.    DATA : LV_DATE TYPE DATUM.
     
185.    DATA: DAY_P TYPE P.
     
186.    CLEAR L_CELLCOLOR.
     
187.    IF P_FIELDNAME+8(2) = '_R'.
     
188.      LV_DATE =  P_FIELDNAME+8(2).
     
189.    ELSE.
     
190.      LV_DATE =  P_FIELDNAME.
     
191.    ENDIF.
     
192.    DAY_P = LV_DATE  MOD 7.
     
193.    IF DAY_P > 1.
     
194.      DAY_P = DAY_P - 1.
     
195.    ELSE.
     
196.      DAY_P = DAY_P + 6.
     
197.    ENDIF.
     
198.    IF DAY_P = 6 OR DAY_P = 7.
     
199.      IF P_FIELDNAME+8(2) = '_R'.
     
200.        L_CELLCOLOR-COLOR-COL = 7.       " Red.
     
201.        L_CELLCOLOR-COLOR-INT = 0.
     
202.        L_CELLCOLOR-COLOR-INV = 0.
     
203.      ELSE.
     
204.        L_CELLCOLOR-COLOR-COL = 7.       " Red.
     
205.        L_CELLCOLOR-COLOR-INT = 1.
     
206.        L_CELLCOLOR-COLOR-INV = 1.
     
207.      ENDIF.
     
208.      L_CELLCOLOR-FNAME = P_FIELDNAME.
     
209.      APPEND L_CELLCOLOR TO PT_CELLCOLOR.
     
210.    ELSE.
     
211.      CLEAR L_CELLCOLOR.
     
212.    ENDIF.
     
213.    IF P_FIELDNAME+0(8) = SY-DATUM.
     
214.      L_CELLCOLOR-FNAME = P_FIELDNAME.
     
215.      L_CELLCOLOR-COLOR-COL = 3.       " Red.
     
216.      L_CELLCOLOR-COLOR-INT = 1.
     
217.      L_CELLCOLOR-COLOR-INV = 1.
     
218.      APPEND L_CELLCOLOR TO PT_CELLCOLOR.
     
219.      CONCATENATE P_FIELDNAME '_R' INTO  L_CELLCOLOR-FNAME .
     
220.      L_CELLCOLOR-COLOR-COL = 3.       " Red.
     
221.      L_CELLCOLOR-COLOR-INT = 1.
     
222.      L_CELLCOLOR-COLOR-INV = 1.
     
223.      APPEND L_CELLCOLOR TO PT_CELLCOLOR.
     
224.    ENDIF.
     
225. ENDFORM.                    " MODIFY_CELL_COLOR
     
226. 
     
227. *&---------------------------------------------------------------------*
     
228. *&      Form  BUILD_FIELDCATALOG
     
229. *&---------------------------------------------------------------------*
     
230. *       Build Fieldcatalog for ALV Report, using SAP table structure
     
231. *----------------------------------------------------------------------*
     
232. FORM BUILD_FIELDCATALOG USING P_IT_FIELDCAT  TYPE LVC_T_FCAT."SLIS_T_FIELDCAT_ALV .
     
233. ** ALV Function module to build field catalog from SAP table structure
     
234.    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
     
235.     EXPORTING
     
236. *   I_BUFFER_ACTIVE              =
     
237.          I_STRUCTURE_NAME       = 'ZDYNAMIC_ALV_STR'
     
238. *   I_CLIENT_NEVER_DISPLAY       = 'X'
     
239. *   I_BYPASSING_BUFFER           =
     
240. *   I_INTERNAL_TABNAME           =
     
241.      CHANGING
     
242.          CT_FIELDCAT            = P_IT_FIELDCAT
     
243.   EXCEPTIONS
     
244.     INCONSISTENT_INTERFACE       = 1
     
245.     PROGRAM_ERROR                = 2
     
246.     OTHERS                       = 3
     
247.              .
     
248.    IF SY-SUBRC <> 0.
     
249.      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
     
250.              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     
251.    ENDIF.
     
252. ENDFORM.                    " BUILD_FIELDCATALOG
     
253. 
     
254. *&---------------------------------------------------------------------*
     
255. *&      Form  DISPLAY_ALV_REPORT
     
256. *&---------------------------------------------------------------------*
     
257. *       Display report using ALV grid
     
258. *----------------------------------------------------------------------*
     
259. FORM DISPLAY_ALV_REPORT.
     
260.    DATA :G_GRID_I             TYPE REF TO CL_GUI_ALV_GRID,
     
261.          G_CUSTOM_CONTAINER_I TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
     
262.          I_CONTAINER          TYPE SCRFNAME VALUE 'ALV',
     
263.          GS_LAYOUT            TYPE LVC_S_LAYO.
     
264. 
     
265.    CREATE OBJECT G_CUSTOM_CONTAINER_I
     
266.      EXPORTING
     
267.        CONTAINER_NAME = I_CONTAINER.
     
268. 
     
269.    CREATE OBJECT G_GRID_I
     
270.      EXPORTING
     
271.        I_PARENT = G_CUSTOM_CONTAINER_I.
     
272. 
     
273.    GS_LAYOUT-COL_OPT     = 'X'.
     
274.    GS_LAYOUT-CWIDTH_OPT  = 'X'.
     
275.    GS_LAYOUT-CTAB_FNAME  = 'CELLCOLOR'.
     
276.    GS_LAYOUT-STYLEFNAME  = 'CELLSTYLE'."指明显示数据内表中表示样式的字段
     
277.    CALL METHOD G_GRID_I->SET_TABLE_FOR_FIRST_DISPLAY
     
278.      EXPORTING
     
279.        IS_LAYOUT            = GS_LAYOUT
     
280. *      IT_TOOLBAR_EXCLUDING = LT_EXCLUDE[]
     
281.      CHANGING
     
282.        IT_FIELDCATALOG      = IT_FIELDCAT_1
     
283.        IT_OUTTAB            = <LINE>.
     
284. *For Editable alv...
     
285.    CALL METHOD G_GRID_I->SET_READY_FOR_INPUT
     
286.      EXPORTING
     
287.        I_READY_FOR_INPUT = 1.
     
288. ENDFORM.                    " DISPLAY_ALV_REPORT
     
289. *&---------------------------------------------------------------------*
     
290. *&      Module  USER_COMMAND_2000  INPUT
     
291. *&---------------------------------------------------------------------*
     
292. *       text
     
293. *----------------------------------------------------------------------*
     
294. MODULE USER_COMMAND_2000 INPUT.
     
295.    CASE OK_CODE.
     
296.      WHEN 'BACK'.
     
297.        LEAVE TO SCREEN 0.
     
298.    ENDCASE.
     
299. ENDMODULE.                 " USER_COMMAND_2000  INPUT
     
300. *&---------------------------------------------------------------------*
     
301. *&      Module  STATUS_2000  OUTPUT
     
302. *&---------------------------------------------------------------------*
     
303. *       text
     
304. *----------------------------------------------------------------------*
     
305. MODULE STATUS_2000 OUTPUT.
     
306.    SET PF-STATUS 'STATUS_2000'.
     
307. *  SET TITLEBAR 'xxx'.
     
308. ENDMODULE.                 " STATUS_2000  OUTPUT
     
309. *&---------------------------------------------------------------------*
     
310. *&      Form  EDITABLE_CELL
     
311. *&---------------------------------------------------------------------**      -->P_IT_CELLSTYLE  text
     
312. *----------------------------------------------------------------------*
     
313. FORM EDITABLE_CELL   USING     P_FIELDNAME    TYPE LVC_FNAME
     
314.                       CHANGING  P_IT_CELLSTYLE TYPE LVC_T_STYL.
     
315.    DATA : WA_CELLSTYLE TYPE LVC_S_STYL.
     
316.    WA_CELLSTYLE-FIELDNAME =  P_FIELDNAME .
     
317.    WA_CELLSTYLE-STYLE     = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
     
318.    INSERT WA_CELLSTYLE INTO TABLE P_IT_CELLSTYLE.
     
319. ENDFORM.                    " EDITABLE_CELL

复制代码

PS：
1、SCREEN 2000需创建container（ALV）、ok_code和back退出按钮
2、需了解'CALENDAR_TYPE'、'LVC_S_STYL'和'ZCELLSTYL' 结构

程序执行效果：