Problem in Checkbox on/off in ALV using OO method

Question

Hi,
I am working on an ALV display using OO method.The first field is check box in the display.
I declared the internal table type  as
TYPES: BEGIN OF ty_output,
         chk_box(1) TYPE c,
         id_rech    TYPE yyeft1200-id_rech,
         bprefnr    TYPE yyeft1201-bprefnr,
         lfdat      TYPE yyeft1201-lfdat,
         artnr_bp   TYPE yyeft1201-artnr_bp,
           end of ty_output.
and in fieldcatalog i have used
Check Box
        CLEAR ls_fcat.
        ls_fcat-fieldname  = 'CHK_BOX'.
        ls_fcat-datatype   = 'CHAR'.
        ls_fcat-intlen     = '1'.
        ls_fcat-edit       = kc_x.
        ls_fcat-coltext    = text-014.
        ls_fcat-checkbox   = kc_x.
        ls_fcat-outputlen  = '5'.
        APPEND ls_fcat TO pit_fieldcat. 
All the check boxes are in editable mode.
Now the requirement is that for some records of the internal table it should be editable and for some records it should be non-editable.
can you please help me how to do it.

Answer 1

Hi,
          You might want to look at the example programs. Any program which begins with <b>BCALV_EDIT*</b>
You can find the code in this program 'BCALV_FIELDCAT_TEST'
*& Report  BCALV_FIELDCAT_TEST                                         *
This report allows to modify the fieldcatalog of a corresponding
output table and to view the effects of your changes directly.
Note that for some changes you need to newly display the whole
ALV Grid Control, e.g., DDIC-Fields are read only the first time
you call SET_READY_FOR_FIRST_DISPLAY.
Note also that not all scenarios can be tested since the output
table does not comprise all fields to test available features
of the fieldcatalog. Copy this program and extend the output
table accordingly if you want to test such a special feature.
(The field CARRNAME in 'gt_sflight' was added to test field REF_FIELD
and TXT_FIELD of the fieldcatalog - see what happens if you
calculate subtotals by carrier-id).
report  bcalvt_fieldcatalog           .
data: ok_code               type sy-ucomm,
      save_ok_code          type sy-ucomm,
fieldcatalog for output table
      gt_fieldcat           type lvc_t_fcat,
fieldcatalog for fieldcatalog itself:
      gt_fcatfcat           type lvc_t_fcat,
      gs_fcatlayo           type lvc_s_layo.
Output table
data: begin of gt_sflight occurs 0.
data: carrname type s_carrname.
        include structure sflight.
data: end of gt_sflight.
data: g_max type i value 100.
data: g_all type c value SPACE.
Controls to display gt_sflight and corresponding fieldcatalog
data: g_docking type ref to cl_gui_docking_container,
      g_alv     type ref to cl_gui_alv_grid.
data: g_custom_container type ref to cl_gui_custom_container,
      g_editable_alv     type ref to cl_gui_alv_grid.
LOCAL CLASS Definition
class lcl_event_receiver definition.
  public section.
    methods handle_data_changed
      for event data_changed of cl_gui_alv_grid
      importing er_data_changed.
endclass.
class lcl_event_receiver implementation.
  method handle_data_changed.
at the time being, no checks are made...
  endmethod.
endclass.
data: event_receiver type ref to lcl_event_receiver.
end-of-selection.
  set screen 100.
*&      Module  STATUS_0100  OUTPUT
      text
module status_0100 output.
  set pf-status 'BASIC'.
  set titlebar 'BASICTITLE'.
create ALV Grid Control in the first run
  if g_docking is initial.
    perform create_and_init_controls.
  endif.
endmodule.                             " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
module user_command_0100 input.
  save_ok_code = ok_code.
  clear ok_code.
  case save_ok_code.
    when 'SUBMIT'.
