ALV报表快速开发

一、首先把ALV报表显示需要的功能做成一个include程序，其中define了两个宏，然后把这个include放到你的程序头里。
*===============================ALV=====================
type-pools: slis.
data: i_fieldcat type slis_t_fieldcat_alv with header line.
data: i_events type slis_t_event.
data: i_layout type slis_layout_alv.
data: g_variant like disvariant.
data: l_ls_event type slis_alv_event,
l_title type lvc_title,
l_window_titlebar like sy-title,
ls_hype type lvc_s_hype,
gt_hypetab type lvc_t_hype,
p_char.
*&---------------------------------------------------------*
define add_filed. "名字写错了，其实应该是field，没关系
i_fieldcat-tabname = &1.
i_fieldcat-fieldname = &2.
i_fieldcat-seltext_m = &3.
i_fieldcat-outputlen = &4.
i_fieldcat-input = &5.
i_fieldcat-hotspot = p_char.
append i_fieldcat.
end-of-definition.

define display_data.
******启动命令功能********************************
refresh i_events.
call function 'REUSE_ALV_EVENTS_GET'
exporting
i_list_type = 0
importing
et_events = i_events.
read table i_events with key name = slis_ev_user_command
into l_ls_event.
if sy-subrc = 0.
move slis_ev_user_command to l_ls_event-form.
append l_ls_event to i_events.
endif.
********功能扩充**********************************
i_layout-zebra = 'X'. "颜色交替显示
i_layout-window_titlebar = l_window_titlebar. "抬头显示
i_layout-colwidth_optimize = 'X'. "优化
i_layout-group_change_edit = 'X'.
i_layout-f2code = &2.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = sy-repid
i_save = 'X'
is_variant = g_variant
i_grid_title = l_title "抬头
it_hyperlink = gt_hypetab
it_events = i_events "事件
it_fieldcat = i_fieldcat[] "显示的内容和描述
is_layout = i_layout
tables
t_outtab = &1 "数据表
exceptions
program_error = 1
others = 2.
end-of-definition.

selection-screen skip 1.

二、使用定义的宏进行报表显示：
*三个add_filed，定义了三个要显示的行项目，gt_output是保存这些数据的内表
*格式：add_filed '内表' '字段名' '要显示的字段描述' 'L' 'CHAR'
add_filed 'gt_output' 'PERIO' '月份' 'L' 'CHAR'.
add_filed 'gt_output' 'SPART' '业务范围' 'L' 'CHAR'.
add_filed 'gt_output' 'BUKRS' '公司代码' 'L' 'CHAR'.
*完成字段添加后，加上下面一句：
*格式：display_data 内表名 ''.
display_data gt_output ''.

三、对上面功能的补充：
1、在字段上增加链接，以单击后链接到订单或进行其它处理
p_char = 'X'.
add_filed 'gt_output' 'KAUFN' '订单号' 'L' 'CHAR'.
p_char = ''.
2、在程序的任意位置增加下面的form
*这个form用来处理双击ALV报表时触发的动作，下面的示例是显示选择的定单
form user_command using r_ucomm like sy-ucomm
rs_selfield type slis_selfield.

clear gt_output.
read table gt_output index rs_selfield-tabindex.
if sy-subrc = 0.
set parameter id 'AUN' field gt_output-kaufn.
call transaction 'VA03' and skip first screen.
endif.

endform. "user_command

也可以用下面的实现：
form user_command using r_ucomm like sy-ucomm
rs_selfield type slis_selfield.

data: l_value type lvc_s_data-value.
import l_value from memory id 'l_value'.
data: c_vbeln like bseg-vbeln.
c_vbeln = l_value.

call function 'CONVERSION_EXIT_ALPHA_INPUT'
exporting
input = c_vbeln
importing
output = c_vbeln.


set parameter id 'AUN' field c_vbeln.
call transaction 'VA03' and skip first screen.

endform. "user_command