How to make column editable in Normal ALV report

Question

Hi experts,
                   I Have one push button In ALV tool bar like Fields to be change..when i click this..i need to get one pop up with all fields which is having in Filedcatalog..so i need to doule click on any field which i want to be midified..then in ALV that particular entire  column should be editable.Can anybody please help me what is procedure to get pop up with fields..
Thanks & regards,
Veena..

Answer 1

here is the required code
type-pools: slis.
types: BEGIN OF TY_MKPF,
        MBLNR TYPE MKPF-MBLNR,
        MJAHR TYPE MKPF-MJAHR,
        VGART TYPE MKPF-VGART,
        BLART TYPE MKPF-BLART,
        BLAUM TYPE MKPF-BLAUM,
      END OF TY_MKPF.
TYPES:         BEGIN OF TY_WA, "STRUCTURE FOR POP UP ALV
               CHECK TYPE C,
               FIELDNAME TYPE DFIES-FIELDNAME,
               FIELDTEXT TYPE DFIES-FIELDTEXT,
END OF TY_WA.
data: lt_mkpf type table of ty_mkpf,
      ls_mkpf type mkpf,
      IT TYPE TABLE OF TY_WA,  "INTERNAL TABLE FOR POP UP ALV
      WA TYPE TY_WA,           "WA FOR POP UP ALV
      IT_FCATP TYPE SLIS_T_FIELDCAT_ALV, "FCAT FOR POP UP ALV
      WA_FCATP LIKE LINE OF IT_FCATP, "WA FOR POP UP ALV
      ok_code type sy-ucomm,
      lt_fcat type lvc_t_fcat,
      ls_fcat type lvc_s_fcat.
data: o_alv type ref to cl_gui_alv_grid,
      o_doc type ref to cl_gui_docking_container.
start-of-selection.
select  MBLNR
        MJAHR
        VGART
        BLART
        BLAUM
into corresponding fields of table lt_mkpf from mkpf up to 100 rows.
*---create fieldcatalog
clear ls_fcat.
ls_FCAT-FIELDNAME = 'MBLNR'.
*WA_FCAT-TABNAME = WA-TABNAME.
ls_FCAT-REF_TABLE = 'MPKPF'.
ls_FCAT-REF_FIELD = 'MBLNR'.
APPEND ls_FCAT TO lT_FCAT.
clear ls_fcat.
ls_FCAT-FIELDNAME = 'MJAHR'.
*WA_FCAT-TABNAME = WA-TABNAME.
ls_FCAT-REF_TABLE = 'MPKPF'.
ls_FCAT-REF_FIELD = 'MJAHR'.
APPEND ls_FCAT TO lT_FCAT.
clear ls_fcat.
ls_FCAT-FIELDNAME = 'VGART'.
*WA_FCAT-TABNAME = WA-TABNAME.
ls_FCAT-REF_TABLE = 'MPKPF'.
ls_FCAT-REF_FIELD = 'VGART'.
APPEND ls_FCAT TO lT_FCAT.
clear ls_fcat.
ls_FCAT-FIELDNAME = 'BLART'.
*WA_FCAT-TABNAME = WA-TABNAME.
ls_FCAT-REF_TABLE = 'MPKPF'.
ls_FCAT-REF_FIELD = 'BLART'.
APPEND ls_FCAT TO lT_FCAT.
clear ls_fcat.
ls_FCAT-FIELDNAME = 'BLAUM'.
*WA_FCAT-TABNAME = WA-TABNAME.
ls_FCAT-REF_TABLE = 'MPKPF'.
ls_FCAT-REF_FIELD = 'BLAUM'.
APPEND ls_FCAT TO lT_FCAT.
*---collect the field names of alv in a itab
clear wa.
WA-FIELDNAME = 'MBLNR'.
WA-FIELDTEXT = 'Number of Material Document'.
APPEND WA TO IT.
clear wa.
WA-FIELDNAME = 'MJAHR'.
WA-FIELDTEXT = 'fiscical year'.
APPEND WA TO IT.
clear wa.
WA-FIELDNAME = 'VGART'.
WA-FIELDTEXT = 'Transaction/Event Type'.
APPEND WA TO IT.
clear wa.
WA-FIELDNAME = 'BLART'.
WA-FIELDTEXT = 'Document Type'.
APPEND WA TO IT.
clear wa.
WA-FIELDNAME = 'BLAUM'.
WA-FIELDTEXT = 'Document type of revaluation document'.
APPEND WA TO IT.
*----------create field catalog
CLEAR WA_FCATP.
WA_FCATP-FIELDNAME = 'CHECK'.
WA_FCATP-SELTEXT_M = 'Selection Field'.
WA_FCATP-TABNAME = 'IT'.
APPEND WA_FCATP TO IT_FCATP.
CLEAR WA_FCATP.
WA_FCATP-FIELDNAME = 'FIELDNAME'.
WA_FCATP-TABNAME = 'IT'.
WA_FCATP-REF_TABNAME = 'DFIES'.   "CHECK IN SE11 TYPE GROUP SLIS
WA_FCATP-REF_FIELDNAME = 'FIELDNAME'. "CHECK IN SE11 TYPE GROUPB u201CSLIS
APPEND WA_FCATP TO IT_FCATP.
CLEAR WA_FCATP.
WA_FCATP-FIELDNAME = 'FIELDTEXT'.
WA_FCATP-TABNAME = 'IT'.
WA_FCATP-REF_TABNAME = 'DFIES'.   "CHECK IN SE11 TYPE GROUP SLIS
WA_FCATP-REF_FIELDNAME = 'FIELDNAME'.  "CHECK IN SE11 TYPE GROUPB SLIS
APPEND WA_FCATP TO IT_FCATP.
CLEAR WA_FCATP.
call screen 100.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS '100'.
*  SET TITLEBAR 'xxx'.
  if o_doc is not bound.
