您的位置:首页 > 其它

几个学习ALV的SAP自带标准程序实例

2010-12-17 17:31 537 查看
下面介绍几个学习ALV的SAP自带标准程序实例

1. BALVSD06 : Output flights (simple version + save)
这是该系列范例最简单的一个,建议以此入门。
使用的Function Modules :
REUSE_ALV_LIST_DISPLAY : 此FM非常重要,用来显示simple interactive list。大家要熟练掌握该FM的输入参数名称和作用,对ALV编程很有帮助。

输入参数:
I_CALLBACK_PROGRAM : FM执行完之后回调的程序名
I_STRUCTURE_NAME : internal table的结构。栏位格式(field catalog, 含输出栏位的名称)都参考自Data Dictionary的这个结构 (注意:如果不是所有栏位都要输出显示,或要自行定义栏位格式而不用Data Dictionary內的结构,则请参考其他的输入参数设定)
I_SAVE : 是否要储存variants, “A” : standard and user-specific saving
Tables :
T_OUTTAB :要输出数据的internal table

2. BALVSD01 : Simple list flight model
使用的Function Modules :
REUSE_ALV_VARIANT_DEFAULT_GET
REUSE_ALV_EVENTS_GET
REUSE_ALV_COMMENTARY_WRITE
REUSE_ALV_VARIANT_F4
REUSE_ALV_VARIANT_EXISTENCE
REUSE_ALV_LIST_DISPLAY

3. BALVSD11 : Simple list with interactions and layouts
使用的Function Modules :
REUSE_ALV_FIELDCATALOG_MERGE
REUSE_ALV_LIST_DISPLAY

4. BALVHD01 : Hierarchical-sequential list flight model
显示分级层次式的interactive list, 也就是Header – Item 两阶层的list
使用的Function Modules :
REUSE_ALV_VARIANT_DEFAULT_GET
REUSE_ALV_FIELDCATALOG_MERGE
REUSE_ALV_EVENTS_GET
REUSE_ALV_COMMENTARY_WRITE
REUSE_ALV_VARIANT_F4
REUSE_ALV_VARIANT_EXISTENCE
REUSE_ALV_HIERSEQ_LIST_DISPLAY : 该FM用来显示Hierarchical-sequential interactive list,很重要

5. BALVHD01_GROUP : Hierarchical-sequential list flight model
使用的Function Modules :
REUSE_ALV_EVENTS_GET
REUSE_ALV_HIERSEQ_LIST_DISPLAY

在SE38环境下的程序名输入栏输入'DEMO*'后按F4,你可以查到SAP所有的DEMO示例程序,会学到很多ABAP功能的实现方法,输入'BCALV*'后按F4,你可以查到很多ALV示例程序

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/xiaohutushen/archive/2010/06/25/5693411.aspx

ALV 报表 颜色 实例

在ALV报表设计有时候需要根据一定条件将特定的单元显示成特定的颜色,具体实现步骤如下:

1. 在需要显示的内表中添加新的字段,字段类型为lvc_t_scol
2. 根据条件设置颜色数据;
3. 设置layout-coltab_fieldname的数据指定显示颜色的字段.
代码如下:(注意红色部分)
REPORT z_alv_color.
TYPE-POOLS: slis.
DATA: BEGIN OF it_flight OCCURS 0,
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
seatsmax LIKE sflight-seatsmax,
seatsocc LIKE sflight-seatsocc,
color TYPE lvc_t_scol,
END OF it_flight.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
layout TYPE slis_layout_alv.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'IT_FLIGHT'
i_inclname = sy-repid
CHANGING
ct_fieldcat = it_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2.

SELECT carrid
connid
fldate
seatsmax
seatsocc
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE it_flight
UP TO 20 ROWS.
DATA: col TYPE lvc_s_scol,
coltab TYPE lvc_t_scol,
color TYPE lvc_s_colo.
color-col = '6'.
color-int = '0'.
color-inv = '0'.
LOOP AT it_flight.
IF it_flight-seatsocc Eq 271.
col-fname = 'SEATSOCC'.
col-color = color.
APPEND col TO coltab.
CLEAR col.
it_flight-color = coltab.
MODIFY it_flight.
ENDIF.
ENDLOOP.
layout-coltab_fieldname = 'COLOR'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = layout
it_fieldcat = it_fieldcat
TABLES
t_outtab = it_flight
EXCEPTIONS
program_error = 1.

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/xiaohutushen/archive/2010/07/16/5739578.aspx
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: