diff --git a/src/cts/zcl_abapgit_cts_api.clas.abap b/src/cts/zcl_abapgit_cts_api.clas.abap index d9effb50b..965889e81 100644 --- a/src/cts/zcl_abapgit_cts_api.clas.abap +++ b/src/cts/zcl_abapgit_cts_api.clas.abap @@ -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. diff --git a/src/cts/zif_abapgit_cts_api.intf.abap b/src/cts/zif_abapgit_cts_api.intf.abap index ab68f05b2..e3fc5109f 100644 --- a/src/cts/zif_abapgit_cts_api.intf.abap +++ b/src/cts/zif_abapgit_cts_api.intf.abap @@ -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. diff --git a/src/ui/pages/zcl_abapgit_gui_page_stage.clas.abap b/src/ui/pages/zcl_abapgit_gui_page_stage.clas.abap index e6d73b17c..30fc154a6 100644 --- a/src/ui/pages/zcl_abapgit_gui_page_stage.clas.abap +++ b/src/ui/pages/zcl_abapgit_gui_page_stage.clas.abap @@ -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: LIKE LINE OF rt_changed_by. @@ -279,9 +279,8 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_STAGE IMPLEMENTATION. obj_name = -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. -name = lv_user. ENDIF. ENDIF.