ALV and Checkbox : retrieving what we select

Question

Hi everyone,
I created checkoxes in an ALV.
I am trying to retrieve what lines I selected from the ALV.
Thanks in advance.

Answer 1

Hi everyone,
The scenario is :
I added a button (refresh) in the ALV. When I click on it I want to know which lines I selected via the checkboxes.
I am using normal ALV (no classes).
If I click on my refresh button my internal table has no flag = 'X'.
But if I click on a row (after selecting the checkbox) I do see the flag='X'.
So it works when I click on the row of the ALV but does not work if I click on the refresh button that I added.
Here is the code.
REPORT  ztestdfalv1                             .
*Data Declaration
DATA: BEGIN OF t_ekko,
  select(1),
  ebeln TYPE ekpo-ebeln,
  ebelp TYPE ekpo-ebelp,
END OF t_ekko.
DATA: BEGIN OF it_ekko OCCURS 0.
        INCLUDE STRUCTURE t_ekko.
DATA: END OF it_ekko.
*ALV data declarations
TYPE-POOLS: slis.                                 "ALV Declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid.
*Start-of-selection.
START-OF-SELECTION.
  PERFORM data_retrieval.
  PERFORM build_fieldcatalog.
  PERFORM build_layout.
  PERFORM display_alv_report.
*&      Form  build_fieldcatalog
*       text
FORM build_fieldcatalog.
  REFRESH fieldcatalog.
  CLEAR fieldcatalog.
  fieldcatalog-fieldname   = 'SELECT'.
  fieldcatalog-seltext_m   = 'Select please'.
  fieldcatalog-checkbox    = 'X'.
  fieldcatalog-edit        = 'X'.
  fieldcatalog-input       = 'X'.
  fieldcatalog-col_pos     = 1.
  APPEND fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'EBELN'.
  fieldcatalog-seltext_m   = 'Purchase Order'.
  fieldcatalog-hotspot     = 'X'.
  fieldcatalog-col_pos     = 2.
  APPEND fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'EBELP'.
  fieldcatalog-seltext_m   = 'PO Item'.
  fieldcatalog-col_pos     = 3.
  APPEND fieldcatalog.
  CLEAR  fieldcatalog.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form  BUILD_LAYOUT
*       Build layout for ALV grid report
FORM build_layout.
  "Permet d'ajuster les colonnes au text
*  gd_layout-colwidth_optimize = 'X'.
  gd_layout-totals_text       = 'Totals'(201).
*  gd_layout-box_fieldname = 'SELECT'.
*  gd_layout-box_tabname   = 'IT_EKKO'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form  DISPLAY_ALV_REPORT
*       Display report using ALV grid
FORM display_alv_report.
  gd_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program        = gd_repid
*            i_callback_top_of_page   = 'TOP-OF-PAGE'
            i_callback_pf_status_set  = 'SET_PF_STATUS'
            i_callback_user_command   = 'USER_COMMAND'
*            i_grid_title             = 'My Title'
            is_layout                 = gd_layout
            it_fieldcat               = fieldcatalog[]
            i_save                    = 'X'
       TABLES
            t_outtab                  = it_ekko
       EXCEPTIONS
            program_error             = 1
            OTHERS                    = 2.
  IF sy-subrc <> 0.
    WRITE:/ sy-subrc.
  ENDIF.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&      Form  DATA_RETRIEVAL
*       Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
  SELECT ebeln ebelp
   UP TO 10 ROWS
    FROM ekpo
    INTO CORRESPONDING FIELDS OF TABLE  it_ekko.
ENDFORM.                    " DATA_RETRIEVAL
*                      FORM SET_PF_STATUS                              *
FORM set_pf_status USING rt_extab   TYPE  slis_t_extab.
  SET PF-STATUS 'STANDARD_FULLSCREEN1'.
ENDFORM.                    "set_pf_status
*&      Form  user_command
*       text
*      -->R_UCOMM    text
*      -->RS_SELFIELDtext
FORM user_command  USING r_ucomm LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN '&IC1'.
      CHECK rs_selfield-tabindex > 0.
      IF rs_selfield-value EQ '6000000001'.
        CALL TRANSACTION 'ZDF2'.
      ENDIF.
    WHEN 'REFRESH'.
      LOOP AT it_ekko WHERE select = 'X'.
      ENDLOOP.
      PERFORM data_retrieval.
      rs_selfield-refresh = 'X'.
  ENDCASE.
ENDFORM.                    "user_command
Thanks.
Message was edited by: David Fryda