SEPCERP试点阶段技术书HRZHRR0014 国家工作人员登记表V1Word文件下载.docx
- 文档编号:19799903
- 上传时间:2023-01-10
- 格式:DOCX
- 页数:32
- 大小:54.72KB
SEPCERP试点阶段技术书HRZHRR0014 国家工作人员登记表V1Word文件下载.docx
《SEPCERP试点阶段技术书HRZHRR0014 国家工作人员登记表V1Word文件下载.docx》由会员分享,可在线阅读,更多相关《SEPCERP试点阶段技术书HRZHRR0014 国家工作人员登记表V1Word文件下载.docx(32页珍藏版)》请在冰豆网上搜索。
3、使用SMW0上载的数据模板,将内表的数据导入到数据模板中,打印或者导入到本地
3.3系统简单架构图
第四部分:
程序逻辑描述—将主要代码功能描述清楚,
程序处理逻辑
START-OF-SELECTION.
RP_SET_DATA_INTERVAL
'
P0001'
PN-BEGDA
PN-ENDDA.
GET
PERNR.
PERFORM
GET_DATA.
END-OF-SELECTION.
SORT_ITAB.
ALV_DISPLAY.
下载通过SMW0上载的模板文件(P_OBJID)到(P_DEST)指定的本地文件路径下的EXCEL文件里
FORM
FRM_DOWNLOAD_EXCEL_FROMSERVER
USING
P_OBJID
LIKE
WWWDATATAB-OBJID
P_DEST
SAPB-SAPPFAD.
DATA:
LO_OBJDATA
WWWDATATAB,
LO_MIME
W3MIME,
LS_DESTINATION
RLGRAP-FILENAME,
LS_OBJNAM
TYPE
STRING,
LI_RC
SY-SUBRC,
LS_ERRTXT
STRING.
CONCATENATE
.XLS'
INTO
LS_OBJNAM.
CONDENSE
NO-GAPS.
SELECT
SINGLE
RELID
OBJID
FROM
WWWDATA
CORRESPONDING
FIELDS
OF
LO_OBJDATA
WHERE
SRTF2
=
AND
MI'
P_OBJID.
IF
SY-SUBRC
NE
0
OR
LO_OBJDATA-OBJID
EQ
SPACE.
模板文件:
不存在,请用TCODE:
SMW0进行加载'
LS_ERRTXT.
MESSAGE
E000
WITH
ENDIF.
P_DEST.
CALL
FUNCTION
DOWNLOAD_WEB_OBJECT'
EXPORTING
KEY
DESTINATION
LS_DESTINATION
IMPORTING
RC
LI_RC.
0.
下载失败'
ENDFORM.
ALV自定义工具栏的事件处理
ALV_USER_COMMAND
R_UCOMM
SY-UCOMM
RS_SELFIELD
SLIS_SELFIELD.
CASE
R_UCOMM.
打印
WHEN
PNT'
.
CHECK
ITAB[]
IS
NOT
INITIAL.
PRINT."
填充excel(输出路径定位C:
\)
FRM_PREVIEW."
预览打印格式(功能:
EXCEL的打印预览)
QUIT_EXCEL."
释放并从本地删除EXCEL对象
导入到本地文件
EXPORT'
FILEPATH.
"
获取输出路径(输出路径由用户自己选定)
PRINT.
填充excel
FREE_EXCEL.
保存填充数据、释放excel对象
OTHERS.
ENDCASE.
PRINT.
LI_MOD
I,
分页标记,
LI_ROW
I
VALUE
5,
excel
表从第5行开始填充数据
LI_CURRENTROW
0,
内表当前行数(第。
。
条数据)
LS_CURRENTROW
STRING,
字符格式的内表当前行数(用于concatenate)
LS_LINES
字符格式的内表行项目数
LS_PERCENT(3)
数值格式的百分比
LS_PERCENT1
字符格式的百分比
LN_PERCENT(3)
N,
已处理内表数据的百分比
LS_INDCATORTXT
用于输出的说明
LI_CELL
I.
YEAR(4)
0,
MONTH
(2)
DAY
(2)
DATE
DESCRIBE
TABLE
ITAB
LINES
LI_LINES.
如果为事件为打印的话则指定EXCEL模板的本地下载路径
(EXCEL文件在打印执行完毕后会被删除)
SY-UCOMM
CS_PATH
CO_OBJID
-'
SY-DATUM
P_FILENAME.
下载模板
程序正在下载模板'
FRM_PROCESS_INDCATOR
从服务器下载EXCEL模板到P_FILENAME指定的路径下
P_FILENAME
程序正在初始化OLE控件'
初始化EXCEL文件,并打开sheet以供填充数据
INIT_EXCEL
将内表的数据填充到本地EXCEL适当的单元格里
LOOP
AT
ITAB.
处理信息提示
SY-TABIX.
LN_PERCENT
(
*
100
)
/
LI_LINES.
已处理数据的百分比
LS_PERCENT
LN_PERCENT.
已处理
%
的数据记录,请稍候.....'
LS_INDCATORTXT.
向EXCEL表格行项目填充数据
FILL_CELL
1
ITAB-NUM.
序号
2
ITAB-NACHN.
姓
3
ITAB-VORNA.
名
4
ITAB-GBDAT.
出生日期
5
ITAB-GENER.
性别
6
ITAB-ICNUM.
身份证号
FILL_CELL_LEFT
7
ITAB-GZDW.
工作单位
8
ITAB-STEXT.
职务职级
9
ITAB-HRSTE.
人事主管单位
10
ITAB-ZZMM.
政治面貌
11
ITAB-ORT01.
户口所在地
+
1.
CLEAR
ENDLOOP.
DATE.
第五部分:
源程序----复杂性功能实现可贴主要功能代码部分
INCLUDE
ZHRR0014_DATA_DECALRE.
数据声明
ZHRR0014_EXCEL.
EXCEL
相关数据及程序
ZHRR0014_GET_DATA.
数据获取
ZHRR0014_ALV_DISPLAY.
ALV
输出
ZHRR0014_PRINT.
打印及输出相关子程序
ZHRR0014_EVENT.
程序的处理流程
*&
---------------------------------------------------------------------*
包括
ZHRR0014_DATA_DECALRE
REPORT
ZHRR0014
NO
STANDARD
PAGE
HEADING
MESSAGE-ID
ZHR01.
TABLES:
PERNR,
HR
主数据报告的标准选
HRP1000,
HRP1003,
T7CN5R,
政治面貌文本
T001P,
子范围文本
T500P.
人事范围文本
INFOTYPES:
0000,
HR主记录:
信息类别0000(事件)
0001,
人力资源主记录:
信息类型0001
(原始分配)
0002,
主记录:
信息类型
0002
(人员数据)
0006,
信息类型0006(地址)
0185,
0185
[Identification]
0534,
0534(党派信息)——政治面貌
0528,
0528(家庭信息)——政治面貌
1001,
9007.
信息类别9007——专业技术资格等级
DATA
INDEX
BEGIN
OCCURS
1,
定义输出表
BOX
(1),
NUM
NAME
姓名
NACHN
PA0002-NACHN,
VORNA
PA0002-VORNA,
GBDAT(8),
GENER
(2),
ICNUM
PA0185-ICNUM,
GZDW
RSFW
T500P-NAME1,
人事范围
RSZFW
T001P-BTEXT,
人事子范围
STEXT
HRSTE
HRP1000-STEXT,
人事主管部门
ZZMM(40),
ORT01
PA0006-ORT01,
PRIOX
P1001-PRIOX,
HRP1000-OBJID,
RYPX
P0001-ZZHR_RYPX,
PERNR
P0001-PERNR,
END
ITAB,
WA
LINE
DEFINE
M_MESSAGE.
SY-SUBRC.
E000(ZHR01)
SY-MSGV1
SY-MSGV2
SY-MSGV3
SY-MSGV4.
END-OF-DEFINITION.
SELECTION-SCREEN:
BLOCK
A1
FRAME
TITLE
TEXT-F01.
PARAMETERS
RSZGBM
HRP1000-STEXT.
A1.
ZHRR0014_EVENT
ZHRR0014_EXCEL
TYPE-POOLS:
OLE2.
CONSTANTS:
CS_PATH(3)
C
C:
\'
WWWDATATAB-OBJID
ZHRR0014'
打印格式
CI_LINESOFPAGE
17,
每页打印行数
CI_COLUMNSOFPAGE
11,
每页打印列数
CI_DATAOFFSET_TOP
4,
CI_DATAOFFSET_LEFT
CI_DATAOFFSET_RIGHT
2,
CI_DATAOFFSET_BUTTOM
CI_DATALINES
14.
每页打印数据条数
LI_TOP
I,
LI_LEFT
LI_RIGHT
LI_BUTTOM
LC_NUM
FLAG_ROW
标志行数
FLAG_COL
标志列数
LC_MOD
记录分页的模余数
LI_LINES
I.
记录内表条数
OLE2INCL.
APPLICATION
OLE2_OBJECT,
WORKBOOK
SHEET
COLUMNS
W_COMMENT
W_SHAPE
ROWS
RANGE
H_F
OLE2_OBJECT,
font
CELLS1
CELLS
OLE2_OBJECT.
GI_PAGENO
0.
CURRENT
PAGENO
GI_PAGENO_COPY
LC_GI_PAGENO_COPY
(2)
C.
PAGENO
LC_PAGENO
(2)
PAGE(6)
I(3)
P
DECIMALS
2.
Form
FRM_PROCESS_DICATOR
text
*----------------------------------------------------------------------*
-->
TEXT
PERCENTAGE
*----
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SEPCERP试点阶段技术书HRZHRR0014 国家工作人员登记表V1 SEPCERP 试点 阶段 技术 HRZHRR0014 国家工作人员 登记表 V1