ALV Standartlayout überschreibt anderes Layout

Code: Alles auswählen.

MODULE aufbau_0200 OUTPUT.

  DATA: z-control LIKE sy-subrc VALUE '4'.

  CASE z-control.
    WHEN 4.
      PERFORM aufbau_unbestaetigt.
      PERFORM aufbau_bestaetigt.
      z-control = 0.
    WHEN OTHERS.
*  dynpro wurde bereits aufgerufen
  ENDCASE.
ENDMODULE.                 " aufbau_0200  OUTPUT

Code: Alles auswählen.

FORM aufbau_unbestaetigt.

  PERFORM fcat_unbest.

  IF unbest_alv IS INITIAL.
    CREATE OBJECT unbest_alv
                  EXPORTING container_name = 'UNBESTAETIGT'.
    CREATE OBJECT unbest_grid_alv
                  EXPORTING i_parent = unbest_alv.
  ENDIF.

  CALL FUNCTION 'WLF_GET_ID_FOR_VARIANT'
*       EXPORTING
*            i_handle  = '0200'
       IMPORTING
            e_variant = l_variant_u
       CHANGING
            p_save    = l_save_u.

  l_layout_u-sel_mode = 'A'.

  CALL METHOD unbest_grid_alv->set_table_for_first_display
    EXPORTING
      i_structure_name              = 'ZMCEM0051_ALV'
      it_toolbar_excluding          = lt_excl_func_u
      is_variant                    = l_variant_u
      is_layout                     = l_layout_u
      i_save                        = l_save_u
    CHANGING
      it_outtab                     = itab_rumpf
      it_fieldcatalog               = gt_fieldcatalog_u
      it_sort                       = gt_sort_u.

  CREATE OBJECT event_receiver.
  SET HANDLER event_receiver->handle_user_command FOR unbest_grid_alv.
  SET HANDLER event_receiver->handle_toolbar FOR unbest_grid_alv.

  CALL METHOD unbest_grid_alv->set_toolbar_interactive.

  CALL METHOD cl_gui_control=>set_focus
       EXPORTING control = unbest_alv.

ENDFORM.                    " aufbau_unbestaetigt

Code: Alles auswählen.

FORM aufbau_bestaetigt.

  PERFORM fcat_best.

  IF best_alv IS INITIAL.
    CREATE OBJECT best_alv
                  EXPORTING container_name = 'BESTAETIGT'.
    CREATE OBJECT best_grid_alv
                  EXPORTING i_parent = best_alv.
  ENDIF.

  CALL FUNCTION 'WLF_GET_ID_FOR_VARIANT'
*       EXPORTING
*            i_handle  = '0200'
       IMPORTING
            e_variant = l_variant_b
       CHANGING
            p_save    = l_save_b.

  l_layout_b-sel_mode = 'A'.

  CALL METHOD best_grid_alv->set_table_for_first_display
    EXPORTING
      i_structure_name              = 'ZMCEM0051_ALV'
      it_toolbar_excluding          = lt_excl_func_b
      is_variant                    = l_variant_b
      is_layout                     = l_layout_b
      i_save                        = l_save_b
    CHANGING
      it_outtab                     = itab_rumpf_best
      it_fieldcatalog               = gt_fieldcatalog_b
      it_sort                       = gt_sort_b.

  CREATE OBJECT event_receiver.
  SET HANDLER event_receiver->handle_user_command_best
                    FOR best_grid_alv.

  SET HANDLER event_receiver->handle_toolbar_best
                    FOR best_grid_alv.

  CALL METHOD best_grid_alv->set_toolbar_interactive.

  CALL METHOD cl_gui_control=>set_focus
       EXPORTING control = best_alv.
ENDFORM.                    " aufbau_bestaetigt