CASE sy-ucomm.
WHEN 'EXIT' OR 'CANC'.
LEAVE TO SCREEN 0 .
WHEN 'DEL'.
DATA: t_row_no TYPE lvc_t_roid,
w_row_no TYPE lvc_s_roid.
DATA flag TYPE c.
DATA n TYPE c VALUE '1'.
*=== To Delete the selected rows in the ALV Grid
CALL METHOD grid1->get_selected_rows IMPORTING et_row_no = t_row_no.
IF NOT t_row_no IS INITIAL.
SORT t_row_no BY row_id.
flag = 0.
LOOP AT t_row_no INTO w_row_no.
IF flag = 0.
DELETE it_final_l INDEX w_row_no-row_id.
flag = 1.
ELSEIF flag = 1.
n = w_row_no-row_id - 1.
DELETE it_final_l INDEX n.
ENDIF.
ENDLOOP.
EXPORT it_final_l TO MEMORY ID m_id.
CALL METHOD grid1->refresh_table_display.
ENDIF.
ENDCASE.
No comments:
Post a Comment