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

Log: show ALV popup

Browse Source
This commit is contained in:
Christian Guenter 2018-05-13 09:52:42 +00:00 committed by Christian Guenter
parent 5a69d26a26
commit 542e290450
1 changed files with 87 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

106
src/utils/zcl_abapgit_log.clas.abap
View File

@ -22,15 +22,27 @@ CLASS zcl_abapgit_log DEFINITION PUBLIC CREATE PUBLIC.
msg TYPE string, msg TYPE string,
type TYPE symsgty, type TYPE symsgty,
rc TYPE balsort, rc TYPE balsort,
END OF ty_log. END OF ty_log,
BEGIN OF ty_log_out,
type TYPE icon_d,
msg TYPE string,
END OF ty_log_out,
tty_log_out TYPE STANDARD TABLE OF ty_log_out
WITH NON-UNIQUE DEFAULT KEY.
DATA: mt_log TYPE STANDARD TABLE OF ty_log WITH DEFAULT KEY. DATA: mt_log TYPE STANDARD TABLE OF ty_log WITH DEFAULT KEY.
METHODS:
prepare_log_for_display
RETURNING
VALUE(rt_log_out) TYPE zcl_abapgit_log=>tty_log_out.
ENDCLASS. ENDCLASS.
CLASS ZCL_ABAPGIT_LOG IMPLEMENTATION. CLASS zcl_abapgit_log IMPLEMENTATION.
METHOD add. METHOD add.
@ -61,28 +73,84 @@ CLASS ZCL_ABAPGIT_LOG IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD prepare_log_for_display.
DATA: ls_log TYPE ty_log_out.
FIELD-SYMBOLS: <ls_log> TYPE ty_log.
LOOP AT mt_log ASSIGNING <ls_log>.
CLEAR: ls_log.
ls_log-msg = <ls_log>-msg.
CASE <ls_log>-type.
WHEN 'E' OR 'A' OR 'X'.
ls_log-type = icon_led_red.
WHEN 'W'.
ls_log-type = icon_led_yellow.
WHEN 'I' OR 'S'.
ls_log-type = icon_led_green.
WHEN OTHERS.
ls_log-type = icon_led_inactive.
ENDCASE.
INSERT ls_log INTO TABLE rt_log_out.
ENDLOOP.
ENDMETHOD.
METHOD show. METHOD show.
* only supports showing 4 errors, but I guess this is okay
* alternatively refactor to use method TO_HTML instead
DATA: ls_log1 LIKE LINE OF mt_log, DATA: lt_log TYPE tty_log_out,
ls_log2 LIKE LINE OF mt_log, lo_alv TYPE REF TO cl_salv_table,
ls_log3 LIKE LINE OF mt_log, lx_error TYPE REF TO cx_salv_error,
ls_log4 LIKE LINE OF mt_log. lo_form_header TYPE REF TO cl_salv_form_header_info,
lo_columns TYPE REF TO cl_salv_columns_table,
lo_column TYPE REF TO cl_salv_column,
lo_functions TYPE REF TO cl_salv_functions_list.
lt_log = prepare_log_for_display( ).
READ TABLE mt_log INDEX 1 INTO ls_log1. TRY.
READ TABLE mt_log INDEX 2 INTO ls_log2. cl_salv_table=>factory(
READ TABLE mt_log INDEX 3 INTO ls_log3. IMPORTING
READ TABLE mt_log INDEX 4 INTO ls_log4. r_salv_table = lo_alv
CHANGING
t_table = lt_log ).
CALL FUNCTION 'POPUP_TO_INFORM' lo_functions = lo_alv->get_functions( ).
EXPORTING lo_functions->set_all( ).
titel = 'Log'
txt1 = ls_log1-msg lo_columns = lo_alv->get_columns( ).
txt2 = ls_log2-msg
txt3 = ls_log3-msg lo_columns->set_optimize( ).
txt4 = ls_log4-msg.
lo_column = lo_columns->get_column( |TYPE| ).
lo_column->set_medium_text( |Type| ).
lo_column = lo_columns->get_column( |MSG| ).
lo_column->set_medium_text( |Message| ).
lo_alv->set_screen_popup( start_column = 10
end_column = 120
start_line = 4
end_line = 20 ).
CREATE OBJECT lo_form_header
EXPORTING
text = |Log|.
lo_alv->set_top_of_list( lo_form_header ).
lo_alv->display( ).
CATCH cx_salv_error INTO lx_error.
MESSAGE lx_error TYPE 'S' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD. ENDMETHOD.