set the frontend fieldcatalog
ATTENTION: DDIC-Fields are not updated using this method!
(see 'RESTART')
      call method g_alv->set_frontend_fieldcatalog
           exporting
             it_fieldcatalog = gt_fieldcat.
      call method g_alv->refresh_table_display.
      call method cl_gui_cfw=>flush.
    when 'RESTART'.
Destroy the control currently visible and display it again
using the changed fieldcatalog.
      perform restart_sflight.
    when '&ALL'.
      perform switch_visibility.
  endcase.
endmodule.                             " USER_COMMAND_0100  INPUT
*&      Form  CREATE_AND_INIT_CONTROLS
      text
-->  p1        text
<--  p2        text
form create_and_init_controls.
  create object g_docking
      exporting
           dynnr = '100'
           extension = 150
           side = cl_gui_docking_container=>dock_at_bottom.
  create object g_alv
      exporting
           i_parent = g_docking.
  create object g_custom_container
      exporting
           container_name = 'CC_0100_FIELDCAT'.
  create object g_editable_alv
      exporting
           i_parent = g_custom_container.
register events
  create object event_receiver.
  set handler event_receiver->handle_data_changed for g_editable_alv.
  call method g_editable_alv->register_edit_event
                exporting
                   i_event_id = cl_gui_alv_grid=>mc_evt_modified.
  perform build_fieldcatalogs changing gt_fieldcat gt_fcatfcat.
  perform modify_fieldcatalog changing gt_fcatfcat.
  perform select_data.                 "CHANGING gt_sflight
  call method g_alv->set_table_for_first_display
          changing
               it_outtab       = gt_sflight[]
               it_fieldcatalog = gt_fieldcat[].
optimize column width of grid displaying fieldcatalog
  gs_fcatlayo-cwidth_opt = 'X'.
Get fieldcatalog of table sflight - alv might have
modified it after passing.
  call method g_alv->get_frontend_fieldcatalog
            importing et_fieldcatalog = gt_fieldcat[].
  call method cl_gui_cfw=>flush.
Display fieldcatalog of table sflight:
  call method g_editable_alv->set_table_for_first_display
          exporting
               is_layout       = gs_fcatlayo
          changing
               it_outtab       = gt_fieldcat[]
               it_fieldcatalog = gt_fcatfcat[].
register events
  create object event_receiver.
  set handler event_receiver->handle_data_changed for g_editable_alv.
endform.                               " CREATE_AND_INIT_CONTROLS
*&      Form  restart_sflight
      text
-->  p1        text
<--  p2        text
form restart_sflight.
  data: ls_fieldcat type lvc_s_fcat.
free g_docking and thus g_alv
  call method g_docking->free.
  clear g_docking.
  clear g_alv.
create new instances
  create object g_docking
      exporting
           dynnr = '100'
           extension = 150
           side = cl_gui_docking_container=>dock_at_bottom.
  create object g_alv
      exporting
           i_parent = g_docking.
This is an internal method to invalidate all fields in the fieldcat
  loop at gt_fieldcat into ls_fieldcat.
    clear ls_fieldcat-tech_comp.
    modify gt_fieldcat from ls_fieldcat.
  endloop.
Newly display the list with current fieldcatalog.
  call method g_alv->set_table_for_first_display
          changing
               it_outtab       = gt_sflight[]
               it_fieldcatalog = gt_fieldcat.
Get fieldcatalog - it might be changed by ALV in the last call
  call method g_alv->get_frontend_fieldcatalog
          importing
               et_fieldcatalog = gt_fieldcat[].
  call method g_editable_alv->refresh_table_display.
  call method cl_gui_cfw=>flush.
endform.                               " restart_sflight
*&      Form  select_data
      text
-->  p1        text
<--  p2        text
form select_data.
  data: lt_sflight type table of sflight with header line,
        ls_scarr type scarr.
select data of sflight
  select * from sflight into table lt_sflight up to g_max rows.
copy data to gt_sflight and update CARRNAME
  loop at lt_sflight.
    move-corresponding lt_sflight to gt_sflight.
    select single * from scarr into ls_scarr
       where carrid = gt_sflight-carrid.
    gt_sflight-carrname = ls_scarr-carrname.
    append gt_sflight.
  endloop.
