OO ALV

REPORT ZJ_TE6.

DATA:P_MATNR LIKE MARC-MATNR, "物料
     P_WERKS LIKE MARC-WERKS. " 公司

DATA:OK_CODE  LIKE SY-UCOMM,
      SAVE_OK LIKE SY-UCOMM.

DATA: P1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,  " 控制对象
      G_GRID TYPE REF TO CL_GUI_ALV_GRID.      "ALV对象


DATA: GT_FIELDCAT TYPE LVC_T_FCAT, " 功能C: 设定fieldcat
      GS_FIELDCAT TYPE LVC_S_FCAT.

DATA: LS_LAYOUT  TYPE LVC_S_LAYO.  "设置样式

DATA: GT_EXCLUDE TYPE UI_FUNCTIONS.


TYPES: BEGIN OF GT_STR ,
  MATNR  LIKE MARC-MATNR, "物料
  WERKS  LIKE MARC-WERKS, "工厂
  EKGRP  LIKE MARC-EKGRP, "物料组
  AUSME  LIKE MARC-AUSME,
  EDIT TYPE LVC_T_STYL,"控制单元格编辑
  END OF GT_STR.

DATA:GT_DATA TYPE TABLE OF GT_STR  WITH HEADER LINE.

*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_HANDLER DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EVENT_HANDLER DEFINITION.

  PUBLIC SECTION.
    METHODS HANDLE_DOUBLE       FOR EVENT  DOUBLE_CLICK OF CL_GUI_ALV_GRID IMPORTING E_ROW E_COLUMN.  " 双击事件
    METHODS HANDLE_TOOLBAR      FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID IMPORTING E_OBJECT. " 设定增加自定义ALV工具栏的按钮
    METHODS HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID IMPORTING E_UCOMM. " 设定响应user command

    "某字段设置热键后，单击此单元格时触发
    METHODS  HANDLE_CELL_CLICK   FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
      IMPORTING
        E_ROW_ID
        E_COLUMN_ID
        ES_ROW_NO.


ENDCLASS.                    "LCL_EVENT_HANDLER DEFINITION


*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_HANDLER IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.

  METHOD HANDLE_DOUBLE.
    MESSAGE S000(Z000) WITH ‘双击事件‘.
  ENDMETHOD.                    "HANDLE_DOUBLE

  "新增按钮
  METHOD  HANDLE_TOOLBAR.
    DATA: LS_TOOLBAR TYPE STB_BUTTON.

    CLEAR LS_TOOLBAR.
    LS_TOOLBAR-TEXT = ‘新增按钮‘.
    LS_TOOLBAR-FUNCTION = ‘ADD1‘.
    LS_TOOLBAR-ICON = ICON_CALCULATION.
    APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
  ENDMETHOD.                    "HANDLE_TOOLBAR

  " 新增按钮响应
  METHOD HANDLE_USER_COMMAND.
    CASE  E_UCOMM.
      WHEN ‘ADD1‘.
        MESSAGE S000(Z000) WITH  ‘你点击了新增按钮‘.
    ENDCASE.
  ENDMETHOD.                    "HANDLE_USER_COMMAND



  METHOD HANDLE_CELL_CLICK.

    "获取单击字段
    DATA: L_MSG      TYPE STRING,
          L_WA_CLICK LIKE LINE OF GT_DATA,
          L_ROW      TYPE STRING,
          L_FIELD    TYPE STRING.


    L_ROW      = ES_ROW_NO-ROW_ID.               "选中行
    L_FIELD    = E_COLUMN_ID.                    "选中的字段

    READ TABLE GT_DATA INTO L_WA_CLICK INDEX ES_ROW_NO-ROW_ID.

    IF SY-SUBRC = 0.
      "得到所单击值
      CONCATENATE ‘您选中第‘ L_ROW  ‘行，字段为：‘ L_FIELD  ‘，选中值为‘ INTO L_MSG.
      MESSAGE L_MSG TYPE ‘I‘.
    ENDIF.
  ENDMETHOD.                    "handle_cell_click



ENDCLASS.                    "LCL_EVENT_HANDLER IMPLEMENTATION

DATA: GR_EVENT TYPE REF TO LCL_EVENT_HANDLER.

START-OF-SELECTION.

  CALL SCREEN 2000.


*&---------------------------------------------------------------------*
*&      Module  STATUS_2000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_2000 OUTPUT.
  SET PF-STATUS ‘STATUS_2000‘.
  PERFORM GET_DATA.  "取值
  PERFORM ALV_STYLE. "样式
  PERFORM ALV_FIELD.
  PERFORM EXCLUDE_TB_FUNCTIONS  TABLES GT_EXCLUDE.  "隐藏标准按钮

  PERFORM ALV_SHOW.  "ALV 显示

ENDMODULE.                 " STATUS_2000  OUTPUT



