ooalv中编辑字段的数据检查

ALV单元格设置为可输入后，通常我们需要对单元格输入的值做一个检查，一般来说用循环内表的方法可以实现上述操作，不过如果ALV中有大量数据，而我们只更新了少量的单元格数据，这样检查显得非常的麻烦，而且效率低下，我们可以利用oo中的事件监听被修改的数据，从而达到了高效

1、程序代码：

1. DATA: BEGIN OF itab OCCURS 0 ,
   
2.         mblnr LIKE mseg-mblnr ,
   
3.         kostl LIKE mseg-kostl ,
   
4.       END OF itab .
   
5. 
   
6. DATA: ok_code LIKE sy-ucomm .
   
7. DATA: l_valid(1) TYPE c.
   
8. 
   
9. DATA: go_grid             TYPE REF TO cl_gui_alv_grid,
   
10.       go_custom_container TYPE REF TO cl_gui_custom_container.
    
11. DATA: gt_fieldcat TYPE lvc_t_fcat,
    
12.       gs_fieldcat TYPE lvc_s_fcat,
    
13.       gs_variant  TYPE disvariant ,
    
14.       gt_filt     TYPE lvc_t_filt,
    
15.       gs_filt     TYPE lvc_s_filt,
    
16.       sla         TYPE lvc_s_layo .
    
17. 
    
18. CLASS lcl_event_receiver DEFINITION DEFERRED .
    
19. DATA: event_receiver TYPE REF TO lcl_event_receiver.
    
20. 
    
21. *---------------------------------------------------------------------*
    
22. *       CLASS lcl_event_receiver DEFINITION
    
23. *---------------------------------------------------------------------*
    
24. CLASS lcl_event_receiver DEFINITION.
    
25.   PUBLIC SECTION.
    
26.     METHODS handle_data_changed
    
27.         FOR EVENT data_changed OF cl_gui_alv_grid
    
28.             IMPORTING er_data_changed.
    
29. ENDCLASS.                    "lcl_event_receiver DEFINITION
    
30. 
    
31. *---------------------------------------------------------------------*
    
32. *       CLASS lcl_event_receiver IMPLEMENTATION
    
33. *---------------------------------------------------------------------*
    
34. CLASS lcl_event_receiver IMPLEMENTATION.
    
35.   METHOD handle_data_changed.
    
36.     PERFORM handle_data_changed USING er_data_changed.
    
37.   ENDMETHOD.                    "handle_data_changed
    
38. ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
    
39. 
    
40. INITIALIZATION.
    
41.   PERFORM fieldcat_init USING gt_fieldcat[].
    
42. 
    
43. START-OF-SELECTION.
    
44.   CALL SCREEN 0100 .
    
45. 
    
46. *&---------------------------------------------------------------------*
    
47. *&      Module  USER_COMMAND_0100  INPUT
    
48. *&---------------------------------------------------------------------*
    
49. MODULE user_command_0100 INPUT.
    
50.   CASE ok_code.
    
51.     WHEN 'BACK'.
    
52.       LEAVE PROGRAM.
    
53.     WHEN 'ENTE'.
    
54.       PERFORM enter.
    
55.     WHEN 'CHANGE'.
    
56.       PERFORM change.
    
57.   ENDCASE.
    
58.   CLEAR ok_code .
    
59. ENDMODULE.                 " USER_COMMAND_0100  INPUT
    
60. 
    
61. *&---------------------------------------------------------------------*
    
62. *&      Form  load_data_into_grid
    
63. *&---------------------------------------------------------------------*
    
64. FORM load_data_into_grid.
    
65.   SELECT * FROM mseg INTO CORRESPONDING FIELDS OF TABLE itab
    
66.   UP TO 20 ROWS .
    
67. 
    
68.   sla-cwidth_opt = 'X'.
    
69.   sla-zebra      = 'X'.
    
70. 
    
71.   CALL METHOD go_grid->set_table_for_first_display
    
72.     EXPORTING
    
73.       is_variant                    = gs_variant
    
74.       i_save                        = 'A'
    
75.       is_layout                     = sla
    
76.     CHANGING
    
77.       it_outtab                     = itab[]
    
