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

Refactor: SELECT e07t to CTS INTF (#6082)

Browse Source
This commit is contained in:
Lars Hvam 2023-02-24 15:22:38 +01:00 committed by GitHub
parent 826f7fd8ef
commit 9ffec8c306
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 34 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -211,6 +211,27 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_cts_api~get_r3tr_obj_for_limu_obj.
CLEAR ev_object.
CLEAR ev_obj_name.
CALL FUNCTION 'GET_R3TR_OBJECT_FROM_LIMU_OBJ'
EXPORTING
p_limu_objtype = iv_object
p_limu_objname = iv_obj_name
IMPORTING
p_r3tr_objtype = ev_object
p_r3tr_objname = ev_obj_name
EXCEPTIONS
no_mapping = 1
OTHERS = 2.
IF sy-subrc <> 0 OR ev_obj_name IS INITIAL.
zcx_abapgit_exception=>raise( |No R3TR Object found for { iv_object } { iv_obj_name }| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_cts_api~get_transports_for_list.
DATA lv_request TYPE trkorr.
@ -306,24 +327,12 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_cts_api~get_r3tr_obj_for_limu_obj.
METHOD zif_abapgit_cts_api~read_description.
CLEAR ev_object.
CLEAR ev_obj_name.
SELECT SINGLE as4text FROM e07t
INTO rv_description
WHERE trkorr = iv_trkorr
AND langu = sy-langu ##SUBRC_OK.
CALL FUNCTION 'GET_R3TR_OBJECT_FROM_LIMU_OBJ'
EXPORTING
p_limu_objtype = iv_object
p_limu_objname = iv_obj_name
IMPORTING
p_r3tr_objtype = ev_object
p_r3tr_objname = ev_obj_name
EXCEPTIONS
no_mapping = 1
OTHERS = 2.
IF sy-subrc <> 0 OR ev_obj_name IS INITIAL.
zcx_abapgit_exception=>raise( |No R3TR Object found for { iv_object } { iv_obj_name }| ).
ENDIF.
ENDMETHOD.
ENDCLASS.

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

@ -48,4 +48,10 @@ INTERFACE zif_abapgit_cts_api
RAISING
zcx_abapgit_exception .
METHODS read_description
IMPORTING
iv_trkorr TYPE trkorr
RETURNING
VALUE(rv_description) TYPE string.
ENDINTERFACE.

3
src/ui/lib/zcl_abapgit_gui_chunk_lib.clas.abap
View File

@ -1237,8 +1237,7 @@ CLASS zcl_abapgit_gui_chunk_lib IMPLEMENTATION.
RETURN.
ENDIF.
SELECT SINGLE as4text FROM e07t INTO lv_title
WHERE trkorr = iv_transport AND langu = sy-langu ##SUBRC_OK.
lv_title = zcl_abapgit_factory=>get_cts_api( )->read_description( iv_transport ).
lv_jump = |{ zif_abapgit_definitions=>c_action-jump_transport }?transport={ iv_transport }|.

4
src/ui/zcl_abapgit_popups.clas.abap
View File

@ -1077,9 +1077,7 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
IF lines( it_transport_headers ) = 1.
READ TABLE it_transport_headers INDEX 1 INTO ls_transport_header.
lv_transports_as_text = ls_transport_header-trkorr.
SELECT SINGLE as4text FROM e07t INTO lv_desc_as_text WHERE
trkorr = ls_transport_header-trkorr AND
langu = sy-langu.
lv_desc_as_text = zcl_abapgit_factory=>get_cts_api( )->read_description( ls_transport_header-trkorr ).
ELSE. " Else set branch name and commit message to 'Transport(s)_TRXXXXXX_TRXXXXX'
lv_transports_as_text = 'Transport(s)'.
LOOP AT it_transport_headers INTO ls_transport_header.