◆◆0

[代码]REUSE_ALV_GRID_DISPLAY_LVC-选择画面中添加ALV布局控制字段

石头 1月 26, 2017 ALV 13,542 views 0

在ALV报表的选择画面中加一个parameter输入一个布局名称，这样程序运行之前用户可以先选择自己布局。

ALV布局(Layout)的F4函数是 REUSE_ALV_VARIANT_F4。

详细代码如下：

数据定义：

DATA: git_fieldcat TYPE lvc_t_fcat,
      gwa_fieldcat LIKE LINE OF git_fieldcat,
      git_sort     TYPE lvc_t_sort,
      gwa_variant  TYPE disvariant,"layout
      gwa_sort     LIKE LINE OF git_sort,
      gwa_layout   TYPE lvc_s_layo.

DATA: git_fieldcat TYPE lvc_t_fcat,

gwa_fieldcat LIKE LINE OF git_fieldcat,

git_sort TYPE lvc_t_sort,

gwa_variant TYPE disvariant,"layout

gwa_sort LIKE LINE OF git_sort,

gwa_layout TYPE lvc_s_layo.

选择画面：

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-030.
PARAMETERS:    p_vari TYPE disvariant-variant.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-030.

PARAMETERS: p_vari TYPE disvariant-variant.

SELECTION-SCREEN END OF BLOCK b2.

屏幕F4：

布局参数 I_SAVE保存选项：

1：I_SAVE = SPACE. 布局不能被保存

2：I_SAVE = 'U'. 仅自定义的布局可以被保存

3：I_SAVE = 'X'. 仅全局布局可以被保存

4：I_SAVE = 'A'. 自定义的布局和全局的布局都可以被保存

英文如下：
1， ' ' = Display variants cannot be saved
Defined display variants (such as delivered display variants) can be selected for presentation regardless of this indicator. However, changes cannot be saved.
2，'X' = Standard save mode
Display variants can be saved as standard display variants.
Saving display variants as user-specific is not possible.
3，'U' = User-specific save mode
Display variants can only be saved as user-specific.
4，'A' = Standard and user-specific save mode
Display variants can be saved both as user-specific and as standard
variants. Users make their choice on the dialog box for saving the
display variant.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  PERFORM frm_alv_variant_f4.

FORM frm_alv_variant_f4.

  DATA: lwa_variant TYPE disvariant,
        l_exit      TYPE c.

  lwa_variant-report = sy-repid.
  lwa_variant-username = sy-uname.

  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = lwa_variant
      i_save        = 'A'
    IMPORTING
      e_exit        = l_exit
      es_variant    = lwa_variant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.

  IF sy-subrc <> 0 OR l_exit = 'X'.
    EXIT.
  ENDIF.

  p_vari = lwa_variant-variant.

ENDFORM.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.

PERFORM frm_alv_variant_f4.

FORM frm_alv_variant_f4.

DATA: lwa_variant TYPE disvariant,

l_exit TYPE c.

lwa_variant-report = sy-repid.

lwa_variant-username = sy-uname.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = lwa_variant

i_save = 'A'

IMPORTING

e_exit = l_exit

es_variant = lwa_variant

EXCEPTIONS

not_found = 1

program_error = 2

OTHERS = 3.

IF sy-subrc <> 0 OR l_exit = 'X'.

EXIT.

ENDIF.

p_vari = lwa_variant-variant.

ENDFORM.

ALV：alv输入参数is_variant赋值

  gwa_layout-zebra      = abap_true.
  gwa_layout-sel_mode   = ''.
  gwa_layout-cwidth_opt = abap_true.

  gwa_variant-report = sy-repid.
  gwa_variant-variant = p_vari.
* set catalog
  PERFORM frm_set_catalog.

* set sort
  PERFORM frm_set_sort.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      is_layout_lvc   = gwa_layout
      it_fieldcat_lvc = git_fieldcat
      IS_VARIANT      = gwa_variant
* IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab        = git_alv[]
    EXCEPTIONS
      program_error   = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.