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

check client, close #41

Browse Source
This commit is contained in:
Lars Hvam 2014-12-19 09:15:30 +01:00
parent 3316f73dd2
commit 3aeea33c49
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
zabapgit.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See https://github.com/larshp/abapGit/ * See https://github.com/larshp/abapGit/
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT 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) * The MIT License (MIT)
@ -7760,7 +7760,8 @@ ENDCLASS. "lcl_gui IMPLEMENTATION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
FORM run. 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'. IF sy-langu <> 'E'.
@ -7768,6 +7769,12 @@ FORM run.
RETURN. RETURN.
ENDIF. 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. TRY.
lcl_gui=>run( ). lcl_gui=>run( ).
CATCH lcx_exception INTO lx_exception. CATCH lcx_exception INTO lx_exception.