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

TABU: Add "jump" to SE16 (#5459)

Browse Source 
* TABU: Add "jump" to SE16

When using "Data Cofiguration" you can now jump from the repo view to the data browser (`se16`).

* Simplify

Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard 2022-04-08 15:39:03 +02:00 committed by GitHub
parent e6378ac17f
commit 63a87fa6e7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 37 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/data/zcl_abapgit_data_utils.clas.abap
View File

@ -1,6 +1,6 @@
CLASS zcl_abapgit_data_utils DEFINITION CLASS zcl_abapgit_data_utils DEFINITION
PUBLIC PUBLIC
CREATE PUBLIC . CREATE PUBLIC.
PUBLIC SECTION. PUBLIC SECTION.
@ -10,12 +10,19 @@ CLASS zcl_abapgit_data_utils DEFINITION
RETURNING RETURNING
VALUE(rr_data) TYPE REF TO data VALUE(rr_data) TYPE REF TO data
RAISING RAISING
zcx_abapgit_exception . zcx_abapgit_exception.
CLASS-METHODS build_filename CLASS-METHODS build_filename
IMPORTING IMPORTING
!is_config TYPE zif_abapgit_data_config=>ty_config !is_config TYPE zif_abapgit_data_config=>ty_config
RETURNING RETURNING
VALUE(rv_filename) TYPE string . VALUE(rv_filename) TYPE string.
CLASS-METHODS jump
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING
VALUE(rv_exit) TYPE abap_bool
RAISING
zcx_abapgit_exception.
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
ENDCLASS. ENDCLASS.
@ -91,4 +98,25 @@ CLASS zcl_abapgit_data_utils IMPLEMENTATION.
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
METHOD jump.
" Run SE16 with authorization check
CALL FUNCTION 'RS_TABLE_LIST_CREATE'
EXPORTING
table_name = is_item-obj_name
EXCEPTIONS
table_is_structure = 1
table_not_exists = 2
db_not_exists = 3
no_permission = 4
no_change_allowed = 5
table_is_gtt = 6
OTHERS = 7.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Table { is_item-obj_name } cannot be displayed| ).
ENDIF.
ENDMETHOD.
ENDCLASS. ENDCLASS.

6
src/ui/zcl_abapgit_gui_router.clas.abap
View File

@ -131,7 +131,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_ROUTER IMPLEMENTATION. CLASS zcl_abapgit_gui_router IMPLEMENTATION.
METHOD abapgit_services_actions. METHOD abapgit_services_actions.
@ -681,7 +681,11 @@ CLASS ZCL_ABAPGIT_GUI_ROUTER IMPLEMENTATION.
TRY. TRY.
" Hide HTML Viewer in dummy screen0 for direct CALL SCREEN to work " Hide HTML Viewer in dummy screen0 for direct CALL SCREEN to work
li_html_viewer->set_visiblity( abap_false ). li_html_viewer->set_visiblity( abap_false ).
IF ls_item-obj_type = zif_abapgit_data_config=>c_data_type-tabu.
zcl_abapgit_data_utils=>jump( ls_item ).
ELSE.
zcl_abapgit_objects=>jump( ls_item ). zcl_abapgit_objects=>jump( ls_item ).
ENDIF.
li_html_viewer->set_visiblity( abap_true ). li_html_viewer->set_visiblity( abap_true ).
CATCH zcx_abapgit_exception INTO lx_ex. CATCH zcx_abapgit_exception INTO lx_ex.
li_html_viewer->set_visiblity( abap_true ). li_html_viewer->set_visiblity( abap_true ).