New Design

Hier steht ein Programm, das aufzeigt, wie man einem ganz normalen Report ein besonderes Aussehen verleihen kann.

Mit einfachen Reporting-Mitteln ist es möglich, einem normalen Programm ein ungewöhnliches aber ansprechendes Aussehen zu geben.

Screenshot

Coding

REPORT zz_new_design.

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS:
  par1 AS CHECKBOX,
  par2 AS CHECKBOX.
SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS:
  pstat1 TYPE syrepid DEFAULT ‘EVERYTHING’,
  pstat2 TYPE sydatum DEFAULT sy-datum,
  pstat3 TYPE sytabix DEFAULT 20,
  pstat4 TYPE sydatar DEFAULT ‘3’.
SELECTION-SCREEN END OF SCREEN 200.

SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
PARAMETERS:
  list1 AS CHECKBOX,
  list2 TYPE sytabix DEFAULT 30.
SELECTION-SCREEN END OF SCREEN 300.


SELECTION-SCREEN BEGIN OF TABBED BLOCK tab1 FOR 2 LINES.
SELECTION-SCREEN TAB (15) tb1 USER-COMMAND ” DEFAULT SCREEN 100.
SELECTION-SCREEN END OF BLOCK tab1.

SELECTION-SCREEN BEGIN OF TABBED BLOCK tab2 FOR 4 LINES.
SELECTION-SCREEN TAB (15) tb2 USER-COMMAND ” DEFAULT SCREEN 200.
SELECTION-SCREEN END OF BLOCK tab2.

SELECTION-SCREEN BEGIN OF TABBED BLOCK tab3 FOR 3 LINES.
SELECTION-SCREEN TAB (15) tb3 USER-COMMAND ” DEFAULT SCREEN 300.
SELECTION-SCREEN END OF BLOCK tab3.

INITIALIZATION.
  tb1 = ‘@38@Prüfungen’.
  tb2 = ‘@3J@Status’.
  tb3 = ‘@36@Listausgabe’.

 

Enno Wulff