原文:http://blog.csdn.net/lijunhai/article/details/1968814
在系统标准程序下,有不少屏幕在检查或过帐时会弹出一个小型的ALV窗口,上面记录着错误信息,这种ALV弹出式窗口可通过以下方法做成:
(1)定义ALVBOX
data: box_container type ref to cl_gui_dialogbox_container,
box_alv type ref to cl_gui_alv_grid.
class lcl_event_handler definition.
public section.
class-methods:
on_close for event close of cl_gui_dialogbox_container importing sender.
endclass.
class lcl_event_handler implementation.
method on_close.
call method sender->free.
free: box_container, box_alv.
endmethod.
endclass.
data: ls_fcat type lvc_s_fcat., "ALV的fieldcat属性行
lt_fieldcat type lvc_t_fcat. "ALV的fieldcat属性内表
data: ls_layout type lvc_s_layo. " ALV的layout属性内表
可双击父类lvc_t_fcat、lvc_s_layo来查看所包含的属性
(2)建立ALV对象
create object box_container
exporting
width = 600 "窗口大小
height = 200
top = 120
left = 120
caption = '提示信息' "弹出窗口标题
exceptions
others = 1.
set handler lcl_event_handler=>on_close for box_container.
create object box_alv
exporting
i_parent = box_container
exceptions
others = 1.
(3)输出ALV的fieldcat属性和layout属性
call function 'LVC_FIELDCATALOG_MERGE'
exporting
i_structure_name = 'ZSTAB' "输出格式对应的结构
changing
ct_fieldcat = lt_fieldcat "ALV的fieldcat属性内表
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
注:要事先在se11创建一个和ALV输出字段一致的结构ZSTAB;
"写入fieldcat的属性
loop at lt_fieldcat into ls_fcat.
ls_fcat- icon = 'X'.
...
modify lt_fieldcat from ls_fcat.
endloop.
"写入layout属性
ls_layout- cwidth_opt = 'X'.
...
(4)调用方法显示ALV窗口
call method box_alv->set_table_for_first_display
exporting
i_structure_name = 'ZBGER' "输出格式对应的结构
is_layout = ls_layout "layout属性
i_default = 'X'
changing
it_outtab = itab "内表
it_fieldcatalog = lt_fieldcat "fieldcat属性
exceptions
others = 1.
弹出式窗口另外做法:可使用write到屏幕的办法,如下:
(1)在程序中创建一个screen type 为“方式对话框”的屏幕;
(2)在屏幕输出前,write要输出的数据:
process before output.
modiule frm_write_out.
(3)在module里写输出到屏幕的代码
module frm_write_out output.
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
NEW-PAGE NO-TITLE.
write ...
LEAVE SCREEN.
endmodule.