From b1c2553740eb806a795170164170380ff1852b68 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Sun, 23 Jul 2017 08:14:24 +0000
Subject: [PATCH] allow sap objects, #738

---
 src/zabapgit_exit.prog.abap      |  8 +++++++-
 src/zabapgit_repo_impl.prog.abap | 11 ++++++++---
 2 files changed, 15 insertions(+), 4 deletions(-)

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.