如何在屏幕上显示多个alv
来源:互联网 发布:英雄钢笔 知乎 编辑:程序博客网 时间:2024/06/10 03:57
本文讲解如何在屏幕上显示多个alv.
实现这样的需求关键是以下几点(举例:在屏幕上显示4个alv):
1.需要定义4个alv control
2.因为有4个alv control,于是就需要定义4个容器装这4个控件
3.为了合理布局这4个容器,就要将这4个容器嵌入另外一个splitter 容器中
4.但是splitter容器又只能置入其他容器中,那么就需要再定义一个容器
总之,需要3层容器和1层控件,总共要定义6个容器和4个控件
5.最里面的容器应该是cl_gui_custom_container类型,基于屏幕容器区域创建该容器
6.再在最底层容器里面嵌入splitter 容器
7.根据splitter容器创建4个镶嵌在其内的alv容器
8.再在alv容器中创建alv控件
9.调用alv的方法现实内表数据
以下是屏幕上显示4个alv的实例:
主程序代码:
TYPE-POOLS: slis, icon.
TABLES: sflight, spfli, scarr, sbook.
* Define okcode
DATA: ok_code TYPE sy-ucomm.
* Define objects used in screen
DATA: go_split_container TYPE REF TO cl_gui_splitter_container.
DATA: go_container TYPE REF TO cl_gui_custom_container.
DATA: go_container1 TYPE REF TO cl_gui_container.
DATA: go_container2 TYPE REF TO cl_gui_container.
DATA: go_container3 TYPE REF TO cl_gui_container.
DATA: go_container4 TYPE REF TO cl_gui_container.
DATA: go_alv_control1 TYPE REF TO cl_gui_alv_grid.
DATA: go_alv_control2 TYPE REF TO cl_gui_alv_grid.
DATA: go_alv_control3 TYPE REF TO cl_gui_alv_grid.
DATA: go_alv_control4 TYPE REF TO cl_gui_alv_grid.
* Define internal tables and structures
DATA: BEGIN OF gs_sflight,
carrid TYPE sflight-carrid,
connid TYPE sflight-connid,
fldate TYPE sflight-fldate,
price TYPE sflight-price,
END OF gs_sflight.
DATA: BEGIN OF gs_spfli,
carrid TYPE spfli-carrid,
connid TYPE spfli-connid,
cityfrom TYPE spfli-cityfrom,
cityto TYPE spfli-cityto,
END OF gs_spfli.
DATA: BEGIN OF gs_scarr,
carrid TYPE scarr-carrid,
carrname TYPE scarr-carrname,
END OF gs_scarr.
DATA: BEGIN OF gs_sbook,
carrid TYPE sbook-carrid,
connid TYPE sbook-connid,
bookid TYPE sbook-bookid,
customid TYPE sbook-customid,
END OF gs_sbook.
* Define alv components
DATA: gs_field_cat1 TYPE lvc_s_fcat.
DATA: gs_field_cat2 TYPE lvc_s_fcat.
DATA: gs_field_cat3 TYPE lvc_s_fcat.
DATA: gs_field_cat4 TYPE lvc_s_fcat.
DATA: gt_field_cat1 TYPE lvc_t_fcat.
DATA: gt_field_cat2 TYPE lvc_t_fcat.
DATA: gt_field_cat3 TYPE lvc_t_fcat.
DATA: gt_field_cat4 TYPE lvc_t_fcat.
* Define displayed data
DATA: gt_sflight LIKE STANDARD TABLE OF gs_sflight,
gt_spfli LIKE STANDARD TABLE OF gs_spfli,
gt_scarr LIKE STANDARD TABLE OF gs_scarr,
gt_sbook LIKE STANDARD TABLE OF gs_sbook.
START-OF-SELECTION.
PERFORM sub_retrieve_data.
PERFORM sub_alv_data.
CALL SCREEN 9100.
*&---------------------------------------------------------------------*
*& Form SUB_RETRIEVE_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM sub_retrieve_data .
SELECT
carrid
connid
fldate
price
INTO CORRESPONDING FIELDS OF TABLE gt_sflight
FROM sflight.
SELECT
carrid
connid
cityfrom
cityto
INTO CORRESPONDING FIELDS OF TABLE gt_spfli
FROM spfli.
SELECT
carrid
carrname
INTO CORRESPONDING FIELDS OF TABLE gt_scarr
FROM scarr.
SELECT
carrid
connid
bookid
customid
INTO CORRESPONDING FIELDS OF TABLE gt_sbook
FROM sbook.
ENDFORM. " SUB_RETRIEVE_DATA
*&---------------------------------------------------------------------*
*& Form SUB_ALV_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM sub_alv_data .
* Build field catelog 1
gs_field_cat1-col_pos = 1.
gs_field_cat1-fieldname = 'CARRID'.
gs_field_cat1-scrtext_m = 'airline code'.
APPEND gs_field_cat1 TO gt_field_cat1.
gs_field_cat1-col_pos = 2.
gs_field_cat1-fieldname = 'CONNID'.
gs_field_cat1-scrtext_m = 'connection number'.
APPEND gs_field_cat1 TO gt_field_cat1.
gs_field_cat1-col_pos = 3.
gs_field_cat1-fieldname = 'FLDATE'.
gs_field_cat1-scrtext_m = 'flight date'.
APPEND gs_field_cat1 TO gt_field_cat1.
gs_field_cat1-col_pos = 4.
gs_field_cat1-fieldname = 'PRICE'.
gs_field_cat1-scrtext_m = 'flight price'.
APPEND gs_field_cat1 TO gt_field_cat1.
* Build field catelog 2
gs_field_cat2-col_pos = 1.
gs_field_cat2-fieldname = 'CARRID'.
gs_field_cat2-scrtext_m = 'airline code'.
APPEND gs_field_cat2 TO gt_field_cat2.
gs_field_cat2-col_pos = 2.
gs_field_cat2-fieldname = 'CONNID'.
gs_field_cat2-scrtext_m = 'connection number'.
APPEND gs_field_cat2 TO gt_field_cat2.
gs_field_cat2-col_pos = 3.
gs_field_cat2-fieldname = 'CITYFROM'.
gs_field_cat2-scrtext_m = 'city from'.
APPEND gs_field_cat2 TO gt_field_cat2.
gs_field_cat2-col_pos = 4.
gs_field_cat2-fieldname = 'CITYTO'.
gs_field_cat2-scrtext_m = 'city to'.
APPEND gs_field_cat2 TO gt_field_cat2.
* Build field catelog 3
gs_field_cat3-col_pos = 1.
gs_field_cat3-fieldname = 'CARRID'.
gs_field_cat3-scrtext_m = 'airline code'.
APPEND gs_field_cat3 TO gt_field_cat3.
gs_field_cat3-col_pos = 2.
gs_field_cat3-fieldname = 'CONNID'.
gs_field_cat3-scrtext_m = 'connection number'.
APPEND gs_field_cat3 TO gt_field_cat3.
* Build field catelog 4
gs_field_cat4-col_pos = 1.
gs_field_cat4-fieldname = 'CARRID'.
gs_field_cat4-scrtext_m = 'airline code'.
APPEND gs_field_cat4 TO gt_field_cat4.
gs_field_cat4-col_pos = 2.
gs_field_cat4-fieldname = 'CONNID'.
gs_field_cat4-scrtext_m = 'connection number'.
APPEND gs_field_cat4 TO gt_field_cat4.
gs_field_cat4-col_pos = 3.
gs_field_cat4-fieldname = 'BOOKID'.
gs_field_cat4-scrtext_m = 'book id'.
APPEND gs_field_cat4 TO gt_field_cat4.
gs_field_cat4-col_pos = 4.
gs_field_cat4-fieldname = 'CUSTOMID'.
gs_field_cat4-scrtext_m = 'custom id'.
APPEND gs_field_cat4 TO gt_field_cat4.
ENDFORM. " SUB_ALV_DATA
*&---------------------------------------------------------------------*
*& Module ALV_DISPLAY OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE alv_display OUTPUT.
IF go_split_container IS INITIAL.
CREATE OBJECT go_container
EXPORTING
container_name = 'GO_CONTAINER'.
CREATE OBJECT go_split_container
EXPORTING
link_dynnr = sy-dynnr
link_repid = sy-repid
parent = go_container
rows = 2
columns = 2
name = 'GO_SPLIT_CONTAINER'.
CALL METHOD go_split_container->get_container
EXPORTING
row = 1
column = 1
RECEIVING
container = go_container1.
CALL METHOD go_split_container->get_container
EXPORTING
row = 1
column = 2
RECEIVING
container = go_container2.
CALL METHOD go_split_container->get_container
EXPORTING
row = 2
column = 1
RECEIVING
container = go_container3.
CALL METHOD go_split_container->get_container
EXPORTING
row = 2
column = 2
RECEIVING
container = go_container4.
CREATE OBJECT go_alv_control1
EXPORTING
i_parent = go_container1.
CREATE OBJECT go_alv_control2
EXPORTING
i_parent = go_container2.
CREATE OBJECT go_alv_control3
EXPORTING
i_parent = go_container3.
CREATE OBJECT go_alv_control4
EXPORTING
i_parent = go_container4.
CALL METHOD go_alv_control1->set_table_for_first_display
CHANGING
it_outtab = gt_sflight
it_fieldcatalog = gt_field_cat1.
CALL METHOD go_alv_control2->set_table_for_first_display
CHANGING
it_outtab = gt_spfli
it_fieldcatalog = gt_field_cat2.
CALL METHOD go_alv_control3->set_table_for_first_display
CHANGING
it_outtab = gt_scarr
it_fieldcatalog = gt_field_cat3.
CALL METHOD go_alv_control4->set_table_for_first_display
CHANGING
it_outtab = gt_sbook
it_fieldcatalog = gt_field_cat4.
ELSE.
CALL METHOD go_alv_control1->refresh_table_display.
CALL METHOD go_alv_control2->refresh_table_display.
CALL METHOD go_alv_control3->refresh_table_display.
CALL METHOD go_alv_control4->refresh_table_display.
ENDIF.
ENDMODULE. " ALV_DISPLAY OUTPUT
*&---------------------------------------------------------------------*
*& Module STATUS_9100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_9100 OUTPUT.
SET PF-STATUS 'STATUS9100'.
ENDMODULE. " STATUS_9100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9100 INPUT.
CASE ok_code.
WHEN 'PBAK'.
CALL METHOD go_alv_control1->free.
CALL METHOD go_alv_control2->free.
CALL METHOD go_alv_control3->free.
CALL METHOD go_alv_control4->free.
CALL METHOD go_container1->free.
CALL METHOD go_container2->free.
CALL METHOD go_container3->free.
CALL METHOD go_container4->free.
CALL METHOD go_split_container->free.
CALL METHOD go_container->free.
LEAVE PROGRAM.
WHEN OTHERS.
ENDCASE.
ENDMODULE. " USER_COMMAND_9100 INPUT
屏幕9100中的代码:
PROCESS BEFORE OUTPUT.
MODULE status_9100.
MODULE alv_display.
PROCESS AFTER INPUT.
MODULE user_command_9100.
- 如何在屏幕上显示多个alv
- 如何在屏幕上显示多个alv
- 如何在屏幕上显示多个alv
- 屏幕上显示多个alv.
- 同屏幕显示多个 ALV
- 同屏幕显示多个 ALV
- ABAP--如何在选择屏幕上输出ALV GRID报表
- 如何在一个屏幕上输出两个ALV LIST
- OO ALV(一屏幕显示多个ALV, 双击事件)例子
- SAP OO ALV 一个屏幕上使用2个ALV
- 将alv定位在屏幕的容器上.
- 同个屏幕,输出多个alv列表
- ABAP 屏幕容器ALV显示
- 同一屏幕上两个ALV
- 如何让ViewPager在屏幕范围内显示多个条目(Items)
- 在屏幕上显示时间
- Xlib在屏幕上显示本地图片(绝对是CSDN等中文博客第一个Demo)
- 利用汇编语言编程实现在屏幕上显示A-Z26个大写英文字母。
- 酸奶小妹 奔波于七层楼隔三差五送酸奶的小姑娘正在努力学习百度地图API 如何利用【百度地图API】,制作房产酒店地图?(上)——制作自定义标注和自定义信息窗口
- 在Eclipse中使用Maven 2.x指南
- vmware 给 ubuntu添加一个硬盘
- mysql API
- 15个优秀的PHP免费在线学习网站
- 如何在屏幕上显示多个alv
- 网狐棋牌游戏平台服务器架构设计分析
- NewsStand书架效果
- asp.net 读写配置文件Web.Config
- linux(2)
- 如何在{dede:sql}这个标签中使用[field:global.autoindex/]?-织梦CMS
- 初级数独破解
- .net 抓取网页所有链接
- iOS开发之Objective-C与JavaScript的交互