sap部分开发笔记2

kokovop

【 very simple --export to excel】

SAP ABAP/4学习---ALV TO EXCEL----veryvery simple

Report ZHELLO.

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.

* 补充说明

*－－－－ALV－－－－－－－－－－－－－－－－－－－－－－－

*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

*
EXPORTING

*
I_CALLBACK_PROGRAM
= HF_REPID

*....

*The table control like the DELPHI's datagrid

*和table 区别：

*ALV
only use report,But table control can use input data and so on .