SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Fix object overwrite missing objects (fixes #949)

Browse Source
This commit is contained in:
Fabian Lupa 2017-10-02 18:26:30 +02:00
parent 87418cd125
commit 67216cc4a3
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/zabapgit_objects_impl.prog.abap
View File

@ -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: <ls_result> 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 <ls_result>.
READ TABLE lt_confirmed_overwrite TRANSPORTING NO FIELDS
WITH KEY obj_type = <ls_result>-obj_type
obj_name = <ls_result>-obj_name.
IF sy-subrc <> 0.
DELETE TABLE ct_results FROM <ls_result>.
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.