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

Remove package deletion

Browse Source
This commit is contained in:
Fabian Lupa 2017-09-30 13:42:33 +02:00
parent cf336df327
commit 1c06915d11
1 changed files with 1 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
src/zabapgit_object_devc.prog.abap
View File

@ -67,63 +67,11 @@ CLASS lcl_object_devc IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD lif_object~delete. METHOD lif_object~delete.
DATA: li_package TYPE REF TO if_package,
lv_changeable TYPE abap_bool.
RETURN ##TODO.
" Package deletion is a bit tricky. A package can only be deleted if there are no objects " Package deletion is a bit tricky. A package can only be deleted if there are no objects
" contained in it. This includes subpackages, so first the leaf packages need to be deleted. " contained in it. This includes subpackages, so first the leaf packages need to be deleted.
" Unfortunately deleted objects that are still contained in an unreleased transport request " Unfortunately deleted objects that are still contained in an unreleased transport request
" also count towards the contained objects counter. " also count towards the contained objects counter.
" -> Package deletion is currently not supported by abapGit
li_package = get_package( mv_local_devclass ).
li_package->get_changeable( IMPORTING e_changeable = lv_changeable ).
IF lv_changeable = abap_false.
li_package->set_changeable(
EXPORTING
i_changeable = abap_true
EXCEPTIONS
object_locked_by_other_user = 1
permission_failure = 2
object_already_changeable = 3
object_already_unlocked = 4
object_just_created = 5
object_deleted = 6
object_modified = 7
object_not_existing = 8
object_invalid = 9
unexpected_error = 10
OTHERS = 11 ).
IF sy-subrc <> 0.
lcx_exception=>raise( |Error from IF_PACKAGE->SET_CHANGEABLE { sy-subrc }| ).
ENDIF.
ENDIF.
li_package->delete(
EXCEPTIONS
object_not_empty = 1
object_not_changeable = 2
object_invalid = 3
intern_err = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
lcx_exception=>raise( |Error from IF_PACKAGE->DELETE { sy-subrc }| ).
ENDIF.
li_package->save(
EXCEPTIONS
object_invalid = 1
object_not_changeable = 2
cancelled_in_corr = 3
permission_failure = 4
unexpected_error = 5
intern_err = 6
OTHERS = 7 ).
IF sy-subrc <> 0.
lcx_exception=>raise( |Error from IF_PACKAGE->SAVE { sy-subrc }| ).
ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD lif_object~deserialize. METHOD lif_object~deserialize.