2008 Jul 15 5:38 PM
Hi experts.
Can someone assist me with information on using ALV grid for data input. Please give a simple example if possible.
I am mainly interested in the part in which we can transfer data from the grid changing the internal table's data.
2008 Jul 16 6:52 AM
Check following code........
REPORT ZDEMO_ALVGRID_EDIT . TABLES: ekko. TYPE-POOLS: slis. "ALV Declarations *Data Declaration *---------------- TYPES: BEGIN OF t_ekko, ebeln TYPE ekpo-ebeln, ebelp TYPE ekpo-ebelp, statu TYPE ekpo-statu, aedat TYPE ekpo-aedat, matnr TYPE ekpo-matnr, menge TYPE ekpo-menge, meins TYPE ekpo-meins, netpr TYPE ekpo-netpr, peinh TYPE ekpo-peinh, field_style TYPE lvc_t_styl, "FOR DISABLE END OF t_ekko. DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0, wa_ekko TYPE t_ekko. *ALV data declarations DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE. DATA: it_fieldcat TYPE lvc_t_fcat, "slis_t_fieldcat_alv WITH HEADER LINE, wa_fieldcat TYPE lvc_s_fcat, gd_tab_group TYPE slis_t_sp_group_alv, gd_layout TYPE lvc_s_layo, "slis_layout_alv, gd_repid LIKE sy-repid. ************************************************************************ *Start-of-selection. START-OF-SELECTION. PERFORM data_retrieval. PERFORM set_specific_field_attributes. PERFORM build_fieldcatalog. PERFORM build_layout. PERFORM display_alv_report. *&---------------------------------------------------------------------* *& Form BUILD_FIELDCATALOG *&---------------------------------------------------------------------* * Build Fieldcatalog for ALV Report *----------------------------------------------------------------------* FORM build_fieldcatalog. wa_fieldcat-fieldname = 'EBELN'. wa_fieldcat-scrtext_m = 'Purchase Order'. wa_fieldcat-col_pos = 0. wa_fieldcat-outputlen = 10. wa_fieldcat-emphasize = 'X'. wa_fieldcat-key = 'X'. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. wa_fieldcat-fieldname = 'EBELP'. wa_fieldcat-scrtext_m = 'PO Item'. wa_fieldcat-col_pos = 1. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. wa_fieldcat-fieldname = 'STATU'. wa_fieldcat-scrtext_m = 'Status'. wa_fieldcat-col_pos = 2. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. wa_fieldcat-fieldname = 'AEDAT'. wa_fieldcat-scrtext_m = 'Item change date'. wa_fieldcat-col_pos = 3. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. wa_fieldcat-fieldname = 'MATNR'. wa_fieldcat-scrtext_m = 'Material Number'. wa_fieldcat-col_pos = 4. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. wa_fieldcat-fieldname = 'MENGE'. wa_fieldcat-scrtext_m = 'PO quantity'. wa_fieldcat-col_pos = 5. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. wa_fieldcat-fieldname = 'MEINS'. wa_fieldcat-scrtext_m = 'Order Unit'. wa_fieldcat-col_pos = 6. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. wa_fieldcat-fieldname = 'NETPR'. wa_fieldcat-scrtext_m = 'Net Price'. wa_fieldcat-edit = 'X'. "sets whole column to be editable wa_fieldcat-col_pos = 7. wa_fieldcat-outputlen = 15. wa_fieldcat-datatype = 'CURR'. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. wa_fieldcat-fieldname = 'PEINH'. wa_fieldcat-scrtext_m = 'Price Unit'. wa_fieldcat-col_pos = 8. APPEND wa_fieldcat TO it_fieldcat. CLEAR wa_fieldcat. ENDFORM. " BUILD_FIELDCATALOG *&---------------------------------------------------------------------* *& Form BUILD_LAYOUT *&---------------------------------------------------------------------* * Build layout for ALV grid report *----------------------------------------------------------------------* FORM build_layout. * Set layout field for field attributes(i.e. input/output) gd_layout-stylefname = 'FIELD_STYLE'. gd_layout-zebra = 'X'. ENDFORM. " BUILD_LAYOUT *&---------------------------------------------------------------------* *& Form DISPLAY_ALV_REPORT *&---------------------------------------------------------------------* * Display report using ALV grid *----------------------------------------------------------------------* FORM display_alv_report. gd_repid = sy-repid. * call function 'REUSE_ALV_GRID_DISPLAY' CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = gd_repid * i_callback_user_command = 'USER_COMMAND' is_layout_lvc = gd_layout it_fieldcat_lvc = it_fieldcat i_save = 'X' TABLES t_outtab = it_ekko EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " DISPLAY_ALV_REPORT *&---------------------------------------------------------------------* *& Form DATA_RETRIEVAL *&---------------------------------------------------------------------* * Retrieve data form EKPO table and populate itab it_ekko *----------------------------------------------------------------------* FORM data_retrieval. SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh UP TO 10 ROWS FROM ekpo INTO CORRESPONDING FIELDS OF TABLE it_ekko. ENDFORM. " DATA_RETRIEVAL *&---------------------------------------------------------------------* *& Form set_specific_field_attributes *&---------------------------------------------------------------------* * populate FIELD_STYLE table with specific field attributes *----------------------------------------------------------------------* form set_specific_field_attributes . DATA ls_stylerow TYPE lvc_s_styl . DATA lt_styletab TYPE lvc_t_styl . * Populate style variable (FIELD_STYLE) with style properties * * The NETPR field/column has been set to editable in the fieldcatalog... * The following code sets it to be disabled(display only) if 'NETPR' * is gt than 10. LOOP AT it_ekko INTO wa_ekko. IF wa_ekko-netpr GT 10. ls_stylerow-fieldname = 'NETPR' . ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled. "set field to disabled APPEND ls_stylerow TO wa_ekko-field_style. MODIFY it_ekko FROM wa_ekko. ENDIF. ENDLOOP. endform. " set_specific_field
_attributes
2008 Jul 16 6:53 AM
HI,
You can use event handler methods methods of class cl_gui_alv_grid :
Chech this code:
DATA : ls_mod_cell TYPE lvc_s_modi , lv_value TYPE lvc_value . SORT ir_data_changed->mt_mod_cells BY row_id . CALL METHOD gr_alvgrid->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter EXCEPTIONS error = 1 OTHERS = 2. IF sy-subrc EQ 0. LOOP AT ir_data_changed->mt_mod_cells INTO ls_mod_cell WHERE fieldname = 'NXT_ACT_DATE'. CALL METHOD ir_data_changed->get_cell_value EXPORTING i_row_id = ls_mod_cell-row_id i_fieldname = 'NXT_ACT_DATE' IMPORTING e_value = lv_value. CALL METHOD ir_data_changed->modify_cell EXPORTING i_row_id = ls_mod_cell-row_id i_fieldname = ls_mod_cell-fieldname i_value = lv_value. ENDLOOP . ENDIF.
Hope it helps.
Bluesky
