Set ALV Cell visibility property

Question

Hi,
I would have 2 tables for ALV. One table consists of the data to be bound to the ALV. The other table would have the read only property(boolean) filled for each of the ALV cells.
I would want to set the property of each ALV cell using the second table. How do i do that?
Currently i am just testing it for few attributes statically using the below code.
DATA lo_nd_date_table TYPE REF TO if_wd_context_node.
DATA lo_el_date_table TYPE REF TO if_wd_context_element.
DATA: lt_ele_set TYPE wdr_context_element_set.
navigate from <CONTEXT> to <DATE_TABLE> via lead selection
  lo_nd_date_table = wd_context->get_child_node( name = wd_this->wdctx_date_table ).
lt_ele_set = lo_nd_date_table->get_elements( ).
  LOOP AT lt_ele_set INTO lo_el_date_table.
      lo_el_date_table->set_attribute_property(
           attribute_name = 'WK02'                                 -
> Attribute Name (Column Name)
           property       = if_wd_context_element=>e_property-read_only
           value          =  'X' ).
<< Similarly for other attributes>>
ENDLOOP.
I have inserted this code at the end. Initially few other properties were set to the cells.
This seems to be not working.
Regards,
Rekha
Edited by: Rekha Gopinath on Sep 8, 2009 10:40 AM

Answer 1

Hi Lekha,
In my case, the columns represents dates. The rows represent projects. So, only those row cells are editable where the project is valid.
1. I have created READ_ONLY attribute for the date node (table).
2. I am filling the READ_ONLY to abap_true or abap_false based on the following condition.
   Even if one of the projects is not valid for a date, then READ_ONLY = ABAP_TRUE. This means, even if one cell is set to abap_true, then READ_ONLY is set to abap_true.
3. I modify the date node and bind it with the READ_ONLY set row wise.
Loop at the data and set read only
  navigate from <CONTEXT> to <DATE_TABLE> via lead selection
  lo_nd_date_table = wd_context->get_child_node( name = wd_this->wdctx_date_table ).
  CALL METHOD lo_nd_date_table->get_static_attributes_table
    IMPORTING
      table  = lt_date_table    .
  LOOP AT lt_date_table INTO ls_date_table.
    lv_tabix = sy-tabix.
      READ TABLE wd_this->gt_prop INTO ls_prop INDEX lv_tabix.
      IF sy-subrc EQ 0.
        IF ls_prop-wk01 = abap_true OR         
          ls_prop-wk02 = abap_true OR
          ls_prop-wk03 = abap_true OR
          ls_prop-wk04 = abap_true OR
          ls_prop-wk05 = abap_true OR
          ls_prop-wk06 = abap_true OR
          ls_prop-wk07 = abap_true OR
          ls_prop-wk08 = abap_true OR
          ls_prop-wk09 = abap_true OR
          ls_prop-wk10 = abap_true OR
          ls_prop-wk11 = abap_true OR
          ls_prop-wk12 = abap_true OR
          ls_prop-wk13 = abap_true OR
          ls_prop-wk14 = abap_true OR
          ls_prop-wk15 = abap_true.
          ls_date_table-read_only = abap_true.
        ELSE.
          ls_date_table-read_only = abap_false.
        ENDIF.
      ENDIF.
    MODIFY lt_date_table FROM ls_date_table INDEX lv_tabix TRANSPORTING read_only.
  ENDLOOP.
  CALL METHOD lo_nd_date_table->bind_table
    EXPORTING
      new_items            = lt_date_table
      set_initial_elements = abap_true.
4. I loop through the column reference and use the code mentioned earlier.
          CREATE OBJECT lr_input
            EXPORTING
              value_fieldname = lv_id.
          lo_column->set_cell_editor( value  = lr_input ).
          lr_input->set_read_only_fieldname( value = 'READ_ONLY' ).
The expected output is different from the input i had mentioned earlier for Row 1, row 2, Row 3 and row 4. Here, i would get all the rows as non editable except for Row 3.
I would want to set all columns based on condition.
Regards,
Rekha