endform.                               " select_data
*&      Form  BUILD_FIELDCATALOGS
      text
     <--P_GT_FIELDCAT  text
     <--P_GT_FCATFCAT  text
form build_fieldcatalogs changing p_fieldcat type lvc_t_fcat
                                  p_fcatfcat type lvc_t_fcat.
  data: ls_fcat     type lvc_s_fcat.
Fieldcatalog for table SFLIGHT: p_fieldcat
generate fieldcatalog automatically
  call function 'LVC_FIELDCATALOG_MERGE'
      exporting
           i_structure_name       = 'SFLIGHT'
        I_CLIENT_NEVER_DISPLAY = 'X'
       changing
            ct_fieldcat            = p_fieldcat[]
   EXCEPTIONS
        INCONSISTENT_INTERFACE = 1
        PROGRAM_ERROR          = 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.
shift all column positions to the right except for MANDT
  loop at p_fieldcat into ls_fcat.
    if ls_fcat-fieldname ne 'MANDT'.
      add 1 to ls_fcat-col_pos.
      if ls_fcat-fieldname = 'CARRID'.
        ls_fcat-txt_field = 'CARRNAME'."link CARRNAME to CARRID
      endif.
      modify p_fieldcat from ls_fcat.
    endif.
  endloop.
create a new line for CARRNAME in p_fieldcat
  clear ls_fcat.
  ls_fcat-fieldname = 'CARRNAME'.
  ls_fcat-ref_table = 'SCARR'.
  ls_fcat-col_pos = 1.
insert new line before CARRID (do not forget MANDT!).
  insert ls_fcat into p_fieldcat index 1.
Fieldcatalog for table LVC_T_FCAT:p_fcatfcat
Generate fieldcatalog of fieldcatalog structure.
This fieldcatalog is used to display fieldcatalog 'p_fieldcat'
on the top of the screen.
  call function 'LVC_FIELDCATALOG_MERGE'
      exporting
           i_structure_name       = 'LVC_S_FCAT'
        I_CLIENT_NEVER_DISPLAY = 'X'
       changing
            ct_fieldcat            = p_fcatfcat[]
   EXCEPTIONS
        INCONSISTENT_INTERFACE = 1
        PROGRAM_ERROR          = 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.
Hide all fields that are not documented (valid for release 4.6A)
  perform hide_fields changing p_fcatfcat.
endform.                               " BUILD_FIELDCATALOGS
*&      Module  EXIT_PROGRAM  INPUT
      text
module exit_program input.
  leave program.
endmodule.                             " EXIT_PROGRAM  INPUT
*&      Form  MODIFY_FIELDCATALOG
      text
     <--P_GT_FCATFCAT  text
form modify_fieldcatalog changing p_fcatfcat type lvc_t_fcat.
  data ls_fcat type lvc_s_fcat.
  loop at p_fcatfcat into ls_fcat.
    ls_fcat-coltext = ls_fcat-fieldname.
    ls_fcat-edit = 'X'.
    if ls_fcat-fieldname = 'COL_POS' or ls_fcat-fieldname = 'FIELDNAME'.
      ls_fcat-key = 'X'.
    endif.
    modify p_fcatfcat from ls_fcat.
  endloop.
endform.                               " MODIFY_FIELDCATALOG
form hide_fields changing p_fieldcat type lvc_t_fcat.
  data: ls_fcat type lvc_s_fcat.
