单元格级别的操作ALV.

带表头的ALV使用结构如下：

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = I_EVENTS.

READ TABLE I_EVENTS
       WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
       INTO W_EVENTS.

IF SY-SUBRC = 0.
    MOVE 'ALV_TOP_OF_PAGE' TO W_EVENTS-FORM.
    MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
  ENDIF.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      I_CALLBACK_PF_STATUS_SET = 'SET_STATUS'
      I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
      IS_LAYOUT_LVC            = GD_LAYOUT
      IT_FIELDCAT_LVC          = IT_FIELDCAT
      IT_EVENTS                = I_EVENTS
      I_SAVE                   = 'X'
      IT_SORT_LVC              = IT_SORT
    TABLES
      T_OUTTAB                 = GT_ALV
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.

一，定义部分。

TYPE-POOLS: SLIS.

1. 定义显示字段宏

DATA: IT_FIELDCAT TYPE LVC_T_FCAT,     "slis_t_fieldcat_alv WITH HEADER LINE,
      WA_FIELDCAT TYPE LVC_S_FCAT.
DEFINE ALV_INIT.
  WA_FIELDCAT-FIELDNAME   = &1.
  WA_FIELDCAT-SCRTEXT_M   = &2.
  WA_FIELDCAT-EDIT        = &3.
  WA_FIELDCAT-OUTPUTLEN   = &4.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
END-OF-DEFINITION.

2.定义排序定义

DATA: IT_SORT TYPE LVC_T_SORT.
 DATA: WA_SORT TYPE LVC_S_SORT.

3.定义显示参数

DATA  GD_LAYOUT    TYPE LVC_S_LAYO.

4.表头定义

DATA   I_EVENTS        TYPE SLIS_T_EVENT,

W_EVENTS        LIKE LINE OF I_EVENTS.

DATA   I_LIST_COMMENTS TYPE SLIS_T_LISTHEADER,

W_LIST_COMMENTS LIKE LINE OF I_LIST_COMMENTS .

5.单元格可编辑状态设置

在定义的输出结构中添加

TYPES: BEGIN OF TYP_SAMPLE.

.......

TYPES: 测试字段名称 TYPE 测试类型.

TYPES: SEL   TYPE C.                 "为设置多选状态预留

TYPES: FIELD_STYLE  TYPE LVC_T_STYL. "为设置单元格状态预留

TYPES: ROWCOLOR     TYPE CHAR30.     "为添加某行数据整体颜色预留

TYPES: END OF TYP_SAMPLE.

二、ALV FM 动态程序出口格式：

1.ALV PAI事件出口格式：

FORM USER_COMMAND USING RF_UCOMM    LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.

1）.使用整体设置，只要有OK_CODE就会刷新

RS_SELFIELD-REFRESH = 'X'.

2）.不同按钮条件下的刷新

CASE RF_UCOMM.

WHEN 'SAVE'."SAVE为状态栏按钮

"只在点击SAVE（按钮名称）按钮时候才会自动刷新

RS_SELFIELD-REFRESH = 'X'.

WHEN OTHERS.

ENDCASE.

ENDFORM.

2.表头出口实例：

FORM ALV_TOP_OF_PAGE.
  CLEAR: I_LIST_COMMENTS[].
  W_LIST_COMMENTS-TYP  = 'H'. "H=Header, S=Selection, A=Action
  W_LIST_COMMENTS-KEY  = ''.
  CONCATENATE  ' ' '直发销售订单取消审批流程' INTO W_LIST_COMMENTS-INFO.
  APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
**组织机构
  CLEAR W_LIST_COMMENTS.
  W_LIST_COMMENTS-TYP  = 'S'. "H=Header, S=Selection, A=Action
  W_LIST_COMMENTS-KEY  = ''.
  CONCATENATE  '双击报表中的销售订单那列可以进入显示销售订单界面，查看销售订单详细情况。'
  W_LIST_COMMENTS-INFO INTO W_LIST_COMMENTS-INFO.
  APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
** 时间范围
  CLEAR W_LIST_COMMENTS.
  W_LIST_COMMENTS-TYP  = 'S'. "H=Header, S=Selection, A=Action
  W_LIST_COMMENTS-KEY  = ''.
  CONCATENATE  '统计日期:' SY-DATUM INTO W_LIST_COMMENTS-INFO.
  APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  CLEAR W_LIST_COMMENTS.
*调拨ALV的功能
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = I_LIST_COMMENTS.
ENDFORM.                  "alv_top_of_page

3.状态栏出口实例

FORM SET_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

ENDFORM.

三 ALV整体设置以及相关功能。

1）. GD_LAYOUT-BOX_FNAME  = 'SEL'.       “设置多选按钮名称     （定义字段）
  GD_LAYOUT-STYLEFNAME = 'FIELD_STYLE'. ”设置单元格选择名称 （定义字段）
  GD_LAYOUT-INFO_FNAME = 'ROWCOLOR'.   “设置颜色名称        （定义字段）