78.       it_fieldcatalog               = gt_fieldcat[]
    
79.     EXCEPTIONS
    
80.       invalid_parameter_combination = 1
    
81.       program_error                 = 2
    
82.       too_many_lines                = 3
    
83.       OTHERS                        = 4.
    
84. 
    
85.   CALL METHOD go_grid->set_ready_for_input "处于编辑状态
    
86.     EXPORTING
    
87.       i_ready_for_input = 1.
    
88. 
    
89.   CALL METHOD cl_gui_control=>set_focus    "设置焦点在go_grid 上
    
90.     EXPORTING
    
91.       control = go_grid .
    
92. ENDFORM.                    " load_data_into_grid
    
93. 
    
94. 
    
95. *&--------------------------------------------------------------------*
    
96. *&      Form  fieldcat_init
    
97. *&--------------------------------------------------------------------*
    
98. FORM fieldcat_init USING rt_fieldcat TYPE lvc_t_fcat.
    
99.   DATA: ls_fieldcat TYPE lvc_s_fcat.
    
100. 
     
101.   PERFORM frm_catlg_set USING:
     
102.   'MBLNR'  'X' '凭证'       '' 'MBLNR' 'MSEG' rt_fieldcat,
     
103.   'KOSTL'  '' '成本中心'   'X'  ''      ''     rt_fieldcat.
     
104. ENDFORM.   "fieldcat_init
     
105. 
     
106. *---------------------------------------------------------------------*
     
107. *       FORM frm_catlg_set                                            *
     
108. *---------------------------------------------------------------------*
     
109. FORM frm_catlg_set USING p_field p_key p_text p_edit ref_f ref_t
     
110.                           rt_fieldcat  TYPE lvc_t_fcat .
     
111.   DATA:  tmp_fieldcat TYPE lvc_s_fcat.
     
112. 
     
113.   tmp_fieldcat-fieldname     =  p_field.
     
114.   tmp_fieldcat-key           =  p_key .
     
115.   tmp_fieldcat-scrtext_l     =  p_text.
     
116.   tmp_fieldcat-edit          =  p_edit.
     
117.   tmp_fieldcat-ref_field     = ref_f.
     
118.   tmp_fieldcat-ref_table     = ref_t.
     
119. 
     
120.   APPEND tmp_fieldcat TO rt_fieldcat .
     
121.   CLEAR tmp_fieldcat .
     
122. ENDFORM.                    " FRM_CATLG_SET
     
123. 
     
124. *&---------------------------------------------------------------------*
     
125. *&      Form  change
     
126. *&---------------------------------------------------------------------*
     
127. FORM change .
     
128.   DATA: ls_stable TYPE lvc_s_stbl.
     
129.   ls_stable-row = 'X'.
     
130.   ls_stable-col = 'X'.
     
131. 
     
132.   IF go_grid->is_ready_for_input( ) = 0.
     
133.     CALL METHOD go_grid->set_ready_for_input
     
134.       EXPORTING
     
135.         i_ready_for_input = 1.
     
136.   ELSE.
     
137.     CALL METHOD go_grid->check_changed_data  "把修改的内容更改到内表里
     
138.       IMPORTING
     
139.         e_valid = l_valid.
     
140.     CALL METHOD go_grid->set_ready_for_input
     
141.       EXPORTING
     
142.         i_ready_for_input = 0.
     
143.     CALL METHOD go_grid->refresh_table_display
     
144.       EXPORTING
     
145.         is_stable = ls_stable
     
146.       EXCEPTIONS
     
147.         finished  = 1
     
148.         OTHERS    = 2.
     
149.   ENDIF.
     
150. ENDFORM.                    " change
     
151. 
     
152. 
     
153. *&---------------------------------------------------------------------*
     
154. *&      Module  STATUS_0100  OUTPUT
     
155. *&---------------------------------------------------------------------*
     
156. MODULE status_0100 OUTPUT.
     
157.   SET PF-STATUS 'MAIN100'.
     
158.   gs_variant-report = sy-repid.
     
159. 
     
160.   IF go_grid IS INITIAL.
     
161.     CREATE OBJECT go_grid
     
162.       EXPORTING
     
163.         i_parent = cl_gui_container=>screen0.
     
