From 1a58b1d6144405bb5020742cbb1957e17d61c18b Mon Sep 17 00:00:00 2001
From: sshlapak <ssv102011@gmail.com>
Date: Thu, 19 May 2016 00:23:50 +0300
Subject: [PATCH 1/4] GUI BACK

---
 zabapgit.prog.abap | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap
index 1f9f86ae3..c5757154d 100644
--- a/zabapgit.prog.abap
+++ b/zabapgit.prog.abap
@@ -15389,6 +15389,7 @@ CLASS lcl_gui DEFINITION FINAL.
       RAISING lcx_exception.
 
     CLASS-METHODS back
+      RETURNING VALUE(r_exit) TYPE xfeld
       RAISING lcx_exception.
 
     CLASS-METHODS call_page
@@ -17580,6 +17581,7 @@ CLASS lcl_gui IMPLEMENTATION.
     lv_index = lines( gt_stack ).
 
     IF lv_index = 0.
+      r_exit = 'X'.
       RETURN.
     ENDIF.
 
@@ -22102,4 +22104,11 @@ CLASS ltcl_git_porcelain IMPLEMENTATION.
 
   ENDMETHOD.
 
-ENDCLASS.
\ No newline at end of file
+ENDCLASS.
+AT SELECTION-SCREEN ON EXIT-COMMAND.
+  CASE sy-ucomm.
+    WHEN 'CBAC'.  "Back
+      IF lcl_gui=>back( ) IS INITIAL.
+        LEAVE TO SCREEN 1001.
+      ENDIF.
+  ENDCASE.
\ No newline at end of file

From b71122d809a0610091eae2488e94f85f88b1ff0f Mon Sep 17 00:00:00 2001
From: atsy <atsybulsky@sbcg.com.ua>
Date: Thu, 19 May 2016 21:32:03 +0200
Subject: [PATCH 2/4] remove old back link from DIFF page

---
 zabapgit.prog.abap | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap
index c5757154d..569805c3a 100644
--- a/zabapgit.prog.abap
+++ b/zabapgit.prog.abap
@@ -18061,8 +18061,6 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
   METHOD lif_gui_page~on_event.
 
     CASE iv_action.
-      WHEN 'back'.
-        lcl_gui=>back( ).
       WHEN OTHERS.
         _raise 'Unknown action'.                            "#EC NOTEXT
     ENDCASE.
@@ -18081,9 +18079,6 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
     "TODO: crutch, redo later after unification
     REPLACE FIRST OCCURRENCE OF '</style>' IN lv_html
       WITH '</style>' && styles( )->mv_html.
-
-    "TODO: crutch, move to SAP back button (code almost ready)
-    lv_html = lv_html && '<div>' && '<a href="sapevent:back">Back</a>' && '</div>'.
     ro_html->add( lv_html ).
 * ^^^ REDO
 
@@ -22105,6 +22100,8 @@ CLASS ltcl_git_porcelain IMPLEMENTATION.
   ENDMETHOD.
 
 ENDCLASS.
+
+* SAP back command re-direction
 AT SELECTION-SCREEN ON EXIT-COMMAND.
   CASE sy-ucomm.
     WHEN 'CBAC'.  "Back

From c9f100f6d3977c436404a9eb9c9f7c220a96a0d9 Mon Sep 17 00:00:00 2001
From: sshlapak <ssv102011@gmail.com>
Date: Fri, 20 May 2016 08:52:34 +0300
Subject: [PATCH 3/4] Exclude Execute button has been added

---
 zabapgit.prog.abap | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap
index c5757154d..f63df6888 100644
--- a/zabapgit.prog.abap
+++ b/zabapgit.prog.abap
@@ -22105,6 +22105,21 @@ CLASS ltcl_git_porcelain IMPLEMENTATION.
   ENDMETHOD.
 
 ENDCLASS.
+
+AT SELECTION-SCREEN OUTPUT.
+"Hide Execute button from screen
+  DATA: lt_ucomm TYPE TABLE OF sy-ucomm.
+  PERFORM set_pf_status IN PROGRAM rsdbrunt IF FOUND.
+
+  APPEND: 'CRET' TO lt_ucomm.  "Button Execute
+
+  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
+    EXPORTING
+      p_status  = sy-pfkey
+    TABLES
+      p_exclude = lt_ucomm.
+	  
+* SAP back command re-direction
 AT SELECTION-SCREEN ON EXIT-COMMAND.
   CASE sy-ucomm.
     WHEN 'CBAC'.  "Back

From 4e21e84b4a9eada4da6cd7d68102e70fbc8f5704 Mon Sep 17 00:00:00 2001
From: atsy <atsybulsky@sbcg.com.ua>
Date: Sat, 21 May 2016 09:03:09 +0200
Subject: [PATCH 4/4] remove whitespace @22318

---
 zabapgit.prog.abap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap
index 5c2ea1e24..a13bb559e 100644
--- a/zabapgit.prog.abap
+++ b/zabapgit.prog.abap
@@ -22315,7 +22315,7 @@ AT SELECTION-SCREEN OUTPUT.
     EXPORTING
       p_status  = sy-pfkey
     TABLES
-      p_exclude = lt_ucomm. 
+      p_exclude = lt_ucomm.
 
 * SAP back command re-direction
 AT SELECTION-SCREEN ON EXIT-COMMAND.