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

allow sap objects, #738

Browse Source
This commit is contained in:
larshp 2017-07-23 08:14:24 +00:00
parent dfc66c473a
commit b1c2553740
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/zabapgit_exit.prog.abap
View File

@ -6,7 +6,9 @@ INTERFACE lif_exit.
METHODS: METHODS:
change_local_host 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. ENDINTERFACE.
@ -42,4 +44,8 @@ CLASS lcl_exit IMPLEMENTATION.
RETURN. RETURN.
ENDMETHOD. ENDMETHOD.
METHOD lif_exit~allow_sap_objects.
rv_allowed = abap_false.
ENDMETHOD.
ENDCLASS. ENDCLASS.

5
src/zabapgit_repo_impl.prog.abap
View File

@ -908,9 +908,14 @@ CLASS lcl_repo_srv IMPLEMENTATION.
lcx_exception=>raise( 'not possible to use $TMP, create new (local) package' ). lcx_exception=>raise( 'not possible to use $TMP, create new (local) package' ).
ENDIF. ENDIF.
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 SELECT SINGLE devclass FROM tdevc INTO lv_devclass
WHERE devclass = iv_package WHERE devclass = iv_package
AND as4user <> 'SAP'. "#EC CI_GENBUFF AND as4user <> 'SAP'. "#EC CI_GENBUFF
ENDIF.
IF sy-subrc <> 0. IF sy-subrc <> 0.
lcx_exception=>raise( 'package not found or not allowed' ). lcx_exception=>raise( 'package not found or not allowed' ).
ENDIF. ENDIF.