简单的ALV示例

在这里也推荐一条链接，很适合初学者：https://blog.csdn.net/Kang_xiong/article/details/64922576

这是一个特别基础的示例，适合没有任何ABAP基础的同学查看，很简单

示例展示：

1.SE38进入ABAP编辑器：

2. 选择本地对象后保存，此包内的程序不可传到生产系统中。如需传入生产系统，请选择可传输的包：

3. ALV创建步骤一

定义ALV的列属性表，和行属性工作区

DATA: GT_FCAT TYPE TABLE OF LVC_S_FCAT,列属性表

GS_LAYO TYPE LVC_S_LAYO.   行属性工作区

4. ALV创建步骤二：

为行属性工作区GS_LAYO 赋值。

GS_LAYO-CWIDTH_OPT = ‘X’.

5. ALV创建步骤三：

为列属性表GT_FCAT 赋值。

gs_fcat-fieldname = 'WERKS'.
    gs_fcat-scrtext_l = '工厂'.
    APPEND gs_fcat TO gt_fcat.
    CLEAR gs_fcat.

gs_fcat-fieldname = 'MATNR'.
    gs_fcat-scrtext_l = '物料编码'.
    APPEND gs_fcat TO gt_fcat.
    CLEAR gs_fcat.

6. ALV创建步骤四：

调用ALV显示函数

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING

I_CALLBACK_PROGRAM                = sy-repid
      IS_LAYOUT_LVC                     = gs_layo "行属性
      IT_FIELDCAT_LVC                   = gt_fcat"列属性
     TABLES
       T_OUTTAB                          = gt_data
    EXCEPTIONS
      PROGRAM_ERROR                     = 1
      OTHERS                            = 2

7.  小示例：

REPORT ZTEST1.

*======================================================================*
*                   Tables used in the program
*======================================================================*
TABLES: t001w,marc.

*======================================================================*
*                Type declarations in the program
*======================================================================*

TYPES: BEGIN OF ty_wmatnr,
        werks TYPE t001w-werks,
        matnr TYPE marc-matnr,
       END OF ty_wmatnr.

*======================================================================*
*                Internal Tables used in the program
*======================================================================*

DATA : gt_fcat TYPE TABLE OF lvc_s_fcat, "列属性表
       gs_fcat TYPE lvc_s_fcat,"列属性工作区
       gs_layo TYPE lvc_s_layo. "行属性工作区

DATA: t_data TYPE TABLE OF ty_wmatnr,
      s_data TYPE ty_wmatnr.

DATA: gt_data TYPE TABLE OF ty_wmatnr,
      gs_data TYPE ty_wmatnr.

*======================================================================*
*                Data declarations in the program
*======================================================================*

*======================================================================*
*                       CONSTANTS
*======================================================================*

*======================================================================*
*                      Input Selection Screen
*======================================================================*

SELECTION-SCREEN: BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
  SELECT-OPTIONS: s_werks FOR t001w-werks ,
                  s_matnr FOR marc-matnr.
SELECTION-SCREEN:END OF BLOCK a1.

*======================================================================*
*                          Initialization
*======================================================================*
INITIALIZATION. "初始化值

*======================================================================*
*                        At Selection Screen
*======================================================================*
AT SELECTION-SCREEN.  "选择屏幕输出后点击执行时的检查

*======================================================================*
*                       AT SELECTION-SCREEN OUTPUT
*======================================================================*
AT SELECTION-SCREEN OUTPUT . "可设定屏幕必输项

*======================================================================*
*                       AT SELECTION-SCREEN ON VALUE-REQUEST
*======================================================================*

*======================================================================*
*                        Start of Selection
*======================================================================*
START-OF-SELECTION.

SELECT werks matnr INTO TABLE t_data UP TO 2 ROWS FROM marc WHERE werks IN s_werks
                                                              AND matnr IN s_matnr.

IF sy-subrc NE 0.
    MESSAGE s999(zcr) WITH '没有找到数据！'.
    STOP.

ELSE.
      PERFORM frm_get_data.
      ENDIF.

*======================================================================*
*                         End of Selection
*======================================================================*
END-OF-SELECTION.

FORM frm_get_data.

gs_layo-cwidth_opt = 'X'.

gs_fcat-fieldname = 'WERKS'.
  gs_fcat-scrtext_l = '工厂'.
  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.

gs_fcat-fieldname = 'MATNR'.
  gs_fcat-scrtext_l = '物料编码'.
  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.

LOOP AT t_data INTO s_data.
  gs_data-werks = s_data-werks.
  gs_data-matnr = s_data-matnr.
  APPEND gs_data TO gt_data.
  CLEAR gs_data.
  ENDLOOP.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING

I_CALLBACK_PROGRAM                = sy-repid
      IS_LAYOUT_LVC                     = gs_layo "行属性
      IT_FIELDCAT_LVC                   = gt_fcat"列属性
     TABLES
       T_OUTTAB                          = gt_data
    EXCEPTIONS
      PROGRAM_ERROR                     = 1
      OTHERS                            = 2.

ENDFORM.

8. 点击转到-->文本元素可设定屏幕字段名称：