SAP_Quiz1

*&---------------------------------------------------------------------*
*& Report  ZQUIZ1_5627
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZQUIZ1_5627.

*GENERATE CONSTANTs
CONSTANTS COLNO1 TYPE I VALUE 3.
CONSTANTS COLNO2 TYPE I VALUE 22.
CONSTANTS COLNO3 TYPE I VALUE 70.
CONSTANTS COLNO4 TYPE I VALUE 112.
CONSTANTS COLNO5 TYPE I VALUE 130.

CONSTANTS COLDETAIL TYPE I VALUE 50.

CONSTANTS VLINENO1 TYPE I VALUE 3.
CONSTANTS VLINENO2 TYPE I VALUE 18.
CONSTANTS VLINENO3 TYPE I VALUE 44.
CONSTANTS VLINENO4 TYPE I VALUE 110.
CONSTANTS VLINENO5 TYPE I VALUE 118.

CONSTANTS COLLEFT TYPE I VALUE 2.
CONSTANTS COLCENTER TYPE I VALUE 65.
CONSTANTS COLRIGHT TYPE I VALUE 115.
CONSTANTS LENTABLE TYPE I VALUE 150.

DATA TOTAL TYPE P VALUE 0.
DATA COUNT TYPE P VALUE 0.

*CREATE HEADER
WRITE: AT COLLEFT 'DATE: ',SY-DATUM.
WRITE  AT COLCENTER 'Report'.
WRITE: AT COLRIGHT 'TIME: ',SY-UZEIT.
NEW-LINE.
WRITE: AT COLLEFT 'USER: ',SY-UNAME.
WRITE: AT COLRIGHT 'Report ',SY-REPID.
NEW-LINE.

*WRITE TABLE HEADER.
FORMAT COLOR 1.
WRITE /1(LENTABLE) SY-ULINE.
WRITE: / SY-VLINE,AT COLNO1(16) 'Document No', AT VLINENO2 SY-VLINE, AT COLNO2(15) 'Document Date', AT VLINENO3 SY-VLINE, AT COLNO3(6) 'Detail', AT VLINENO4 SY-VLINE, AT COLNO4(4) 'Unit', AT VLINENO5 SY-VLINE, AT COLNO5(9) 'Net Value', AT LENTABLE
SY-VLINE.
WRITE /1(LENTABLE) SY-ULINE.
FORMAT COLOR OFF.

*WRITE TABLE DATA.
TABLES: VBAK, VBAP.
SELECT VBAK~VBELN VBAK~ERDAT VBAP~ARKTX VBAP~MEINS VBAK~NETWR
  INTO (VBAK-VBELN, VBAK-ERDAT, VBAP-ARKTX, VBAP-MEINS, VBAK-NETWR)
  UP TO 21 ROWS
  FROM VBAK INNER JOIN VBAP ON VBAK~VBELN = VBAP~VBELN ORDER BY VBAK~VBELN.

  FORMAT COLOR 4.
  WRITE: / SY-VLINE,AT COLNO1 VBAK-VBELN, AT VLINENO2 SY-VLINE.
  FORMAT COLOR OFF.
  IF COUNT mod 2 = 0.
    FORMAT COLOR 3.
    ELSEIF COUNT mod 2 = 1.
      FORMAT COLOR 5.
  ENDIF.
  WRITE: AT COLNO2 VBAK-ERDAT, AT VLINENO3 SY-VLINE.
  WRITE: AT COLDETAIL VBAP-ARKTX, AT VLINENO4 SY-VLINE.
  WRITE: AT COLNO4 VBAP-MEINS, AT VLINENO5 SY-VLINE.
  WRITE: AT COLNO5 VBAK-NETWR,AT LENTABLE SY-VLINE.
  FORMAT COLOR OFF.
  TOTAL = TOTAL + VBAK-NETWR.
  COUNT = COUNT + 1.
ENDSELECT.

*WRITE TABLE ENDING.
WRITE /1(LENTABLE) SY-ULINE.
WRITE: / SY-VLINE, AT COLNO1 'Total', AT VLINENO5 SY-VLINE.
FORMAT COLOR 6.
WRITE: AT COLNO5 TOTAL, AT LENTABLE SY-VLINE.
FORMAT COLOR OFF.
WRITE /1(LENTABLE) SY-ULINE.