控制alv中layout保存及搜索帮助详解编程语言

问题

今天有user反映希望程序alv结果可以保存layout，但save layout按钮为灰色。程序实现alv方法为CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’。

原因

经debug发现’REUSE_ALV_GRID_DISPLAY’中参数i_save值为空值space。
i_save参数官方介绍如下：

’ ’ = 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.

’X’ = Standard save mode　　　　　　　　 　(全局布局可以保存)
Display variants can be saved as standard display variants.
Saving display variants as user-specific is not possible.

’U’ = User-specific save mode　　　　　　　 (用户自定义布局可以保存)
Display variants can only be saved as user-specific.

’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.

解决办法

将i_save值写死赋值为A，测试后发现可以保存layout，选择屏幕layout输入框需要做F4帮助，方便user直接选择自己layout并保存variant。

以下为与layout相关部分代码，wk_vari为选择屏幕上layout输入框。

DATA : variante        LIKE disvariant, 
       def_variante    LIKE disvariant, 
       variant_exit(1) TYPE c, 
       variant_save(1) TYPE c. 
 
PARAMETERS:   wk_vari LIKE disvariant-variant. 
 
INITIALIZATION. 
 
  variant_save = 'A'. 
  CLEAR variante. 
  variante-report = sy-repid. 
  def_variante    = variante. 
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET' 
    EXPORTING 
      i_save        = variant_save 
    CHANGING 
      cs_variant    = def_variante 
    EXCEPTIONS 
      wrong_input   = 1 
      not_found     = 2 
      program_error = 3 
      OTHERS        = 4. 
 
  IF sy-subrc = 0. 
    wk_vari = def_variante-variant. 
  ENDIF. 
 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR wk_vari. 
 
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4' 
    EXPORTING 
      is_variant    = variante 
      i_save        = variant_save 
    IMPORTING 
      e_exit        = variant_exit 
      es_variant    = def_variante 
    EXCEPTIONS 
      not_found     = 1 
      program_error = 2 
      OTHERS       = 3. 
  IF sy-subrc = 2. 
    MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno 
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
  ELSE. 
    IF variant_exit = space. 
        wk_vari = def_variante-variant. 
    ENDIF. 
  ENDIF. 
 
AT SELECTION-SCREEN. 
   
  IF NOT wk_vari IS INITIAL. 
    MOVE variante TO def_variante. 
    MOVE wk_vari TO def_variante-variant. 
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE' 
      EXPORTING 
        i_save     = variant_save 
      CHANGING 
        cs_variant = def_variante. 
        variante   = def_variante. 
  ELSE. 
    CLEAR variante. 
    variante-report = sy-repid. 
  ENDIF. 
   
  "调用alv函数时赋值i_save、is_variant参数即可 
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 
    EXPORTING 
      i_interface_check  = '' 
      i_callback_program = sy-repid 
      it_fieldcat        = xfieldcat[] 
      i_default          = 'X' 
      i_save             = variant_save 
      is_layout          = layout 
      is_variant         = variante 
    TABLES 
      t_outtab           = inttab 
    EXCEPTIONS 
      program_error      = 1 
      OTHERS             = 2.