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

DRUL: Fix compatibility with lower releases (#5991)

Browse Source 
Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com>
This commit is contained in:
Uenal Akkaya 2023-01-16 13:13:44 +01:00 committed by GitHub
parent db70f3d735
commit f6a1a09b5d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 36 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -122,7 +122,7 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
mv_dependency_rule_key = ms_item-obj_name. mv_dependency_rule_key = ms_item-obj_name.
TRY. TRY.
CREATE DATA mr_dependency_rule TYPE ('CL_BLUE_SOURCE_OBJECT_DATA2=>TY_OBJECT_DATA'). CREATE DATA mr_dependency_rule TYPE ('CL_BLUE_SOURCE_OBJECT_DATA=>TY_OBJECT_DATA').
CREATE OBJECT mi_persistence TYPE ('CL_DRUL_WB_OBJECT_PERSIST'). CREATE OBJECT mi_persistence TYPE ('CL_DRUL_WB_OBJECT_PERSIST').
CATCH cx_sy_create_error. CATCH cx_sy_create_error.
@ -135,8 +135,9 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
METHOD fill_metadata_from_db. METHOD fill_metadata_from_db.
DATA: DATA:
li_wb_object_operator TYPE REF TO object, li_wb_object_operator TYPE REF TO object,
lr_dependency_rule_old TYPE REF TO data. lr_dependency_rule_old TYPE REF TO data,
lv_drul_object_data_clas_exist TYPE c LENGTH 1.
FIELD-SYMBOLS: FIELD-SYMBOLS:
<ls_dependency_rule_old> TYPE any, <ls_dependency_rule_old> TYPE any,
@ -148,6 +149,20 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
li_wb_object_operator = get_wb_object_operator( ). li_wb_object_operator = get_wb_object_operator( ).
CREATE DATA lr_dependency_rule_old TYPE ('CL_BLUE_SOURCE_OBJECT_DATA2=>TY_OBJECT_DATA'). CREATE DATA lr_dependency_rule_old TYPE ('CL_BLUE_SOURCE_OBJECT_DATA2=>TY_OBJECT_DATA').
CALL FUNCTION 'CHECK_EXIST_CLAS'
EXPORTING
name = 'CL_DRUL_WB_OBJECT_DATA'
IMPORTING
exist = lv_drul_object_data_clas_exist
EXCEPTIONS
tr_invalid_type = 1
OTHERS = 2.
IF sy-subrc = 0 AND lv_drul_object_data_clas_exist = abap_true.
CREATE DATA lr_dependency_rule_old TYPE ('CL_DRUL_WB_OBJECT_DATA=>TY_OBJECT_DATA').
ELSE.
CREATE DATA lr_dependency_rule_old TYPE ('CL_BLUE_SOURCE_OBJECT_DATA=>TY_OBJECT_DATA').
ENDIF.
ASSIGN lr_dependency_rule_old->* TO <ls_dependency_rule_old>. ASSIGN lr_dependency_rule_old->* TO <ls_dependency_rule_old>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -253,9 +268,10 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize. METHOD zif_abapgit_object~deserialize.
DATA: DATA:
li_object_data_model TYPE REF TO if_wb_object_data_model, li_object_data_model TYPE REF TO if_wb_object_data_model,
li_wb_object_operator TYPE REF TO object, li_wb_object_operator TYPE REF TO object,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root,
lv_drul_object_data_clas_exist TYPE c LENGTH 1.
FIELD-SYMBOLS: FIELD-SYMBOLS:
<ls_dependency_rule> TYPE any, <ls_dependency_rule> TYPE any,
@ -273,7 +289,20 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
li_wb_object_operator = get_wb_object_operator( ). li_wb_object_operator = get_wb_object_operator( ).
TRY. TRY.
CREATE OBJECT li_object_data_model TYPE ('CL_BLUE_SOURCE_OBJECT_DATA2'). CALL FUNCTION 'CHECK_EXIST_CLAS'
EXPORTING
name = 'CL_DRUL_WB_OBJECT_DATA'
IMPORTING
exist = lv_drul_object_data_clas_exist
EXCEPTIONS
tr_invalid_type = 1
OTHERS = 2.
IF sy-subrc = 0 AND lv_drul_object_data_clas_exist = abap_true.
CREATE OBJECT li_object_data_model TYPE ('CL_DRUL_WB_OBJECT_DATA').
ELSE.
CREATE OBJECT li_object_data_model TYPE ('CL_BLUE_SOURCE_OBJECT_DATA').
ENDIF.
ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE <ls_dependency_rule> ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE <ls_dependency_rule>
TO <lv_source>. TO <lv_source>.