简单ALV得演示（用到了ALV可编辑及保存后修改数据库）

*&---------------------------------------------------------------------*
*& Report YPMRP010_ALV01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YPMRP010_ALV01.
*-----设定变量-------*
TYPE-POOLS:SLIS.
TABLES:VBAP.
*定义ALV结构
DATA:LT_FIELDCAT TYPE  SLIS_T_FIELDCAT_ALV."FIELDCAT内表
DATA:LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV."FIELDCAT工作区
DATA:LS_LAYOUT TYPE SLIS_LAYOUT_ALV."ALV控制结构体：layout
DATA:LT_EVENT TYPE SLIS_T_EVENT."事件内表
DATA:LS_EVENT TYPE SLIS_ALV_EVENT."事件工作区
DATA:LT_SORT TYPE SLIS_T_SORTINFO_ALV. "用于排序的内表
DATA:LS_SORT TYPE SLIS_SORTINFO_ALV."用于排序的工作区
DATA:LS_SETTING TYPE LVC_S_GLAY."ALV 控制: 退出可编辑单元格时回调
*定义内表结构
TYPES:BEGIN OF TY_ALVSHOW,
        VBELN LIKE VBAK-VBELN,
        ERDAT LIKE VBAK-ERDAT,
        ERNAM LIKE VBAK-ERNAM,
        KUNNR LIKE  VBAK-KUNNR,
        POSNR LIKE VBAP-POSNR,
        MATNR LIKE VBAP-MATNR,
        MATKL LIKE VBAP-MATKL,
        ZMENG LIKE VBAP-ZMENG,
        ZIEME LIKE VBAP-ZIEME,
        WERKS LIKE VBAP-WERKS,
        LGORT LIKE VBAP-LGORT,
      END OF TY_ALVSHOW.
*定义内表及工作区
DATA:IT_ALVSHOW TYPE STANDARD TABLE OF TY_ALVSHOW.
DATA:WA_ALVSHOW TYPE TY_ALVSHOW.
DATA:IT_ALVSHOW1 TYPE STANDARD TABLE OF TY_ALVSHOW.
DATA:WA_ALVSHOW1 TYPE TY_ALVSHOW.
DATA:COL_POS TYPE I.
SELECT-OPTIONS:S_VBELN FOR VBAP-VBELN.
*取数据
SELECT
  VBAK~VBELN  VBAK~ERDAT  VBAK~ERNAM  VBAK~KUNNR  VBAP~POSNR  VBAP~MATNR  VBAP~MATKL
  VBAP~ZMENG  VBAP~ZIEME  VBAP~WERKS  VBAP~LGORT  FROM VBAK
  INNER JOIN VBAP ON VBAK~VBELN = VBAP~VBELN
*  INTO CORRESPONDING FIELDS OF TABLE IT_ALVSHOW WHERE VBAK~VBELN IN S_VBELN.
  INTO CORRESPONDING FIELDS OF TABLE IT_ALVSHOW UP TO  ROWS.
IT_ALVSHOW1 = IT_ALVSHOW.
*ALV格式控制layout
LS_LAYOUT-ZEBRA = 'X'.
LS_LAYOUT-DETAIL_POPUP = 'X'.
LS_LAYOUT-DETAIL_TITLEBAR = '详细信息'.
LS_LAYOUT-F2CODE = '&ETA'.
LS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
*  fieldcat
COL_POS = .
*销售凭证列
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'VBELN'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-KEY = 'X'.
LS_FIELDCAT-SELTEXT_M = '销售凭证'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*创建日期
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'ERDAT'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-REF_TABNAME  = 'VBAK'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*创建者
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'ERNAM'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-SELTEXT_M = '创建人'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*售达方 自己起字段描述
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'KUNNR'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-SELTEXT_M = '客户'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*售达方1  参考数据字典表名
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'KUNNR'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-REF_TABNAME = 'VBAK'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*行号
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'POSNR'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-REF_TABNAME = 'VBAP'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*物料
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'MATNR'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-SELTEXT_M = '物料编码'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*物料组
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'MATKL'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-SELTEXT_M = '物料组'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*数量
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'ZMENG'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-SELTEXT_M = '数量'.
LS_FIELDCAT-DO_SUM = 'X'. "总计
LS_FIELDCAT-EDIT = 'X'. "总计
LS_FIELDCAT-DECIMALS_OUT = . "因为当编辑数量的时候，如果是小数，要指定小数位，否则输入数据之后回车会自动缩小，如果使用ref则不需要设置

APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*单位
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'ZIEME'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-SELTEXT_M = '单位'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*工厂
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'WERKS'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-REF_TABNAME = 'VBAP'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*库位
COL_POS = COL_POS + .
LS_FIELDCAT-FIELDNAME = 'LGORT'.
LS_FIELDCAT-COL_POS = COL_POS.
LS_FIELDCAT-SELTEXT_M = '库位'.
APPEND LS_FIELDCAT TO LT_FIELDCAT.
CLEAR:LS_FIELDCAT.
*定义事件
LS_EVENT-NAME = 'USER_COMMAND'."用户响应事件
LS_EVENT-FORM = 'FORM_USER_COMMAND'."子例程
APPEND LS_EVENT TO LT_EVENT."加入到事件内表
CLEAR:LS_EVENT.
LS_EVENT-NAME = 'TOP_OF_PAGE'."显示标题
LS_EVENT-FORM = 'FORM_TOP_OF_PAGE'."子例程
APPEND LS_EVENT TO LT_EVENT.
CLEAR:LS_EVENT.
LS_EVENT-NAME = 'PF_STATUS_SET'."设置gui状态栏
LS_EVENT-FORM = 'FORM_PF_STATUS_SET'."子例程
APPEND LS_EVENT TO LT_EVENT.
CLEAR:LS_EVENT.
*排序
LS_SORT-FIELDNAME = 'ERDAT'.
LS_SORT-DOWN = 'X'.
APPEND LS_SORT TO LT_SORT.
LS_SORT-FIELDNAME = 'KUNNR'.
LS_SORT-UP = 'X'.
APPEND LS_SORT TO LT_SORT.
CLEAR:LS_SORT.
*ALV 控制: 退出可编辑单元格时回调
LS_SETTING-EDT_CLL_CB = 'X'.

*显示
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
*   I_INTERFACE_CHECK        = ' '
*   I_BYPASSING_BUFFER       = ' '
*   I_BUFFER_ACTIVE          = ' '
    I_CALLBACK_PROGRAM       = SY-REPID
    I_CALLBACK_PF_STATUS_SET = 'SET PF-STATUS '
    I_CALLBACK_USER_COMMAND  = ' USER_COMMAND'
*   I_CALLBACK_TOP_OF_PAGE   = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME         =
*   I_BACKGROUND_ID          = ' '
*   I_GRID_TITLE             =
    I_GRID_SETTINGS          = LS_SETTING  "退出可编辑单元格时回调保存修改的值，修改了值必须要按回车健激活
    IS_LAYOUT                = LS_LAYOUT
    IT_FIELDCAT              = LT_FIELDCAT
*   IT_EXCLUDING             =
*   IT_SPECIAL_GROUPS        =
    IT_SORT                  = LT_SORT
*   IT_FILTER                =
*   IS_SEL_HIDE              =
*   I_DEFAULT                = 'X'
*   I_SAVE                   = ' '
*   IS_VARIANT               =
    IT_EVENTS                = LT_EVENT
*   IT_EVENT_EXIT            =
*   IS_PRINT                 =
*   IS_REPREP_ID             =
*   I_SCREEN_START_COLUMN    = 0
*   I_SCREEN_START_LINE      = 0
*   I_SCREEN_END_COLUMN      = 0
*   I_SCREEN_END_LINE        = 0
*   I_HTML_HEIGHT_TOP        = 0
*   I_HTML_HEIGHT_END        = 0
*   IT_ALV_GRAPHICS          =
*   IT_HYPERLINK             =
*   IT_ADD_FIELDCAT          =
*   IT_EXCEPT_QINFO          =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER  =
*   ES_EXIT_CAUSED_BY_USER   =
  TABLES
    T_OUTTAB                 = IT_ALVSHOW
  EXCEPTIONS
    PROGRAM_ERROR            =
    OTHERS                   = .
IF SY-SUBRC <> .
* Implement suitable error handling here
ENDIF.
"FORM define
FORM FORM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
   RS_SELFIELD TYPE SLIS_SELFIELD.
*  DATA:IT_VBAP TYPE TABLE OF VBAP."更新源内表，要和数据库表结构一致  7.5以前可以定义内表
*  DATA:WA_VBAP TYPE VBAP.

*  CASE .
*      WHEN .
*      WHEN .
*      WHEN OTHERS.
*  ENDCASE. 也可以用case

  IF R_UCOMM = '&ADD'.
    MESSAGE '您触发了按钮TEST' TYPE 'I'.
  ENDIF.
  IF R_UCOMM = 'ZSAVE'.
