如何将查询结果显示在选择屏幕上的代码
来源:互联网 发布:linux怎么解压rar 编辑:程序博客网 时间:2024/05/03 15:28
*&---------------------------------------------------------------------*
*& Generates the ALV on the Selection Screen itself
*&
*&---------------------------------------------------------------------*
REPORT zalv_on_sel_screen.
*
*----------------------------------------------------------------------*
* Local class for report
*----------------------------------------------------------------------*
CLASS lcl_report DEFINITION.
PUBLIC SECTION.
DATA: t_data TYPE STANDARD TABLE OF sflight, " Output dat
r_carrid TYPE RANGE OF sflight-carrid. " Select Option
METHODS:
get_data,
generate_output.
ENDCLASS. "lcl_report DEFINITION
DATA: lo_report TYPE REF TO lcl_report.
DATA: w_carrid TYPE sflight-carrid.
** Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE aaa.
SELECT-OPTIONS: s_carrid FOR w_carrid.
SELECTION-SCREEN: END OF BLOCK blk1.
** Initialization
INITIALIZATION.
aaa = 'Selection Criteria'.
* object for the report
CREATE OBJECT lo_report.
* generate output
lo_report->generate_output( ).
** Start of Selection
START-OF-SELECTION.
* Get data
lo_report->r_carrid = s_carrid[].
lo_report->get_data( ).
*----------------------------------------------------------------------*
* Local Class Implementation
*----------------------------------------------------------------------*
CLASS lcl_report IMPLEMENTATION.
METHOD get_data.
SELECT * FROM sflight
INTO TABLE me->t_data
WHERE carrid IN s_carrid.
IF sy-dbcnt IS INITIAL.
MESSAGE s398(00) WITH 'No data selected'.
ENDIF.
EXPORT data = me->t_data TO MEMORY ID sy-cprog.
ENDMETHOD. "get_data
METHOD generate_output.
DATA: lo_dock TYPE REF TO cl_gui_docking_container,
lo_cont TYPE REF TO cl_gui_container,
lt_fcat type lvc_t_fcat,
gr_grid_d1001 type ref to cl_gui_alv_grid.
IMPORT data = me->t_data FROM MEMORY ID sy-cprog.
FREE MEMORY ID sy-cprog.
CHECK me->t_data IS NOT INITIAL.
CHECK lo_dock IS INITIAL.
CREATE OBJECT lo_dock
EXPORTING
repid = sy-cprog
dynnr = sy-dynnr
ratio = 80
side = cl_gui_docking_container=>dock_at_bottom
name = 'DOCK_CONT'.
IF sy-subrc <> 0.
MESSAGE 'Error in the Docking control' TYPE 'S'.
ENDIF.
CHECK gr_grid_d1001 IS INITIAL.
lo_cont ?= lo_dock.
create object gr_grid_d1001
exporting i_parent = lo_cont.
call function 'LVC_FIELDCATALOG_MERGE'
exporting
i_buffer_active = space
i_structure_name = 'SFLIGHT'
i_client_never_display = 'X'
i_bypassing_buffer = space
changing
ct_fieldcat = lt_fcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
call method gr_grid_d1001->set_table_for_first_display
exporting
i_buffer_active = space
i_bypassing_buffer = space
changing
it_outtab = me->t_data
it_fieldcatalog = lt_fcat.
ENDMETHOD. "generate_output
ENDCLASS. "lcl_report IMPLEMENTATION
- ABAP--如何将查询结果显示在选择屏幕上的代码
- ABAP--如何将查询结果显示在选择屏幕上的代码
- 如何将查询结果显示在选择屏幕上的代码
- ABAP--如何将查询结果显示在选择屏幕上的代码
- ABAP--如何将查询结果显示在选择屏幕上的代码
- 如何将主窗体的查询结果在子窗体显示
- 怎样让SQL查询结果不在屏幕上显示?
- mysql如何把在屏幕上输出的结果输出到一个文件上?
- mysql如何把在屏幕上输出的结果输出到一个文件上?
- SSH 多表联合查询结果集如何显示在JSP上
- 如何将linux 命令的执行结果在屏幕输出的同时保存到文件
- 如何将查询到的数据显示在DataGridView中
- 将文字显示在Flash上的代码示例
- SQL中如何将表的查询结果纵向显示(个人思路总结)
- 如何移动组件的位置,例如如何将UIAlertView显示在屏幕上部
- 如何将EXCEL显示在页面上
- 将标准输出重定向到一个文件的同时并在屏幕上显示
- 将标准输出重定向到一个文件的同时并在屏幕上显示
- Python在Eclipse下的的开发插件PyDev使用教程
- Linux实践工程师学习笔记六:Samba
- 整理: 如何创建一个在任何进程任何帐户任何会话都能存取的内核对象
- Ubuntu系统下更改root等用户的密码的方法
- LinkButton去掉下下划线
- 如何将查询结果显示在选择屏幕上的代码
- Linux之旅01——安装
- 各位CSDN网友,大家好
- eclipse中代码不能完全显示的解决方法
- sql server 链接数据库 分布式数据库解决方案
- 什么是FTP及什么是FTP服务器
- sql server行转列问题终极解决收藏
- 《华容道》忆三国
- JavaScript FAQ(五)——数字