可编辑ALV的内表同步更新

【博主SAP/ABAP交流群53144545】

本文所用ALV FUNCTION是REUSE_ALV_GRID_DISPLAY_LVC。该FUNCTION有一个USER_COMMAND参数，可以实现触发事件功能码判断，比如鼠标双击事件，点击保存按钮事件等。如果填此参数，会调用同名的FORM。

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD .
  CASE  R_UCOMM.
    WHEN 'EXPORT'.
    WHEN 'PNT'.
    WHEN 'SAVE'.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN '&IC1'.
    WHEN 'CANCEL' OR 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDFORM .                    "user_command

 

在ALV输出表上改写某些单元的值后，鼠标双击或者点击保存按钮，改变后的数据会自动保存到输出的内表。如果此时想继续更新到数据库的话，可以在ALV输出前把内表（假设为内表A）里的内容复制到另外一个内表（假设为内表B）里去，当内表A数据变化了后，LOOP内表A和内表B，比较两者的工作区，在工作区不同时作UPDATE或者MODIFY处理。

 

注意：REUSE_ALV_GRID_DISPLAY_LVC有个参数IT_EVENTS里也有USER_COMMAND事件，作用和参数USER_COMMAND相同，代码如下：

FORM SET_ALV_EVENT .
  DATA L_EVENTS TYPE SLIS_ALV_EVENT.

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 0
    IMPORTING
      ET_EVENTS       = IT_EVENTS
    EXCEPTIONS
      LIST_TYPE_WRONG = 1
      OTHERS          = 2.
  IF SY-SUBRC <> 0.
  ENDIF.
  CLEAR L_EVENTS.
  READ TABLE IT_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND INTO L_EVENTS.
  IF SY-SUBRC = 0.
    MOVE 'USER_COMMAND' TO L_EVENTS-FORM.
    MODIFY IT_EVENTS INDEX SY-TABIX FROM L_EVENTS.
  ENDIF.
ENDFORM.                    " SET_ALV_EVENT

以上代码看似有些复杂，实际上主要就是把'USER_COMMAND'这个字符串赋值到IT_EVENTS这张内表里。然后在REUSE_ALV_GRID_DISPLAY_LVC的参数IT_EVENTS调用。

 

下面是自定义的菜单栏的场合：

PF_STATUS_SET是ALV输出界面上的菜单栏，如果不填此参数，那么会调用系统自带的菜单栏。如果填此参数，则会调用同名的FORM，在FORM里设置菜单栏。

FORM PF_STATUS_SET.
  SET PF-STATUS 'ZALVYM_STATUS'.
ENDFORM .

这里值得注意的就是保存按钮的功能码设置，是&DATA_SAVE，如果仅仅是设置成SAVE，那么之后ALV输出列表上变更数据并点击保存按钮时，改变后的数据将不被传输到输出内表里。实际上在系统自带的菜单栏里，保存按钮的功能码也是&DATA_SAVE。

后记：USE COMMAND似乎不能捕捉界面上的所有功能码，而且如果随便点击按钮的话，保存数据到内表的功能有时会失灵。

其实还有CLASS的方法可以实现此功能，面向对象的ALV也比传统ALV功能更为强大。