ALV with check boxs and buttons

Question

Hi guys,
It's been a while since last time I used ALV and its options.
I have a requirement to show many records in ALV format. each record starts with a check box, user can choose which record by checking each and click on a button to merge them (those record contain text). Everything should show up on ALV screen. Any idea what how should I do that??
I think I should use screen painter but I have no idea how to implement that...
Thanks,

Answer 1

Hi Ben,
Here is the code as per ur requirement ..
just go through this....i hope u will get some help...
REPORT zashu_alv_in_popup_mara.
TYPE-POOLS : slis.
*Data Declaration
DATA:i_repid LIKE sy-repid.
     i_repid = sy-repid.
Declaration for ALV
DATA: wa_fcat TYPE slis_fieldcat_alv,
      fcat TYPE slis_t_fieldcat_alv,
      wa_fcat1 TYPE slis_fieldcat_alv,
      fcat1 TYPE slis_t_fieldcat_alv.
*Types Declaration
TYPES:BEGIN OF ty_mat,
       matnr TYPE mara-matnr,
       checkbox(1),
      END OF ty_mat.
TYPES:BEGIN OF ty_makt,
       matnr TYPE mara-matnr,
       maktg  TYPE makt-maktg,
       maktx  TYPE makt-maktx,
      END OF ty_makt.
*Internal table Declaration
DATA:it_mat TYPE TABLE OF ty_mat WITH HEADER LINE.
DATA:it_makt TYPE TABLE OF ty_makt WITH HEADER LINE.
*Range Declaration
RANGES : r_matnr FOR mara-matnr.
*Start of Selecdtion
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM display_data.
  PERFORM display_alv.
     Form  get_data
FORM get_data.
Read material from MARA
  SELECT matnr FROM mara INTO TABLE it_mat.
ENDFORM.                               " GET_DATA
     Form  display_data
FORM display_data.
  wa_fcat-row_pos   = '1'.
  wa_fcat-col_pos   = '1'.
  wa_fcat-fieldname = 'CHECKBOX'.
  wa_fcat-tabname   = 'IT_MAT'.
  wa_fcat-seltext_m = 'SELECT'.
  APPEND wa_fcat TO fcat.
  CLEAR wa_fcat.
  wa_fcat-row_pos   = '1'.
  wa_fcat-col_pos   = '2'.
  wa_fcat-fieldname = 'MATNR'.
  wa_fcat-tabname   = 'IT_MAT'.
  wa_fcat-seltext_m = 'MATERIAL'.
  wa_fcat-outputlen = 50.
  APPEND wa_fcat TO fcat.
Display data in a POPUP
  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
       EXPORTING
            i_selection          = 'X'
            i_zebra              = 'X'
            it_fieldcat          = fcat
            i_tabname            = 'IT_MAT'
             i_checkbox_fieldname = 'CHECKBOX'
       TABLES
            t_outtab             = it_mat.
IF NOT it_mat[] IS INITIAL.
LOOP AT it_mat  WHERE checkbox = 'X'.
        r_matnr-sign = 'I'.
        r_matnr-option = 'EQ'.
        r_matnr-low = it_mat-matnr.
        r_matnr-high = ' '  .
        APPEND r_matnr.
        CLEAR r_matnr.
      ENDLOOP.
    ENDIF.
select matnr maktx maktg from makt  into table it_makt where matnr in
r_matnr.
ENDFORM.                               " DISPLAY_DATA
*&      Form  DISPLAY_ALV
      text
-->  p1        text
<--  p2        text
FORM display_alv .
*ALV Display in a POPUP window
  wa_fcat1-row_pos   = '1'.
  wa_fcat1-col_pos   = '1'.
  wa_fcat1-fieldname = 'MATNR'.
  wa_fcat1-tabname   = 'IT_MAKT'.
  wa_fcat1-seltext_m = 'Material No'.
  APPEND wa_fcat1 TO fcat1.
  CLEAR wa_fcat.
  wa_fcat1-row_pos   = '1'.
  wa_fcat1-col_pos   = '2'.
  wa_fcat1-fieldname = 'MAKTX'.
  wa_fcat1-tabname   = 'IT_MAKT'.
  wa_fcat1-seltext_m = 'DESCRIPTION'.
  APPEND wa_fcat1 TO fcat1.
  wa_fcat1-row_pos   = '1'.
  wa_fcat1-col_pos   = '3'.
  wa_fcat1-fieldname = 'MAKTG'.
  wa_fcat1-tabname   = 'IT_MAKT'.
  wa_fcat1-seltext_m = 'GROUP'.
  APPEND wa_fcat1 TO fcat1.
  CLEAR wa_fcat1.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = i_repid
     i_grid_title                      = 'Material Description'
     it_fieldcat                       = fcat1
  I_SCREEN_START_COLUMN             = 30
  I_SCREEN_START_LINE               = 10
  I_SCREEN_END_COLUMN               = 70
  I_SCREEN_END_LINE                 = 30
    TABLES
      t_outtab                        = it_makt
EXCEPTIONS
   PROGRAM_ERROR                     = 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.                    " DISPLAY_ALV
Thanks & Regards
Ashu SIngh