topic Re: Make Rows in OO ALV Grid editable and uneditable in Application Development and Automation Discussions

Make Rows in OO ALV Grid editable and uneditable

munishsb — Fri, 20 Jun 2008 07:00:09 GMT

Currently i am displaying a dynamic ALV OO ALV grid in which some of the columns are Input Enabled,

another requirement is to dependign upon the data the row of the GRID shoudl be editable or un editable.

ANy ways to do this?

Re: Make Rows in OO ALV Grid editable and uneditable

Former Member — Fri, 20 Jun 2008 07:03:21 GMT

Refer to the thread below:

[]

Note: For making the entire row editable, donot pass the fieldname in the STYLETAB table mentioned in that link.

Regards,

Lakshmi.

Re: Make Rows in OO ALV Grid editable and uneditable

munishsb — Fri, 20 Jun 2008 07:17:17 GMT

Can u send me the whoel code?

Re: Make Rows in OO ALV Grid editable and uneditable

Former Member — Fri, 20 Jun 2008 07:27:19 GMT

Here is some sample code:

Module Pool - Z42861_OOPS_ALV (Main Program)

*TOP Include

INCLUDE ZTEST_ALV_42861_TOP.

*FORM Include

INCLUDE ZTEST_ALV_42861_FORM.

*PAI Include

INCLUDE ZTEST_ALV_42861_I01.

*PBO Include

INCLUDE ZTEST_ALV_42861_O01.

1. TOP INCLUDE

&----

*& Include ZTEST_ALV_42861_TOP *

&----

Declarations for ALV grid.

DATA: tt_gr_alvgrid TYPE REF TO cl_gui_alv_grid,

tt_gr_container TYPE REF TO cl_gui_custom_container,

wa_custom_control_name TYPE scrfname VALUE 'CONTAINER_ALV',

wa_fieldcat TYPE lvc_s_fcat,

it_fieldcat TYPE lvc_t_fcat,

it_exclude TYPE ui_functions.

For coloring the cell and disabling input to a cell

DATA: wa_color TYPE lvc_s_scol,

wa_layout TYPE lvc_s_layo,

wa_stylerow TYPE lvc_s_styl.

Declaration for data

TYPES: BEGIN OF tt_project,

check TYPE c,

status(132) TYPE c,

it_color TYPE lvc_t_scol,

it_styletab TYPE lvc_t_styl.

INCLUDE STRUCTURE z42861proj.

TYPES: END OF tt_project.

DATA: it_project TYPE STANDARD TABLE OF tt_project,

wa_project TYPE tt_project,

v_okcode TYPE sy-ucomm.

----

CLASS gl_event_handler DEFINITION

----

CLASS gl_event_handler DEFINITION.

PUBLIC SECTION.

METHODS:

handle_hotspot_click FOR EVENT hotspot_click OF cl_gui_alv_grid

IMPORTING e_row_id e_column_id es_row_no.

ENDCLASS. "gl_event_handler DEFINITION

----

CLASS gl_event_handler IMPLEMENTATION

----

CLASS gl_event_handler IMPLEMENTATION.

METHOD handle_hotspot_click.

PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no.

ENDMETHOD. "handle_hotspot_click

ENDCLASS. "gl_event_handler IMPLEMENTATION

DATA: gr_event_handler TYPE REF TO gl_event_handler.

2. FORM INCLUDE

&----

*& Include ZTEST_ALV_42861_FORM *

&----

*& Form select_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM select_data .

SELECT * FROM z42861proj INTO CORRESPONDING

FIELDS OF TABLE it_project.

LOOP AT it_project INTO wa_project.

Closed

IF wa_project-stdat LE sy-datum AND wa_project-enddat LE sy-datum.

CALL FUNCTION 'ICON_CREATE'

EXPORTING

name = 'ICON_GREEN_LIGHT'

text = 'Project closed'

IMPORTING

RESULT = wa_project-status

EXCEPTIONS

icon_not_found = 1

outputfield_too_short = 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.

In progress

ELSEIF wa_project-stdat LE sy-datum.

CALL FUNCTION 'ICON_CREATE'

EXPORTING

name = 'ICON_YELLOW_LIGHT'

text = 'Project in progress'

IMPORTING

RESULT = wa_project-status

EXCEPTIONS

icon_not_found = 1

outputfield_too_short = 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.

Not started

ELSE.

CALL FUNCTION 'ICON_CREATE'

EXPORTING

name = 'ICON_RED_LIGHT'

text = 'Project not started'

