Selection Screens Übung

[Andre81]

Hallo zusammen,

ich bin neu in Forum und versuche mich gerade an einem Programm, das auf dem FLugdaten-Beispiel der SAP aufbaut. Ich möchte alle alle Kunden nach Gesamtumsatz absteigend sortiert ausgeben, wobei die Anzeige durch Select Options eingeschränkt werden kann. Zusätzlich soll es möglich sein, sich zu jedem Kunden, per Doppelklick, die dazugehörigen Einzelbuchungen anzeigen zu lassen. Mein Problem ist, dass mir keine Einzelbuchungen zu den jeweiligen Kunden angezeigt werden, ich weiss aber nicht wo der Fehler im 2ten Select liegt.


Ich verwende folgende View ZZ_1030_KVIEW:
Viewfeld | Tabelle | Feld | Beschreibung
Umsatz | SBOOK | FORCURAM | Preis der Buchung
Name | SCUSTOM | NAME
City | SCUSTOM| CITY
COUNTRY | SCUSTOM | COUNTRY
CUSTOMID| SBOOK | CUSTOMID
CUSTTYPE | SCUSTOM | CUSTTYPE| Privat/Business
CURRENCY | SBOOK | FORKURKEY | Zahlungswährung
class | SBOOK | class| Flugklasse


Mein Code schaut bis jetzt folgendermaßen aus:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. REPORT  ZZ_1030_KUNDENANALYSE MESSAGE-ID ZZ_1030_MsgAnalyse.
2. TABLES: ZZ_1030_KVIEW,sscrfields.
3. Data: wa_analyse type ZZ_1030_KVIEW,
4.       itab_analyse type TABLE OF ZZ_1030_KVIEW,
5.       typeKunde type c LENGTH 1,
6.       wa_sbook type sbook.
7.  
8.  
9. SELECTION-SCREEN COMMENT /1(60) heading.
10. SELECTION-SCREEN ULINE.
11. SELECTION-SCREEN SKIP 2.
12. SELECT-OPTIONS so_land FOR wa_analyse-country.
13. SELECTION-SCREEN Skip.
14. SELECTION-SCREEN COMMENT /1(30) headerCb.
15. SELECTION-SCREEN Uline.
16.  
17.  
18.  
19.   PARAMETERS  p_bKunde as CHECKBOX DEFAULT 'X' USER-COMMAND business.
20.   SELECTION-SCREEN Skip.
21.   PARAMETERS p_pKunde AS CHECKBOX USER-COMMAND private.
22.   SELECTION-SCREEN Skip.
23.   SELECTION-SCREEN Skip.
24.  
25.  
26.  
27. SELECT-OPTIONS so_class FOR wa_analyse-class OBLIGATORY.
28. SELECTION-SCREEN Skip.
29. SELECT-OPTIONS so_cur FOR wa_analyse-currency OBLIGATORY.
30. SELECTION-SCREEN Skip 2.
31. SELECTION-SCREEN PUSHBUTTON 1(30) delete USER-COMMAND delete.
32.  
33.  
34.  
35.  
36. INITIALIZATION.
37. heading = 'Kundenauswertung nach Umsätzen'.
38. delete = 'Eingaben löschen'.
39. headerCb = 'Business-/Privatkunde'.
40.  
41. AT SELECTION-SCREEN.
42.   if sscrfields-ucomm = 'DELETE'.
43.     p_bKunde = 'X'.
44.     p_pKunde = ' '.
45.     refresh so_cur.
46.     refresh so_class.
47.     refresh so_land.
48.     ELSEIF sscrfields-ucomm = 'PRIVATE'.
49.       p_bKunde = ' '.
50.     ELSEIF sscrfields-ucomm = 'BUSINESS'.
51.       p_pKunde = ' '.
52.   ENDIF.
53.  
54.   START-OF-SELECTION.
55.   if p_bKunde = 'X'.
56.     typeKunde = 'B'.
57.     else.
58.       typeKunde = 'P'.
59.   ENDIF.
60.  
61.   Select sum( umsatz ) as totalSum name city country customid
62.     from ZZ_1030_KVIEW
63.     INTO TABLE itab_analyse
64.     WHERE country in so_land and
65.           class in so_class and
66.           currency in so_cur and
67.           custtype = typeKunde
68.     GROUP BY name country city customid
69.     ORDER BY totalSum DESCENDING.
70.  
71.     if sy-subrc = 0.
72.  
73.      write: / 'Kunden nach Umsatz absteigend sortiert.'.
74.      ULINE /1(145).
75.      FORMAT COLOR 1.
76.      write: /'|Umsatz',25 '|Name', 55 '|Ort', 85 '|Land', 115 '|Kundennr.', 145 '|'.
77.      FORMAT RESET.
78.      Loop at itab_analyse into wa_analyse.
79.        write: /'|',wa_analyse-umsatz, 25 '|',wa_analyse-name, 55 '|',wa_analyse-city, 85 '|', wa_analyse-country,115'|', wa_analyse-customid, 145'|'.
80.        hide wa_analyse.
81.        ULINE /1(145).
82.        ENDLOOP.
83.        ULINE /1(145).
84.      else.
85.        MESSAGE i000.
86. ENDIF.
87. At LINE-SELECTION.
88.  IF sy-lsind = 1 AND sy-lilli > 5.
89.    FORMAT COLOR 1.
90.     WRITE: / 'Einzelbuchungen zu Kunde ',wa_analyse-name.
91.     ULINE /1(110).
92.     WRITE: / '|Buchungsdatum',25 '|Fluggesellschaft',50 '|Flugnummer',75 '|Preis',100 '|Währung',110'|'.
93.     FORMAT RESET.
94.     Select * from sbook into wa_sbook
95.       where sbook~customid = wa_analyse-customid and
96.       sbook~class = wa_analyse-class and
97.       sbook~forcurkey = wa_analyse-currency and
98.       sbook~custtype = wa_analyse-custtype
99.  
100.       ORDER BY sbook~order_date DESCENDING.
101.  
102.       ULINE /1(110).
103.       write: /'|', wa_sbook-order_date, 25 '|',wa_sbook-carrid, 50 '|', wa_sbook-connid, 75 '|',wa_sbook-forcuram, 100'|',wa_sbook-forcurkey,110'|'.
104.       ENDSELECT.
105.       ULINE /1(110).
106.  
107.    ENDIF.
108.  

GeSHi ©