单元格设置为不可编辑状态设置：(WA_FIELDCAT-EDIT = 'X' 要操作的列 必须设为可编辑状态 )

LS_STYLEROW-FIELDNAME = '测试字段名称' .
       LS_STYLEROW-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED. "set field to disabled
       CLEAR  GT_ALV-FIELD_STYLE.
       APPEND LS_STYLEROW TO  GT_ALV-FIELD_STYLE.

注：通过LOOP ALV要显示的内表 可以根据SEL的‘X’或者其他字段的状态值，动态设置可编辑还是不可编辑状态

单元格设置为可编辑状态设置：

LS_STYLEROW-FIELDNAME = '测试字段名称' .
      LS_STYLEROW-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED. "set field to disabled
      CLEAR  GT_ALV-FIELD_STYLE.
      APPEND LS_STYLEROW TO  GT_ALV-FIELD_STYLE.

注：通过LOOP ALV要显示的内表 可以根据SEL的‘X’或者其他字段的状态值，动态设置可编辑还是不可编辑状态

实例备忘代码：

LOOP AT  GT_ALV WHERE SQYY NE ''. "SQYY 申请原因 STAT 申请状态
    IF GT_ALV-STAT IS NOT INITIAL.
      LS_STYLEROW-FIELDNAME = 'SQYY' .
      LS_STYLEROW-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED. "set field to disabled
      CLEAR  GT_ALV-FIELD_STYLE.
      APPEND LS_STYLEROW TO  GT_ALV-FIELD_STYLE.
      MODIFY GT_ALV.
      CLEAR LS_STYLEROW.
      CLEAR GT_ALV.
    ELSE.
      LS_STYLEROW-FIELDNAME = 'SQYY' .
      LS_STYLEROW-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED. "set field to disabled
      CLEAR  GT_ALV-FIELD_STYLE.
      APPEND LS_STYLEROW TO  GT_ALV-FIELD_STYLE.
      MODIFY GT_ALV.
      CLEAR LS_STYLEROW.
      CLEAR GT_ALV.
    ENDIF.

2).   设置排序字段代码示例

WA_SORT-SPOS = '01'.
  WA_SORT-FIELDNAME = '测试字段名称'.
  WA_SORT-UP = 'X'.     "升序排列  WA_SORT-DOWN = ‘X’降序排列
  APPEND WA_SORT TO IT_SORT.
  CLEAR WA_SORT.

四 ALV中 PAI事件块的操作。

1).由于单元格可编辑状态，故要让后台获取前台（显示层）所操作的数据，需要调用一个函数。

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = ALV_GRID.

分析：调用这个函数的其实是获取 调用标准FM ALV的屏幕号已经屏幕上的CONTROL(C)控件名称，并将所有的属性赋值给定义好的实例ALV_GRID，然后通过ALV_GRID 调用相关的方法。

CALL METHOD ALV_GRID->CHECK_CHANGED_DATA.  在里面的最重要的一句代码就是

CALL METHOD CL_GUI_CFW=>FLUSH.这句代码是将前台屏幕所输入的信息 同步到后台CFW 服务器，然后使用ABAP代码获取所需要的操作信息。 CFW ： CONTROL FRAMEWORK  控件架构 在SAP 的前台中有个SAP GUI SERVICES （AUTOMATION HANDLER） 应用层的是 (CONTROL FRAMEWORK SERVICES) 就是使用该语句进行同步刷新的 。

代码示例如下：

FORM USER_COMMAND USING RF_UCOMM    LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.

RS_SELFIELD TYPE SLIS_SELFIELD.
  RS_SELFIELD-REFRESH = 'X'.  "防止双击刷新
  CASE RF_UCOMM .
    WHEN 'APPROVE'.“审批

DATA ALV_GRID TYPE REF TO CL_GUI_ALV_GRID.
  DATA LT_ZHGXS_ZFSP TYPE TABLE OF ZHGXS_ZFSP.
  DATA LS_ZHGXS_ZFSP TYPE ZHGXS_ZFSP.
  DATA L_SIGN TYPE C.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = ALV_GRID.
  CALL METHOD ALV_GRID->CHECK_CHANGED_DATA.

”伪代码如下：

LOOP ALV输出内表 WHRER SEL = 'X' 被选中的行

IF  测试定义字段  IS INITIAL.

ELSE.

结构赋值.

添加内表.

ENDIF.

使用更新内表更新数据库。

IF 返回值 = 0.

COMMIT WORK .提交数据库，数据将不能被回滚.(数据层执行UPDATE队列。调用相关FM写入数据库。)

ELSE.

ROLLBACK WORK . 数据库回滚，只要有一条数据出错，所有的数据将不能被写入数据库

ENDLOOP

......

WHEN OTHERS.

ENDCASE.

ENDFORM.

2) 单行添加颜色。

已设置好的字段

