diff --git a/src/zabapgit_exit.prog.abap b/src/zabapgit_exit.prog.abap index b42ff300b..2d1136d42 100644 --- a/src/zabapgit_exit.prog.abap +++ b/src/zabapgit_exit.prog.abap @@ -6,7 +6,9 @@ INTERFACE lif_exit. METHODS: change_local_host - CHANGING ct_hosts TYPE lif_defs=>ty_icm_sinfo2_tt. + CHANGING ct_hosts TYPE lif_defs=>ty_icm_sinfo2_tt, + allow_sap_objects + RETURNING VALUE(rv_allowed) TYPE abap_bool. ENDINTERFACE. @@ -42,4 +44,8 @@ CLASS lcl_exit IMPLEMENTATION. RETURN. ENDMETHOD. + METHOD lif_exit~allow_sap_objects. + rv_allowed = abap_false. + ENDMETHOD. + ENDCLASS. diff --git a/src/zabapgit_repo_impl.prog.abap b/src/zabapgit_repo_impl.prog.abap index eaedd802a..a639baafd 100644 --- a/src/zabapgit_repo_impl.prog.abap +++ b/src/zabapgit_repo_impl.prog.abap @@ -908,9 +908,14 @@ CLASS lcl_repo_srv IMPLEMENTATION. lcx_exception=>raise( 'not possible to use $TMP, create new (local) package' ). ENDIF. - SELECT SINGLE devclass FROM tdevc INTO lv_devclass - WHERE devclass = iv_package - AND as4user <> 'SAP'. "#EC CI_GENBUFF + IF lcl_exit=>get_instance( )->allow_sap_objects( ) = abap_true. + SELECT SINGLE devclass FROM tdevc INTO lv_devclass + WHERE devclass = iv_package. "#EC CI_GENBUFF + ELSE. + SELECT SINGLE devclass FROM tdevc INTO lv_devclass + WHERE devclass = iv_package + AND as4user <> 'SAP'. "#EC CI_GENBUFF + ENDIF. IF sy-subrc <> 0. lcx_exception=>raise( 'package not found or not allowed' ). ENDIF.