mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 04:08:27 +08:00
46 lines
1.0 KiB
ABAP
46 lines
1.0 KiB
ABAP
CLASS zcl_abapgit_object_gsmp DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM zcl_abapgit_object_common_aff
|
|
FINAL
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
METHODS zif_abapgit_object~changed_by REDEFINITION.
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS ZCL_ABAPGIT_OBJECT_GSMP IMPLEMENTATION.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
|
|
DATA lv_name TYPE c LENGTH 180.
|
|
DATA lv_user TYPE string.
|
|
DATA lx_root TYPE REF TO cx_root.
|
|
|
|
|
|
TRY.
|
|
lv_name = ms_item-obj_name.
|
|
|
|
SELECT SINGLE changed_by INTO lv_user
|
|
FROM ('GSM_MD_PRV_W')
|
|
WHERE provider_id = lv_name AND version = 'I'.
|
|
|
|
IF lv_user IS INITIAL.
|
|
SELECT SINGLE changed_by INTO lv_user
|
|
FROM ('GSM_MD_PRV_W')
|
|
WHERE provider_id = lv_name AND version = 'A'.
|
|
ENDIF.
|
|
|
|
rv_user = lv_user.
|
|
CATCH cx_root INTO lx_root.
|
|
zcx_abapgit_exception=>raise( iv_text = lx_root->get_text( )
|
|
ix_previous = lx_root ).
|
|
ENDTRY.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|