refactor TDEVCT SELECT to SAP package class (#6081)

This commit is contained in:
Lars Hvam 2023-02-23 07:38:56 +01:00 committed by GitHub
parent 86d79f2c29
commit 17ba24e72a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
7 changed files with 42 additions and 2 deletions

View File

@ -30,6 +30,10 @@ CLASS ltcl_sap_package IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_description.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_sap_package~list_subpackages.
IF mv_package = 'Z_MAIN'.

View File

@ -65,6 +65,10 @@ ENDCLASS.
CLASS ltcl_run_checks IMPLEMENTATION.
METHOD zif_abapgit_sap_package~read_description.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_sap_package~list_subpackages.
RETURN.
ENDMETHOD.

View File

@ -68,6 +68,10 @@ CLASS ltcl_folder_logic_package IMPLEMENTATION.
INSERT lv_devclass INTO TABLE rt_list.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_description.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_sap_package~list_superpackages.
RETURN.
ENDMETHOD.
@ -155,6 +159,10 @@ CLASS ltcl_folder_logic IMPLEMENTATION.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_description.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_parent.
rv_parentcl = c_top.
ENDMETHOD.
@ -357,6 +365,10 @@ CLASS ltcl_folder_logic_namespaces IMPLEMENTATION.
INSERT lv_devclass INTO TABLE rt_list.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_description.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_sap_package~list_superpackages.
RETURN.
ENDMETHOD.
@ -484,6 +496,10 @@ ENDCLASS.
CLASS ltcl_folder_logic_no_parent IMPLEMENTATION.
METHOD zif_abapgit_sap_package~read_description.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_sap_package~list_subpackages.
RETURN.
ENDMETHOD.

View File

@ -871,8 +871,7 @@ CLASS zcl_abapgit_gui_chunk_lib IMPLEMENTATION.
ENDIF.
IF iv_suppress_title = abap_false.
SELECT SINGLE ctext FROM tdevct INTO lv_title
WHERE devclass = iv_package AND spras = sy-langu ##SUBRC_OK.
lv_title = zcl_abapgit_factory=>get_sap_package( iv_package )->read_description( ).
ENDIF.
lv_obj_name = iv_package.

View File

@ -274,6 +274,10 @@ CLASS ltcl_sap_package_mock IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_description.
ENDMETHOD.
METHOD zif_abapgit_sap_package~are_changes_recorded_in_tr_req.
ENDMETHOD.

View File

@ -382,6 +382,14 @@ CLASS zcl_abapgit_sap_package IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_description.
SELECT SINGLE ctext FROM tdevct INTO rv_description
WHERE devclass = mv_package AND spras = sy-langu ##SUBRC_OK.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_parent.
SELECT SINGLE parentcl FROM tdevc INTO rv_parentcl

View File

@ -26,6 +26,11 @@ INTERFACE zif_abapgit_sap_package
VALUE(rv_parentcl) TYPE tdevc-parentcl
RAISING
zcx_abapgit_exception .
METHODS read_description
RETURNING
VALUE(rv_description) TYPE string
RAISING
zcx_abapgit_exception .
METHODS create_child
IMPORTING
!iv_child TYPE devclass