Report List 报表开发
1. Report List的输出定义
* ...NO STANDARD PAGE HEADING: 输出的报表不包含表头;
* ...LINE-SIZE col : 输出的报表不包含表头;
* ...LINE-COUNT (m) :设置每页行数及每页间空行数,如LINE-COUNT 18(2)表示每页18行,每页之前空两行;
* ...MESSAGE-ID mid:在程序中应用标准的Message类;
* ...DEFINING DATABASE idb:定义程序中所使用逻辑数据库。
2.图标符合的输出
* WRITE ... AS CHECKBOX :输出一个CHECKBOX .
DATA:MARKFIELD(1) TYPE C VALUE 'X'.
WRITE MARKFIELD AS CHECKBOX."默认选中 WRITE MARKFIELD AS CHECKBOX INPUT OFF."默认无法选择 MARKFIELD = SPACE."重置为空
WRITE MARKFIELD AS CHECKBOX."默认未选 WRITE MARKFIELD AS CHECKBOX INPUT OFF."默认无法选择
* WRITE ...AS SYMBOL: 输出符号,需定义包含程序INCLUDE <SYMBOL>,或 INCLUDE <LIST>.
INCLUDE <SYMBOL>. WRITE:/ SYM_RIGHT_HAND AS SYMBOL,'Hello Sanlly',SYM_LEFT_HAND AS SYMBOL.
* WRITE ... AS ICON :输出图标,需定义包含程序,具体图标可通过T/C:ICON查看,但是程序中需要定义INCLUDE<ICON>. 或INCLUDE<LIST>.
INCLUDE <ICON>. WRITE:/ ICON_CHECKED AS ICON,'已检查OK'. WRITE:/ ICON_INCOMPLETE AS ICON,'未完成'. WRITE:/ ICON_GREEN_LIGHT AS ICON,'开始'.
3.报表输出格式控制
3.1 報表的制作
3.1.1 线条包括横线及竖线,横线的绘制语法可以指定具体位置及长度,默认当前屏幕宽度。
横线绘制语法:ULINE AT POS 或WRITE POS SY-ULINE.
ULINE AT 3(10).
SKIP.
WRITE AT 3(10) SY-ULINE."两者输出的效果是一样的,都是横线.
ULINE AT 3(10).
SET BLANK LINES ON.
WRITE AT 1(20) SY-ULINE.
3.1.2 竖线的输出固定为一个字符高度,Report List中字符大小是固定的。
竖线绘制语法:WRITE POS SY-ULINE.
REPORT Y001_ARTYU NO STANDARD PAGE HEADING."不显示标题
DO 3 TIMES.
ULINE AT 1(60).
WRITE: /1 SY-VLINE,60 SY-VLINE. "位置1和位置60绘制竖线
ULINE AT /1(60).
ENDDO."绘制一个一列三行的报表
3.2 控制输出格式
3.2.1
* SKIP :用于输出空行.
* SKIP n. :从上行开始创建N个空行.
* SKIP TO LINE n. : 在第n行创建一个空行.
WRITE 'LINE 1'.
SKIP 5."从上行开始创建5个空行.
WRITE 'LINE 5'.
SKIP TO LINE 8."在第8行创建一个空行.
3.2.2
* NEW-LINE : 用于在Report List输出中产生换行,但不会产生空行。
3.2.3
* ...NO-SCROLING : 锁定其下一行所输出值,不会随屏幕左右移动,
该定义只对语法的下一行有效,主要应用于报表输出中一些关键栏位的冻结功能.
3.2.4
* ...SCROLLING :其下一行所输出值会随屏幕左右移动.
NEW-PAGE LINE-SIZE 255.
WRITE:/ 'This line will be moved.'.
NEW-LINE NO-SCROLLING.
WRITE:/ 'This line will not be moved.'."该行输出值锁定,不会随屏幕左右移动
WRITE:/ 'This line will be moved.'.
移动鼠标时,中间一行被锁定,不会移动。
3.2.5
* ...NEW-PAGE : 对输出报表时进行分页.
* ...NO-TITLE : 新的分页中不会有标题、日期、页码。
* ...NO-HEADING : 在该报表中继承首页的标题、日期、页码。
* ...NO-HEADING : 在该报表的新分页中不产生表头。
* ...WITH-HEADING : 输出的新页中继承首页的Column heading.
* ...LINE-COUNT lin : 设置新页的行数。
* ...LINE-SIZE col : 设置新页的宽度。
3.2.6
* TOP-OF-PAGE :该语法用于定 义动态页脚,要触发该事件,
需要在Report语句中的LINE-COUNT附加项中为其预留输出行数。
页脚事件块中的输出始终出现在页面下方.
REPORT Y001 LINE-SIZE 30
LINE-COUNT 10(5)"定义每页行数
NO STANDARD PAGE HEADING."不显示表头
START-OF-SELECTION.
WRITE:/ 'Name:',10 'TOM'.
WRITE:/ 'Age:',30.
WRITE:/ 'Address:','Fu Jian'.
NEW-PAGE NO-HEADING NO-TITLE.
WRITE:/ 'Name:',10 'MARY'.
WRITE:/ 'Age:',28.
WRITE:/ 'Address:','Shen Zhen'.
SET BLANK LINES ON.
TOP-OF-PAGE.
WRITE:/ 'Curr Page:',SYST-PAGNO.
ULINE.
END-OF-PAGE.
ULINE.
WRITE:/ 'This the end!'.
4. 获取输出屏幕中的数据
当双击Report List 所输出的某行数据时,触发AT LINE-SELECTION事件,而HIDE定义使输出的内容和当前选择行相关联,会自动获取该行内容。
REPORT Y001.
DATA TEXT(20).
START-OF-SELECTION.
PERFORM WRITE_AND_HIDE.
AT LINE-SELECTION.
CASE TEXT.
WHEN 'LINE1'.
WRITE:'You had select the LINE1'.
WHEN 'LINE2'.
WRITE:'You had select the LINE2'.
WHEN OTHERS.
WRITE:'The other line'.
ENDCASE.
CLEAR TEXT.
*&---------------------------------------------------------------------*
*& Form WRITE_AND_HIDE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM WRITE_AND_HIDE.
TEXT = 'LINE1'.
WRITE / TEXT.
HIDE TEXT.
TEXT = 'LINE2'.
WRITE / TEXT.
HIDE TEXT.
TEXT = 'LINE3'.
WRITE / TEXT.
HIDE TEXT.
ENDFORM. "WRITE_AND_HIDE
选中LINE1,点击望眼镜
选中LINE2,点击望眼镜
选中LINE3,点击望眼镜
5. 列表程序中的系统参数
在列表输出过程中,系统将填充下列相关系统字段,可以在程序中直接调用。
* SY-LINCT : REPORT 语句中设定的LINE-COUNT.
* SY-LINSZ : REPORT 语句中设定的LINE-SIZE.
* SY-SROWS: 当前窗口中的列表行数.
* SY-SCOLS: 当前窗口中的列表栏目数.
* SY-PAGNO: 当前页的页码.
* SY-LINNO: 当前输出页面中的选定行序号.
* SY-COLNO: 当前输出页面中的选定列序号.
6.输出列表颜色的设定
使用FORMAT语句可以实现其他一些屏幕格式化功能,例如调整输出颜色等。
FORMAT <option1> [ON|OFF] <option2> [ON|OFF]........
一旦设定,FORMAT语句中设置的格式将适用于所有后续输出语句,直到再资使用OFF选项关闭,其具体选项列表如下:
* COLOR n [ON|OFF] :设定列表行的背景色。
* INTENSIFIED [ON|OFF] :设定是否将字段强化输出。
* INVERSE [ON|OFF] :设定是否将背景即文字颜色反转输出。
* HOTSPOT [ON|OFF] :将光标以手型显示,单击触发行选择事件。
* INPUT [ON|OFF] :设定输入字段,允许用户输入。
* RESET:恢复上述的所有 设定默认值。
COLOR类型及描述 | ||
No. | COLOR | DESC |
0 | COL_BACKGROUND | Background(GUI-specific) |
1 | COL_HEADING | Headers(grayish blue) |
2 | COL_NORMAL | List body(bright gray) |
3 | COL_TOTAL | Totals(yellow) |
4 | COL_KEY | Key columns(bluish green) |
5 | COL_POSITIVE | Positive threshold value(green) |
6 | COL_NEGATIVE | Negative threshold value(red) |
7 | COL_GROUP | Control levels(violet) |
FORMAT 语句中的全部选项都可用做WRITE语句的格式化选项,如下面的两条语句,输出效果一样
WRITE:/ 'HELLO SANLLY ' COLOR 1 INTENSIFIED ON.
WRITE:/ 'HELLO SANLLY ' COLOR 2 INTENSIFIED ON.
WRITE:/ 'HELLO SANLLY ' COLOR 3 INTENSIFIED ON.
WRITE:/ 'HELLO SANLLY ' COLOR 4 INTENSIFIED ON.
WRITE:/ 'HELLO SANLLY ' COLOR 5 INTENSIFIED ON.
WRITE:/ 'HELLO SANLLY ' COLOR 6 INTENSIFIED ON.
WRITE:/ 'HELLO SANLLY ' COLOR 7 INTENSIFIED ON.
WRITE:/ 'HELLO SANLLY ' COLOR COL_HEADING INTENSIFIED ON.
WRITE:/ 'HELLO SANLLY ' COLOR 1 INPUT INTENSIFIED ON.
FORMAT COLOR 1 INPUT INTENSIFIED ON.
WRITE 'COLOR LINE 1'.
WRITE: / 'COLOR LINE 2'.
WRITE: / 'COLOR LINE 3'.
*FORMAT COLOR 1 OFF.
FORMAT RESET.
WRITE: / 'COLOR LINE 4'.
7.实现Report的格式化分页输出
例如下面例子:创建一ICON数据查询程序,将ICON的名称及相关图标从系统抓出。
控制报表每页显示数量最多不超过10行.
REPORT Y001_ARTYU NO STANDARD PAGE HEADING.
DATA:PAGE_LINE TYPE I VALUE 10, "每頁行數
ICONTAB LIKE STANDARD TABLE OF V_ICON WITH HEADER LINE,"參照VIEW建內表
NUM TYPE I.
*每次分页时绘制表头
TOP-OF-PAGE.
WRITE: /2 'Pages:',SYST-PAGNO RIGHT-JUSTIFIED.
ULINE AT /1(80).
WRITE: /1(1) SY-VLINE,'ID' COLOR 1,
7(1) SY-VLINE ,'ICON' COLOR 1,
15(1) SY-VLINE,'NAME' COLOR 1,
41(1) SY-VLINE,'SHORTTEXT' COLOR 1,
80(1) SY-VLINE.
ULINE AT /1(80).
START-OF-SELECTION. "屏幕开始时查询数据...
SELECT * FROM ICON INNER JOIN ICONT ON ICON~ID = ICONT~ID INTO
CORRESPONDING FIELDS OF TABLE ICONTAB WHERE ICONT~LANGU = SY-LANGU.
LOOP AT ICONTAB.
WRITE: /1(1) SY-VLINE,SY-TABIX LEFT-JUSTIFIED,"LEFT-JUSTIFIED:左对齐
7(1) SY-VLINE,ICONTAB-ID AS ICON LEFT-JUSTIFIED,"RIGHT_JUSTIFIED:右对象,CENTERED:居中对齐。
15(1) SY-VLINE,ICONTAB-NAME,
41(1) SY-VLINE,ICONTAB-SHORTTEXT,
80(1) SY-VLINE.
ULINE /1(80).
NUM = SY-TABIX MOD PAGE_LINE.
IF NUM = 0.
NEW-PAGE. "新的一页
ENDIF.
ENDLOOP.
Report List 报表开发的更多相关文章
- Grid++Report 报表开发工具
Grid++Report 报表开发工具 版本 更新日期 大小 下载 说明 Grid++Repoert6.0.0.6 2015/08/08 16.0M [下载] 锐浪报表工具最新版本,新增功能说 ...
- C# WinForm开发系列 - Crystal Report水晶报表
转自:ttp://www.cnblogs.com/peterzb/archive/2009/07/11/1521325.html 水晶报表(Crystal Report)是业内最专业.功能最强的报表系 ...
- 利用JasperReport+iReport进行Web报表开发
用JasperReport+iReport进行Web报表开发 序言 在非常多实际的项目里,报表都是当中十分重要的组成部分,比如把查询结果以报表的形式呈现出来.这里所提到的报表可不是简单的二维表,而是拥 ...
- 使用JasperReport+iReport进行Web报表开发
使用JasperReport+iReport进行Web报表开发 前言 在实际工程中非常,报告是其中很重要的一部分,结果以报表的形式呈现出来.这里所提到的报表可不是简单的二维表,而是拥有复杂表头的.多维 ...
- JasperReport报表开发(一)--原理介绍
1. JasperReport介绍 JasperReport 是一个开源的Java报表引擎,它不像其他的报表工具,例如Crystal报表是基于Java的,没有自己的表达式语法.Jasper Repor ...
- AMDP + XSLX Workbench 报表开发模式
本文介绍了我和同事通过使用AMDP + XSLX Workbench缩短报表开发周期.分离数据查询处理逻辑和前端展示工作的经验.欢迎讨论. 前言 最近接到了一套人力资源报表的开发需求,需要以EXCEL ...
- AMDP + XLSX Workbench 报表开发模式
本文介绍了我和同事通过使用AMDP + XLSX Workbench缩短报表开发周期.分离数据查询处理逻辑和前端展示工作的经验.欢迎讨论. 前言 最近接到了一套人力资源报表的开发需求,需要以EXCEL ...
- ActiveReport系列报表开发随笔收集
转自:博客园 http://www.cnblogs.com/dahuzizyd/archive/2007/04/11/ActiveReport_All.html 使用ActiveReport for ...
- ReportViewer,RDLC 报表开发之个性化样式
原文:ReportViewer,RDLC 报表开发之个性化样式 报表开发中,客户对样式提出了要求: 1.工具栏上显示每页条数 2.只导出Excel,不需要下拉菜单. 3.报表上显示的图表,分页时,每页 ...
随机推荐
- SQLServer中跨服务器跨数据库之间的数据操作
首先必须理解一个概念: select * from sys.servers (查看系统表,看原来的服务器名) 要想跨域就必须在以上信息中可以检索到! 怎样添加? --创建链接服务器 ...
- [报错] Process finished with exit code 139 (interrupted by signal 11: SIGSEGV)
今天下午做python的作业,我用PyQt5 中 利用QWebEngineView打开外部网页. 但是一直闪退,一运行就闪退. 显示报错:Process finished with exit code ...
- string::empty
bool empty() const noexcept;注:判断string对象是否为空,为空返回true #include <iostream>#include <string&g ...
- Spring Boot整合拦截器
过滤器和监听器都属于Servlet 的api,还可以使用 Spring 提供的拦截器(HandlerInterceptor)进行改更精细的控制.
- linux学习:【第3篇】之常见命令2
一.知识点回顾 临时:关闭当前正在运行的 /etc/init.d/iptables stop 永久:关闭开机自启动 chkonfig iptables off ll /var/log/secure # ...
- python模块安装问题:no matching distribution found for XXX 或者 Read timed out.
https://blog.csdn.net/zhang_han666/article/details/88286010 看了很多解决问题的博客,亲测通过更换国内安装源和设置超时时间可以解决.在pip ...
- 使用 Reactjs + Mobx + React-Router 开发项目时 VSCode 编辑器报警 TS 相关的问题(提示experimentalDecorators )
vscode 对于 JS support 的支持需要配置,在项目根目录下创建一个 jsconfig.json 文件,把以下内容贴入后保存,重启项目即可生效(去掉提示). { "compile ...
- Django JWT
概述 如果各位不了解 JWT,不要紧张,它并不可怕. JSON Web Token(JWT)是一个非常轻巧的规范.这个规范允许我们使用JWT在用户和服务器之间传递安全可靠的信息. 让我们来假想一下一个 ...
- 2019新的开始,新的规划,庆祝CSDN访问量过千
刚刚看了下博客访问量六千八百七十多个,然后我就自己刷新了一下,留个截图做纪念吧. 每一年都会有很多计划,然而到了年末却发现,未完成的还剩一大半,而完成的却屈指可数. 不过该立的flag还是要立的,顺便 ...
- Unknown tag (s:property)的原因
今天在做struts2的练习,然后在jsp页面我使用<s:property value="name"/>竟然报错, 然后网上走了下,恍然大悟,我原来没有在jsp页面里面 ...