Edit few fields in an ALV table

Question

Hi,
I am working on a table maintenance kind of application using ABAP web dynpro.
I have created an application using ALV, and also I could make all columns as editable.
But, I want to edit only 4 fields out of 7 in a row, when the same row is selected. Not all the columns in editable mode.
Also I want to default some of the fields which are grayed out in the same row. How to default them?
Could anyone help me about how to do this?
Thanks.
Sreekanth

Answer 1

Hi,
For the Editable Row,
Create a context attribute called 'READ_ONLY'.
Initially populate this READ_ONLY by looping through the table accross all rows.
When you get the column references, Loop through this columns and set the columns for which you
want them in "INPUT" by creating the object of type 'INPUT_FIELD"  for the others make them as TEXT_VIEW type.
Now for the table, use the SET_READ_ONLY (for fieldname) to 'READ_ONLY' and bind the attribute
READ_ONLY of context to the each column reference method 'SET_READONLY' method.
DATA:
    lt_colref TYPE salv_wd_t_column_ref,
    ls_colref TYPE salv_wd_s_column_ref,
    lv_id TYPE string,
    lr_colref TYPE REF TO cl_salv_wd_column,
    lr_input TYPE REF TO cl_salv_wd_uie_input_field,
    lr_cv type ref to cl_salv_wd_cv_standard.
  DATA lv_tabix type i.
  loop at lt_efforts into ls_efforts.
    lv_tabix = sy-tabix.
    if sy-tabix = lv_count.
      ls_efforts-READ_ONLY = abap_false.
    else.
      ls_efforts-READ_ONLY = abap_true.
    endif.
    modify lt_efforts from ls_efforts index
              lv_tabix transporting READ_ONLY.
  endloop.
  CALL METHOD LO_ND_EFF->BIND_TABLE
    EXPORTING
      NEW_ITEMS            = lt_eff
      SET_INITIAL_ELEMENTS = ABAP_TRUE.
*    INDEX                =
  CALL METHOD wd_comp_controller->gref_model_efforts->if_salv_wd_column_settings~get_columns
    RECEIVING
      value = lt_colref.
  LOOP AT lt_colref INTO ls_colref.
    lv_id = ls_colref-id.
    lr_colref = ls_colref-r_column.
    case lv_id.
      when 'COL1'.
        CREATE OBJECT lr_input
          EXPORTING
            value_fieldname = lv_id.
        CALL METHOD lr_colref->set_cell_editor
          EXPORTING
            value = lr_input.
        CALL METHOD LR_INPUT->SET_READ_ONLY_FIELDNAME
          EXPORTING
            VALUE = 'READ_ONLY'.
      when 'BEGDA'.
        CREATE OBJECT lr_input
          EXPORTING
            value_fieldname = lv_id.
        CALL METHOD lr_colref->set_cell_editor
          EXPORTING
            value = lr_input.
        CALL METHOD LR_INPUT->SET_READ_ONLY_FIELDNAME
          EXPORTING
            VALUE = 'READ_ONLY'.
      when 'ENDDA'.
        CREATE OBJECT lr_input
          EXPORTING
            value_fieldname = lv_id.
        CALL METHOD lr_colref->set_cell_editor
          EXPORTING
            value = lr_input.
        CALL METHOD LR_INPUT->SET_READ_ONLY_FIELDNAME
          EXPORTING
            VALUE = 'READ_ONLY'.
    endcase.
    CLEAR lv_id.
    CLEAR lr_colref.
  ENDLOOP.
*Set the table Editable
lo_value->if_salv_wd_table_settings~set_read_only( value = abap_false ).
Regards,
Lekha.