mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 04:08:27 +08:00
713c258ff8
Co-authored-by: Lars Hvam <larshp@hotmail.com> Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com>
39 lines
849 B
ABAP
39 lines
849 B
ABAP
CLASS zcl_abapgit_object_sajc 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_SAJC IMPLEMENTATION.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
|
|
CONSTANTS lc_table_name TYPE tabname VALUE 'APJ_W_JCE_ROOT'.
|
|
|
|
SELECT SINGLE lst_ch_user_acct
|
|
FROM (lc_table_name)
|
|
INTO rv_user
|
|
WHERE job_catalog_entry_name = ms_item-obj_name
|
|
AND job_catalog_entry_version = 'I'.
|
|
|
|
IF rv_user IS INITIAL.
|
|
SELECT SINGLE lst_ch_user_acct
|
|
FROM (lc_table_name)
|
|
INTO rv_user
|
|
WHERE job_catalog_entry_name = ms_item-obj_name
|
|
AND job_catalog_entry_version = 'A'.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|