diff --git a/src/zabapgit_objects_impl.prog.abap b/src/zabapgit_objects_impl.prog.abap index bcf41cbf8..5f98c62a7 100644 --- a/src/zabapgit_objects_impl.prog.abap +++ b/src/zabapgit_objects_impl.prog.abap @@ -11,7 +11,8 @@ CLASS lcl_objects IMPLEMENTATION. METHOD warning_overwrite. - DATA: lt_results_overwrite LIKE ct_results. + DATA: lt_results_overwrite LIKE ct_results, + lt_confirmed_overwrite LIKE ct_results. FIELD-SYMBOLS: LIKE LINE OF ct_results. @@ -29,10 +30,19 @@ CLASS lcl_objects IMPLEMENTATION. ENDLOOP. - if lines( lt_results_overwrite ) > 0. + IF lines( lt_results_overwrite ) > 0. "all returned objects will be overwritten - ct_results = lcl_popups=>popup_select_obj_overwrite( lt_results_overwrite ). - endif. + lt_confirmed_overwrite = lcl_popups=>popup_select_obj_overwrite( lt_results_overwrite ). + + LOOP AT lt_results_overwrite ASSIGNING . + READ TABLE lt_confirmed_overwrite TRANSPORTING NO FIELDS + WITH KEY obj_type = -obj_type + obj_name = -obj_name. + IF sy-subrc <> 0. + DELETE TABLE ct_results FROM . + ENDIF. + ENDLOOP. + ENDIF. ENDMETHOD.