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

Add support pack to debug info (#4779)

Browse Source 
* Add support pack to debug info

* Add get_basis_release

* Lint

* Structure

Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard 2021-05-20 11:30:05 +02:00 committed by GitHub
parent 85cdff8de7
commit e42e502d7d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ui/zcl_abapgit_gui_page_debuginfo.clas.abap
View File

@ -125,6 +125,7 @@ CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
DATA: lt_ver_tab TYPE filetable,
lv_rc TYPE i,
ls_release TYPE zif_abapgit_environment=>ty_release_sp,
lv_gui_version TYPE string,
ls_version LIKE LINE OF lt_ver_tab,
lv_devclass TYPE devclass.
@ -161,6 +162,8 @@ CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
iv_typ = zif_abapgit_html=>c_action_type-url ).
ri_html->add( '</div>' ).
ls_release = zcl_abapgit_factory=>get_environment( )->get_basis_release( ).
ri_html->add( '<h2>Environment</h2>' ).
ri_html->add( |<table>| ).
@ -171,7 +174,7 @@ CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
zcl_abapgit_apack_migration=>c_apack_interface_version }</td></tr>| ).
ri_html->add( |<tr><td>LCL_TIME: </td><td>{ zcl_abapgit_time=>get_unix( ) }</td></tr>| ).
ri_html->add( |<tr><td>SY time: </td><td>{ sy-datum } { sy-uzeit } { sy-tzone }</td></tr>| ).
ri_html->add( |<tr><td>SY release: </td><td>{ sy-saprl }</td></tr>| ).
ri_html->add( |<tr><td>SY release: </td><td>{ ls_release-release } SP { ls_release-sp }</td></tr>| ).
ri_html->add( |</table>| ).
ri_html->add( |<br>| ).

8
src/zcl_abapgit_environment.clas.abap
View File

@ -81,6 +81,14 @@ CLASS zcl_abapgit_environment IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_environment~get_basis_release.
SELECT SINGLE release extrelease FROM cvers INTO (rs_result-release, rs_result-sp)
WHERE component = 'SAP_BASIS' ##SUBRC_OK.
ENDMETHOD.
METHOD zif_abapgit_environment~is_merged.
DATA lr_marker TYPE REF TO data ##NEEDED.

9
src/zif_abapgit_environment.intf.abap
View File

@ -1,5 +1,11 @@
INTERFACE zif_abapgit_environment
PUBLIC.
TYPES:
BEGIN OF ty_release_sp,
release TYPE c LENGTH 10,
sp TYPE c LENGTH 10,
END OF ty_release_sp.
METHODS is_sap_cloud_platform
RETURNING
VALUE(rv_result) TYPE abap_bool.
@ -18,4 +24,7 @@ INTERFACE zif_abapgit_environment
METHODS is_sap_object_allowed
RETURNING
VALUE(rv_allowed) TYPE abap_bool.
METHODS get_basis_release
RETURNING
VALUE(rs_result) TYPE ty_release_sp.
ENDINTERFACE.