TYPES: BEGIN OF TYP_SAMPLE.

.......

TYPES: ROWCOLOR     TYPE CHAR30.     "为添加某行数据整体颜色预留

TYPES: END OF TYP_SAMPLE.

GD_LAYOUT-INFO_FNAME = 'ROWCOLOR'.   “设置颜色名称        （定义字段）

PAI 出口中

如果遇到特定的提示情况，将值 C100  C200  .... C600 等等值付给ROWCOLOR. ALV自动就会输出颜色行。

五、双击单元格控制。

在ALV函数的PAI出口中。

双击 是OKCODE为空时候 默认响应事件。

所以实例代码如下：

FORM USER_COMMAND USING RF_UCOMM    LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.
  RS_SELFIELD-REFRESH = 'X'.  "防止双击刷新
  CASE RF_UCOMM .
    WHEN 'APPROVE'.
      PERFORM  SUB_APPROVE_DATA TABLES GT_ALV.   "提交申
    WHEN 'REFRESH'.
      PERFORM SUB_GET_DATA.
      PERFORM SUB_SET_ALV.
    WHEN OTHERS.
      "双击
      IF  RS_SELFIELD-SEL_TAB_FIELD EQ '1-VBELN'.
        READ TABLE GT_ALV INTO GS_ALV INDEX RS_SELFIELD-TABINDEX.
        SET PARAMETER ID 'AUN' FIELD GS_ALV-VBELN.
        CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
      ELSEIF RS_SELFIELD-SEL_TAB_FIELD EQ '1-SQYY'.
        READ TABLE GT_ALV INTO GS_ALV INDEX RS_SELFIELD-TABINDEX.
        IF SY-SUBRC EQ 0.
          CALL SCREEN 9000 STARTING AT 60   6
                           ENDING   AT 102  19  .
          MODIFY GT_ALV FROM GS_ALV INDEX  RS_SELFIELD-TABINDEX.
        ENDIF.
      ENDIF.
  ENDCASE.
  CLEAR SY-UCOMM.
ENDFORM.

其中           RS_SELFIELD-SEL_TAB_FIELD EQ '1-测试字段名称'

解释如下：1 就是数字1. - 连接符-   后面就是VBELN.

1可以理解为 列的意思，双击哪一列的哪个格。

RS_SELFIELD-TABINDEX 是系统结构的内表INDEX.

六。自定义输入 输入编辑文本框。自己画好屏幕（凭感觉画）然后画一个控件CONTROL 命名为G_CONTAINER

9000屏幕流  9000屏幕属性 ：方式对话框

PROCESS BEFORE OUTPUT.
 MODULE STATUS_9000.
*
PROCESS AFTER INPUT.
 MODULE USER_COMMAND_9000.

屏幕代码：

MODULE STATUS_9000 OUTPUT.
  SET PF-STATUS 'S9000'.
  CLEAR GT_SQYY[].
  APPEND GS_ALV-SQYY TO GT_SQYY.
  DATA L_SIGN TYPE C.
  IF GS_ALV-STAT NE ''.
    L_SIGN = 'X'.

ENDIF.
  CALL FUNCTION 'RH_EDITOR_SET'
    EXPORTING
      REPID          = SY-REPID
      DYNNR          = '9000'
      CONTROLNAME    = 'G_CONTAINER'
      MAX_COLS       = 43
      SHOW_STATUS    = 'X'
      DISPLAY_MODE   = L_SIGN
    TABLES
      LINES          = GT_SQYY[]
    EXCEPTIONS
      CREATE_ERROR   = 1
      INTERNAL_ERROR = 2
      OTHERS         = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CLEAR L_SIGN.
ENDMODULE.                 " STATUS_9000  OUTPUT

MODULE USER_COMMAND_9000 INPUT.
  DATA L_SQYY TYPE CHAR200.
  CASE SY-UCOMM.
    WHEN  'EXIT' OR 'BACK' OR 'CANCLE'.
      LEAVE TO SCREEN 0.
    WHEN 'SAVE'.
      CLEAR GT_SQYY[].
      CALL FUNCTION 'RH_EDITOR_GET'
        EXPORTING
          CONTROLNAME    = 'G_CONTAINER'
        TABLES
          LINES          = GT_SQYY[]
        EXCEPTIONS
          INTERNAL_ERROR = 1
          OTHERS         = 2.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      LOOP AT GT_SQYY.
        CONCATENATE  L_SQYY GT_SQYY INTO L_SQYY .
        CONDENSE L_SQYY NO-GAPS .
        CLEAR GT_SQYY.
      ENDLOOP.
      GS_ALV-SQYY = L_SQYY.
      CLEAR L_SQYY.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000  INPUT

这样效果就是双击可编辑单元格就会出现一个可编辑文本框，定义一个对话框属性的状态栏 定义两个按钮 SAVE 和 BACK。

来自: http://hi.baidu.com/xxcxxc001/blog/item/86af0240e35ec435cefca318.html