From c9f100f6d3977c436404a9eb9c9f7c220a96a0d9 Mon Sep 17 00:00:00 2001 From: sshlapak Date: Fri, 20 May 2016 08:52:34 +0300 Subject: [PATCH] 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