*&---------------------------------------------------------------------*
*& Report  ZAUF602
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zauf602.

SELECTION-SCREEN BEGIN OF BLOCK 0
  WITH FRAME TITLE text-001.
PARAMETERS jahr TYPE n LENGTH 4.
PARAMETERS kat TYPE zneukunde-kundenkategorie.
SELECTION-SCREEN END OF BLOCK 0.

if ( jahr = '0000' ).
  jahr = '2016'.
  endif.
WRITE: / 'Gewählte Selektionen:',
/ 'Jahr der Bestellung: ', 25 jahr,
/ 'Kundenkategorie: ', 25 kat.



DATA: wa_kn TYPE zneukunde,
      wa_bs TYPE zneubestellung.



WRITE: /,
'KNR',
7 'Vorname',
17 'Nachname',
30 'Umsatz',
45 'Waehrung'.

SELECT * FROM zneukunde INTO wa_kn.
  IF ( kat = wa_kn-kundenkategorie OR kat = '').
DATA ums TYPE zneubestellung-preis.
ums = 0.
DATA wae TYPE zneubestellung-waehrung.
wae = 0.

    SELECT * FROM zneubestellung INTO wa_bs.
     DATA dat TYPE string.
     dat = wa_bs-bestelldatum(4).
      IF ( wa_kn-knr = wa_bs-knr AND wa_bs-bestelldatum(4) = jahr ).
        wae = wa_bs-waehrung.
        ums = ums + wa_bs-preis.
      ENDIF.
    ENDSELECT.
    IF ( wae = 'EUR' ).
      WRITE: / wa_kn-knr,
          7 wa_kn-vorname ,
          17 wa_kn-nachname ,
          30 ums,
          45 wae.
    ENDIF.
  ENDIF.
ENDSELECT.