DATA:  back_cont  TYPE REF TO cl_gui_docking_container.

  IF gs_custom_container IS INITIAL.
    IF NOT gs_custom_container IS INITIAL.
      CALL METHOD gs_custom_container->free.

    ENDIF.

    
IF cl_gui_alv_grid=>offlineIS INITIAL.  "back ground job check
      CREATE OBJECT gs_custom_container
        EXPORTING
          container_name c_container.
      CREATE OBJECT gs_alv_grid
        EXPORTING
          i_parent gs_custom_container.
    
ELSE.                                                       "back ground job 일 경우
      CREATE OBJECT gs_alv_grid
        EXPORTING
          i_parent back_cont.

    ENDIF.


    PERFORM alv_variant.       "<-- ALV Variant
    PERFORM alv_sort.          "<-- SORT
    PERFORM alv_layout.        "<-- General Layout

    PERFORM alv_fieldcatalog.    "<-- Field Attribute
    PERFORM alv_toolbar_exclude"CHANGING G_EXCLUDE. "<-- Toolbar Dim

    CALL METHOD gs_alv_grid->set_table_for_first_display
      EXPORTING
        i_default            c_x
        is_layout            gs_layout
        is_variant           gs_variant
        it_toolbar_excluding gs_exclude
        i_save               c_a
      CHANGING
        it_outtab            gt_list[]
        it_fieldcatalog      gs_fieldcat[]
        it_sort              gs_sort.

설정

트랙백

댓글