ALV-Ausgabe

Code: Alles auswählen.

INCLUDE ZUTOPIA_GEBUEHR_TOP.
INCLUDE ZUTOPIA_GEBUEHR_O01.
INCLUDE ZUTOPIA_GEBUEHR_I01.
INCLUDE ZUTOPIA_GEBUEHR_F01.


START-OF-SELECTION.
  CREATE OBJECT go_session EXPORTING OBJECT = 'gebuehr'.
  gt_gebuehr = go_session->get_gebuehr_tab( ).

END-OF-SELECTION.
  CALL SCREEN '0100'.

Code: Alles auswählen.

method GET_GEBUEHR_TAB .
CLEAR: gebuehr_tab[].

  DATA: lo_gebuehr TYPE REF TO zcl_gebuehr.
  DATA: lwa_gebuehr LIKE LINE OF gebuehr_tab.

  LOOP AT mt_gebuehr INTO lo_gebuehr.
    CLEAR: lwa_gebuehr.

        lwa_gebuehr-status = lo_gebuehr->get_status( ).
        lwa_gebuehr-jmgeb = lo_gebuehr->get_jmgeb( ).
        lwa_gebuehr-uebgeb = lo_gebuehr->get_uebgeb( ).
        lwa_gebuehr-einheit = lo_gebuehr->get_einheit( ).

        APPEND lwa_gebuehr TO gebuehr_tab .
endloop.
endmethod.

Code: Alles auswählen.

    IF object = 'gebuehr'.
    DATA: lo_gebuehr TYPE REF TO zcl_gebuehr.
    DATA: lt_gebuehr TYPE TABLE OF zutopia_gebuehr,
          lwa_gebuehr LIKE LINE OF lt_gebuehr.

    SELECT * FROM zutopia_gebuehr INTO TABLE lt_gebuehr.

    LOOP AT lt_gebuehr INTO lwa_gebuehr.

      CREATE OBJECT lo_gebuehr.
      APPEND lo_gebuehr TO mt_gebuehr.

    ENDLOOP.
  ENDIF.


ENDMETHOD.

Code: Alles auswählen.

*---------------------------------------------------------------------*
*  MODULE initialize OUTPUT
*---------------------------------------------------------------------*

MODULE initialize OUTPUT.
  DATA: is_layout TYPE lvc_s_layo,
        it_toolbar_excluding TYPE ui_functions,
        wa_it_toolbar_excluding TYPE LINE OF ui_functions.

* Button ausblenden
  wa_it_toolbar_excluding = cl_gui_alv_grid=>mc_mb_filter.
  "Button Filter
  wa_it_toolbar_excluding = cl_gui_alv_grid=>mc_mb_subtot.
  "Button Summe total
  wa_it_toolbar_excluding = cl_gui_alv_grid=>mc_mb_sum.
  "Button Summe
*      wa_it_toolbar_excluding = cl_gui_alv_grid=>MC_MB_VARIANT.
  "Button Variante
  "Geht nicht -.-
  APPEND wa_it_toolbar_excluding TO it_toolbar_excluding.

* Automatische Optimierung der Spaltenbreiten
  is_layout-cwidth_opt = 'X'.
  is_layout-zebra = 'X'.

  CREATE OBJECT go_custom_container
    EXPORTING container_name = g_container.

  IF go_alv_grid IS INITIAL.
    CREATE OBJECT go_alv_grid
      EXPORTING i_parent = go_custom_container.

    CALL METHOD go_alv_grid->set_table_for_first_display
      EXPORTING
        i_structure_name     = 'ZUTOPIA_GEBUEHR'
        is_layout            = is_layout
        it_toolbar_excluding = it_toolbar_excluding
        i_save               = ' '
        i_default            = ' '
      CHANGING
        it_outtab            = gt_gebuehr.

  ELSE.
    CALL METHOD go_alv_grid->refresh_table_display.
  ENDIF.

ENDMODULE.                 " INITIALIZE  OUTPUT