*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_2000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_2000 INPUT.
  CLEAR:SAVE_OK.
  SAVE_OK = OK_CODE.
  CLEAR:OK_CODE.

  CASE SAVE_OK.
    WHEN ‘CANCEL‘ .
      LEAVE PROGRAM.
    WHEN ‘BACK‘ .
      LEAVE PROGRAM.
    WHEN ‘LEAVE‘ .
      LEAVE PROGRAM.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_2000  INPUT


*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM GET_DATA.

  RANGES: R_MATNR FOR MARC-MATNR,
          R_WERKS FOR MARC-WERKS.

  IF P_MATNR IS NOT INITIAL.
    R_MATNR-LOW = P_MATNR.
    R_MATNR-SIGN = ‘I‘.
    R_MATNR-OPTION = ‘CP‘.
    APPEND R_MATNR.
  ENDIF.

  IF P_WERKS IS  INITIAL.
    P_WERKS = ‘2000‘.
  ENDIF.

  SELECT   MATNR  WERKS  EKGRP AUSME  FROM MARC INTO CORRESPONDING FIELDS OF TABLE GT_DATA
    UP TO 100 ROWS
    WHERE  WERKS EQ P_WERKS
     AND MATNR IN R_MATNR.

ENDFORM.                    "get_data


*&---------------------------------------------------------------------*
*&      Form  ALV_FIELD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM ALV_FIELD.

  GS_FIELDCAT-FIELDNAME = ‘MATNR‘.    " 字段名
  GS_FIELDCAT-COLTEXT = ‘物料‘.       " 显示名称
  GS_FIELDCAT-EDIT = ‘X‘.             " 是否可编辑
  APPEND GS_FIELDCAT TO GT_FIELDCAT.  "
  CLEAR GS_FIELDCAT.

  GS_FIELDCAT-FIELDNAME = ‘WERKS‘.    " 字段名
  GS_FIELDCAT-COLTEXT = ‘工厂‘.       " 显示名称
  GS_FIELDCAT-EDIT = ‘X‘.
  APPEND GS_FIELDCAT TO GT_FIELDCAT.  "
  CLEAR GS_FIELDCAT.

  GS_FIELDCAT-FIELDNAME = ‘EKGRP‘.    " 字段名
  GS_FIELDCAT-COLTEXT = ‘物料组‘.       " 显示名称
  GS_FIELDCAT-EDIT = ‘X‘.
  APPEND GS_FIELDCAT TO GT_FIELDCAT.  "
  CLEAR GS_FIELDCAT.

  GS_FIELDCAT-FIELDNAME = ‘AUSME‘.    " 字段名
  GS_FIELDCAT-COLTEXT = ‘交货单位‘.       " 显示名称
  APPEND GS_FIELDCAT TO GT_FIELDCAT.  "
  CLEAR GS_FIELDCAT.

ENDFORM.                    "ALV_FIELD


*&---------------------------------------------------------------------*
*&      Form  ALV_STYLE
*&---------------------------------------------------------------------*
*       text  样式
*----------------------------------------------------------------------*
FORM ALV_STYLE.
  LS_LAYOUT-ZEBRA = ‘X‘.
  LS_LAYOUT-GRID_TITLE = ‘物料信息查询‘.
  LS_LAYOUT-SMALLTITLE = ‘X‘.
  LS_LAYOUT-SEL_MODE = ‘‘.
  "  ls_layout-no_TOOLBAR = ‘X‘.    " 隐藏所有按钮
 " LS_LAYOUT-SEL_MODE = ‘A‘.
 LS_LAYOUT-STYLEFNAME = ‘EDIT‘.   "设置单元格
 LS_LAYOUT-CWIDTH_OPT = ‘X‘.


ENDFORM.                    "ALV_STYLE


*&---------------------------------------------------------------------*
*&      Form  ALV_EVENT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM ALV_EVENT.
  CREATE OBJECT GR_EVENT.
  SET HANDLER GR_EVENT->HANDLE_DOUBLE FOR G_GRID.
  SET HANDLER GR_EVENT->HANDLE_TOOLBAR FOR G_GRID.     "增加自定义ALV工具栏的按钮
  SET HANDLER GR_EVENT->HANDLE_USER_COMMAND FOR G_GRID. "  设定响应user command

  SET HANDLER GR_EVENT->HANDLE_CELL_CLICK  FOR G_GRID.

ENDFORM.                    "ALV_EVENT

*&---------------------------------------------------------------------*
*&      Form  ALV_SHOW
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM ALV_SHOW.
  IF P1 IS INITIAL.
    "创建容器对象
    CREATE OBJECT P1
     EXPORTING
*      parent                      =
       CONTAINER_NAME              = ‘P1‘        .

    "   创建 ALV_FRID 对象
    CREATE OBJECT G_GRID
      EXPORTING
        I_PARENT          = P1
      EXCEPTIONS
        ERROR_CNTL_CREATE = 1
        ERROR_CNTL_INIT   = 2
        ERROR_CNTL_LINK   = 3
        ERROR_DP_CREATE   = 4
        OTHERS            = 5.

    " 设置事件
    PERFORM ALV_EVENT.

    "数据显示
    CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY     " 基本显示
    EXPORTING
