POPUP ALV

Patlayan pencerede ALV GRID gösterimi




  CALL FUNCTION `ZPP_POPUP_ALV`
    EXPORTING
     I_TITLE              = LV_BASLIK
    TABLES
      it_alv               = gt_musteri_sips
            .


FUNCTION ZPP_POPUP_ALV.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_START_COLUMN) TYPE  I DEFAULT 25
*"     REFERENCE(I_START_LINE) TYPE  I DEFAULT 6
*"     REFERENCE(I_END_COLUMN) TYPE  I DEFAULT 100
*"     REFERENCE(I_END_LINE) TYPE  I DEFAULT 10
*"     REFERENCE(I_TITLE) TYPE  STRING DEFAULT ``
*"     REFERENCE(I_POPUP) TYPE  C DEFAULT ` `
*"  TABLES
*"      IT_ALV TYPE  STANDARD TABLE
*"----------------------------------------------------------------------
 
DATA go_alv TYPE REF TO cl_salv_table.
data: gr_display   type ref to cl_salv_display_settings.
data: lv_title type LVC_TITLE.

  TRY.
      cl_salv_table=>factory(
        IMPORTING
          r_salv_table = go_alv
        CHANGING
          t_table      = it_alv[] ).
    CATCH cx_salv_msg.
  ENDTRY.


  DATA: lr_functions TYPE REF TO cl_salv_functions_list.
  DATA: gr_columns TYPE REF TO CL_SALV_COLUMNS_TABLE.


  lr_functions = go_alv->get_functions( ).
  lr_functions->set_all( `X` ).

  lv_title = I_TITLE.
  gr_display = go_alv->get_display_settings( ).
  gr_display->set_list_header( VALUE = lv_title ).

    gr_columns = go_alv->get_columns( ).
    gr_columns->set_optimize( `X` ).


  IF go_alv IS BOUND.
    IF i_popup = `X`.
      go_alv->set_screen_popup(
        start_column = i_start_column
        end_column  = i_end_column
        start_line  = i_start_line
        end_line    = i_end_line ).

    ENDIF.
    go_alv->display( ).
  ENDIF.


ENDFUNCTION.