SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Update zcl_abapgit_object_cota.clas.abap

Browse Source
This commit is contained in:
Ben9ka 2025-02-05 12:16:55 +01:00 committed by GitHub
parent 4a53133ef6
commit 82568c2545
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/objects/aff/zcl_abapgit_object_cota.clas.abap
View File

@ -4,10 +4,10 @@ CLASS zcl_abapgit_object_cota DEFINITION
FINAL
CREATE PUBLIC .
public section.
PUBLIC SECTION.
METHODS zif_abapgit_object~changed_by REDEFINITION.
protected section.
private section.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
@ -15,14 +15,19 @@ 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.
DATA lx_error TYPE REF TO cx_root.
TRY.
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.
IF rv_user IS INITIAL.
SELECT SINGLE changedby FROM ('sapcontargethead')
WHERE id = @ms_item-obj_name AND version = 'A'
INTO @rv_user.
ENDIF.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ENDMETHOD.
ENDCLASS.