博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
ALV式的弹出窗口
阅读量:5236 次
发布时间:2019-06-14

本文共 2014 字,大约阅读时间需要 6 分钟。

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

转载于:https://www.cnblogs.com/senlinmu110/p/3802245.html

你可能感兴趣的文章
(转)深入理解section之ZwCreateSection
查看>>
面向对象的JS随笔
查看>>
Matlab 接受字符串并转为符号表达式,inline函数,匿名函数形式的方法汇总
查看>>
php文件系统处理
查看>>
案例分析:项目组内踢皮球事件
查看>>
C++友元(友元函数、友元类和友元成员函数)
查看>>
ef codefirst VS里修改数据表结构后更新到数据库
查看>>
async await 和 task的区别和理解(可能有错)
查看>>
使用自定义比较操作符排序,查找
查看>>
vector详解
查看>>
模拟一位顾客去银行取钱的情形
查看>>
VMware下Ubuntu16.04的安装、可能出现的问题的解决办法及基本配置
查看>>
objective c数据封装
查看>>
剑指offer-把二叉树打印成多行
查看>>
hihocoder-1497-Queen Attack
查看>>
kubernetes常用命令
查看>>
js 函数 理解
查看>>
CUDA Thread Indexing
查看>>
hibernate增删改查
查看>>
计算机网络面试题 系列一
查看>>