CREATE OBJECT O_DOC
  EXPORTING
    RATIO                       = 95.
CREATE OBJECT O_ALV
  EXPORTING
    I_PARENT          = o_doc.
  endif.
CALL METHOD O_ALV->SET_TABLE_FOR_FIRST_DISPLAY
  CHANGING
    IT_OUTTAB                     = lt_mkpf
    IT_FIELDCATALOG               = lt_fcat.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'BACK'.
CLEAR :O_ALV,
       O_DOC.
LEAVE TO SCREEN 0.
when 'CHNG'.
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
  EXPORTING
   I_TITLE                       = 'select fields to make it editable'
   I_ZEBRA                       = 'X'
   I_CHECKBOX_FIELDNAME          = 'CHECK'
    I_TABNAME                     = 'IT'
   IT_FIELDCAT                   = IT_FCATP
  TABLES
    T_OUTTAB                      = it.
loop at it into wa where check = 'X'.
*---change fieldcatalog dynamacally
case wa-fieldname.
when 'MBLNR'.
read table lt_fcat into ls_fcat with key fieldname = wa-fieldname.
if sy-subrc = 0.
ls_fcat-edit = 'X'.
endif.
when 'MJAHR'.
read table lt_fcat into ls_fcat with key fieldname = wa-fieldname.
if sy-subrc = 0.
ls_fcat-edit = 'X'.
endif.
when 'VGART'.
read table lt_fcat into ls_fcat with key fieldname = wa-fieldname.
if sy-subrc = 0.
ls_fcat-edit = 'X'.
endif.
when 'BLART'.
read table lt_fcat into ls_fcat with key fieldname = wa-fieldname.
if sy-subrc = 0.
ls_fcat-edit = 'X'.
endif.
when 'BLAUM'.
read table lt_fcat into ls_fcat with key fieldname = wa-fieldname.
if sy-subrc = 0.
ls_fcat-edit = 'X'.
endif.
endcase.
modify lt_fcat from ls_fcat index sy-tabix transporting edit.
clear ls_fcat.
endloop.
*---change fieldcatalog dynamically
CALL METHOD O_ALV->SET_FRONTEND_FIELDCATALOG
  EXPORTING
    IT_FIELDCATALOG = lt_fcat
*CALL METHOD O_ALV->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.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
Edited by: zjason on Dec 29, 2010 7:47 AM
Edited by: zjason on Dec 29, 2010 7:52 AM
Edited by: zjason on Dec 29, 2010 7:54 AM