ALV式的弹出窗口

原文：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.