REUSE_ALV_GRID_DISPLAY_LVC 实现按钮切换ALV编辑状态示例

• PF-STATUS复制SAPLKKBL-STANDARD_FULLSCREEN，并设置Toolbar动态文本：设置Toolbar动态文本
  
• 代码

  TYPES: BEGIN OF TY_SFLIGHT,
           BOX TYPE C.
      INCLUDE STRUCTURE SFLIGHT.
  TYPES: END OF TY_SFLIGHT.
  
  DATA: GT_SFLIGHT      TYPE TABLE OF TY_SFLIGHT,
        GS_LAYOUT_LVC   TYPE LVC_S_LAYO,                      "显示布局参数
        GT_FIELDCAT_LVC TYPE LVC_T_FCAT WITH HEADER LINE,     "字段
        GS_SETTING      TYPE LVC_S_GLAY,
        GT_EVENTS       TYPE SLIS_T_EVENT WITH HEADER LINE,   "事件
        WCL_CONTAINER   TYPE REF TO CL_GUI_DOCKING_CONTAINER, "存放ALV的容器
        O_GRID          TYPE  REF  TO CL_GUI_ALV_GRID.        "ALV对象
  
  DATA: GS_TEXT    TYPE SMP_DYNTXT,                           "动态字段
        GV_DISPLAY TYPE C.                                    "标志状态
  
  "定义fieldcat脚本
  DEFINE INIT_FIELDCAT.
    CLEAR: GT_FIELDCAT_LVC.
    GT_FIELDCAT_LVC-FIELDNAME    = &1.       "字段名
    GT_FIELDCAT_LVC-COLTEXT      = &2.       "列标题Title
    GT_FIELDCAT_LVC-REF_TABLE    = &3.       "内部表字段的参考表名称
    GT_FIELDCAT_LVC-REF_FIELD    = &4.       "内部表字段的参考字段名称
    GT_FIELDCAT_LVC-NO_ZERO      = &5.       "为输出隐藏零 X：隐藏
    GT_FIELDCAT_LVC-NO_CONVEXT   = &6.       "是否应用转换出口函数 X：开启
    GT_FIELDCAT_LVC-EDIT         = &7.       "编辑模式
    GT_FIELDCAT_LVC-F4AVAILABL   = &8.       "是否字段帮助
  
    CASE GT_FIELDCAT_LVC-FIELDNAME.
      WHEN 'CARRID'.
        GT_FIELDCAT_LVC-EMPHASIZE = 'C310'. "设置颜色
      WHEN 'BOX'.
        GT_FIELDCAT_LVC-TECH = 'X'.         "技术字段
      WHEN OTHERS.
    ENDCASE.
    APPEND GT_FIELDCAT_LVC.
  END-OF-DEFINITION.
  
  INITIALIZATION.
    GS_TEXT-ICON_ID   = ICON_CHANGE.         "初始化按钮
    GS_TEXT-TEXT      = '切换到修改模式'.      "悬停鼠标显示的文字
    GS_TEXT-ICON_TEXT = '修改'.               "控件栏显示的文字
    GV_DISPLAY = 'X'.                         "显示模式,按钮CHANGE
  
  AT SELECTION-SCREEN OUTPUT.
  
  AT SELECTION-SCREEN.
  
  START-OF-SELECTION.
    PERFORM FRM_SET_LAYOUT.                   "设置layout
    PERFORM FRM_SET_FIELDCAT.                 "设置Fieldcatlog
    PERFORM FRM_SET_SETTING.                  "参数回调
    PERFORM FRM_SET_EVENTS.                   "设置注册事件的form
    PERFORM FRM_GET_DATA.                     "获取数据
  
  END-OF-SELECTION.
    PERFORM FRM_DISPLAY_ALV.
  
  *_______________________________