DOI EXCEL显示报表
我这个是比较不规则的数据填充
1.程序开头，定义一个工作区，存对应单元格的值：
BEGIN OF TY_EXCEL,
C031() TYPE C,
C032() TYPE C,
C033() TYPE C,
C034() TYPE C,
C035() TYPE C,
C036() TYPE C,
C052() TYPE C,
C054() TYPE C,
C056() TYPE C,
C058() TYPE C,
C091() TYPE C,
C151() TYPE C,
C152() TYPE C,
C153() TYPE C,
C154() TYPE C,
C155() TYPE C,
C156() TYPE C,
C157() TYPE C,
C158() TYPE C,
C181() TYPE C,
C182() TYPE C,
C183() TYPE C,
C184() TYPE C,
C185() TYPE C,
C186() TYPE C,
C187() TYPE C,
C188() TYPE C,
END OF TY_EXCEL.
DOI一些变量定义：
DATA: DOCUMENT_NAME() VALUE 'ZHRR010',
ACTIVE_SHEET() VALUE 'Sheet1'.
CONSTANTS INPLACE VALUE 'X'. DATA: CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
CONTROL TYPE REF TO I_OI_CONTAINER_CONTROL,
DOCUMENT TYPE REF TO I_OI_DOCUMENT_PROXY,
SPREADSHEET TYPE REF TO I_OI_SPREADSHEET,
ERROR TYPE REF TO I_OI_ERROR,
ERRORS TYPE REF TO I_OI_ERROR OCCURS WITH HEADER LINE.
DATA: RANGEITEM TYPE SOI_RANGE_ITEM.
DATA: RANGES TYPE SOI_RANGE_LIST.
DATA: EXCEL_INPUT TYPE SOI_GENERIC_TABLE.
DATA: EXCEL_INPUT_WA TYPE SOI_GENERIC_ITEM.
DATA: INITIALIZED(), RETCODE TYPE SOI_RET_STRING.
DATA: ITEM_URL(), ALREADY_DONE, NEWNAME().
DATA DOCUMENT_TYPE().
DATA: EXCEL() VALUE 'Excel.Sheet'.
DATA: LINE_COUNT TYPE I,
COLUMN_COUNT TYPE I.
DATA: OK_CODE LIKE SY-UCOMM.
主屏幕上画个CONTAINER。
单元格填充
FORM FILL_CELL_01 USING I J VAL.
DATA: COLUMNS_NUMBER TYPE I,
ROWS_NUMBER TYPE I. COLUMNS_NUMBER = .
ROWS_NUMBER = . CALL METHOD SPREADSHEET->INSERT_RANGE_DIM
EXPORTING
NAME = 'cell'
NO_FLUSH = 'X'
TOP = I
LEFT = J
ROWS = ROWS_NUMBER
COLUMNS = COLUMNS_NUMBER
IMPORTING
ERROR = ERRORS.
APPEND ERRORS. REFRESH: RANGES, EXCEL_INPUT.
RANGEITEM-NAME = 'cell'.
RANGEITEM-COLUMNS = .
RANGEITEM-ROWS = .
APPEND RANGEITEM TO RANGES. EXCEL_INPUT_WA-COLUMN = .
EXCEL_INPUT_WA-ROW = .
EXCEL_INPUT_WA-VALUE = VAL.
APPEND EXCEL_INPUT_WA TO EXCEL_INPUT. * set data
CALL METHOD SPREADSHEET->SET_RANGES_DATA
EXPORTING
RANGES = RANGES
CONTENTS = EXCEL_INPUT
NO_FLUSH = 'X'
IMPORTING
ERROR = ERRORS.
APPEND ERRORS. CALL METHOD SPREADSHEET->FIT_WIDEST
EXPORTING
NAME = SPACE
NO_FLUSH = 'X'. REFRESH: RANGES, EXCEL_INPUT. ENDFORM. "fill_cell
PBO
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'STATUS_9000'.
* SET TITLEBAR 'xxx'.
* 创建EXCEL模板
PERFORM CREATE_BASIC_OBJECTS USING '' '' '' '' DOCUMENT_NAME.
* 输出EXCEL
PERFORM OUTPUT_TO_EXCEL.
ENDMODULE.
FORM CREATE_BASIC_OBJECTS USING P_APP_NAME
P_CLASSNAME
P_CLASSTYPE
P_OBJ_KEY
P_DOCNAME. DATA L_APP_NAME().
DATA: BDS_INSTANCE TYPE REF TO CL_BDS_DOCUMENT_SET.
DATA: DOC_SIGNATURE TYPE SBDST_SIGNATURE,
WA_DOC_SIGNATURE LIKE LINE OF DOC_SIGNATURE,
DOC_COMPONENTS TYPE SBDST_COMPONENTS,
DOC_URIS TYPE SBDST_URI,
WA_DOC_URIS LIKE LINE OF DOC_URIS.
DATA: DOC_CLASSNAME TYPE SBDST_CLASSNAME VALUE 'PICTURES',
DOC_CLASSTYPE TYPE SBDST_CLASSTYPE VALUE 'OT',
DOC_OBJECT_KEY TYPE SBDST_OBJECT_KEY VALUE 'EXCEL'. CHECK INITIALIZED IS INITIAL. * 处理参数
IF P_APP_NAME IS INITIAL.
L_APP_NAME = 'R/3 Reporter'.
ELSE.
L_APP_NAME = P_APP_NAME.
ENDIF. IF NOT ( P_CLASSNAME IS INITIAL OR P_CLASSTYPE IS INITIAL
OR P_OBJ_KEY IS INITIAL ).
DOC_CLASSNAME = P_CLASSNAME.
DOC_CLASSTYPE = P_CLASSTYPE.
DOC_OBJECT_KEY = P_OBJ_KEY.
ENDIF. * 创建容器控制器实例
CALL METHOD C_OI_CONTAINER_CONTROL_CREATOR=>GET_CONTAINER_CONTROL
IMPORTING
CONTROL = CONTROL
ERROR = ERROR.
CALL METHOD ERROR->RAISE_MESSAGE
EXPORTING
TYPE = 'E'.
* 创建屏幕上的容器对象
CREATE OBJECT CONTAINER
EXPORTING
CONTAINER_NAME = 'CONTAINER'. * 初始化容器控制器
CALL METHOD CONTROL->INIT_CONTROL
EXPORTING
R3_APPLICATION_NAME = L_APP_NAME
INPLACE_ENABLED = INPLACE
INPLACE_SCROLL_DOCUMENTS = 'X'
PARENT = CONTAINER
REGISTER_ON_CLOSE_EVENT = 'X'
REGISTER_ON_CUSTOM_EVENT = 'X'
NO_FLUSH = 'X'
IMPORTING
ERROR = ERRORS.
APPEND ERRORS.
CLEAR ITEM_URL. WA_DOC_SIGNATURE-PROP_NAME = 'DESCRIPTION'.
DOCUMENT_TYPE = EXCEL.
WA_DOC_SIGNATURE-PROP_VALUE = DOCUMENT_TYPE. APPEND WA_DOC_SIGNATURE TO DOC_SIGNATURE.
* BDS对象实例化
CREATE OBJECT BDS_INSTANCE.
* 读取BDS内容（模板）
CALL METHOD BDS_INSTANCE->GET_INFO
EXPORTING
CLASSNAME = DOC_CLASSNAME
CLASSTYPE = DOC_CLASSTYPE
OBJECT_KEY = DOC_OBJECT_KEY
CHANGING
COMPONENTS = DOC_COMPONENTS
SIGNATURE = DOC_SIGNATURE.
* 读取BDS的URL
CALL METHOD BDS_INSTANCE->GET_WITH_URL
EXPORTING
CLASSNAME = DOC_CLASSNAME
CLASSTYPE = DOC_CLASSTYPE
OBJECT_KEY = DOC_OBJECT_KEY
CHANGING
URIS = DOC_URIS
SIGNATURE = DOC_SIGNATURE. FREE BDS_INSTANCE.
LOOP AT DOC_URIS INTO WA_DOC_URIS.
SEARCH WA_DOC_URIS-URI FOR 'ZHRR010'.
IF SY-SUBRC = .
ITEM_URL = WA_DOC_URIS-URI.
ENDIF.
ENDLOOP.
* READ TABLE DOC_URIS INTO WA_DOC_URIS INDEX 3.
* ITEM_URL = WA_DOC_URIS-URI. * ask the SAP DOI container for a i_oi_document_proxy for Excel
* 容器控制器获得一个EXCEL文档代理
CALL METHOD CONTROL->GET_DOCUMENT_PROXY
EXPORTING
DOCUMENT_TYPE = 'Excel.Sheet1'
NO_FLUSH = 'X'
IMPORTING
DOCUMENT_PROXY = DOCUMENT
ERROR = ERRORS.
APPEND ERRORS. * open a document saved in business document service.
* 容器控制器中打开指定BDS返回的文档
CALL METHOD DOCUMENT->OPEN_DOCUMENT
EXPORTING
OPEN_INPLACE = INPLACE
DOCUMENT_URL = ITEM_URL. DATA: HAS TYPE I.
CALL METHOD DOCUMENT->HAS_SPREADSHEET_INTERFACE
EXPORTING
NO_FLUSH = ''
IMPORTING
IS_AVAILABLE = HAS
ERROR = ERRORS.
APPEND ERRORS.
CALL METHOD DOCUMENT->GET_SPREADSHEET_INTERFACE
EXPORTING
NO_FLUSH = ' '
IMPORTING
SHEET_INTERFACE = SPREADSHEET
ERROR = ERRORS.
APPEND ERRORS. * Activate sheet
CALL METHOD SPREADSHEET->SELECT_SHEET
EXPORTING
NAME = ACTIVE_SHEET
NO_FLUSH = ''
IMPORTING
ERROR = ERRORS.
APPEND ERRORS. *错误处理
LOOP AT ERRORS.
CALL METHOD ERRORS->RAISE_MESSAGE
EXPORTING
TYPE = 'S'.
ENDLOOP.
FREE ERRORS. INITIALIZED = 'X'. ENDFORM.
FORM OUTPUT_TO_EXCEL .
DATA:LV_LINE TYPE I.
DATA:LV_YD LIKE LINE OF GT_PA0001.
DATA:LV_COUNT TYPE I.
DATA:LT_YD TYPE TABLE OF TY_0000.
DATA:LV_GZ1 TYPE I.
DATA:LV_GZ2 TYPE I. PERFORM FILL_CELL_01 USING GW_EXCEL-C031 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C032 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C033 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C034 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C035 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C036 ."工号 IF GW_EXCEL-C054 > .
PERFORM FILL_CELL_01 USING GW_EXCEL-C052 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C054 ."工号
ENDIF. PERFORM FILL_CELL_01 USING GW_EXCEL-C056 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C058 ."工号
AUTHORITY-CHECK OBJECT 'ZHR01'
ID 'INFOTYP' FIELD ''.
IF SY-SUBRC = .
PERFORM FILL_CELL_01 USING GW_EXCEL-C091 ."工号
ENDIF. * AUTHORITY-CHECK OBJECT 'ZHR02'
* ID 'INFOTYP' FIELD '9004'.
* IF SY-SUBRC = 0.
* PERFORM FILL_CELL_01 USING 9 2 GW_EXCEL-C091 ."工号
* ENDIF. PERFORM FILL_CELL_01 USING GW_EXCEL-C151 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C152 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C153 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C154 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C155 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C156 ."工号
* PERFORM FILL_CELL_01 USING 15 7 GW_EXCEL-C157 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C158 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C181 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C182 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C183 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C184 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C185 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C186 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C187 ."工号
PERFORM FILL_CELL_01 USING GW_EXCEL-C188 ."工号 LV_LINE = .
"异动情况
SORT GT_PA0000 BY PERNR BEGDA ENDDA ASCENDING.
"绩效明细
LV_COUNT = LINES( GT_PA9002 ) - .
DO LV_COUNT TIMES.
CALL METHOD DOCUMENT->EXECUTE_MACRO
EXPORTING
MACRO_STRING = '模块4.Macro2'
IMPORTING
ERROR = ERRORS.
ENDDO. "异动明细
APPEND LINES OF GT_PA0000 TO LT_YD.
DELETE LT_YD WHERE MASSN <> 'Z3'.
LV_COUNT = LINES( LT_YD ) - .
DO LV_COUNT TIMES.
CALL METHOD DOCUMENT->EXECUTE_MACRO
EXPORTING
MACRO_STRING = '模块4.Macro1'
IMPORTING
ERROR = ERRORS.
ENDDO. "************************************工资
SORT GT_PA9004[] BY PERNR BEGDA DESCENDING.
DELETE GT_PA9004 WHERE ZJBGZ = AND ZJXGZ = AND ZZWJT =
AND ZFDJJ = AND ZTSGWJT = AND ZQTJT = . LOOP AT GT_PA0000 INTO GW_PA0000." WHERE MASSN = 'Z3'.
READ TABLE GT_PA0001 INTO GW_PA0001 WITH KEY PERNR = GW_PA0000-PERNR
BEGDA = GW_PA0000-BEGDA.
* ENDDA = GW_PA0000-ENDDA.
IF SY-SUBRC = .
IF GW_PA0000-MASSN = 'Z1' OR GW_PA0000-MASSN = 'Z2'.
MOVE-CORRESPONDING GW_PA0001 TO LV_YD."将异动前数据保存
ENDIF. IF GW_PA0000-MASSN = 'Z3'."异动
CLEAR:LV_GZ1,LV_GZ1.
READ TABLE GT_PA9004 INTO GW_PA9004 WITH KEY PERNR = GW_PA0000-PERNR
BEGDA = GW_PA0000-BEGDA.
* ENDDA = GW_PA0000-ENDDA.
IF SY-SUBRC = .
LV_GZ2 = GW_PA9004-ZJBGZ + GW_PA9004-ZJXGZ + GW_PA9004-ZZWJT
+ GW_PA9004-ZFDJJ + GW_PA9004-ZTSGWJT + GW_PA9004-ZQTJT.
ENDIF. LOOP AT GT_PA9004 INTO GW_PA9004 WHERE PERNR = GW_PA0000-PERNR.
IF GW_PA9004-BEGDA = GW_PA0000-BEGDA."当前异动后工资
LV_GZ2 = GW_PA9004-ZJBGZ + GW_PA9004-ZJXGZ + GW_PA9004-ZZWJT
+ GW_PA9004-ZFDJJ + GW_PA9004-ZTSGWJT + GW_PA9004-ZQTJT.
ELSEIF GW_PA9004-BEGDA < GW_PA0000-BEGDA."当前异动前工资
IF LV_GZ1 <> .
LV_GZ1 = GW_PA9004-ZJBGZ + GW_PA9004-ZJXGZ + GW_PA9004-ZZWJT
+ GW_PA9004-ZFDJJ + GW_PA9004-ZTSGWJT + GW_PA9004-ZQTJT.
ENDIF.
ENDIF.
ENDLOOP. PERFORM FILL_CELL_01 USING LV_LINE GW_PA0001-BEGDA ."异动时间
PERFORM FILL_CELL_01 USING LV_LINE LV_YD-ORGTX ."异动前部门
PERFORM FILL_CELL_01 USING LV_LINE LV_YD-PLSTX ."异动前岗位
AUTHORITY-CHECK OBJECT 'ZHR01'
ID 'INFOTYP' FIELD ''.
IF SY-SUBRC = .
PERFORM FILL_CELL_01 USING LV_LINE LV_GZ1 ."异动时间
PERFORM FILL_CELL_01 USING LV_LINE LV_GZ2 ."异动后工资
ENDIF. PERFORM FILL_CELL_01 USING LV_LINE GW_PA0001-ORGTX ."异动后部门
PERFORM FILL_CELL_01 USING LV_LINE GW_PA0001-PLSTX ."异动后岗位 MOVE-CORRESPONDING GW_PA0001 TO LV_YD."将异动前数据保存
LV_LINE = LV_LINE + .
ENDIF. ENDIF. ENDLOOP. "无异动，行数下移一位
IF LV_COUNT < .
LV_LINE = LV_LINE + .
ELSE."IF LV_COUNT > 1.
LV_LINE = LV_LINE + .
* ELSEIF LV_COUNT = 1.
* LV_LINE = LV_LINE + 2.
ENDIF. LOOP AT GT_PA9002 INTO GW_PA9002.
PERFORM FILL_CELL_01 USING LV_LINE GW_PA9002-ZJXNY ."绩效考核年月份
PERFORM FILL_CELL_01 USING LV_LINE GW_PA9002-ZJXZF ."绩效总分 AUTHORITY-CHECK OBJECT 'ZHR01'
ID 'INFOTYP' FIELD ''.
IF SY-SUBRC = .
PERFORM FILL_CELL_01 USING LV_LINE GW_PA9002-ZJXJJ ."奖惩金额
ENDIF.
LV_LINE = LV_LINE + .
ENDLOOP. "证书
DATA:LV_ZS() TYPE C.
LV_LINE = LV_LINE + .
LOOP AT GT_PA9003 INTO GW_PA9003.
IF GW_PA9003-ZZCZG IS NOT INITIAL.
CONCATENATE LV_ZS GW_PA9003-ZZCZG INTO LV_ZS SEPARATED BY '/'.
ENDIF.
ENDLOOP.
PERFORM FILL_CELL_01 USING LV_LINE LV_ZS ."绩效考核年月份 ENDFORM.
PAI
MODULE USER_COMMAND_9000 INPUT.
IF OK_CODE = 'BACK' .
CALL METHOD DOCUMENT->CLOSE_DOCUMENT.
FREE DOCUMENT.
CALL METHOD CONTROL->DESTROY_CONTROL.
FREE CONTROL.
SET SCREEN .
* ELSEIF OK_CODE = 'EXCEL' .
* PERFORM SUB_OUT_EXCEL .
ENDIF .
ENDMODULE.
DOI EXCEL显示报表的更多相关文章
- 使用C#和Excel进行报表开发（三）－生成统计图（Chart）
有的Web项目选用Excel作为报表方案,在服务器端生成Excel文件,然后传送到客户端,由客户端进行打印.在国内的环境下,相对PDF方式,Excel的安装率应该比pdf阅读器的安装率要高,同时,微软 ...
- C#操作Excel开发报表系列整理(转)
C#操作Excel进行报表开发系列共写了七篇,也已经有很久没有新东西了,现在整理一下,方便以后查阅,如果有写新的,会同时更新.需要注意的是因为Office的版本不同,实际的代码可能会有所不同,但是都是 ...
- EBS中 EXCEL 格式报表输出的公用API
http://blog.itpub.net/10359218/viewspace-752601/ 最近的项目上写了一个公用的API,很久以前就用EXCEL发布过报表,但从没想过写API来简化... ...
- 极速响应Excel数据报表请求的一种方法
摘要 通过缓存和维护Excel Workbook实例,极速响应Excel数据报表请求. 这是一个真实的大数据"云计算"项目中的解决方案,在给定的时间和资源下,只有这种方法是最简单并 ...
- python制作简单excel统计报表3之将mysql数据库中的数据导入excel模板并生成统计图
python制作简单excel统计报表3之将mysql数据库中的数据导入excel模板并生成统计图 # coding=utf-8 from openpyxl import load_workbook ...
- C#操作Excel开发报表系列整理
C#操作Excel进行报表开发系列共写了八篇,也已经有很久没有新东西了,现在整理一下,方便以后查阅,如果有写新的,会同时更新.需要注意的是因为Office的版本不同,实际的代码可能会有所不同,但是都是 ...
- 怎么让Excel显示时间时候能把秒显示出来
Excel显示时间一般只显示年月日小时分钟怎么能够把秒也显示出来既如下显示 2007-04-11 12:00:00 将单元格格式设为"自定义",在"类型"框中输 ...
- python制作简单excel统计报表2之操作excel的模块openpyxl简单用法
python制作简单excel统计报表2之操作excel的模块openpyxl简单用法 # coding=utf-8 from openpyxl import Workbook, load_workb ...
- 作为报表工具，Excel移动报表的优势和劣势
Excel是应用最广泛的报表工具,它集数据存储.数据处理.数据分析于一身,广泛应用于各行各业的日常工作中(无论这个企业的信息化程度有多高.多低).而且随着Office365的普及,软件License的 ...
随机推荐
- python 自动生成C++代码 （代码生成器）
python 代码自动生成的方法 (代码生成器) 遇到的问题 工作中遇到这么一个事,需要写很多C++的底层数据库类,但这些类大同小异,无非是增删改查,如果人工来写代码,既费力又容易出错:而借用pyth ...
- NoSQL聚合数据模型
NoSQL聚合数据模型 特点 聚合数据模型的特点就是把经常访问的数据放在一起(聚合在一块): 这样带来的好处很明显,对于某个查询请求,能够在与数据库一次交互中将所有数据都取出来: 当然,以这种方式存储 ...
- 关于版本号：alpha、beta、rc、stable
定义好版本号,对于产品的版本发布与持续更新很重要: 但是对于版本怎么定义,规则如何确定,却是千差万别.具体应用,可以结合自己目前的实际情况命名: 很多软件在正式发布前都会发布一些预览版或者测试版,一般 ...
- myeclipse10.05安装aptana
安装步骤: 1.下载aptana3.2 Eclipse Plugin插件. 下载地址:http://update1.aptana.org/studio/3.2/024747/index.html 2. ...
- Scrum Meeting---Eight(2015-11-3)
今日已完成任务和明日要做的任务 姓名 今日已完成任务 今日时间 明日计划完成任务 估计用时 董元财 数据库与客户端通讯 5h 服务器与客户端通讯测试 4h 胡亚坤 好友添加 2h 好友添加 2h 刘猛 ...
- java乱码问题（转）
参考: http://blog.csdn.net/beijiguangyong/article/details/7414247 http://www.zhihu.com/question/202126 ...
- Redis常用命令入门——列表类型（一级二级缓存技术）
获取列表片段 redis > LRANGE KEY_NAME START END lrange命令比较常用,返回从start到stop的所有元素的列表,start和stop都是从0开始. (1) ...
- spring集成quartz scheduler
创建项目 有两种创建quart配置作业 1.使用MethodInvokingJobDetailFactoryBean Quartz Scheduler 配置作业(MethodInvokingJobD ...
- (六)动手写第一个shell
1.编辑器.编译器.运行方法(脚本的3种执行方法)(1)shell程序是文本格式的,只要是文本编辑器都可以.但是因为我们的shell是要在linux系统下运行的,所以换行符必须是'\n',而windo ...
- 【服务器环境搭建-Centos】系统分区 待续
df命令查看,显示/dev/vda,而不是sda或hda ,为什么? 虚拟机为了提升性能,一般使用virtio作为磁盘驱动,在虚拟机里面磁盘会显示成vda而不是传统的sda,有什么办法可以让他显示成s ...