OO實現ALV TABLE 八:ALV的佈局功能

rel="File-List" href="file:///C:%5CWINDOWS%5CTEMP%5Cmsohtml1%5C01%5Cclip_filelist.xml"> rel="Edit-Time-Data" href="file:///C:%5CWINDOWS%5CTEMP%5Cmsohtml1%5C01%5Cclip_editdata.mso">

ALV的輸出結果中,我們可以利用ALV提供的標準功能(過濾,排序,彙總)對輸出結果正行操作。比如說我們對一個結果進行了排序和過濾等的動作,下次再運行這個報表的時候可以選擇一個功能直接運行這些動作。這就需要佈局(Layout)的功能了。

 

1.       首先我們設置佈局的功能按鈕。

ls_key-report = sy-repid.

    lr_layout = gr_table->get_layout( ).

    lr_layout->set_key( ls_key ).

    lr_layout->set_save_restriction( l_restrict ).

    lr_layout->set_default( 'X' ).

    IF p_lay IS NOT INITIAL.

      lr_layout->set_initial_layout( p_lay ).

ENDIF.

2.       設置前臺選項頁面。

SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.

PARAMETERS: p_lay LIKE disvariant-variant.

SELECTION-SCREEN SKIP.

PARAMETERS: p_save1 RADIOBUTTON GROUP rg DEFAULT 'X',

            p_save2 RADIOBUTTON GROUP rg,

            p_save3 RADIOBUTTON GROUP rg.

SELECTION-SCREEN END OF BLOCK blk.

3.       設置前臺佈局選項功能搜索幫助

DATA: ls_layout TYPE salv_s_layout_info,

           ls_key    TYPE salv_s_layout_key,

           l_restrict TYPE salv_de_layout_restriction.

    l_restrict = get_restrict( ).

    ls_key-report = sy-repid.

    ls_layout = cl_salv_layout_service=>f4_layouts(

    s_key    = ls_key

    restrict = l_restrict ).

layout = ls_layout-layout.

 

 

 

 

 

 

 

 

 

 

下面是效果圖

 



下面是程序的所有代碼:

REPORT  y_xin_002.

 

*變量定義

TYPES: BEGIN OF gs_spfli,

        mandt       TYPE spfli-mandt,

        carrid      TYPE spfli-carrid,

        connid      TYPE spfli-connid,

        countryfr   TYPE spfli-countryfr,

        cityfrom    TYPE spfli-cityfrom,

        airpfrom    TYPE spfli-airpfrom,

        countryto   TYPE spfli-countryto,

        cityto      TYPE spfli-cityto,

        airpto      TYPE spfli-airpto,

        fltime      TYPE spfli-fltime,

        deptime     TYPE spfli-deptime,

        arrtime     TYPE spfli-arrtime,

        distance    TYPE spfli-distance,

        distid      TYPE spfli-distid,

        fltype      TYPE spfli-fltype,

        period      TYPE spfli-period,

END OF gs_spfli.

TYPES  ty_spfli TYPE gs_spfli OCCURS 0.

 

*選擇屏幕

SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.

PARAMETERS: p_lay LIKE disvariant-variant.

SELECTION-SCREEN SKIP.

PARAMETERS: p_save1 RADIOBUTTON GROUP rg DEFAULT 'X',

            p_save2 RADIOBUTTON GROUP rg,

            p_save3 RADIOBUTTON GROUP rg.

SELECTION-SCREEN END OF BLOCK blk.

 

*----------------------------------------------------------------------*

*       CLASS lcl_alv DEFINITION

*----------------------------------------------------------------------*

*       ALV操作類定義

*----------------------------------------------------------------------*

CLASS lcl_alv DEFINITION.

  PUBLIC SECTION.

    METHODS: getdata               "取得要顯示的數據

               RETURNING value(lt_tab) TYPE ty_spfli,

             alv_full              "全屏Grid列表處理方法

               IMPORTING value(lt_tab) TYPE ty_spfli.

    CLASS-METHODS: f4_layout       "佈局選項的搜索幫助

                    EXPORTING value(layout)   TYPE disvariant-variant,

                   get_restrict    "取得約束選項的值

                     RETURNING value(restrict) TYPE salv_de_layout_restriction.

  PRIVATE SECTION.

    DATA: gr_table TYPE REF TO cl_salv_table.

