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

DOMA: Deletion of domains with append (#5445)

Browse Source 
* DOMA: Deletion of domains with append

On newer releases, suppressing the confirmation popup does not work since the parameter has changed.

Added a call using the new parameter.

* No if

Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard 2022-04-05 18:00:27 +02:00 committed by GitHub
parent 7e7104e050
commit 8d8d537fcf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/objects/zcl_abapgit_objects_super.clas.abap
View File

@ -162,19 +162,36 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
dialog_needed = 5 dialog_needed = 5
OTHERS = 6. OTHERS = 6.
CATCH cx_sy_dyn_call_param_not_found. CATCH cx_sy_dyn_call_param_not_found.
" no_ask_delete_append not available in lower releases TRY.
CALL FUNCTION 'RS_DD_DELETE_OBJ' " try to force deletion for APPENDs
EXPORTING CALL FUNCTION 'RS_DD_DELETE_OBJ'
no_ask = iv_no_ask EXPORTING
objname = lv_objname no_ask = iv_no_ask
objtype = lv_objtype objname = lv_objname
EXCEPTIONS objtype = lv_objtype
not_executed = 1 aie_force_deletion = iv_no_ask_delete_append
object_not_found = 2 EXCEPTIONS
object_not_specified = 3 not_executed = 1
permission_failure = 4 object_not_found = 2
dialog_needed = 5 object_not_specified = 3
OTHERS = 6. permission_failure = 4
dialog_needed = 5
OTHERS = 6.
CATCH cx_sy_dyn_call_param_not_found.
" no_ask_delete_append and aie_force_deletion not available in lower releases
CALL FUNCTION 'RS_DD_DELETE_OBJ'
EXPORTING
no_ask = iv_no_ask
objname = lv_objname
objtype = lv_objtype
EXCEPTIONS
not_executed = 1
object_not_found = 2
object_not_specified = 3
permission_failure = 4
dialog_needed = 5
OTHERS = 6.
ENDTRY.
ENDTRY. ENDTRY.
IF sy-subrc = 5. IF sy-subrc = 5.