메뉴 건너뛰기

SAP 한국 커뮤니티



Delete 여쭤봅니다.

스텔라2 2017.01.24 15:24 조회 수 : 2190


안녕하세요? ABAP을 배우고 있어요.

easy-ABAP 책과 함께,

타 교육용 서버에 가지고 있는 소스를 카피해서 사용하고 있어요.


제가 Delete 구문을 이런식으로 넣었는데.

소스 받은거에선 한줄을 선택하면 해당 줄이 지워지는 것이었는데,

제가 적용하니 화면에서 선택하여 버튼을 누르면 모든 ALV 내용이 다 날라가 버려요 ㅠ-ㅠ으억


무엇이 잘못 된것일까요.?




form delete using p_text1
                  p_text2
                  p_text3.

  data lv_subrc type syst-subrc,
         lv_answer type char01.

*  CLEAR p_subrc.
  perform confirm_to_popup using p_text1
                                 p_text2
                                 p_text3
                           changing lv_answer.
  if lv_answer 'J'.
*   delete data

    call method lcl_alv->get_selected_rows
      importing
        et_index_rows lt_row.

    loop at lt_row into ls_row.
      read table gt_tab index ls_row-index.

      delete from sbook where carrid gt_tab-carrid.
**                          AND EMPWORK = gs_tab-EMPWORK.

    endloop.


    if sy-subrc 0.
      commit work.
      message s000 with 'Data deleted successfully' display like 'S'.

      clear gs_tabgs_tab_old.
*      DELETE gt_tab INDEX g_row.
    else.
      rollback work.
      message s000 with 'Cannot delete' display like 'E'.
    endif.
  else.
    return.
  endif.

endform.                       " delete