mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
29 lines
663 B
ABAP
29 lines
663 B
ABAP
class zcl_abapgit_object_cota 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_cota IMPLEMENTATION.
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
SELECT SINGLE changedby FROM ('sapcontargethead')
|
|
WHERE id = @ms_item-obj_name AND version = 'I'
|
|
INTO @rv_user.
|
|
|
|
IF rv_user IS INITIAL.
|
|
SELECT SINGLE changedby FROM ('sapcontargethead')
|
|
WHERE id = @ms_item-obj_name AND version = 'A'
|
|
INTO @rv_user.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|