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

Debug info: Fix exit list in standalone

Browse Source 
Resolve includes that are included in the exit for the standalone version.

Before:


After:
This commit is contained in:
Marc Bernard 2025-04-04 11:28:31 +00:00
parent db0526a3b8
commit 85f32383d7
1 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/ui/pages/zcl_abapgit_gui_page_debuginfo.clas.abap
View File

@ -62,6 +62,10 @@ CLASS zcl_abapgit_gui_page_debuginfo DEFINITION
!iv_obj_name TYPE csequence !iv_obj_name TYPE csequence
RETURNING RETURNING
VALUE(rv_html) TYPE string . VALUE(rv_html) TYPE string .
METHODS resolve_exit_include
CHANGING
!cv_clsname TYPE seoclsname
!ct_source TYPE string_table.
ENDCLASS. ENDCLASS.
@ -187,10 +191,16 @@ CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
" Standalone version " Standalone version
lt_source = zcl_abapgit_factory=>get_sap_report( )->read_report( c_exit_standalone ). lt_source = zcl_abapgit_factory=>get_sap_report( )->read_report( c_exit_standalone ).
IF sy-subrc = 0. IF sy-subrc = 0.
resolve_exit_include(
CHANGING
cv_clsname = ls_class_key-clsname
ct_source = lt_source ).
ri_html->add( |<div>User exits are active (include { get_jump_object( ri_html->add( |<div>User exits are active (include { get_jump_object(
iv_obj_type = 'PROG' iv_obj_type = 'PROG'
iv_obj_name = c_exit_standalone ) } found)</div><br>| ). iv_obj_name = c_exit_standalone ) } found)</div><br>| ).
ri_html->add( render_exit_info_methods( lt_source ) ). ri_html->add( render_exit_info_methods(
it_source = lt_source
iv_clsname = to_upper( ls_class_key-clsname ) ) ).
ELSE. ELSE.
ri_html->add( |<div>No user exits implemented (include { c_exit_standalone } not found)</div><br>| ). ri_html->add( |<div>No user exits implemented (include { c_exit_standalone } not found)</div><br>| ).
ENDIF. ENDIF.
@ -410,6 +420,32 @@ CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD resolve_exit_include.
DATA lv_include TYPE progname.
cv_clsname = c_exit_class.
DO.
FIND REGEX 'CLASS (.*) DEFINITION' IN TABLE ct_source SUBMATCHES cv_clsname IGNORING CASE.
IF sy-subrc = 0.
RETURN.
ENDIF.
FIND REGEX 'INCLUDE (.*)\.' IN TABLE ct_source SUBMATCHES lv_include IGNORING CASE.
IF sy-subrc = 0.
TRY.
ct_source = zcl_abapgit_factory=>get_sap_report( )->read_report( lv_include ).
CATCH zcx_abapgit_exception.
RETURN. " rely on original include
ENDTRY.
ELSE.
RETURN.
ENDIF.
ENDDO.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event. METHOD zif_abapgit_gui_event_handler~on_event.
DATA: DATA: