diff --git a/src/objects/zcl_abapgit_object_ddlx.clas.abap b/src/objects/zcl_abapgit_object_ddlx.clas.abap index ae232c4d6..a7a527f14 100644 --- a/src/objects/zcl_abapgit_object_ddlx.clas.abap +++ b/src/objects/zcl_abapgit_object_ddlx.clas.abap @@ -108,7 +108,46 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION. METHOD zif_abapgit_object~changed_by. - rv_user = c_user_unknown. + + DATA: + lv_object_key TYPE seu_objkey, + li_data_model TYPE REF TO if_wb_object_data_model, + li_persistence TYPE REF TO if_wb_object_persist, + lr_data TYPE REF TO data. + + FIELD-SYMBOLS: + TYPE any, + TYPE data. + + lv_object_key = ms_item-obj_name. + + TRY. + CREATE DATA lr_data + TYPE ('CL_DDLX_WB_OBJECT_DATA=>TY_OBJECT_DATA'). + ASSIGN lr_data->* TO . + + CREATE OBJECT li_data_model + TYPE ('CL_DDLX_WB_OBJECT_DATA'). + + li_persistence = get_persistence( ). + + li_persistence->get( + EXPORTING + p_object_key = lv_object_key + p_version = swbm_version_active + CHANGING + p_object_data = li_data_model ). + CATCH cx_root. + rv_user = c_user_unknown. + RETURN. + ENDTRY. + + li_data_model->get_data( IMPORTING p_data = ). + + ASSIGN COMPONENT 'METADATA-CHANGED_BY' OF STRUCTURE TO . + ASSERT sy-subrc = 0. + rv_user = . + ENDMETHOD.