ALV Ausgabe einschränken

Code: Alles auswählen.

REPORT zsumla.

TYPE-POOLS slis.

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

DATA: wa_lfa1 TYPE lfa1,
      wa_zdlkz_t TYPE zdlkz_t,
      wa_bkpf TYPE bkpf,
      wa_bsak TYPE bsak,
      wa_bsik TYPE bsik.

DATA: BEGIN OF wa_res,
        lifnr TYPE lfa1-lifnr,
        land1 TYPE lfa1-land1,
        diekz TYPE bsak-diekz,
        belnr TYPE bsak-belnr,
        zuonr TYPE bsak-zuonr,
        blart TYPE bsak-blart,
        bukrs TYPE bsak-bukrs,
        monat TYPE bsak-monat,
        gjahr TYPE bsak-gjahr,
        zdlkz TYPE zdlkz_t-zdlkz,
        bezeichnung TYPE zdlkz_t-bezeichnung,
      END OF wa_res,

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,
       zdlkz LIKE zdlkz_t-zdlkz,
       bezeichnung LIKE zdlkz_t-bezeichnung,
END OF itab_sumla.

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.

wa_layout-colwidth_optimize = 'X'.

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.

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

  SELECT lifnr land1
  FROM lfa1 INTO CORRESPONDING FIELDS OF wa_lfa1
  WHERE land1 IN so_land.
    MOVE-CORRESPONDING wa_lfa1 TO itab_sumla.
    SELECT lifnr zuonr gjahr belnr monat blart diekz bukrs
    FROM bsak INTO CORRESPONDING FIELDS OF wa_bsak
    WHERE lifnr = wa_lfa1-lifnr.
      MOVE-CORRESPONDING wa_bsak TO itab_sumla.
      SELECT lifnr zuonr gjahr belnr monat blart diekz bukrs
      FROM bsik INTO CORRESPONDING FIELDS OF wa_bsik
      WHERE lifnr = wa_lfa1-lifnr
      AND   bukrs = wa_bsak-bukrs
      AND   monat IN so_perio
      AND   gjahr = pa_gj.
        MOVE-CORRESPONDING wa_bsik TO itab_sumla.
        SELECT zdlkz bezeichnung
        FROM zdlkz_t INTO CORRESPONDING FIELDS OF wa_zdlkz_t
        WHERE zdlkz IN so_dlkz.
          MOVE-CORRESPONDING wa_zdlkz_t TO itab_sumla.
          APPEND itab_sumla.
        ENDSELECT.
      ENDSELECT.
    ENDSELECT.
    CLEAR itab_sumla.
  ENDSELECT.

  IF sy-subrc <> 0.
    MESSAGE e180(/bdl/d-).
*   Notwendige Eingabe fehlt
  ENDIF.

  repid = repid.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            i_program_name         = sy-repid
            i_structure_name       = 'ZMYSTRUKTUR'
       CHANGING
            ct_fieldcat            = my_fieldcat
       EXCEPTIONS
            inconsistent_interface = 1
            program_error          = 2
            OTHERS                 = 3.
  IF sy-subrc <> 0.
    MESSAGE e707(69).
*   Lesefehler
  ENDIF.

  DELETE my_fieldcat WHERE NOT ( fieldname = 'BLART'
                               OR  fieldname = 'ZDLKZ'
                               OR  fieldname = 'LAND1'
                               OR  fieldname = 'BEZEICHNUNG'
                               OR  fieldname = 'GJAHR'
                               OR  fieldname = 'MONAT').

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            is_layout     = wa_layout
            it_fieldcat   = my_fieldcat
       TABLES
            t_outtab      = itab_sumla
       EXCEPTIONS
            program_error = 1
            OTHERS        = 2.
  IF sy-subrc <> 0.
    MESSAGE e707(69).
*   Lesefehler
  ENDIF.