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

下面介绍几个学习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