*    SELECT * FROM VBAP INTO TABLE @DATA(LT_VBAP) FOR ALL ENTRIES IN @IT_ALVSHOW"7.5以后可以直接@data内表名
*        WHERE VBELN = @IT_ALVSHOW-VBELN AND POSNR = @IT_ALVSHOW-POSNR.
*    LOOP AT LT_VBAP INTO DATA(WA_VBAP).
*      READ TABLE IT_ALVSHOW INTO WA_ALVSHOW WITH  KEY VBELN = WA_VBAP-VBELN POSNR =  WA_VBAP-POSNR.
*      IF SY-SUBRC = 0.
*        WA_VBAP-ZMENG = WA_ALVSHOW-ZMENG.
*        MODIFY LT_VBAP FROM WA_VBAP.
*        CLEAR:WA_VBAP,WA_ALVSHOW.
*        UPDATE VBAP FROM TABLE LT_VBAP.
*      ENDIF.
*    ENDLOOP.
    DATA:TABLE_DEL TYPE TABLE OF  TY_ALVSHOW.
    DATA:TABLE_ADD TYPE TABLE OF  TY_ALVSHOW.
    DATA:TABLE_MOD TYPE TABLE OF  TY_ALVSHOW.
    DATA:WA_TABLE_MOD TYPE TY_ALVSHOW.
    DATA:NO_CHANGES() TYPE C.
    CALL FUNCTION 'CTVB_COMPARE_TABLES' "用于比较更改前后内表的变化，比上面的全部循环更新更有效率
      EXPORTING
        TABLE_OLD  = IT_ALVSHOW1
        TABLE_NEW  = IT_ALVSHOW
        KEY_LENGTH = ''
*       IF_SORTED  =
      IMPORTING
        TABLE_DEL  = TABLE_DEL
        TABLE_ADD  = TABLE_ADD
        TABLE_MOD  = TABLE_MOD
        NO_CHANGES = NO_CHANGES.
    SELECT * FROM VBAP INTO TABLE @DATA(LT_VBAP) FOR ALL ENTRIES IN @TABLE_MOD"7.5以后可以直接@data内表名
        WHERE VBELN = @TABLE_MOD-VBELN AND POSNR = @TABLE_MOD-POSNR.
    LOOP AT LT_VBAP INTO DATA(WA_VBAP).
      READ TABLE TABLE_MOD INTO WA_TABLE_MOD WITH  KEY VBELN = WA_VBAP-VBELN POSNR =  WA_VBAP-POSNR.
      IF SY-SUBRC = .
        WA_VBAP-ZMENG = WA_TABLE_MOD-ZMENG.
        MODIFY LT_VBAP FROM WA_VBAP.
        CLEAR:WA_VBAP,WA_TABLE_MOD.
        UPDATE VBAP FROM TABLE LT_VBAP.
      ENDIF.
    ENDLOOP.

    IF SY-SUBRC = .
      COMMIT WORK.  "用于提交数据
      MESSAGE '更新成功' TYPE 'I'.
    ELSE.
      ROLLBACK WORK.
      MESSAGE '更新失败' TYPE 'I'.
    ENDIF.
  ENDIF.
ENDFORM.
FORM   FORM_TOP_OF_PAGE.

  DATA:LT_COMMENTARY TYPE SLIS_T_LISTHEADER,
       WA_COMMENTARY TYPE SLIS_LISTHEADER.
  WA_COMMENTARY-TYP = 'H'.
  WA_COMMENTARY-INFO = '销售凭证'.
  APPEND WA_COMMENTARY TO LT_COMMENTARY.
  CLEAR:WA_COMMENTARY.
  WA_COMMENTARY-TYP = 'S'.
  WA_COMMENTARY-INFO = '销售凭证'.
  APPEND WA_COMMENTARY TO LT_COMMENTARY.
  CLEAR:WA_COMMENTARY.
  WA_COMMENTARY-TYP = 'A'.
  WA_COMMENTARY-INFO = '销售凭证'.
  APPEND WA_COMMENTARY TO LT_COMMENTARY.
  CLEAR:WA_COMMENTARY.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' "用于ALV标题的显示
    EXPORTING
      IT_LIST_COMMENTARY = LT_COMMENTARY
      I_LOGO             = 'ZTEST1'.
*     I_END_OF_LIST_GRID =
*     I_ALV_FORM         =
ENDFORM.
FORM FORM_PF_STATUS_SET USING RT_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS'STANDARD'.
ENDFORM.