mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
86 lines
2.3 KiB
ABAP
86 lines
2.3 KiB
ABAP
CLASS zcl_abapgit_object_uiad DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM zcl_abapgit_object_common_aff
|
|
FINAL
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
METHODS zif_abapgit_object~changed_by
|
|
REDEFINITION .
|
|
METHODS constructor
|
|
IMPORTING
|
|
is_item TYPE zif_abapgit_definitions=>ty_item
|
|
iv_language TYPE spras
|
|
io_files TYPE REF TO zcl_abapgit_objects_files OPTIONAL
|
|
io_i18n_params TYPE REF TO zcl_abapgit_i18n_params OPTIONAL
|
|
RAISING
|
|
zcx_abapgit_type_not_supported.
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_object_uiad IMPLEMENTATION.
|
|
|
|
METHOD constructor.
|
|
|
|
DATA: lo_db_api TYPE REF TO object,
|
|
lr_data TYPE REF TO data.
|
|
|
|
super->constructor(
|
|
is_item = is_item
|
|
iv_language = iv_language
|
|
io_files = io_files
|
|
io_i18n_params = io_i18n_params ).
|
|
|
|
TRY.
|
|
CALL METHOD ('CL_SUI_UIAD_DB_ACCESS')=>('GET_INSTANCE')
|
|
RECEIVING
|
|
ro_instance = lo_db_api.
|
|
CREATE DATA lr_data TYPE ('CL_BLUE_AFF_WB_ACCESS=>TY_METADATA').
|
|
CATCH cx_sy_dyn_call_error
|
|
cx_sy_create_data_error.
|
|
RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = is_item-obj_type.
|
|
ENDTRY.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
|
|
DATA: lo_db_api TYPE REF TO object,
|
|
lr_data TYPE REF TO data,
|
|
lv_object_key TYPE c LENGTH 32,
|
|
lx_root TYPE REF TO cx_root.
|
|
|
|
FIELD-SYMBOLS: <ls_metadata> TYPE any,
|
|
<lv_changed_by> TYPE any.
|
|
|
|
CALL METHOD ('CL_SUI_UIAD_DB_ACCESS')=>('GET_INSTANCE')
|
|
RECEIVING
|
|
ro_instance = lo_db_api.
|
|
CREATE DATA lr_data TYPE ('CL_BLUE_AFF_WB_ACCESS=>TY_METADATA').
|
|
ASSIGN lr_data->* TO <ls_metadata>.
|
|
|
|
TRY.
|
|
lv_object_key = ms_item-obj_name.
|
|
CALL METHOD lo_db_api->('IF_SUI_UIAD_DB_ACCESS~READ_WB_METADATA')
|
|
EXPORTING
|
|
iv_id = lv_object_key
|
|
iv_version = 'A'
|
|
iv_language = mv_language
|
|
RECEIVING
|
|
rs_metadata = <ls_metadata>.
|
|
|
|
ASSIGN COMPONENT 'CHANGED_BY' OF STRUCTURE <ls_metadata> TO <lv_changed_by>.
|
|
rv_user = <lv_changed_by>.
|
|
|
|
CATCH cx_root INTO lx_root.
|
|
zcx_abapgit_exception=>raise_with_text( lx_root ).
|
|
ENDTRY.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|