Bitte um Hilfe beim Select und den Where Klausel´n

Code: Alles auswählen.

TYPE-POOLS slis.

TABLES: lfa1, bseg, bkpf, bsik, bsak, zdlkz_t.

DATA: BEGIN OF itab_sumla OCCURS 10,
        lifnr LIKE lfa1-lifnr,
        land1 LIKE lfa1-land1,
        diekz LIKE bsak-diekz,
        belnr LIKE bsak-belnr,
        zuonr LIKE bsak-zuonr,
        blart LIKE bsak-blart,
        bukrs LIKE bsak-bukrs,
        monat LIKE bsak-monat,
        gjahr LIKE bsak-gjahr,
        shkzg LIKE bsak-shkzg,
        bschl LIKE bsak-bschl,
        dmbtr LIKE bsak-dmbtr,
        wrbtr LIKE bsak-wrbtr,
        zdlkz LIKE zdlkz_t-zdlkz,
        bezeichnung LIKE zdlkz_t-bezeichnung,
        soha TYPE p DECIMALS 2,
        soll TYPE p DECIMALS 2,
        haben TYPE p DECIMALS 2,
        zahler TYPE i,
      END OF itab_sumla.

* Zweite interne Tabelle für "READ" - Spalten Vergleich

DATA: BEGIN OF itab_zdlkz_t OCCURS 10,
        zdlkz LIKE zdlkz_t-zdlkz,
        bezeichnung LIKE zdlkz_t-bezeichnung,
      END OF itab_zdlkz_t.

DATA: wa_soha LIKE LINE OF itab_sumla,
      wa_zdlkz LIKE LINE OF itab_zdlkz_t.

* zum sy-subrc Auswerten der beiden JOINS

DATA: lv_subrc TYPE sy-subrc.

DATA: my_fieldcat TYPE slis_t_fieldcat_alv,
      wa_layout   TYPE slis_layout_alv,
      wa_fieldcat LIKE LINE OF my_fieldcat,
      repid TYPE sy-repid.

SELECT-OPTIONS: so_land FOR lfa1-land1,
                so_perio FOR bkpf-monat.

PARAMETERS pa_gj LIKE bseg-gjahr.

SELECT-OPTIONS: so_dlkz FOR zdlkz_t-zdlkz.

* damit die Selektion Geschäftsjahr funktioniert

RANGES: range FOR bseg-gjahr.
IF NOT pa_gj IS INITIAL.
  range-sign = 'I'.
  range-option = 'EQ'.
  range-low = pa_gj.
  APPEND range.
ELSE.
  REFRESH range.
ENDIF.

START-OF-SELECTION.
*##################

* GUI-Titel anlegen

  SET TITLEBAR 'T_SOHA'.

  SELECT zdlkz bezeichnung
  FROM zdlkz_t INTO CORRESPONDING FIELDS OF TABLE itab_zdlkz_t
  WHERE zdlkz IN so_dlkz.

  IF sy-subrc <> 0.
    MESSAGE i114(gu) WITH 'DlKz' so_dlkz.
*   Falsche Werteingabe (Pos.DlKz --> so_dlkz)
    EXIT.
  ENDIF.

 SELECT a~lifnr a~land1 b~diekz b~belnr b~zuonr b~blart b~bukrs b~monat
               b~gjahr b~shkzg b~bschl b~dmbtr b~wrbtr
                       INTO CORRESPONDING FIELDS OF TABLE itab_sumla
                       FROM ( lfa1 AS a
                                INNER JOIN bsak AS b
                                ON a~lifnr = b~lifnr )
                                WHERE bukrs IN ('1001')
                                AND blart IN ('A1', 'A2', 'A3')
                                AND land1 IN so_land
                                AND gjahr IN range
                                AND monat IN so_perio.

  IF sy-subrc <> 0.
    lv_subrc = sy-subrc.
  ENDIF.

 SELECT a~lifnr a~land1 b~diekz b~belnr b~zuonr b~blart b~bukrs b~monat
               b~gjahr b~shkzg b~bschl b~dmbtr b~wrbtr
                     APPENDING CORRESPONDING FIELDS OF TABLE itab_sumla
                       FROM ( lfa1 AS a
                                INNER JOIN bsik AS b
                                ON a~lifnr = b~lifnr )
                                WHERE bukrs IN ('1001')
                                AND blart IN ('A1', 'A2', 'A3')
                                AND land1 IN so_land
                                AND gjahr IN range
                                AND monat IN so_perio.

  IF sy-subrc <> 0 OR lv_subrc <> 0.
    MESSAGE i819(3f).
*   Keine Daten im gewählten Zeitraum vorhanden / EXIT, weil Message
*   Typ i sonst Daten zeigen würde, die in einen der Select´s wären !!!
    EXIT.
  ENDIF.

* wa_soha-.... weil durch DATA Deklaration wa_soha

  LOOP AT itab_sumla INTO wa_soha.


    IF wa_soha-shkzg = 'H'.
      wa_soha-haben = wa_soha-dmbtr.
    ELSE.
      wa_soha-soll = wa_soha-dmbtr.
    ENDIF.

    wa_soha-soha = wa_soha-haben - wa_soha-soll.

* Spalten Vergleich

    IF wa_soha-zuonr = space.
      wa_soha-zdlkz = space.
    ELSE.
      READ TABLE itab_zdlkz_t INTO wa_zdlkz WITH KEY zdlkz =
      wa_soha-zuonr.
      IF sy-subrc = 0.
        wa_soha-zdlkz = wa_zdlkz-zdlkz.
        wa_soha-bezeichnung = wa_zdlkz-bezeichnung.
      ENDIF.
    ENDIF.

* Zähler für keine Einträge in DlKz

    IF wa_soha-zdlkz = space.
      wa_soha-zahler = 1.
    ELSE.
      wa_soha-zahler = 0.
    ENDIF.


    MODIFY itab_sumla FROM wa_soha TRANSPORTING soll haben soha zahler
    zdlkz bezeichnung.

  ENDLOOP.

  IF wa_zdlkz-zdlkz = space.
    MESSAGE i819(3f).
*   Keine Daten im gewählten Zeitraum vorhanden / EXIT, weil Message
*   Typ i sonst Daten zeigen würde, die in einen der Select´s wären !!!
    EXIT.
  ENDIF.

Code: Alles auswählen.

  IF sy-subrc <> 0 OR lv_subrc <> 0.
    MESSAGE i819(3f).
*   Keine Daten im gewählten Zeitraum vorhanden 
    EXIT.
  ENDIF.

Code: Alles auswählen.

  IF sy-subrc <> 0 AND lv_subrc <> 0.
    MESSAGE i819(3f).
*   Keine Daten im gewählten Zeitraum vorhanden 
    EXIT.
  ENDIF.