SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 11:16:14 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

added description column for demo show report (#635)

Browse Source 
* added description column for demo show report

* added description column for demo show report 2

2nd try
This commit is contained in:
Enno 2019-10-01 16:49:07 +02:00 committed by Gregor Wolf
parent 2399f4aadd
commit 2f7b9482d9
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/zabap2xlsx_demo_show.prog.abap
View File

@ -19,6 +19,7 @@ CLASS lcl_perform DEFINITION CREATE PRIVATE.
TYPES: BEGIN OF ty_reports, TYPES: BEGIN OF ty_reports,
progname TYPE reposrc-progname, progname TYPE reposrc-progname,
sort TYPE reposrc-progname, sort TYPE reposrc-progname,
description TYPE repti,
filename TYPE string, filename TYPE string,
END OF ty_reports. END OF ty_reports.
@ -91,7 +92,12 @@ CLASS lcl_perform IMPLEMENTATION.
<fc>-fieldname = 'SORT'. <fc>-fieldname = 'SORT'.
<fc>-ref_field = 'PROGNAME'. <fc>-ref_field = 'PROGNAME'.
<fc>-ref_table = 'REPOSRC'. <fc>-ref_table = 'REPOSRC'.
<fc>-tech = abap_true. "No need to display this help field
APPEND INITIAL LINE TO it_fieldcat ASSIGNING <fc>.
<fc>-fieldname = 'DESCRIPTION'.
<fc>-ref_field = 'REPTI'.
<fc>-ref_table = 'RS38M'.
lo_grid->set_table_for_first_display( EXPORTING lo_grid->set_table_for_first_display( EXPORTING
is_variant = is_variant is_variant = is_variant
@ -145,8 +151,10 @@ CLASS lcl_perform IMPLEMENTATION.
"collect_reports "collect_reports
METHOD collect_reports. METHOD collect_reports.
FIELD-SYMBOLS:<report> LIKE LINE OF t_reports. FIELD-SYMBOLS <report> LIKE LINE OF t_reports.
DATA: t_source TYPE STANDARD TABLE OF text255 WITH NON-UNIQUE DEFAULT KEY. DATA t_source TYPE STANDARD TABLE OF text255 WITH NON-UNIQUE DEFAULT KEY.
DATA texts TYPE STANDARD TABLE OF textpool.
DATA description TYPE textpool.
* Get all demoreports * Get all demoreports
SELECT progname SELECT progname
@ -174,7 +182,20 @@ CLASS lcl_perform IMPLEMENTATION.
REPLACE REGEX '(ZDEMO_EXCEL)(\d\d)\s*$' IN <report>-sort WITH '$1\0$2'. " REPLACE REGEX '(ZDEMO_EXCEL)([^][^])*$' IN <report>-sort WITH '$1$2'.REPLACE REGEX '(ZDEMO_EXCEL)([^][^])*$' IN <report>-sort WITH '$1$2'.REPLACE REPLACE REGEX '(ZDEMO_EXCEL)(\d\d)\s*$' IN <report>-sort WITH '$1\0$2'. " REPLACE REGEX '(ZDEMO_EXCEL)([^][^])*$' IN <report>-sort WITH '$1$2'.REPLACE REGEX '(ZDEMO_EXCEL)([^][^])*$' IN <report>-sort WITH '$1$2'.REPLACE
REPLACE REGEX '(ZDEMO_EXCEL)(\d)\s*$' IN <report>-sort WITH '$1\0\0$2'. REPLACE REGEX '(ZDEMO_EXCEL)(\d)\s*$' IN <report>-sort WITH '$1\0\0$2'.
* get report text
READ TEXTPOOL <report>-progname INTO texts LANGUAGE sy-langu.
READ TABLE texts INTO description WITH KEY id = 'R'.
IF sy-subrc > 0.
"If not available in logon language, use english
READ TEXTPOOL <report>-progname INTO texts LANGUAGE 'E'.
READ TABLE texts INTO description WITH KEY id = 'R'.
ENDIF.
"set report title
<report>-description = description-entry.
ENDLOOP. ENDLOOP.
SORT t_reports BY sort progname. SORT t_reports BY sort progname.
ENDMETHOD. "collect_reports ENDMETHOD. "collect_reports