From 3aeea33c49eb1e102fae8e71047ca143a6fd6a74 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Fri, 19 Dec 2014 09:15:30 +0100
Subject: [PATCH] check client, close #41

---
 zabapgit.abap | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/zabapgit.abap b/zabapgit.abap
index d456ba276..694acfef2 100644
--- a/zabapgit.abap
+++ b/zabapgit.abap
@@ -3,7 +3,7 @@ REPORT zabapgit.
 * See https://github.com/larshp/abapGit/
 
 CONSTANTS: gc_xml_version  TYPE string VALUE 'v0.2-alpha',  "#EC NOTEXT
-           gc_abap_version TYPE string VALUE 'v0.8'.        "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v0.9'.        "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)
@@ -7760,7 +7760,8 @@ ENDCLASS.                    "lcl_gui IMPLEMENTATION
 *----------------------------------------------------------------------*
 FORM run.
 
-  DATA: lx_exception TYPE REF TO lcx_exception.
+  DATA: lx_exception TYPE REF TO lcx_exception,
+        lv_ind       TYPE t000-ccnocliind.
 
 
   IF sy-langu <> 'E'.
@@ -7768,6 +7769,12 @@ FORM run.
     RETURN.
   ENDIF.
 
+  SELECT SINGLE ccnocliind FROM t000 INTO lv_ind WHERE mandt = sy-mandt.
+  IF sy-subrc = 0 AND lv_ind <> ' ' AND lv_ind <> '1'. " check changes allowed
+    WRITE: / 'Wrong client, changes to repository objects not allowed'. "#EC NOTEXT
+    RETURN.
+  ENDIF.
+
   TRY.
       lcl_gui=>run( ).
     CATCH lcx_exception INTO lx_exception.