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

Merge pull request #850 from larshp/issue_738

Browse Source 
allow sap objects, #738
This commit is contained in:
Lars Hvam 2017-07-23 10:18:19 +02:00 committed by GitHub
commit 02bc202eb6
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:
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.

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' ).
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
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.