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

GUI BACK

Browse Source
This commit is contained in:
sshlapak 2016-05-19 00:23:50 +03:00
parent 0953275b3a
commit 1a58b1d614
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
zabapgit.prog.abap
View File

@ -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.
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.