ENDCLASS.                    "lcl_alv DEFINITION

 

*----------------------------------------------------------------------*

*       CLASS lcl_alv IMPLEMENTATION

*----------------------------------------------------------------------*

*       ALV操作類(實現)

*----------------------------------------------------------------------*

CLASS lcl_alv IMPLEMENTATION.

*取得要顯示的數據

  METHOD getdata.

    SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_tab FROM spfli.

  ENDMETHOD.                    "getdata

 

*輸出全屏網格列表的方法

  METHOD alv_full.

    DATA: lr_functions  TYPE REF TO cl_salv_functions_list,

          lr_selections TYPE REF TO cl_salv_selections,

          lr_layout     TYPE REF TO cl_salv_layout,

          ls_key        TYPE salv_s_layout_key,

          l_restrict    TYPE salv_de_layout_restriction.

 

    l_restrict = lcl_alv=>get_restrict( ).

 

    "創建實例

    TRY.

        cl_salv_table=>factory(

          IMPORTING

            r_salv_table = gr_table

          CHANGING

            t_table      = lt_tab

        ).

      CATCH cx_salv_msg.

    ENDTRY.

    "設置佈局功能按鈕

    ls_key-report = sy-repid.

    lr_layout = gr_table->get_layout( ).

    lr_layout->set_key( ls_key ).

    lr_layout->set_save_restriction( l_restrict ).

    lr_layout->set_default( 'X' ).

    IF p_lay IS NOT INITIAL.

      lr_layout->set_initial_layout( p_lay ).

    ENDIF.

    "顯示ALV的標準功能

    lr_functions = gr_table->get_functions( ).

    lr_functions->set_all( 'X' ).

    "

    "顯示列表

    gr_table->display( ).

  ENDMETHOD.                    "alv_full

 

*前臺佈局選項搜索幫助

  METHOD f4_layout.

    DATA: ls_layout TYPE salv_s_layout_info,

          ls_key    TYPE salv_s_layout_key,

          l_restrict TYPE salv_de_layout_restriction.

 

    l_restrict = get_restrict( ).

 

    ls_key-report = sy-repid.

 

    ls_layout = cl_salv_layout_service=>f4_layouts(

      s_key    = ls_key

      restrict = l_restrict ).

 

    layout = ls_layout-layout.

  ENDMETHOD.                                                "f4_layout

 

*取得約束選項的值

  METHOD get_restrict.

    CASE 'X'.

      WHEN p_save1.

        restrict = if_salv_c_layout=>restrict_none.

      WHEN p_save2.

        restrict = if_salv_c_layout=>restrict_user_dependant.

      WHEN p_save3.

        restrict = if_salv_c_layout=>restrict_user_independant.

    ENDCASE.

  ENDMETHOD.                    "constructor

ENDCLASS.                    "lcl_alv IMPLEMENTATION

 

*&---------------------------------------------------------------------*

*&      Form  f_main

*&---------------------------------------------------------------------*

*       整合數據執行

*----------------------------------------------------------------------*

FORM f_main.

  DATA: lt_tab TYPE ty_spfli,

        lr_alv TYPE REF TO lcl_alv.

 

  CREATE OBJECT lr_alv.

 

  "取得要顯示的數據

  lt_tab = lr_alv->getdata( ).

 

  lr_alv->alv_full( lt_tab ).

ENDFORM.                    "f_main

 

*佈局搜索幫助

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_lay.

  CALL METHOD lcl_alv=>f4_layout

    IMPORTING

      layout = p_lay.

 

*執行動作

START-OF-SELECTION.

  PERFORM f_main.

發佈了30 篇原創文章 · 獲贊 1 · 訪問量 16萬+
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章