Refactor: package, add read_responsible() (#6083)

src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap

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

src/objects/core/zcl_abapgit_file_status.clas.testclasses.abap

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

src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap

@@ -68,6 +68,10 @@ CLASS ltcl_folder_logic_package IMPLEMENTATION.
     INSERT lv_devclass INTO TABLE rt_list.
   ENDMETHOD.
 
+  METHOD zif_abapgit_sap_package~read_responsible.
+    RETURN.
+  ENDMETHOD.
+
   METHOD zif_abapgit_sap_package~read_description.
     RETURN.
   ENDMETHOD.
@@ -155,6 +159,10 @@ CLASS ltcl_folder_logic IMPLEMENTATION.
     INSERT lv_devclass INTO TABLE rt_list.
   ENDMETHOD.
 
+  METHOD zif_abapgit_sap_package~read_responsible.
+    RETURN.
+  ENDMETHOD.
+
   METHOD zif_abapgit_sap_package~list_superpackages.
     RETURN.
   ENDMETHOD.
@@ -365,6 +373,10 @@ CLASS ltcl_folder_logic_namespaces IMPLEMENTATION.
     INSERT lv_devclass INTO TABLE rt_list.
   ENDMETHOD.
 
+  METHOD zif_abapgit_sap_package~read_responsible.
+    RETURN.
+  ENDMETHOD.
+
   METHOD zif_abapgit_sap_package~read_description.
     RETURN.
   ENDMETHOD.
@@ -496,6 +508,10 @@ ENDCLASS.
 
 CLASS ltcl_folder_logic_no_parent IMPLEMENTATION.
 
+  METHOD zif_abapgit_sap_package~read_responsible.
+    RETURN.
+  ENDMETHOD.
+
   METHOD zif_abapgit_sap_package~read_description.
     RETURN.
   ENDMETHOD.

src/repo/zcl_abapgit_repo_srv.clas.abap

@@ -669,9 +669,8 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION.
     zcl_abapgit_sap_package=>validate_name( iv_package ).
 
     " Check if package owned by SAP is allowed (new packages are ok, since they are created automatically)
-    SELECT SINGLE as4user FROM tdevc
+    lv_as4user = zcl_abapgit_factory=>get_sap_package( iv_package )->read_responsible( ).
-      INTO lv_as4user
+
-      WHERE devclass = iv_package.                      "#EC CI_GENBUFF
     IF sy-subrc = 0 AND lv_as4user = 'SAP' AND
       zcl_abapgit_factory=>get_environment( )->is_sap_object_allowed( ) = abap_false.
       zcx_abapgit_exception=>raise( |Package { iv_package } not allowed, responsible user = 'SAP'| ).

src/ui/routing/zcl_abapgit_services_basis.clas.testclasses.abap

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

src/zcl_abapgit_sap_package.clas.abap

@@ -399,4 +399,11 @@ CLASS zcl_abapgit_sap_package IMPLEMENTATION.
     ENDIF.
 
   ENDMETHOD.
+
+  METHOD zif_abapgit_sap_package~read_responsible.
+    SELECT SINGLE as4user FROM tdevc
+      INTO rv_responsible
+      WHERE devclass = mv_package ##SUBRC_OK. "#EC CI_GENBUFF
+  ENDMETHOD.
+
 ENDCLASS.

src/zif_abapgit_sap_package.intf.abap

@@ -31,6 +31,11 @@ INTERFACE zif_abapgit_sap_package
       VALUE(rv_description) TYPE string
     RAISING
       zcx_abapgit_exception .
+  METHODS read_responsible
+    RETURNING
+      VALUE(rv_responsible) TYPE usnam
+    RAISING
+      zcx_abapgit_exception .
   METHODS create_child
     IMPORTING
       !iv_child TYPE devclass