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

Extract method store_current_default_task

Browse Source
This commit is contained in:
Christian Günter 2017-11-05 22:40:41 +00:00
parent 5e59fd83ba
commit 238fdeb2e0
1 changed files with 37 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
src/zcl_abapgit_default_task.clas.abap
View File

@ -32,44 +32,26 @@ CLASS zcl_abapgit_default_task DEFINITION
DATA: mv_task_is_set_by_abapgit TYPE abap_bool,
ms_save_default_task TYPE e070use.
METHODS restore_old_default_task
RAISING
zcx_abapgit_exception.
METHODS:
store_current_default_task
RAISING
zcx_abapgit_exception,
restore_old_default_task
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_default_task IMPLEMENTATION.
METHOD constructor.
DATA: lt_e070use TYPE STANDARD TABLE OF e070use.
" Save the current default task to restore it later...
CALL FUNCTION 'TR_TASK_GET'
TABLES
tt_e070use = lt_e070use " Table of current settings
EXCEPTIONS
invalid_username = 1
invalid_category = 2
invalid_client = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TASK_GET { sy-subrc }| ).
ENDIF.
IF lines( lt_e070use ) = 0.
RETURN.
ENDIF.
READ TABLE lt_e070use INTO ms_save_default_task
INDEX 1.
store_current_default_task( ).
ENDMETHOD.
METHOD get_instance.
IF mo_instance IS NOT BOUND.
@ -239,4 +221,32 @@ CLASS zcl_abapgit_default_task IMPLEMENTATION.
ENDMETHOD.
METHOD store_current_default_task.
DATA: lt_e070use TYPE STANDARD TABLE OF e070use.
" Save the current default task to restore it later...
CALL FUNCTION 'TR_TASK_GET'
TABLES
tt_e070use = lt_e070use " Table of current settings
EXCEPTIONS
invalid_username = 1
invalid_category = 2
invalid_client = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TASK_GET { sy-subrc }| ).
ENDIF.
IF lines( lt_e070use ) = 0.
RETURN.
ENDIF.
READ TABLE lt_e070use INTO ms_save_default_task
INDEX 1.
ENDMETHOD.
ENDCLASS.