From 4e85e2b7a507a060c58395b432e5e70d9bdfb299 Mon Sep 17 00:00:00 2001 From: Christian Guenter Date: Tue, 8 May 2018 07:42:22 +0000 Subject: [PATCH 1/2] ecatt downport --- .../zcl_abapgit_ecatt_val_obj_upl.clas.abap | 2 -- .../zcl_abapgit_object_ecatt_super.clas.abap | 16 +++++++--------- 2 files changed, 7 insertions(+), 11 deletions(-) diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap index bc083ac29..454325bb6 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap @@ -241,8 +241,6 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION. ch_object-i_akh = ch_object-d_akh. super->upload( - EXPORTING - i_use_cts_api_2 = i_use_cts_api_2 CHANGING ch_object = ch_object ). diff --git a/src/objects/zcl_abapgit_object_ecatt_super.clas.abap b/src/objects/zcl_abapgit_object_ecatt_super.clas.abap index e78f3c93a..5ffe039a3 100644 --- a/src/objects/zcl_abapgit_object_ecatt_super.clas.abap +++ b/src/objects/zcl_abapgit_object_ecatt_super.clas.abap @@ -211,13 +211,13 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION. METHOD deserialize_version. - DATA: ls_object TYPE etmobjects, - lo_upload TYPE REF TO cl_apl_ecatt_upload, - lv_xml TYPE xstring, - lv_text TYPE string, - li_document TYPE REF TO if_ixml_document, - lv_version TYPE string, - lx_error TYPE REF TO cx_ecatt. + DATA: ls_object TYPE etmobjects, + lo_upload TYPE REF TO cl_apl_ecatt_upload, + lv_xml TYPE xstring, + lv_text TYPE string, + li_document TYPE REF TO if_ixml_document, + lv_version TYPE string, + lx_error TYPE REF TO cx_ecatt. lv_version = get_version_from_node( ii_version_node ). @@ -244,8 +244,6 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION. TRY. lo_upload->upload( - EXPORTING - im_commit_flag = abap_true CHANGING ch_object = ls_object ). From 0792fd8b6482bd4e14fb7b4d785f15b83df5cc48 Mon Sep 17 00:00:00 2001 From: Christian Guenter Date: Tue, 8 May 2018 08:29:36 +0000 Subject: [PATCH 2/2] downport DEVC --- src/objects/zcl_abapgit_object_devc.clas.abap | 32 +++++++++++++------ 1 file changed, 22 insertions(+), 10 deletions(-) diff --git a/src/objects/zcl_abapgit_object_devc.clas.abap b/src/objects/zcl_abapgit_object_devc.clas.abap index e82f7b6b6..c89ee7e4b 100644 --- a/src/objects/zcl_abapgit_object_devc.clas.abap +++ b/src/objects/zcl_abapgit_object_devc.clas.abap @@ -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 . + IF sy-subrc = 0. + CLEAR: . + ENDIF. + ASSIGN COMPONENT 'TRANSLATION_GRAPH_DEPTH_TEXT' OF STRUCTURE ls_package_data TO . @@ -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 . + IF sy-subrc = 0. + CLEAR: . + ENDIF. ASSIGN COMPONENT 'TRANSLATION_GRAPH_DEPTH' OF STRUCTURE ls_package_data