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

decouple emergency mode from ui core (#6364)

Browse Source
This commit is contained in:
Lars Hvam 2023-07-22 15:45:12 +02:00 committed by GitHub
parent af1a58d2e6
commit 6369c57c56
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ui/core/zcl_abapgit_gui.clas.abap
View File

@ -17,12 +17,9 @@ CLASS zcl_abapgit_gui DEFINITION
go_back_to_bookmark TYPE i VALUE 6,
new_page_replacing TYPE i VALUE 7,
END OF c_event_state .
CONSTANTS:
BEGIN OF c_action,
go_home TYPE string VALUE zif_abapgit_definitions=>c_action-go_home,
go_db TYPE string VALUE zif_abapgit_definitions=>c_action-go_db,
END OF c_action .
METHODS go_home
IMPORTING
iv_action TYPE string
RAISING
zcx_abapgit_exception .
METHODS back
@ -256,14 +253,8 @@ CLASS ZCL_ABAPGIT_GUI IMPLEMENTATION.
IF mi_router IS BOUND.
CLEAR: mt_stack, mt_event_handlers.
APPEND mi_router TO mt_event_handlers.
" on_event doesn't accept strings directly
GET PARAMETER ID 'DBT' FIELD lv_mode.
CASE lv_mode.
WHEN 'ZABAPGIT'.
on_event( action = |{ c_action-go_db }| ).
WHEN OTHERS.
on_event( action = |{ c_action-go_home }| ).
ENDCASE.
on_event( action = |{ iv_action }| ).
ELSE.
IF lines( mt_stack ) > 0.
READ TABLE mt_stack INTO ls_stack INDEX 1.

14
src/zabapgit_forms.prog.abap
View File

@ -24,12 +24,24 @@ ENDFORM. "run
FORM open_gui RAISING zcx_abapgit_exception.
DATA lv_action TYPE string.
DATA lv_mode TYPE tabname.
IF sy-batch = abap_true.
zcl_abapgit_background=>run( ).
ELSE.
* https://docs.abapgit.org/user-guide/reference/database-util.html#emergency-mode
GET PARAMETER ID 'DBT' FIELD lv_mode.
CASE lv_mode.
WHEN 'ZABAPGIT'.
lv_action = zif_abapgit_definitions=>c_action-go_db.
WHEN OTHERS.
lv_action = zif_abapgit_definitions=>c_action-go_home.
ENDCASE.
zcl_abapgit_services_abapgit=>prepare_gui_startup( ).
zcl_abapgit_ui_factory=>get_gui( )->go_home( ).
zcl_abapgit_ui_factory=>get_gui( )->go_home( lv_action ).
CALL SELECTION-SCREEN 1001. " trigger screen
ENDIF.