164.     CREATE OBJECT event_receiver.
     
165. 
     
166.     SET HANDLER event_receiver->handle_data_changed FOR go_grid.
     
167. 
     
168.     IF sy-batch IS INITIAL.
     
169.       CALL METHOD go_grid->register_edit_event
     
170.         EXPORTING
     
171.           i_event_id = cl_gui_alv_grid=>mc_evt_enter. "回车时触发
     
172. *        i_event_id = cl_gui_alv_grid=>mc_evt_modified. "单元格更改触发
     
173.     ENDIF.
     
174. 
     
175.     PERFORM load_data_into_grid.
     
176.   ENDIF.
     
177. ENDMODULE.                 " STATUS_0100  OUTPUT
     
178. 
     
179. *&---------------------------------------------------------------------*
     
180. *&      Form  ENTER
     
181. *&---------------------------------------------------------------------*
     
182. FORM enter .
     
183.   DATA: ucomm LIKE sy-ucomm.
     
184. 
     
185.   ucomm = '&DATA_SAVE'." '&REFRESH'.
     
186.   CALL METHOD go_grid->set_function_code
     
187.     CHANGING
     
188.       c_ucomm = ucomm.
     
189. ENDFORM.                    " ENTER
     
190. 
     
191. *&---------------------------------------------------------------------*
     
192. *&      Form  HANDLE_DATA_CHANGED
     
193. *&---------------------------------------------------------------------*
     
194. FORM handle_data_changed USING data_changed TYPE REF TO cl_alv_changed_data_protocol..
     
195.   FIELD-SYMBOLS: <fs_mod_rows> TYPE STANDARD TABLE,
     
196.                  <fs_cells> TYPE lvc_t_modi ,
     
197.                  <fs_cell_wa> TYPE lvc_s_modi ,
     
198.                  <fs>    LIKE LINE OF itab.
     
199. 
     
200.   IF NOT data_changed->mp_mod_rows IS INITIAL.
     
201.     ASSIGN data_changed->mp_mod_rows->* TO <fs_mod_rows>.
     
202.     ASSIGN data_changed->mt_mod_cells TO <fs_cells>.
     
203.     LOOP AT <fs_mod_rows> ASSIGNING <fs>.
     
204.       IF <fs>-kostl = 'ABC' .
     
205.         READ TABLE <fs_cells> INDEX sy-tabix ASSIGNING <fs_cell_wa>.
     
206.         CALL METHOD data_changed->add_protocol_entry
     
207.           EXPORTING
     
208.             i_msgid     = 'OO'
     
209.             i_msgty     = 'E'
     
210.             i_msgno     = '000'
     
211.             i_msgv1     = '不可以为ABC'
     
212.             i_fieldname = 'KOSTL'
     
213.             i_row_id    = <fs_cell_wa>-row_id
     
214. *            i_tabix     = tabix
     
215.              .
     
216.       ENDIF.
     
217.     ENDLOOP.
     
218.   ENDIF.
     
219. ENDFORM.                    " HANDLE_DATA_CHANGED

复制代码

2、创建SCREEN 0100，定义ok_code和逻辑流

3、GUI状态


4、程序执行效果：


5、拓展内容
*CL_ALV_CHANGED_DATA_PROTOCOL参数的常用方法和属性
*
*方法                   用途
*MODIFY_CELL            修改指定位置单元格的值
*GET_CELL_VALUE         获取单元格的值
*ADD_PROTOCOL_ENTRY     弹出一个消息，必须使用系统标准的消息类
*MODIFY_PROTOCOL_ENTRY  修改消息
*PROTOCOL_IS_VISIBLE    是否显示错误信息提示
*REFRESH_PROTOCOL       删除错误消息
*
*属性                   用途
*MT_PROTOCOL            LOGs
*MT_MOD_CELLS           更新的单元格信息
*MP_MOD_ROWS            更新了的行的信息
*MT_GOOD_CELLS          正确的CELL的值
*MT_DELETED_ROWS        被删除的行信息
*MT_INSERTED_ROWS       新插入的行信息

PS:alv编辑字段的检查，通常包括输入字段的重复性检查和存在性检查，想一想怎么实现