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

downport DEVC

Browse Source
This commit is contained in:
Christian Guenter 2018-05-08 08:29:36 +00:00
parent 4e85e2b7a5
commit 0792fd8b64
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/objects/zcl_abapgit_object_devc.clas.abap
View File

@ -27,7 +27,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_DEVC IMPLEMENTATION.
CLASS zcl_abapgit_object_devc IMPLEMENTATION.
METHOD constructor.
@ -89,7 +89,8 @@ CLASS ZCL_ABAPGIT_OBJECT_DEVC IMPLEMENTATION.
ii_package->set_permissions_changeable(
EXPORTING
i_changeable = iv_lock
i_suppress_dialog = abap_true
* downport, does not exist in 7.30. Let's see if we can get along without it
* i_suppress_dialog = abap_true
EXCEPTIONS
object_already_changeable = 1
object_already_unlocked = 2
@ -187,7 +188,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DEVC IMPLEMENTATION.
EXCEPTIONS
object_not_changeable = 1
object_invalid = 2
deletion_not_allowed = 3
* deletion_not_allowed = 3 downport, does not exist in 7.30
intern_err = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
@ -298,8 +299,8 @@ CLASS ZCL_ABAPGIT_OBJECT_DEVC IMPLEMENTATION.
prefix_in_use = 13
unexpected_error = 14
intern_err = 15
wrong_mainpack_value = 16
superpackage_invalid = 17
* wrong_mainpack_value = 16 downport, does not exist in 7.30
* superpackage_invalid = 17 downport, does not exist in 7.30
OTHERS = 18 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
@ -336,9 +337,9 @@ CLASS ZCL_ABAPGIT_OBJECT_DEVC IMPLEMENTATION.
unexpected_error = 15
intern_err = 16
no_access = 17
invalid_translation_depth = 18
wrong_mainpack_value = 19
superpackage_invalid = 20
* invalid_translation_depth = 18 downport, does not exist in 7.30
* wrong_mainpack_value = 19 downport, does not exist in 7.30
* superpackage_invalid = 20 downport, does not exist in 7.30
* error_in_cts_checks = 21 downport, does not exist in 7.31
OTHERS = 22 ).
IF sy-subrc <> 0.
@ -470,9 +471,15 @@ CLASS ZCL_ABAPGIT_OBJECT_DEVC IMPLEMENTATION.
" Clear text descriptions that might be localized
CLEAR: ls_package_data-comp_text,
ls_package_data-dlvu_text,
ls_package_data-translation_depth_text,
ls_package_data-layer_text.
ASSIGN COMPONENT 'TRANSLATION_DEPTH_TEXT'
OF STRUCTURE ls_package_data
TO <lg_field>.
IF sy-subrc = 0.
CLEAR: <lg_field>.
ENDIF.
ASSIGN COMPONENT 'TRANSLATION_GRAPH_DEPTH_TEXT'
OF STRUCTURE ls_package_data
TO <lg_field>.
@ -486,7 +493,12 @@ CLASS ZCL_ABAPGIT_OBJECT_DEVC IMPLEMENTATION.
ls_package_data-pdevclass.
" Not usable on customer systems
CLEAR: ls_package_data-translation_depth.
ASSIGN COMPONENT 'TRANSLATION_DEPTH'
OF STRUCTURE ls_package_data
TO <lg_field>.
IF sy-subrc = 0.
CLEAR: <lg_field>.
ENDIF.
ASSIGN COMPONENT 'TRANSLATION_GRAPH_DEPTH'
OF STRUCTURE ls_package_data