ALV简单的应用

 

Tables: MARA.
*在这里定义一个用于显示的内部表
data: begin of itab occurs  10 ,
        MATNR like MARA-MATNR ,
        MTART LIKE MARA-MTART ,
        MEINS LIKE MARA-MEINS ,
      end of itab.

*
type-pools: slis.

*定义一个显示的内表的一行
DATA: L_ALV_FILED  TYPE SLIS_FIELDCAT_ALV.

*定义显示的一列的框架
DATA: L_ALV_FILEDCAT  TYPE SLIS_T_FIELDCAT_ALV.
CLEAR L_ALV_FILED.

*定义第一列的属性
*定义显示位置 , 显示的字段.在下面传递内表中的名字一样的值
*显示标题名字
L_ALV_FILED-COL_POS  =   1 .
L_ALV_FILED-FIELDNAME  =  'MATNR'.
L_ALV_FILED-seltext_M  =  '第一列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.

L_ALV_FILED-COL_POS  =   2 .
L_ALV_FILED-FIELDNAME  =  'MTART'.
L_ALV_FILED-seltext_M  =  '第二列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.

L_ALV_FILED-COL_POS  =   3 .
L_ALV_FILED-FIELDNAME  =  'MEINS'.
L_ALV_FILED-seltext_M  =  '第三列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.


*输出画面
SELECT-OPTIONS: P_MATNR FOR MARA-MATNR.


*查询以下三个字段的数据 , 然后放入这个内表
SELECT MATNR
       MTART
       MEINS
  INTO CORRESPONDING FIELDS OF TABLE ITAB
  FROM MARA
 WHERE MATNR IN P_MATNR.

 APPEND ITAB.

*然后调用以下的这个函数.然后
* 把定义的显示框架和数据内表传递过去.
* REUSE_ALV_LIST_DISPLAY
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
       IT_FIELDCAT  =  L_ALV_FILEDCAT
    Tables
       t_outtab  =  ITAB.