Selektierte Zeilen aus REUSE_ALV_GRID_DISPLAY

Code: Alles auswählen.

FORM cb_alv_user_command
  USING r_ucomm LIKE sy-ucomm
        rs_selfield TYPE slis_selfield.

  IF r_ucomm = 'DELETE'.
    READ TABLE itab into sel_row
	INDEX rs_SELFIELD-TABINDEX.
    PERFORM delete_entry.
  ENDIF.
  
ENDFORM. "cb_alv_user_command

Code: Alles auswählen.

REPORT alv_test.
TYPE-POOLS slis.

TYPES: BEGIN OF t_data,
        matnr TYPE matnr,
        sel   TYPE c,
       END   OF t_data.

DATA: gt_data TYPE TABLE OF t_data,
      gw_data TYPE          t_data,

      gt_fieldcat TYPE TABLE OF slis_fieldcat_alv,
      gw_fieldcat TYPE          slis_fieldcat_alv,

      gs_layout   TYPE          slis_layout_alv,
      g_program   TYPE          sy-repid.
**********************************************************************
START-OF-SELECTION.
  SELECT matnr
    FROM mara
    INTO TABLE gt_data
    UP TO 100 ROWS.

************************************************************************
END-OF-SELECTION.
* ALV wird aufgebaut.
* Fieldcat
  CLEAR gw_fieldcat.
  gw_fieldcat-fieldname     = 'MATNR'.
  gw_fieldcat-ref_fieldname = 'MATNR'.
  gw_fieldcat-ref_tabname   = 'MARA'.
  APPEND gw_fieldcat TO  gt_fieldcat.

  CLEAR gw_fieldcat.
  gw_fieldcat-fieldname     = 'SEL'.
* es ist ein technisches Feld, keine Ausgabe
  gw_fieldcat-tech          = 'X'.
  APPEND gw_fieldcat TO  gt_fieldcat.

* Layout
  gs_layout-box_fieldname = 'SEL'.

* Programname
  g_program  = sy-repid.


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = g_program
      i_callback_pf_status_set = 'SET_PF_STATUS'
      i_callback_user_command  = 'I_USER_COMMAND'
      is_layout                = gs_layout
      it_fieldcat              = gt_fieldcat
    TABLES
      t_outtab                 = gt_data.

**********************************************************************
FORM set_pf_status USING rt_extab.

  SET PF-STATUS 'HAUPT' EXCLUDING rt_extab.

ENDFORM.                    "set_pf_status

*&---------------------------------------------------------------------*
*&      Form  i_user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
FORM i_user_command USING r_ucomm LIKE sy-ucomm
      rs_selfield TYPE slis_selfield.

* Button auswerten
  CASE r_ucomm.
    WHEN 'BUCHEN'.
      LOOP AT gt_data INTO gw_data WHERE sel = 'X'.
*     Perform buchen USING gw_data.
      ENDLOOP.
*     Dem ALV mitteilen, dass sich die Ausgabe verändert hat
      rs_selfield-refresh = 'X'.
    WHEN 'F03'.
*     PERFORM alv_verlassen
*     Dem ALV mitteilen, dass Ende ist
      rs_selfield-exit = 'X'.
  ENDCASE.
ENDFORM.                    "i_user_command