IMPORTING

RESULT = wa_project-status

EXCEPTIONS

icon_not_found = 1

outputfield_too_short = 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.

MODIFY it_project FROM wa_project TRANSPORTING status.

ENDLOOP.

ENDFORM. " select_data

&----

FORM alv_display *

----

........ *

----

FORM alv_display.

Perform to fill the fieldcatalog.

PERFORM prepare_fieldcatalog.

PERFORM prepare_layout.

Exclude the tool bar functions !

PERFORM exclude_tool_bar_functions.

creating the container to palce the ALV.

IF tt_gr_alvgrid IS INITIAL.

CREATE OBJECT tt_gr_container

EXPORTING

container_name = wa_custom_control_name.

IF sy-subrc = 0.

ENDIF.

creating the ALVGRID to palce the table.

CREATE OBJECT tt_gr_alvgrid

EXPORTING

i_parent = tt_gr_container.

IF sy-subrc = 0.

ENDIF.

Creating instance for event handler

CREATE OBJECT gr_event_handler.

Set handler for hotspot event

SET HANDLER gr_event_handler->handle_hotspot_click FOR tt_gr_alvgrid.

set the drop down table

PERFORM set_drdn_table.

Method to display the table.

CALL METHOD tt_gr_alvgrid->set_table_for_first_display

EXPORTING

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
is_variant =
i_save =

i_default = 'X'

is_layout = wa_layout

IS_PRINT =
IT_SPECIAL_GROUPS =

it_toolbar_excluding = it_exclude

IT_HYPERLINK =
IT_ALV_GRAPHICS =

CHANGING

it_outtab = it_project

it_fieldcatalog = it_fieldcat

IT_SORT =
IT_FILTER =

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.

ELSE.

CALL METHOD tt_gr_alvgrid->refresh_table_display

EXPORTING
IS_STABLE =
I_SOFT_REFRESH =

EXCEPTIONS

finished = 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. " alv_display

&----

*& Form prepare_fieldcatalog

&----

text

----

--> p1 text
<-- p2 text

----

FORM prepare_fieldcatalog .

REFRESH : it_fieldcat.

CLEAR : wa_fieldcat.

wa_fieldcat-fieldname = 'CHECK'.

wa_fieldcat-checkbox = 'X'.

wa_fieldcat-edit = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-coltext = 'Delete'.

wa_fieldcat-outputlen = '10'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'PROJECT'.

wa_fieldcat-coltext = 'Project'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-hotspot = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'STDAT'.

wa_fieldcat-edit = 'X'.

wa_fieldcat-coltext = 'Start date'.

wa_fieldcat-outputlen = '10'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ENDDAT'.

wa_fieldcat-edit = 'X'.

wa_fieldcat-coltext = 'End date'.

wa_fieldcat-outputlen = '10'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'STATUS'.

wa_fieldcat-coltext = 'Project Status'.

wa_fieldcat-outputlen = '3'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'CUSTOMER'.

wa_fieldcat-coltext = 'Customer'.

wa_fieldcat-outputlen = '10'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'LOCATION'.

wa_fieldcat-edit = 'X'.

wa_fieldcat-coltext = 'Location'.

wa_fieldcat-outputlen = '10'.

wa_fieldcat-drdn_hndl = '1'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDDATE non editable when status is completed

LOOP AT it_project INTO wa_project.

REFRESH wa_project-it_styletab.

IF wa_project-enddat < sy-datum.

wa_stylerow-fieldname = 'ENDDAT'.

wa_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.

APPEND wa_stylerow TO wa_project-it_styletab.

CLEAR wa_stylerow.

ENDIF.

MODIFY it_project FROM wa_project

TRANSPORTING it_styletab.

ENDLOOP.

ENDFORM. " prepare_fieldcatalog

&----

*& Form prepare_layout

&----

text

----

--> p1 text
<-- p2 text

----

FORM prepare_layout .

wa_layout-no_rowmark = 'X'. "Hide row selection

wa_layout-info_fname = 'ROWCOLOR'.

wa_layout-ctab_fname = 'IT_COLOR'.

wa_layout-stylefname = 'IT_STYLETAB'.

ENDFORM. " prepare_layout

&----

*& Form exclude_tool_bar_functions

&----

text

----

--> p1 text
<-- p2 text

----

FORM exclude_tool_bar_functions .

DATA: l_exclude TYPE ui_func.

REFRESH it_exclude.

l_exclude = cl_gui_alv_grid=>mc_fc_subtot.