SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

zcl_abapgit_cts_api: extract E070 select to CTS api (#6116)

Browse Source
This commit is contained in:
Lars Hvam 2023-03-02 13:55:41 +01:00 committed by GitHub
parent f1d01e394f
commit bad06fd594
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/cts/zcl_abapgit_cts_api.clas.abap
View File

@ -80,7 +80,7 @@ ENDCLASS.
CLASS zcl_abapgit_cts_api IMPLEMENTATION.
CLASS ZCL_ABAPGIT_CTS_API IMPLEMENTATION.
METHOD get_current_transport_for_obj.
@ -335,4 +335,12 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION.
AND langu = sy-langu ##SUBRC_OK.
ENDMETHOD.
METHOD zif_abapgit_cts_api~read_user.
SELECT SINGLE as4user FROM e070 INTO rv_uname
WHERE trkorr = iv_trkorr ##SUBRC_OK.
ENDMETHOD.
ENDCLASS.

6
src/cts/zif_abapgit_cts_api.intf.abap
View File

@ -54,4 +54,10 @@ INTERFACE zif_abapgit_cts_api
RETURNING
VALUE(rv_description) TYPE string.
METHODS read_user
IMPORTING
iv_trkorr TYPE trkorr
RETURNING
VALUE(rv_uname) TYPE uname.
ENDINTERFACE.

7
src/ui/pages/zcl_abapgit_gui_page_stage.clas.abap
View File

@ -243,7 +243,7 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_STAGE IMPLEMENTATION.
lt_changed_by_remote LIKE rt_changed_by,
ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_transport LIKE LINE OF it_transports,
lv_user TYPE e070-as4user.
lv_user TYPE uname.
FIELD-SYMBOLS: <ls_changed_by> LIKE LINE OF rt_changed_by.
@ -279,9 +279,8 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_STAGE IMPLEMENTATION.
obj_name = <ls_changed_by>-item-obj_name
INTO lv_transport.
IF sy-subrc = 0.
SELECT SINGLE as4user FROM e070 INTO lv_user
WHERE trkorr = lv_transport-trkorr.
IF sy-subrc = 0.
lv_user = zcl_abapgit_factory=>get_cts_api( )->read_user( lv_transport-trkorr ).
IF lv_user IS NOT INITIAL.
<ls_changed_by>-name = lv_user.
ENDIF.
ENDIF.