*&---------------------------------------------------------------------* *& Report ZHJ_TEST06 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zhj_test06. *变量定义============================================================== DATA:BEGIN OF it_itab OCCURS 0. DATA : light(4) TYPE c. INCLUDE STRUCTURE makt."sflight. DATA: text(4) TYPE c. DATA:END OF it_itab. "定义一个容器类 DATA: wcl_container TYPE REF TO cl_gui_custom_container, "定义alv--grid对象 wcl_alv TYPE REF TO cl_gui_alv_grid , gt_fieldcat TYPE lvc_t_fcat, "这个表存放标题栏不显示的图标功能码 ex_fcode TYPE ui_functions, "layout gs_layout TYPE lvc_s_layo. DATA : container_head TYPE REF TO cl_gui_custom_container , cl_viewer TYPE REF TO cl_gui_html_viewer , cl_doc TYPE REF TO cl_dd_document . DATA : l_abck TYPE sdydo_key VALUE space . DATA : msg TYPE sdydo_text_element . *----------------------------------------------------------------------* * class lcl_event_receiver definition *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_event_receiver DEFINITION. PUBLIC SECTION. METHODS: *--在alv的工具条上增加新的按钮 handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid IMPORTING e_object e_interactive, *--实现用户命令 handle_user_command FOR EVENT user_command OF cl_gui_alv_grid IMPORTING e_ucomm, *--热点点击控制 handle_hotspot_click FOR EVENT hotspot_click OF cl_gui_alv_grid IMPORTING e_row_id e_column_id es_row_no, *--用户双击事件 handle_double_click FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row e_column es_row_no, *--覆盖标准的功能. handle_before_user_command FOR EVENT before_user_command OF cl_gui_alv_grid IMPORTING e_ucomm, *--覆盖标准的功能. handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after e_ucomm, ********页眉 handle_top_page FOR EVENT top_of_page OF cl_gui_alv_grid IMPORTING e_dyndoc_id table_index . * IMPORTing . ENDCLASS. "lcl_event_receiver DEFINITION START-OF-SELECTION. PERFORM get_data."向内表写数据 PERFORM set_fieldcat."设置FIELDCAT PERFORM set_layout."设置layout PERFORM set_ex_fcode."设置隐藏工具栏按钮 CALL SCREEN 100."需要在屏幕里画一个container *&---------------------------------------------------------------------* *& form get_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM get_data . REFRESH it_itab.CLEAR it_itab. SELECT * INTO CORRESPONDING FIELDS OF TABLE it_itab UP TO 50 ROWS FROM makt. IF sy-subrc NE 0. * MESSAGE e000 WITH '没有数据选择！'. ENDIF. ENDFORM. " GET_DATA *&---------------------------------------------------------------------* *& form set_fieldcat *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM set_fieldcat . * 这个函数只能读取标准结构体的fieldcat CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' EXPORTING * i_buffer_active = i_structure_name = 'MAKT' i_client_never_display = 'X' * i_bypassing_buffer = * i_internal_tabname = CHANGING ct_fieldcat = gt_fieldcat EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. DATA gs_fieldcat LIKE LINE OF gt_fieldcat. gs_fieldcat-fieldname = 'LIGHT'. gs_fieldcat-scrtext_l = '标志'. * gs_fieldcat-CHECKBOX = 'X'. INSERT gs_fieldcat INTO gt_fieldcat INDEX 1. CLEAR gs_fieldcat. gs_fieldcat-col_pos = 15. gs_fieldcat-fieldname = 'TEXT'. gs_fieldcat-scrtext_l = '文本'. gs_fieldcat-edit = 'X'. APPEND gs_fieldcat TO gt_fieldcat. ENDFORM. " SET_FIELDCAT *&---------------------------------------------------------------------* *& form output_display *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM output_display . CALL METHOD wcl_alv->set_table_for_first_display EXPORTING i_save = 'A' is_layout = gs_layout it_toolbar_excluding = ex_fcode CHANGING it_outtab = it_itab[] it_fieldcatalog = gt_fieldcat EXCEPTIONS invalid_parameter_combination = 1 program_error = 2 too_many_lines = 3 OTHERS = 4. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CREATE OBJECT cl_doc . CALL METHOD wcl_alv->list_processing_events EXPORTING i_event_name = 'TOP_OF_PAGE' i_dyndoc_id = cl_doc. ENDFORM. " OUTPUT_DISPLAY *&---------------------------------------------------------------------* *& module status_0100 output *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0100 OUTPUT. SET PF-STATUS 'GUI_STATUS'. * set titlebar 'xxx'. IF wcl_alv IS INITIAL. CREATE OBJECT: wcl_container EXPORTING container_name = 'ALV_CON'. CREATE OBJECT container_head EXPORTING container_name = 'HON_CONT'. CREATE OBJECT wcl_alv EXPORTING i_parent = wcl_container. * create and set event DATA event_receiver TYPE REF TO lcl_event_receiver. CREATE OBJECT event_receiver. SET HANDLER event_receiver->handle_toolbar FOR wcl_alv. SET HANDLER event_receiver->handle_top_page FOR wcl_alv . SET HANDLER event_receiver->handle_user_command FOR wcl_alv. SET HANDLER event_receiver->handle_hotspot_click FOR wcl_alv. SET HANDLER event_receiver->handle_double_click FOR wcl_alv. SET HANDLER event_receiver->handle_before_user_command FOR wcl_alv. SET HANDLER event_receiver->handle_data_changed FOR wcl_alv. PERFORM output_display. * set interaction CALL METHOD wcl_alv->set_toolbar_interactive. * 注册更新时间 CALL METHOD wcl_alv->register_edit_event EXPORTING i_event_id = wcl_alv->mc_evt_enter. ENDIF. ENDMODULE. " STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& module user_command_0100 input *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. CASE sy-ucomm. WHEN '&F03' OR '&F12'. LEAVE TO SCREEN 0. WHEN '&F15'. LEAVE PROGRAM. WHEN 'SAVE'. DATA lt_selected_rows TYPE lvc_t_roid. CALL METHOD wcl_alv->get_selected_rows IMPORTING et_row_no = lt_selected_rows. * MESSAGE i003 WITH 'USER_COMMAND_0100 event'. WHEN OTHERS. ENDCASE. ENDMODULE. " USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* *& form set_layout *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM set_layout . gs_layout-zebra = 'X'."条纹格式输出 * gs_layout-edit = 'X'."可编辑状态 gs_layout-smalltitle = 'X'."小标题 * gs_layout-no_hgridln ='X'."隐藏水平网格线 * gs_layout-no_vgridln = 'X'."隐藏垂直网格线 * gs_layout-no_headers = 'X'."隐藏列抬头 * gs_layout-no_merging = 'X'."禁用单元格合并 gs_layout-cwidth_opt = 'X'."优化列宽度 * gs_layout-no_f4 = 'X'."没有F4按键功能 * gs_layout-no_rowmark = 'X'."禁用行选择 * gs_layout-no_toolbar = 'X'."隐藏工具栏 gs_layout-grid_title = 'ALV实例'."标题栏 * gs_layout-sgl_clk_hd = 'X'."单击列标题按升序排列 * gs_layout-no_totline = 'X'."不要输出总计行 gs_layout-keyhot = 'X'."关键列作为热 * gs_layout-info_fname = 'TEXT'."带有简单行彩色代码的字段名称 * gs_layout-ctab_fname = 'TEXT'."带有复杂单元格颜色编码的字段名称 gs_layout-sel_mode = 'C'. * gs_layout-box_fname = 'CHX'. DATA:l_fielfcat TYPE LINE OF lvc_t_fcat. LOOP AT gt_fieldcat INTO l_fielfcat. CASE l_fielfcat-fieldname. WHEN 'MATNR'. * fcat_100-ref_table = 'T001W'. * fcat_100-ref_field = 'WERKS'. * fcat_100-outputlen = '10'. l_fielfcat-edit = 'X'. WHEN OTHERS. * WHEN 'HSDAT' OR 'ERSDA' OR 'VFDAT'. * fcat_100-outputlen = '10'. * FCAT_100-NO_ZERO = 'X'. ENDCASE. MODIFY gt_fieldcat FROM l_fielfcat. CLEAR l_fielfcat. ENDLOOP. ENDFORM. " SET_LAYOUT *&---------------------------------------------------------------------* *& form set_ex_fcode *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM set_ex_fcode . REFRESH ex_fcode.CLEAR ex_fcode. DATA:ls_fcode TYPE ui_func. ls_fcode = cl_gui_alv_grid=>mc_fc_info. APPEND ls_fcode TO ex_fcode. ls_fcode = cl_gui_alv_grid=>mc_fc_loc_append_row. APPEND ls_fcode TO ex_fcode. ls_fcode = cl_gui_alv_grid=>mc_fc_loc_insert_row. APPEND ls_fcode TO ex_fcode. ls_fcode = cl_gui_alv_grid=>mc_fc_loc_delete_row. APPEND ls_fcode TO ex_fcode. ls_fcode = cl_gui_alv_grid=>mc_fc_loc_copy_row. APPEND ls_fcode TO ex_fcode. ls_fcode = cl_gui_alv_grid=>mc_fc_loc_paste_new_row. APPEND ls_fcode TO ex_fcode. ENDFORM. " SET_EX_FCODE *&---------------------------------------------------------------------* *& class (implementation) lcl_event_receiver *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* CLASS lcl_event_receiver IMPLEMENTATION. *-- handle toolbar METHOD handle_toolbar. PERFORM handle_toolbar USING e_object e_interactive. ENDMETHOD. "handle_toolbar *-- handdle user_command METHOD handle_user_command. PERFORM handle_user_commmand CHANGING e_ucomm. ENDMETHOD. "Handle user command *-- handle_hotspot_click METHOD handle_hotspot_click. PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no. ENDMETHOD. "HANDLE_HOTSPOT_CLICK *--handle_double_click METHOD handle_double_click. PERFORM handle_double_click USING e_row e_column es_row_no. ENDMETHOD. "HANDLE_DOUBLE_CLICK *--before_user_command METHOD handle_before_user_command. PERFORM handle_before_user_command USING e_ucomm. ENDMETHOD. "BEFORE_USER_COMMAND *--before_user_command METHOD handle_data_changed. PERFORM handle_data_changed USING er_data_changed. ENDMETHOD. "BEFORE_USER_COMMAND *--before_user_command METHOD handle_top_page. * CREATE OBJECT CL_DOC . CALL METHOD cl_doc->initialize_document . CALL METHOD cl_doc->add_text EXPORTING text = 'qwertyuioplkjhgfdsa' sap_style = 'HEADING'. IF msg IS NOT INITIAL . CALL METHOD cl_doc->new_line . CALL METHOD cl_doc->add_text EXPORTING text = msg sap_emphasis = ''. CLEAR msg . ENDIF. IF cl_viewer IS INITIAL . CREATE OBJECT cl_viewer EXPORTING parent = container_head. ENDIF. CALL FUNCTION 'REUSE_ALV_GRID_COMMENTARY_SET' EXPORTING document = cl_doc bottom = l_abck * IMPORTING * LENGTH = . CALL METHOD cl_doc->merge_document . CALL METHOD cl_doc->set_document_background EXPORTING picture_id = space. cl_doc->html_control = cl_viewer . CALL METHOD cl_doc->display_document EXPORTING reuse_control = 'X' parent = container_head. *ENDFORM. " FRM_TOP_OF_PAGE ENDMETHOD. "BEFORE_USER_COMMAND ENDCLASS. "LCL_EVENT_RECEIVER *&---------------------------------------------------------------------* *& form handle_toolbar *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->p_e_object text * -->p_e_interactive text *----------------------------------------------------------------------* FORM handle_toolbar USING p_e_object TYPE REF TO cl_alv_event_toolbar_set p_e_interactive. DATA: utoolbar TYPE stb_button. CLEAR utoolbar. utoolbar-function = 'TEST'. utoolbar-butn_type = 0. utoolbar-icon = icon_color. utoolbar-quickinfo = 'TEST BUTTON'. APPEND utoolbar TO p_e_object->mt_toolbar. CLEAR utoolbar. ENDFORM. " HANDLE_TOOLBAR *&---------------------------------------------------------------------* *& form handle_user_commmand *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM handle_user_commmand CHANGING e_ucomm. CASE e_ucomm. WHEN 'SHOW'. MESSAGE 'handle user command event' TYPE 'S'. WHEN 'TEST'. MESSAGE '你点击了color按钮' TYPE 'I'. WHEN 'BACK'. LEAVE TO SCREEN 0. WHEN OTHERS. MESSAGE 'OTHERS' TYPE 'I'. ENDCASE. ENDFORM. " HANDLE_USER_COMMMAND *&---------------------------------------------------------------------* *& form handle_hotspot_click *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->p_e_row_id text * -->p_e_column_id text * -->p_es_row_no text *----------------------------------------------------------------------* FORM handle_hotspot_click USING p_e_row_id p_e_column_id p_es_row_no. DATA:l_s TYPE string. CONCATENATE '你点击了' p_e_row_id p_e_column_id INTO l_s. MESSAGE l_s TYPE 'I'. "p_e_row_id p_e_column_id . ENDFORM. " HANDLE_HOTSPOT_CLICK *&---------------------------------------------------------------------* *& form handle_double_click *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->p_e_row_id text * -->p_e_column_id text * -->p_es_row_no text *----------------------------------------------------------------------* FORM handle_double_click USING p_e_row_id p_e_column_id p_es_row_no. MESSAGE '双击事件' TYPE 'I'. ENDFORM. " HANDLE_DOUBLE_CLICK *&---------------------------------------------------------------------* *& form handle_before_user_command *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->p_e_ucomm text *----------------------------------------------------------------------* FORM handle_before_user_command USING p_e_ucomm. DATA:l_s TYPE string. CONCATENATE '按钮的功能码为' p_e_ucomm INTO l_s. MESSAGE l_s TYPE 'I'. ENDFORM. " HANDLE_BEFORE_USER_COMMAND *&---------------------------------------------------------------------* *& Form HANDLE_DATA_CHANGED_FINISHED *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_E_UCOMM text *----------------------------------------------------------------------* FORM handle_data_changed USING p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol. * 如果更新的reason字段长度小于10为则提示用户填入字符数不能低于10 DATA: mod_data TYPE lvc_t_modi, wa_mod_data TYPE lvc_s_modi. mod_data = p_er_data_changed->mt_mod_cells. LOOP AT mod_data INTO wa_mod_data WHERE fieldname = 'TEXT'. IF strlen( wa_mod_data-value ) < 2. CALL METHOD p_er_data_changed->add_protocol_entry EXPORTING i_msgid = '00' i_msgty = 'E' i_msgno = '001' i_msgv1 = '长度必须大于2 ' i_fieldname = wa_mod_data-fieldname. * 如果长度小于2，则将字段内容更新为长都无法确定 CLEAR wa_mod_data-value. CALL METHOD p_er_data_changed->modify_cell EXPORTING i_row_id = wa_mod_data-row_id i_fieldname = wa_mod_data-fieldname i_value = wa_mod_data-value. ENDIF. ENDLOOP. ENDFORM. " HANDLE_DATA_CHANGED_FINISHED