【博主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功能更为强大。