Editting a cell in ALV Grid Control

Former Member · ‎06-21-2005

Hello,

Can anybody please tell me how to make a cell "EDITABLE" in alv grid control. When i use the EDIT option of field catalog, complete column gets editable. But I want only one column to get editable.

Regards

Kalyan

Former Member · ‎06-21-2005

Hi kalyan,

When u want to do edit only for particular column and not for the entire grid then you need to perform fieldcat in that particular column only.

for example

form build_fieldcat changing pt_fieldcat type lvc_t_fcat.

data ls_fcat type lvc_s_fcat.

loop at pt_fieldcat into ls_fcat.

if ls_fcat-fieldname EQ 'Curr'.

ls_fcat-scrtext_s = 'CURRENCY'.

ls_fcat-scrtext_m = 'CURRENCY'.

ls_fcat-scrtext_l = 'CURRENCY'.

ls_fcat-reptext = 'CURRENCY'.

Ls_fcat-seltext = 'CURRENCY'.

ls_fcat-edit = 'X'.

modify pt_fieldcat from ls_fcat.

endif.

endloop.

in this way you can give editable option to that particular column only.

Regards,

venu.

Former Member · ‎06-21-2005

Hello Venu,

Thanks for you answer. But as I specified earlier, I want to make a single cell editable not the complete column editable.

Regards

Kalyan

SandeepJha · ‎06-21-2005

This is taken from a reference doc which was here on SDN few months back.

1. In the fieldcatalogue - don't set the edit property for the field.

2. add a table to your list data table.

data begin of gt_grid occurs 0.

.

data cellstyles type lvc_t_styl.

data end of gt_grid.

3. Then now the logic ..

form make_field_edit using pt_grid like gt_grid[].

data: ls_grid like line of pt_grid,

ls_style type lvc_s_styl,

lt_style type lvc_t_styl.

loop at pt_grid into ls_grid.

if ls_grid-curr = xyz. 'your condition for the row

ls_style-fieldname = 'CURR'.

ls_style-style = cl_gui_alv_grid=>mc_style_enabled.

append ls_style to lt_style.

endif.

insert lines of lt_style into ls_grid-celltyles.

modify pt_grid from ls_grid.

endloop.

endform.

Former Member · ‎06-21-2005

hi kalyan,

here is the right example for your requirement.

PROGRAM BCALV_EDIT_02.

*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

Purpose:
~~~~~~~~
This report illustrates how to set chosen cells of an
ALV Grid Control editable. (See BCALV_EDIT_01 for an overview
of possible states).
Remark: You may set the states for chosen columns using field
EDIT of the fieldcatalog, see BCALV_EDIT_03.

*----

-

To check program behavior
~~~~~~~~~~~~~~~~~~~~~~~~~
Switch to the state editable activated. You may then change the
price of flights where the capacity of a plane is greater or equal
than 300 seats.

*----

-

Essential steps (search for '§')
~~~~~~~~~~~~~~~
1.Extend your output table for a field, e.g., CELLTAB, that holds
information about the edit status of each cell for the
corresponding row (the table type is SORTED!).
2.After selecting data, set edit status for each row in a loop
according to field SEATSMAX.
2a.Use attribute CL_GUI_ALV_GRID=>MC_STYLE_ENABLED to set a cell
to status "editable".
2b.Use attribute CL_GUI_ALV_GRID=>MC_STYLE_DISABLED to set a cell
to status "non-editable".
2c.Copy your celltab to the celltab of the current row of gt_outtab.
3.Provide the fieldname of the celltab field by using field
STYLEFNAME of the layout structure.

*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

DATA: ok_code LIKE sy-ucomm,

save_ok like sy-ucomm,

g_container TYPE scrfname VALUE 'BCALV_GRID_DEMO_0100_CONT1',

grid1 TYPE REF TO cl_gui_alv_grid,

g_custom_container TYPE REF TO cl_gui_custom_container,

gs_layout TYPE lvc_s_layo,

g_max type i value 100.

*§1.Extend your output table for a field, e.g., CELLTAB, that holds

information about the edit status of each cell for the
corresponding row (the table type is SORTED!).