*          i_buffer_active               =
*          i_bypassing_buffer            =
*          i_consistency_check           =
*          i_structure_name              =
*          is_variant                    =
*          i_save                        = ‘X‘
*          i_default                     = ‘X‘
           IS_LAYOUT                     = LS_LAYOUT   "设定layout
*          is_print                      =
*          it_special_groups             =
           IT_TOOLBAR_EXCLUDING          = GT_EXCLUDE  "设定屏蔽标准ALV 工具栏的按钮
*          it_hyperlink                  =
*          it_alv_graphics               =
*          it_except_qinfo               =
*          ir_salv_adapter               =
        CHANGING
          IT_OUTTAB                     = GT_DATA[]
          IT_FIELDCATALOG               = GT_FIELDCAT[] "设定fieldcat
*          it_sort                       =
*          it_filter                     =
        EXCEPTIONS
          INVALID_PARAMETER_COMBINATION = 1
          PROGRAM_ERROR                 = 2
          TOO_MANY_LINES                = 3
          OTHERS                        = 4
              .

  ELSE.


    PERFORM CHANG_EDIT_DATA.    "

    CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY  "刷新ALV 最新的值
     EXCEPTIONS
       FINISHED       = 1
       OTHERS         = 2
           .
  ENDIF.
ENDFORM  .                  "ALV_SHOW


*&---------------------------------------------------------------------*
*&      Form  CHANGE_EDIT_MODE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM CHANGE_EDIT_MODE.

  IF G_GRID IS NOT INITIAL.
    IF G_GRID->IS_READY_FOR_INPUT( ) EQ 0.

      CALL METHOD G_GRID->SET_READY_FOR_INPUT  "实现alv中可编辑的字段可见进行编辑
        EXPORTING
          I_READY_FOR_INPUT = 1.
    ELSE.
      CALL METHOD G_GRID->CHECK_CHANGED_DATA. "  （该方法：就是获取画面数据改变的事件，并把相应的数据修改到内表）

      CALL METHOD G_GRID->SET_READY_FOR_INPUT
        EXPORTING
          I_READY_FOR_INPUT = 0.
    ENDIF.
  ENDIF.

ENDFORM.                    "CHANGE_EDIT_MODE


*&---------------------------------------------------------------------*
*&      Form  chang_edit_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM CHANG_EDIT_DATA.

  FIELD-SYMBOLS:<LINE> TYPE GT_STR,
               <FIELD> TYPE ANY.
  DATA:LS_COMP TYPE ABAP_COMPDESCR,
       LT_STRUCT TYPE REF TO CL_ABAP_STRUCTDESCR.

  DATA:LS_CELL_EDIT TYPE LVC_S_STYL,"单元格编辑控制
       LT_CELL_EDIT TYPE LVC_T_STYL.

  LT_STRUCT ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_NAME( ‘GT_STR‘ ).

  LOOP AT GT_DATA ASSIGNING <LINE>.
    REFRESH:<LINE>-EDIT[].
    CLEAR:LS_CELL_EDIT.
    DO 4 TIMES.
      ASSIGN COMPONENT SY-INDEX OF STRUCTURE <LINE> TO <FIELD>.
      "不为空的设置不可以编辑
      IF <FIELD> IS NOT INITIAL.
        READ TABLE LT_STRUCT->COMPONENTS INTO LS_COMP INDEX SY-INDEX.
        LS_CELL_EDIT-FIELDNAME = LS_COMP-NAME.   "字段
        LS_CELL_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED. "控制样式
        INSERT  LS_CELL_EDIT INTO TABLE LT_CELL_EDIT   .
        CLEAR:LS_CELL_EDIT.
      ENDIF.
    ENDDO.
    <LINE>-EDIT = LT_CELL_EDIT.
    REFRESH:LT_CELL_EDIT[].
  ENDLOOP.

ENDFORM.                    "chang_edit_data



*&---------------------------------------------------------------------*
*&      Form  exclude_tb_functions
*&---------------------------------------------------------------------*
*       text   将标准按钮从屏幕中拿掉
*----------------------------------------------------------------------*
*      -->PT_EXCLUDE text
*----------------------------------------------------------------------*
FORM EXCLUDE_TB_FUNCTIONS  TABLES PT_EXCLUDE TYPE UI_FUNCTIONS .

  DATA: LS_EXCLUDE TYPE UI_FUNC.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_MAXIMUM .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.

  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_MINIMUM .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.

  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SUBTOT .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.

  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SUM .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_AVERAGE .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_SUM .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.

  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_SUBTOT .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SORT_ASC.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_SORT_DSC .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_FIND .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_FILTER .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_PRINT .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_PRINT_PREV .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_EXPORT .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_GRAPH .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_VIEW .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_DETAIL .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_HELP .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_INFO .
  APPEND LS_EXCLUDE TO PT_EXCLUDE.

  LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_MB_VARIANT.
  APPEND LS_EXCLUDE TO PT_EXCLUDE.
ENDFORM.                    "EXCLUDE_TB_FUNCTIONS