Only show documented fields of fieldcatalog.
For a documentation choose "Help->Application Help" in the menu.
  loop at p_fieldcat into ls_fcat.
    if not (
         ls_fcat-fieldname eq 'CFIELDNAME'
    or   ls_fcat-fieldname eq 'COL_POS'
    or   ls_fcat-fieldname eq 'COLDDICTXT'
    or   ls_fcat-fieldname eq 'COLTEXT'
    or   ls_fcat-fieldname eq 'CURRENCY'
    or   ls_fcat-fieldname eq 'DD_OUTLEN'
    or   ls_fcat-fieldname eq 'DECIMALS_O'
    or   ls_fcat-fieldname eq 'DECMLFIELD'
    or   ls_fcat-fieldname eq 'DO_SUM'
    or   ls_fcat-fieldname eq 'DRAGDROPID'
    or   ls_fcat-fieldname eq 'EDIT_MASK'
    or   ls_fcat-fieldname eq 'EMPHASIZE'
    or   ls_fcat-fieldname eq 'EXPONENT'
    or   ls_fcat-fieldname eq 'FIELDNAME'
    or   ls_fcat-fieldname eq 'HOTSPOT'
    or   ls_fcat-fieldname eq 'ICON'
    or   ls_fcat-fieldname eq 'INTLEN'
    or   ls_fcat-fieldname eq 'INTTYPE'
    or   ls_fcat-fieldname eq 'JUST'
    or   ls_fcat-fieldname eq 'KEY'
    or   ls_fcat-fieldname eq 'LOWERCASE'
    or   ls_fcat-fieldname eq 'LZERO'
    or   ls_fcat-fieldname eq 'NO_OUT'
    or   ls_fcat-fieldname eq 'NO_SIGN'
    or   ls_fcat-fieldname eq 'NO_SUM'
    or   ls_fcat-fieldname eq 'NO_ZERO'
    or   ls_fcat-fieldname eq 'OUTPUTLEN'
    or   ls_fcat-fieldname eq 'QFIELDNAME'
    or   ls_fcat-fieldname eq 'QUANTITY'
    or   ls_fcat-fieldname eq 'REF_FIELD'
    or   ls_fcat-fieldname eq 'REF_TABLE'
    or   ls_fcat-fieldname eq 'REPREP'
    or   ls_fcat-fieldname eq 'REPTEXT'
    or   ls_fcat-fieldname eq 'ROLLNAME'
    or   ls_fcat-fieldname eq 'ROUND'
    or   ls_fcat-fieldname eq 'ROUNDFIELD'
    or   ls_fcat-fieldname eq 'SCRTEXT_L'
    or   ls_fcat-fieldname eq 'SCRTEXT_M'
    or   ls_fcat-fieldname eq 'SCRTEXT_S'
    or   ls_fcat-fieldname eq 'SELDDICTXT'
    or   ls_fcat-fieldname eq 'SELTEXT'
    or   ls_fcat-fieldname eq 'SP_GROUP'
    or   ls_fcat-fieldname eq 'SYMBOL'
    or   ls_fcat-fieldname eq 'TECH'
    or   ls_fcat-fieldname eq 'TIPDDICTXT'
    or   ls_fcat-fieldname eq 'TOOLTIP'
    or   ls_fcat-fieldname eq 'TXT_FIELD' ).
      ls_fcat-tech = 'X'.
    endif.
    modify p_fieldcat from ls_fcat.
  endloop.
endform.
form switch_visibility.
data:  lt_fcatfcat type lvc_t_fcat,
        ls_fcat type lvc_s_fcat.
call method g_editable_alv->get_frontend_fieldcatalog
             importing ET_FIELDCATALOG = lt_fcatfcat.
if not g_all is initial.
     perform hide_fields changing lt_fcatfcat.
     g_all = SPACE.
else.
    loop at lt_fcatfcat into ls_fcat.
       if ls_fcat-tech eq 'X'.
           ls_fcat-tech = SPACE.
           ls_fcat-no_out = 'X'.
           modify lt_fcatfcat from ls_fcat.
       endif.
    endloop.
    g_all = 'X'.
endif.
call method g_editable_alv->set_frontend_fieldcatalog
            exporting it_fieldcatalog = lt_fcatfcat.
call method g_editable_alv->refresh_table_display.
endform.
<b>Reward points</b>
Regards