DATA: BEGIN OF gt_outtab occurs 0. "with header line

include structure sflight.

DATA: celltab type LVC_T_STYL.

DATA: END OF gt_outtab.

*----

*

MAIN *

*----

*

CALL SCREEN 100.

*----

*

MODULE PBO OUTPUT *

*----

*

MODULE pbo OUTPUT.

SET PF-STATUS 'MAIN100'.

SET TITLEBAR 'MAIN100'.

IF g_custom_container IS INITIAL.

CREATE OBJECT g_custom_container

EXPORTING container_name = g_container.

CREATE OBJECT grid1

EXPORTING i_parent = g_custom_container.

PERFORM select_data_and_init_style.

*§3.Provide the fieldname of the celltab field by using field

STYLEFNAME of the layout structure.

gs_layout-stylefname = 'CELLTAB'.

set substate of editable cells to deactivated

CALL METHOD grid1->set_ready_for_input

EXPORTING i_ready_for_input = 0.

CALL METHOD grid1->set_table_for_first_display

EXPORTING i_structure_name = 'SFLIGHT'

is_layout = gs_layout

CHANGING it_outtab = gt_outtab[].

ENDIF.

ENDMODULE.

*----

*

MODULE PAI INPUT *

*----

*

MODULE pai INPUT.

save_ok = ok_code.

clear ok_code.

CASE save_ok.

WHEN 'EXIT'.

PERFORM exit_program.

WHEN 'SWITCH'.

PERFORM switch_edit_mode.

WHEN OTHERS.

do nothing

ENDCASE.

ENDMODULE.

*----

*

FORM EXIT_PROGRAM *

*----

*

FORM exit_program.

LEAVE PROGRAM.

ENDFORM.

*&----

*

*& Form SELECT_DATA_AND_INIT_STYLE

*&----

*

text

*----

*

--> p1 text
<-- p2 text

*----

*

FORM select_data_and_init_style.

DATA: lt_sflight TYPE TABLE OF sflight WITH HEADER LINE,

lt_celltab TYPE lvc_t_styl,

l_index TYPE i.

SELECT * FROM sflight INTO TABLE lt_sflight UP TO g_max ROWS.

move corresponding fields from lt_sflight to gt_outtab

LOOP AT lt_sflight.

MOVE-CORRESPONDING lt_sflight TO gt_outtab.

APPEND gt_outtab.

ENDLOOP.

*§2.After selecting data, set edit status for each row in a loop

according to field SEATSMAX.

LOOP AT gt_outtab.

l_index = sy-tabix.

refresh lt_celltab.

if gt_outtab-seatsmax ge 300.

perform fill_celltab using 'RW'

changing lt_celltab.

else.

perform fill_celltab using 'RO'

changing lt_celltab.

endif.

*§2c.Copy your celltab to the celltab of the current row of gt_outtab.

INSERT LINES OF lt_celltab INTO TABLE gt_outtab-celltab.

MODIFY gt_outtab INDEX l_index.

ENDLOOP.

ENDFORM. " SELECT_DATA_AND_INIT_STYLE

*&----

*

*& Form FILL_CELLTAB

*&----

*

text

*----

*

<--P_PT_CELLTAB text

*----

*

FORM fill_celltab using value(p_mode)

CHANGING pt_celltab TYPE lvc_t_styl.

DATA: ls_celltab TYPE lvc_s_styl,

l_mode type raw4.

This forms sets the style of column 'PRICE' editable
according to 'p_mode' and the rest to read only either way.

IF p_mode EQ 'RW'.

*§2a.Use attribute CL_GUI_ALV_GRID=>MC_STYLE_ENABLED to set a cell

to status "editable".

l_mode = cl_gui_alv_grid=>mc_style_enabled.

ELSE. "p_mode eq 'RO'

*§2b.Use attribute CL_GUI_ALV_GRID=>MC_STYLE_DISABLED to set a cell

to status "non-editable".

l_mode = cl_gui_alv_grid=>mc_style_disabled.

ENDIF.

ls_celltab-fieldname = 'CARRID'.

ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.