简单的OO ALV小示例
OO ALV即面向对象ALV，是在屏幕上显示的一种可以自定义大小的ALV。它区别普通ALV的优点是可以多个ALV出现在同一个屏幕，也可以同其他屏幕元素同时出现在同一个屏幕。
示例展示：
1. 进入实用程序-->显示对象列表：
2.点击创建屏幕9000：
3. 开始画第一个屏幕：
4.画图如下：
部分字段属性：
5. 记得此处输入OK_CODE用于接受屏幕返回值：
6.启用9000 OUTPUT INPUT.
7.双击MODULE STATUS_9000.设置屏幕为A1，激活显示屏幕状态栏，点击创建-->GUI状态：
8.双击MODULE USER_COMMAND_9000.对屏幕状态进行响应：
DATA: ok_code(3).
MODULE USER_COMMAND_9000 INPUT.
DATA lv_ok(3).
lv_ok = ok_code.
CASE lv_ok.
WHEN 'YES'.
CALL SCREEN 9001.
WHEN '&F1'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
9.制作OO ALV屏幕9001用于装载数据：
10. 设置MODULE STATUS_9001.MODULE USER_COMMAND_9001.如下：
MODULE STATUS_9001 OUTPUT.
SET PF-STATUS 'A2'.
ENDMODULE.
MODULE USER_COMMAND_9001 INPUT.
lv_ok = ok_code.
CASE lv_ok.
WHEN 'YES' OR '&F1'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.
11.添加MODULE INIT_ALV.处理OO ALV数据：
12.源代码如下（因此示例只是自己学习所用，代码仍有改进之处）：
*&---------------------------------------------------------------------*
*& Report ZTEST004
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST004.
*======================================================================*
* 说明书编号 :
* 程序名称 : ZSDR16
* 程序描述 :
* 功能顾问 : XIONGHN
* 开发顾问 :
* 开始日期 :
* 完成日期 :
*======================================================================*
* 修改历史.
*----------------------------------------------------------------------*
*
*序号. 修改人 日期 描述
*--- ----------- ---- -----------
*
*
*======================================================================*
* Tables used in the program
*TABLES: likp , lips , zsdf04_1.
*======================================================================*
*======================================================================*
* Type declarations in the program
*======================================================================*
*TYPE-POOLS: SLIS.
TYPES: BEGIN OF ty_alv,
vkorg TYPE vbak-vkorg,
tl_netwr TYPE vbap-netwr,
waerk TYPE vbap-waerk,
year TYPE char4,
month TYPE char2,
END OF ty_alv.
TYPES: BEGIN OF ty_vbakpa,
vkorg TYPE vbak-vkorg,
erdat TYPE vbak-erdat,
netwr TYPE vbap-netwr,
waerk TYPE vbap-waerk,
END OF ty_vbakpa.
TYPES: BEGIN OF ty_vbakpb,
vkorg TYPE vbak-vkorg,
erdat TYPE vbak-erdat,
netwr TYPE vbap-netwr,
waerk TYPE vbap-waerk,
END OF ty_vbakpb.
*======================================================================*
* Internal Tables used in the program
*======================================================================*
DATA : gt_fcat TYPE TABLE OF lvc_s_fcat,
gs_fcat TYPE lvc_s_fcat,
gs_layo TYPE lvc_s_layo.
DATA: go_alva TYPE REF TO cl_gui_alv_grid,
go_alvb TYPE REF TO cl_gui_alv_grid,
go_cona TYPE REF TO cl_gui_custom_container,
go_conb TYPE REF TO cl_gui_custom_container.
DATA: gt_dataa TYPE TABLE OF ty_alv,
gs_dataa TYPE ty_alv.
DATA: gt_datab TYPE TABLE OF ty_alv,
gs_datab TYPE ty_alv.
DATA: gt_vbakpa TYPE TABLE OF ty_vbakpa,
gs_vbakpa TYPE ty_vbakpa.
DATA: gt_vbakpb TYPE TABLE OF ty_vbakpb,
gs_vbakpb TYPE ty_vbakpb.
DATA: gt_waerka TYPE vbap-waerk,
gt_waerkb TYPE vbap-waerk.
DATA: gv_vkorga TYPE vbak-vkorg,
gv_vkorgb TYPE vbak-vkorg,
gv_yeara TYPE char4,
gv_yearb TYPE char4,
gv_montha TYPE char2,
gv_monthb TYPE char2.
DATA: ok_code(3).
*======================================================================*
* Data declarations in the program
*======================================================================*
*======================================================================*
* CONSTANTS
*======================================================================*
*======================================================================*
* Input Selection Screen
*======================================================================*
*======================================================================*
* Initialization
*======================================================================*
INITIALIZATION.
*======================================================================*
* At Selection Screen
*======================================================================*
AT SELECTION-SCREEN.
*======================================================================*
* AT SELECTION-SCREEN OUTPUT
*======================================================================*
AT SELECTION-SCREEN OUTPUT .
*======================================================================*
* AT SELECTION-SCREEN ON VALUE-REQUEST
*======================================================================*
*======================================================================*
* Start of Selection
*======================================================================*
START-OF-SELECTION.
CALL SCREEN 9000.
*======================================================================*
* End of Selection
*======================================================================*
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form GT_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GT_DATA .
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_vbakpa
FROM vbak
JOIN vbap ON vbak~vbeln = vbap~vbeln
WHERE vkorg = gv_vkorga.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_vbakpb
FROM vbak
JOIN vbap ON vbak~vbeln = vbap~vbeln
WHERE vbak~vkorg = gv_vkorgb.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form HDL_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM HDL_DATA .
CLEAR gt_dataa.
CLEAR gt_datab.
SELECT DISTINCT vbap~waerk
FROM vbap
JOIN vbak ON vbap~vbeln = vbak~vbeln
INTO gt_waerka WHERE vbak~vkorg = gv_vkorga.
LOOP AT gt_vbakpa INTO gs_vbakpa
WHERE waerk = gt_waerka
AND erdat+0(4) = gv_yeara
AND erdat+4(2) = gv_montha.
gs_dataa-vkorg = gs_vbakpa-vkorg.
gs_dataa-waerk = gt_waerka.
gs_dataa-year = gv_yeara.
gs_dataa-month = gv_montha.
IF sy-subrc = 0.
gs_dataa-tl_netwr = gs_vbakpa-netwr + gs_dataa-tl_netwr.
ENDIF.
ENDLOOP.
IF sy-subrc = 0.
APPEND gs_dataa TO gt_dataa.
CLEAR gs_dataa.
CLEAR gs_vbakpa.
ENDIF.
ENDSELECT.
SELECT DISTINCT vbap~waerk
FROM vbap
JOIN vbak ON vbap~vbeln = vbak~vbeln
INTO gt_waerkb WHERE vbak~vkorg = gv_vkorgb.
LOOP AT gt_vbakpb INTO gs_vbakpb
WHERE waerk = gt_waerkb
AND erdat+0(4) = gv_yearb
AND erdat+4(2) = gv_monthb.
gs_datab-vkorg = gs_vbakpb-vkorg.
gs_datab-waerk = gt_waerkb.
gs_datab-year = gv_yearb.
gs_datab-month = gv_monthb.
IF sy-subrc = 0.
gs_datab-tl_netwr = gs_vbakpb-netwr + gs_datab-tl_netwr.
ENDIF.
ENDLOOP.
IF sy-subrc = 0.
APPEND gs_datab TO gt_datab.
CLEAR gs_datab.
CLEAR gs_vbakpb.
ENDIF.
ENDSELECT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ALV_SHOW
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM ALV_SHOW .
PERFORM init_layout.
PERFORM frm_set_fieldset.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form INIT_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM INIT_LAYOUT .
CLEAR gs_layo.
gs_layo-cwidth_opt = 'X'.
gs_layo-zebra = 'X'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SET_FIELDSET
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_SET_FIELDSET .
PERFORM frm_init_fieldcat USING 'VKORG' '销售组织' 'X' 10.
PERFORM frm_init_fieldcat USING 'TL_NETWR' '销售额' space 10.
PERFORM frm_init_fieldcat USING 'WAERK' '销售币别' space 6.
PERFORM frm_init_fieldcat USING 'YEAR' '年份' space 6.
PERFORM frm_init_fieldcat USING 'MONTH' '月份' space 4.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_INIT_FIELDCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0396 text
* -->P_0397 text
* -->P_SPACE text
* -->P_10 text
*----------------------------------------------------------------------*
FORM FRM_INIT_FIELDCAT USING VALUE(p_fieldname) TYPE lvc_fname
VALUE(p_scrtext) TYPE scrtext_l
VALUE(p_key) TYPE lvc_key
VALUE(p_len) TYPE lvc_outlen.
gs_fcat
-fieldname = p_fieldname.
gs_fcat
-scrtext_l = p_scrtext.
gs_fcat
-key = p_key.
gs_fcat
-outputlen = p_len.
APPEND gs_fcat to gt_fcat.
CLEAR gs_fcat.
ENDFORM.
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'A1'.
* SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_9001 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_9001 OUTPUT.
SET PF-STATUS 'A2'.
* SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module INIT_ALV OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE INIT_ALV OUTPUT.
CLEAR gt_fcat.
PERFORM con_free.
PERFORM gt_data.
PERFORM hdl_data.
IF gt_dataa IS INITIAL AND gt_datab IS INITIAL.
MESSAGE '没有符合的数据，请重新查询' TYPE 'S' DISPLAY LIKE 'E'.
ELSE.
PERFORM alv_show.
ENDIF.
CREATE OBJECT go_cona
EXPORTING
container_name
= 'CONA'.
CREATE OBJECT go_alva
EXPORTING
i_parent
= go_cona.
CALL METHOD go_alva->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
IS_LAYOUT
= gs_layo
CHANGING
IT_OUTTAB
= gt_dataa
IT_FIELDCATALOG
= gt_fcat
* IT_SORT =
* IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION
= 1
PROGRAM_ERROR
= 2
TOO_MANY_LINES
= 3
others = 4
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
IF go_conb IS INITIAL.
CREATE OBJECT go_conb
EXPORTING
container_name
= 'CONB'.
CREATE OBJECT go_alvb
EXPORTING
i_parent
= go_conb.
CALL METHOD go_alvb->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
IS_LAYOUT
= gs_layo
CHANGING
IT_OUTTAB
= gt_datab
IT_FIELDCATALOG
= gt_fcat
* IT_SORT =
* IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION
= 1
PROGRAM_ERROR
= 2
TOO_MANY_LINES
= 3
others = 4
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
ELSE.
CALL METHOD go_alvb->REFRESH_TABLE_DISPLAY.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.
DATA lv_ok(3).
lv_ok
= ok_code.
CASE lv_ok.
WHEN 'YES'.
CALL SCREEN 9001.
WHEN '&F1'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9001 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9001 INPUT.
lv_ok
= ok_code.
* CLEAR ok_code.
CASE lv_ok.
WHEN 'YES' OR '&F1'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form CON_FREE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CON_FREE .
IF go_alva IS NOT INITIAL.
CALL METHOD go_alva->FREE
EXCEPTIONS
CNTL_ERROR
= 1
CNTL_SYSTEM_ERROR
= 2
others = 3
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ELSE.
FREE go_alva.
ENDIF.
IF go_cona IS NOT INITIAL.
CALL METHOD go_cona->free
EXCEPTIONS
CNTL_ERROR
= 1
CNTL_SYSTEM_ERROR
= 2
OTHERS = 3.
IF SY-SUBRC NE 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
FREE go_cona.
ENDIF.
ENDIF.
ENDFORM.
简单的OO ALV小示例的更多相关文章
- 简单的OO ALV显示ALV及下载
REPORT OO_ALV. CLASS OO_ALV DEFINITION. PUBLIC SECTION. METHODS:GET_DATA IMPORTING AMOUNT TYPE I,&qu ...
- ALV详解：OO ALV
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
- 最简单的视音频播放示例7：SDL2播放RGB/YUV
本文记录SDL播放视频的技术.在这里使用的版本是SDL2.实际上SDL本身并不提供视音频播放的功能,它只是封装了视音频播放的底层API.在Windows平台下,SDL封装了Direct3D这类的API ...
- UEditor之实现配置简单的图片上传示例
UEditor之实现配置简单的图片上传示例 原创 2016年06月11日 18:27:31 开心一笑 下班后,阿华到楼下小超市买毛巾,刚买完出来,就遇到同一办公楼里另一家公司的阿菲,之前与她远远的有过 ...
- ReactNative新手学习之路06滚动更新ListView数据的小示例
本节带领大家学习使用ListView 做一个常用的滚动更新数据示例: 知识点: initialListSize={200} 第一次加载多少数据行 onEndReached={this.onEndRea ...
- Nginx 简单的负载均衡配置示例(转载)
原文地址:Nginx 简单的负载均衡配置示例(转载) 作者:水中游于 www.s135.com 和 blog.s135.com 域名均指向 Nginx 所在的服务器IP. 用户访问http://www ...
- 最简单的视音频播放示例6：OpenGL播放YUV420P（通过Texture，使用Shader）
本文记录OpenGL播放视频的技术.上一篇文章中,介绍了一种简单的使用OpenGL显示视频的方式.但是那还不是OpenGL显示视频技术的精髓.和Direct3D一样,OpenGL更好的显示视频的方式也 ...
- MVC客户端验证的小示例
MVC客户端验证的小示例 配置客户端验证的可用性: <configuration> <appSettings> <add key="ClientValidat ...
- python实现简单的循环购物车小功能
python实现简单的循环购物车小功能 # -*- coding: utf-8 -*- __author__ = 'hujianli' shopping = [ ("iphone6s&quo ...
随机推荐
- 解决Ubuntu无法通过ssh远程登录问题
1. 安装 open ssh: sudo apt-get install ssh sudo apt-get install openssh-server 2. 编辑配置文件,允许以 root 用户通 ...
- Vivado HLS 工具
干什么的 Vivado HLS工具可以将C语言高级综合为硬件. 为什么要使用HLS 可以在更高的抽象层次描述功能,而不是在传统的RTL级别 一个潜在的用处是,系统设计划分成硬件部分和软件部分之后,软件 ...
- vue-cli 使用 webpack-bundle-analyzer
# build for production and view the bundle analyzer report npm run build --report
- 提供HTML5播放RTSP流 提供微信播放RTSP流 HTML5支持rtsp web播放rtsp，微信支持rtsp
首先H5的video不支持RTSP播放,以下是html5的video官方介绍 现在如果要在页面中使用video标签,需要考虑三种情况,支持Ogg Theora或者VP8(如果这玩意儿没出事的话)的(O ...
- RabbitMQ跟Redis做消息队列的区别
区别 https://www.zhihu.com/question/20795043 https://blog.csdn.net/dd18709200301/article/details/79077 ...
- 【设计模式】工厂模式（Factory Pattern）
[前言] 很多时候我们编写了好几个接口的实现类,这些实现类分别有不同特性,用在不同的情景下.而我们对于这些实现类,也往往不会对外暴露内部增加的方法,只希望外部调用接口的方法,在这种情况下,我们没必要让 ...
- 金蝶K3常用数据表
金蝶K3WISE常用数据表 K3Wise 14.2 清空密码update t_User set FSID=') F ", ,P T #8 *P!D &D 80!N &@ &l ...
- Boxes and Balls UVALive - 7500（练习赛爆零）
原因: 自身: 1.自己并没有考虑过精度所带来的问题. 2.一定要自己读题,独立思考,末被队友带偏(矛盾出真理). 3.加强自身基础,提高自身实力. 队伍: 1.队友缺乏独立思考,需要加强. 题目描述 ...
- AutoField的话就报错：'AutoField' object has no attribute 'rel'
def data_inspect(self, data, extra=None): if isinstance(data, (QuerySet, Page, list)): convert_data ...
- Android CmakeList
https://www.cnblogs.com/chenxibobo/p/7678389.html