下载文档原格式
2023年度税务局大比武数字人事两测练习专业能力-纳税服务考试辅导资料学校:________ 班级:________ 姓名:________ 考号:________一、单选题(20题)1.关于3岁以下婴幼儿照护专项附加申报扣除时间，下列说法中不正确的是( ) 。
A.可以在申报当月扣除B.可以在以后月份发工资时补充扣除C.可以在次年办理汇算清缴时补充扣除D.可以提前申报扣除2.国税系统投资总额在()万元(含)以上的新建、购建、改扩建综合业务办公用房项目，应作为基建项目管理。
()A.10B.50C.100D.603.穿税务制服时可以搭配的皮鞋颜色有()。
A.白色B.黑色C.黄色D.红色4.《宪法》规定，全国人民代表大会会议每隔一定年限举行一次，该年限为()。
A.每年B.两年C.三年D.五年5.花生果仁出口免征增值税()。
A.是B.否6.《诗经·大雅·民劳》中曰：“民亦劳止，汔可小康。
”其意是讲，老百姓终日劳作不止，最大的希望就是过上小康生活。
现阶段，我国已经初步实现了小康，并正在为建设更高水平的小康社会而奋斗。
下列对我国现阶段的小康水平认识正确的是______。
A.只是在经济上实现全面小康B.是低水平、不全面、发展不平衡的小康C.已经实现全面小康，只是水平仍比较低D.是少数人的小康，多数人还处于贫困状态7.以下选项中哪项不属于党风廉政建设责任中纪检监察部门负监督责任的内容()。
A.强化监督检查B.严格执纪办案C.严肃问责追究D.加强调查研究8.根据《中华人民共和国行政处罚法》的规定，行为人的情形有()。
A.受他人胁迫有违法行为的B.违法行为轻微并及时纠正，没有造成危害后果的C.配合行政机关查处违法行为有立功表现的D.主动消除或减轻违法行为危害后果的9.纳税人享有主动了解，全面、准确、适时知晓税收法律法规的权利，这种权利属于纳税人的()A.税收政策知情权B.涉税程序知情权C.应纳税额核定知情权D.救济方式知情权10.按照企业所得税法的有关规定，在计算企业所得税应纳税所得额时，下列项目准予从收入总额中扣除的是()A.固定资产减值准备B.被没收财物的损失C.遭到龙卷风袭击的存货毁损D.非广告性质的赞助支出11.国家税务系统的政府采购项目实行()双重管理。
技术合同登记表下载1、合同登记编号：由各技术合同登记机构统一填写十六位数字的合同登记编号。
2、项目名称：填写合同的项目全称。
3、合同有效期限：指当事人双方在订立技术合同时，依照所签订的合同的标的或约定，确定的合同有效期限。
4、合同签订日期：指合同签订的具体时刻。
5、买、卖方名称：填写买方的全称。
6、买方、卖方国别代码：按国家海关总署公布的《2003国别（地区）统计代码》标准填写，须填满三位。
7、买方、卖方行政区划代码：按国家统计局公布的《中华人民共和国行政区划代码》(GB/T2260-2005) 填写，须填满六位。
8、买、卖方性质：按机构所属法人类型，企业按国家工商行政治理局《关于划分企业登记注册类型的规定》按下列分类填写3位代码。
010机关法人011国家级行政机关0111机关法人0112机关分支机构012省级行政机关0121机关法人0122机关分支机构013市级行政机关0131机关法人0132机关分支机构014县级及一下行政机关 0141机关法人0142机关分支机构 020事业法人021科研机构0211事业法人0212事业分支机构022高等院校0221事业法人0222事业分支机构023医疗、卫生0231事业法人0232事业分支机构024其它030.社团法人040企业法人100内资企业110国有企业120集体企业130股份合作企业140联营企业150有限责任公司160股份170私营企业180其他企业200港澳台商投资企业210合资经营企业220合作经营230独资经营企业240港澳台商投资股份300外商投资企业310中外合资经营企业320中外合作经营企业330外资企业340外商投资股份400个体经营410个体工商户420个人合伙500境外企业510港澳台企业520外国企业050自然人051中国籍0511大陆同胞 0512港澳台同胞052外国籍0521华人、华侨 0522外国人060其他组织061单位分支机构062其他国内组织063其他外国组织口是否技术中介服务机构9、合同成交金额：指签订成立的技术合同中，经当事人协商量定的合同总价款。
公务员登记信息系统使用说明书第一章概述主要介绍软件的安装环境、安装过程、系统启动及系统的功能图。
第一节安装环境一、硬件环境PIII以上的CPU，256MB以上的内存，VGA彩色显示器（推荐分辨率800*600），1G 以上可用硬盘空间。
二、软件环境IE5.5以上，Windows 9X/Me/2000/2003/XP。
1公务员登记信息系统使用说明书2 第二节功能图公务员登记信息系统使用说明书3第三节 软件安装软件安装步骤：1．安装本软件之前建议关闭其它的应用程序。
双击“Setup.exe ”开始系统安装，首先显示初始化界面，如图1-3-1所示。
2．如果系统中的IE 为5.01以下版本，系统提示：安装IE6，如图1-3-2所示。
安装IE6后，系统自动重新启动机器，启动后将继续安装。
图1-3-1 初始化安装 图1-3-2 安装IE63．系统重新启动后，双击“Setup.exe ”开始安装数据库访问部件，如果系统数据公务员登记信息系统使用说明书4 库访问部件版本为2.6以上，则跳过此安装任务，直接进行下一步安装，如图1-3-3 所示。
4．数据库访问部件安装完毕后，开始安装应用程序支持环境，如果系统中已安装了此部分支持文件，安装程序将跳过此安装任务，直接进行下一步安装任务，如图1-3-4所示。
图1-3-3 安装数据访问部件 图1-3-4 安装.NET Framework5．安装完上述任务后将显示选择安装路径界面，通过浏览选取要安装程序的路径，如图1-3-5所示，程序默认安装路径为C:\Servant\Advanced 。
单击“下一步”按钮，安装程序开始复制文件，界面如图1-3-6所示。
图1-3-5 选择安装路径 图1-3-6 复制文件公务员登记信息系统使用说明书56．复制文件完成后，显示程序安装完成界面，安装完毕，如图1-3-7所示。
图1-3-7 安装完成注意事项：当操作系统为Windows 9X/ Me 时，安装完成后必须重新启动计算机，否则数据库无法正常安装，其他系统可以不重新启动机器，直接安装。
1. beautiful2. pretty劳动用工网上登记程序操作说明1、单位系统登录在浏览器录入人力资源和社会保障局网址，点击页面右下方的“青岛市劳动和社会保障网”（图一）图一点击页面左侧的“办事大厅”下的“劳动用工登记”进入登陆页面（图二），输入正确的登录名、密码、验证码,点击登录按钮或回车,便可进入系统。
图二若您的登录密码和登录名相同,系统会自动提示您修改密码,（图三）:图三点击确定按钮后,直接跳转到密码修改画面（图四），在此画面中,您可以对自己的用户名及密码进行修改,点击右上角的保存按钮,若修改成功,系统会提示您密码修改成功。
注意: 如果您的当前用户既办理劳动合同网上备案，又办理社会保险网上申报，那么您修改密码后，社会保险网上申报密码也同时修改。
图四若您的密码不为初始密码,登录后会进入如下画面（图五）图五有部分单位用户在登陆后提示如图六的提示框,说明该帐号对应多个单位,现在因一个帐号只能对应一个单位,而取消了此帐号, 相应单位请到单位所在地公共就业服务机构重新开通帐号，才能继续办理相关业务。
图六有部分单位用户在登陆后单位名称显示为编号，并且进行就业登记操作时会弹出如图七的提示框，说明该单位基本信息不完整或存在问题，请到公共就业服务机构进行修改，才能继续办理相关业务。
图七2、新招用人员就业登记2.1就业登记业务①输入员工的身份证号码并回车确认图八如果系统中存在此人信息会自动显示个人信息，如果不存在此人员,则系统给于提示（图九）,点击确定进行添加此人员图九②在添加个人基本信息画面（图十）中输入此人姓名,民族,政治面貌,健康状况,婚姻状况,文化程度,专业技术职务,联系电话,电子邮箱(非必须,居民户口,户口所在地,现住址,邮政编码(非必须,点击保存按钮,系统验证通过,添加成功时给于提示,并自动进入就业和合同信息录入画面（图十一）。
图十③此时,就业登记画面（图十一）会自动显示出添加人的基本信息(姓名,性别,居民户口,户口所在地并只读方式显示,在此画面继续填入人员类别,人员小类(非必须,工种,月工资,是否法人或合伙人,劳动合同期限类型,合同起始日期,合同终止日期(若劳动合同类型为无固定期限或已完成一定工作任务为期限的合同终止日期可以不输入,合同签订日期,点击保存按钮,系统进行判断是否可以就业登记,若符合就业登记条件,便提示保存成功,若不允许就业登记给于具体错误提示。
国家税务总局关于税收执法管理信息系统及计算机自动考核试点工作的通知正文：---------------------------------------------------------------------------------------------------------------------------------------------------- 国家税务总局关于税收执法管理信息系统及计算机自动考核试点工作的通知（国税函[2005]875号2005年9月14日）各省、自治区、直辖市和计划单列市国家税务局、地方税务局，扬州税务进修学院：为贯彻落实全国税务系统深入推行税收执法责任制工作会议精神，根据《国家税务总局关于深入推行税收执法责任制工作的意见》（国税发[2005]144号）的要求，总局决定在全国国税系统开展“税收执法管理信息系统”（以下简称“系统”）第二批扩大试点工作，在全国地税系统开展计算机自动考核试点工作。
现就试点工作有关问题通知如下：一、试点的单位国税系统：凡是在2005年底之前已经运行总局省级数据集中模式（包括1.1和2.0两个版本）的省、自治区、直辖市和计划单列市均为“系统”第二批扩大试点单位。
各试点单位要按照统一要求、分步实施的原则，在本省（市）内至少选择1-2个地市级单位试运行“系统”，有条件的也可以在全省（市）范围内试点运行。
地税系统：经过广泛征求意见，综合考虑各地实际情况，总局确定：河北省、辽宁省、江苏省、安徽省、福建省、山东省、河南省、海南省、重庆市、云南省、陕西省、甘肃省、青岛市地方税务局为计算机自动考核试点单位。
根据金税工程三期建设规划要求，上述单位开展试点要以省（市）为单位开发自动考核软件，也可以借鉴其他省市开发并试运行成功的自动考核软件，根据自身情况进行必要改造后，实行自动考核。
试点范围的要求与国税系统相同。
二、试点目标与任务试点的目标是：根据试点工作的要求，通过试点单位运行“系统”和试行计算机自动考核，总结经验，以点带面，为下一步在全国税务系统全面推行“系统”及计算机自动考核奠定基础。
《国家工作人员报备管理前端采集安装程序》安装及使用说明一、安装程序1、打开“国家工作人员报备管理前端采集安装程序”（压缩文件，需要解压缩），可看到6个“DISK”文件，一个“报备系统使用手册”；2、打开“DISK1”文件夹，找到“SETUP.EXE”文件（带小电视机屏幕的图标），双击它自动执行安装，按照操作提示不断点“NEXT”，直到完成。
3、打开“国家工作人员报备入库(8省统一版)”压缩文件，需要解压缩，再安装文件夹“国家工作人员报备入库(8省统一版)”里的“tsrq_update.exe”，完成程序安装。
二、登录安装完成后，桌面上会有一个小图标“特定身份人员报备”出现，双击图标登录，输入用户名“0000”、口令“00”，此为系统管理员，请不要修改。
三、进行系统配置首次录入数据前，必须先设定报备单位“组织机构代码”，设置“组织机构代码”方法如下：进入使用程序界面——点击“系统管理”——在下拉菜单中点“系统配置”——输入本单位组织机构代码（9位数，省略中间的符号间隔），输入类别、名称（必须是《组织机构代码证》上的全称）、所属系统、联系人、联系电话（必须是11位以上，0578-XXXXXXX）——最后点“确认”。
注：若录入数据前不进行此项操作，录入的数据将全部为不合格数据，就必须要全部重新录入。
四、录入数据点击主菜单上“新增人员”的下拉菜单中的“增加”,光标显示在身份证号的文本框中，输入15位或18位身份证号后，会进行身份证号的合法性检查，不合法时，会进行相应的提示，合法时，用户可接着输入其他信息。
输入完成按[确认]按钮将数据完成采集并进行下一条采集，采集完成的数据会在浏览列表中显示。
五、数据卸载各报备单位将数据录入完毕后，需将所录入的信息进行卸载，方法如下：点击应用程序界面上“卸载/装载”——点“卸载”——系统会提示“是否卸载所有未卸载信息”选择“确定”，并打印核查单，打印预览完退出将显示提示框“请检查上报人员信息是否与核查单一致，确定是否继续卸载？”通过对照打印机打印出的核查单与上报人员信息是否一致，若是将按按“确定”按钮。
企业内部控制基本规范企业内部控制基本规范 (1)第一章总则 (1)第二章内部环境 (2)第三章风险评估 (3)第四章控制活动 (4)第五章信息与沟通 (5)第六章内部监督 (6)第七章附则 (7)企业内部控制应用指引 (8)企业内部控制应用指引第1号——组织架构 (8)第一章总则 (8)第二章组织架构的设计 (8)第三章组织架构的运行 (9)企业内部控制应用指引第2号——发展战略 (10)第一章总则 (10)第二章发展战略的制定 (10)第三章发展战略的实施 (11)企业内部控制应用指引第3号——人力资源 (12)第一章总则 (12)第二章人力资源的引进与开发 (12)第三章人力资源的使用与退出 (13)企业内部控制应用指引第4号——社会责任 (15)第一章总则 (15)第二章安全生产 (15)第三章产品质量 (15)第四章环境保护与资源节约 (16)第五章促进就业与员工权益保护 (16)企业内部控制应用指引第5号——企业文化 (18)第一章总则 (18)第二章企业文化的建设 (18)第三章企业文化的评估 (19)企业内部控制应用指引第6号——资金活动 (20)第一章总则 (20)第二章筹资 (20)第三章投资 (22)第四章营运 (23)企业内部控制应用指引第7号——采购业务 (25)第一章总则 (25)第二章购买 (25)第三章付款 (27)企业内部控制应用指引第8号——资产管理 (28)第一章总则 (28)第二章存货 (28)第三章固定资产 (29)第四章无形资产 (30)企业内部控制应用指引第9号——销售业务 (32)第一章总则 (32)第二章销售 (32)第三章收款 (33)企业内部控制应用指引第10号——研究与开发 (34)第一章总则 (34)第二章立项与研究 (34)第三章开发与保护 (35)企业内部控制应用指引第11号——工程项目 (36)第一章总则 (36)第二章工程立项 (36)第三章工程招标 (37)第四章工程造价 (38)第五章工程建设 (39)第六章工程验收 (40)企业内部控制应用指引第12号——担保业务 (41)第一章总则 (41)第二章调查评估与审批 (41)第三章执行与监控 (42)企业内部控制应用指引第13号——业务外包 (43)第一章总则 (43)第二章承包方选择 (43)第三章业务外包实施 (44)企业内部控制应用指引第14号——财务报告 (46)第一章总则 (46)第二章财务报告的编制 (46)第三章财务报告的对外提供 (47)第四章财务报告的分析利用 (48)企业内部控制应用指引第15号——全面预算 (49)第一章总则 (49)第二章预算编制 (49)第三章预算执行 (50)第四章预算考核 (51)企业内部控制应用指引第16号——合同管理 (52)第一章总则 (52)第二章合同的订立 (52)第三章合同的履行 (53)企业内部控制应用指引第17号——内部信息传递 (55)第一章总则 (55)第二章内部报告的形成 (55)第三章内部报告的使用 (56)企业内部控制应用指引第18号——信息系统 (57)第一章总则 (57)第二章信息系统的开发 (57)第三章信息系统的运行与维护 (58)企业内部控制评价指引 (60)第一章总则 (60)第二章内部控制评价的内容 (60)第三章内部控制评价的程序 (61)第四章内部控制缺陷的认定 (62)第五章内部控制评价报告 (63)企业内部控制审计指引 (65)第一章总则 (65)第二章计划审计工作 (65)第三章实施审计工作 (66)第四章评价控制缺陷 (68)第五章完成审计工作 (68)第六章出具审计报告 (69)第七章记录审计工作 (71)内部控制审计报告 (72)内部控制审计报告 (72)内部控制审计报告 (73)内部控制审计报告 (74)第一章总则第一条为了加强和规范企业内部控制，提高企业经营管理水平和风险防范能力，促进企业可持续发展，维护社会主义市场经济秩序和社会公众利益，根据《中华人民共和国公司法》、《中华人民共和国证券法》、《中华人民共和国会计法》和其他有关法律法规，制定本规范。
四川省电力公司企业资源管理(ERP)系统实施项目试点阶段系统配置手册物资管理分册2009年5月更改记录：目录1 企业结构-定义 (4)1.1 定义工厂 (4)1.2 定义工厂日历 (10)1.3 维护仓储地点 (12)1.4 维护采购组织 (18)2 企业结构-分配 (37)2.1 给公司代码分配工厂 (40)2.2 给公司代码分配采购组织 (41)2.3 给工厂分配采购组织 (42)3 后勤常规-物料主数据 (46)3.1 定义行业部门和具体行业部门字段选择 (49)3.2 给字段选择组分配字段 (50)3.3 维护数据屏幕的字段选择 (51)3.4 维护物料管理的公司代码 (52)3.5 定义物料类型属性 (53)3.6 定义每个物料类型的号码范围 (56)3.7 定义物料组 (58)4 物料管理-基于消费的计划 (59)4.1 执行工厂的参数总体维护 (59)4.2 执行MRP 组的总体维护 (63)4.3 定义MRP控制者 (66)5 物料管理-采购 (67)5.1 定义付款条款 (67)5.2 定义合作伙伴角色 (70)5.3 定义每个科目组允许的合作伙伴角色 (70)5.4 定义伙伴方案 (71)5.5 分配伙伴方案到科目组 (73)5.6 定义采购订单伙伴方案 (74)5.7 分配伙伴方案到凭证类型 (76)5.8 创建采购组 (77)5.9 定义询价/报价凭证类型 (79)5.10 定义采购凭证编号范围（询价/报价、采购订单、框架协议、计划协议） (80)5.11 定义采购申请编号范围 (83)5.12 定义采购申请凭证类型 (85)5.13 采购申请审批-编辑特性 (87)5.14 采购申请审批-编辑类 (89)5.15 采购申请审批-用分类建立过程 (91)5.16 定义采购订单凭证类型 (99)5.17 采购订单审批-编辑特性（询价、框架协议、计划协议） (102)5.18 采购订单审批-编辑类（询价、框架协议、计划协议） (104)5.19 采购订单审批-定义采购订单的审批过程（询价、框架协议、计划协议） (105)5.20 框架协议-定义凭证类型 (110)5.21 定义条件类型 (112)5.22 定义计算方案 (113)5.23 定义方案组 (114)5.24 定义方案确定 (121)5.25 维护帐户分配类别 (122)5.26 维护发票校验税码缺省值 (124)5.27 维护发票校验采购订单文本 (126)6 物料管理-库存管理 (127)6.1 工厂参数 (127)6.2 复制、更改移动类型 (129)7 物料管理-评估和科目设置 (131)7.1 定义评估控制 (131)7.2 将评估范围群集分组 (132)7.3 定义评估类 (133)7.4 配置自动记帐 (138)8 物料管理-批次 (141)8.1 定义批次级别 (141)8.2 激活内部编号分配 (143)8.3 定义内部编号编码 (144)8.4 定义移动类型批次创建规则 (145)8.5 定义批次查找策略 (146)8.6 定义批次查找过程 (148)8.7 分配查找过程 (150)8.8 激活自定义批次特性 (151)企业结构-定义定义工厂菜单路径：企业结构->定义->后勤- 常规->定义, 复制, 删除, 检查工厂事务代码：SPRO配置说明：定义工厂配置操作：1.点击进入定义，复制，删除检查工厂2.点击“定义工厂”,双击选定工厂或者点击可以查看和修改工厂的详细信息四川电力配置内容说明：定义四川电力本部工厂四川电力业务涉及的参数列表：定义工厂日历菜单路径：SAP NetWeaver->General Settings->维护日历事务代码：SCAL配置说明：定义工厂日历配置操作：1.选择“工厂日历”，点击“修改”。
四川省电力公司企业资源管理(ERP)系统实施项目技术设计说明书3.1业务需求描述根据人员编号、就业状态、人事范围、人事子范围、员工组员工子组从系统中提取相关字段，生成国家工作人员登记备案表以备查阅3.2技术解决方案1、使用逻辑数据库PERNR获取数据2、使用函数REUSE_ALV_GRID_DISPLAY 展示数据3、使用SMW0 上载的数据模板，将内表的数据导入到数据模板中，打印或者导入到本地3.3 系统简单架构图PERFORM GET_DATA.END-OF-SELECTION.PERFORM SORT_ITAB.PERFORM ALV_DISPLAY.下载通过SMW0上载的模板文件（P_OBJID）到（P_DEST）指定的本地文件路径下的EXCEL文件里FORM FRM_DOWNLOAD_EXCEL_FROMSERVER USING P_OBJID LIKE WWWDATATAB-OBJID P_DEST LIKE SAPB-SAPPFAD.DATA: LO_OBJDATA LIKE WWWDATATAB,LO_MIME LIKE W3MIME,LS_DESTINATION LIKE RLGRAP-FILENAME,LS_OBJNAM TYPE STRING,LI_RC LIKE SY-SUBRC,LS_ERRTXT TYPE STRING.CONCATENATE P_OBJID '.XLS'INTO LS_OBJNAM.CONDENSE LS_OBJNAM NO-GAPS.SELECT SINGLE RELID OBJID FROM WWWDATAINTO CORRESPONDING FIELDS OF LO_OBJDATAWHERE SRTF2 = 0AND RELID = 'MI'AND OBJID = P_OBJID.IF SY-SUBRC NE0OR LO_OBJDATA-OBJID EQ SPACE.CONCATENATE'模板文件：' LS_OBJNAM '不存在，请用TCODE：SMW0进行加载'INTO LS_ERRTXT.MESSAGE E000 WITH LS_ERRTXT.ENDIF.LS_DESTINATION = P_DEST.CALL FUNCTION'DOWNLOAD_WEB_OBJECT'EXPORTINGKEY = LO_OBJDATADESTINATION = LS_DESTINATIONIMPORTINGRC = LI_RC.IF LI_RC NE0.CONCATENATE'模板文件：' LS_OBJNAM '下载失败'INTO LS_ERRTXT.MESSAGE E000 WITH LS_ERRTXT.ENDIF.ENDFORM.ALV自定义工具栏的事件处理FORM ALV_USER_COMMAND USING R_UCOMM LIKE SY-UCOMMRS_SELFIELD TYPE SLIS_SELFIELD.CASE R_UCOMM.打印WHEN'PNT'.CHECK ITAB[] IS NOT INITIAL.PERFORM PRINT. "填充excel（输出路径定位C:\）PERFORM FRM_PREVIEW. "预览打印格式（功能：EXCEL的打印预览）PERFORM QUIT_EXCEL. "释放并从本地删除EXCEL对象导入到本地文件WHEN'EXPORT'.CHECK ITAB[] IS NOT INITIAL.PERFORM FILEPATH. "获取输出路径(输出路径由用户自己选定)PERFORM PRINT. "填充excelPERFORM FREE_EXCEL. "保存填充数据、释放excel对象WHEN OTHERS.ENDCASE.ENDFORM.FORM PRINT.DATA:LI_MOD TYPE I, "分页标记，LI_ROW TYPE I VALUE5, "excel 表从第5行开始填充数据LI_CURRENTROW TYPE I VALUE0, "内表当前行数（第。
条数据）LS_CURRENTROW TYPE STRING, "字符格式的内表当前行数（用于concatenate） LS_LINES TYPE STRING, "字符格式的内表行项目数LS_PERCENT(3) TYPE I, "数值格式的百分比LS_PERCENT1 TYPE STRING, "字符格式的百分比LN_PERCENT(3) TYPE N, "已处理内表数据的百分比LS_INDCATORTXT TYPE STRING, "用于输出的说明LI_CELL TYPE I.DATA:YEAR(4) VALUE0,MONTH(2) VALUE0,DAY(2) VALUE0,DATE TYPE STRING.DESCRIBE TABLE ITAB LINES LI_LINES.如果为事件为打印的话则指定EXCEL模板的本地下载路径（EXCEL文件在打印执行完毕后会被删除）IF SY-UCOMM = 'PNT'.CONCATENATE CS_PATH CO_OBJID '-' SY-DATUM '.XLS'INTO P_FILENAME.ENDIF."下载模板LS_INDCATORTXT = '程序正在下载模板'.PERFORM FRM_PROCESS_INDCATOR USING LS_INDCATORTXT 0 .从服务器下载EXCEL模板到P_FILENAME指定的路径下PERFORM FRM_DOWNLOAD_EXCEL_FROMSERVER USING CO_OBJID P_FILENAME.CHECK NOT P_FILENAME IS INITIAL.LS_INDCATORTXT = '程序正在初始化OLE控件'.PERFORM FRM_PROCESS_INDCATOR USING LS_INDCATORTXT 0 .初始化EXCEL文件，并打开sheet以供填充数据PERFORM INIT_EXCEL USING P_FILENAME.将内表的数据填充到本地EXCEL适当的单元格里LOOP AT ITAB."处理信息提示LI_CURRENTROW = SY-TABIX.LN_PERCENT = ( LI_CURRENTROW * 100 ) / LI_LINES. "已处理数据的百分比LS_PERCENT1 = LS_PERCENT = LN_PERCENT.CONCATENATE'已处理 ' LS_PERCENT1 '% 的数据记录，请稍候.....'INTO LS_INDCATORTXT.PERFORM FRM_PROCESS_INDCATOR USING LS_INDCATORTXT 0 .INCLUDE ZHRR0014_DATA_DECALRE. "数据声明INCLUDE ZHRR0014_EXCEL. "EXCEL 相关数据及程序INCLUDE ZHRR0014_GET_DATA. "数据获取INCLUDE ZHRR0014_ALV_DISPLAY. "ALV 输出INCLUDE ZHRR0014_PRINT. "打印及输出相关子程序INCLUDE ZHRR0014_EVENT. "程序的处理流程*&---------------------------------------------------------------------* *& 包括 ZHRR0014_DATA_DECALRE*&---------------------------------------------------------------------* REPORT ZHRR0014 NO STANDARD PAGE HEADINGMESSAGE-ID ZHR01.TABLES: PERNR, "HR 主数据报告的标准选HRP1000, "HRP1003, "T7CN5R, "政治面貌文本T001P, "子范围文本T500P. "人事范围文本INFOTYPES: 0000, "HR主记录:信息类别0000(事件)0001, "人力资源主记录:信息类型0001 (原始分配)0002, "HR 主记录: 信息类型 0002 (人员数据)0006, "HR主记录:信息类型0006(地址)0185, "HR 主记录: 信息类型 0185 [Identification]0534, " 人力资源主记录: 信息类型 0534(党派信息)——政治面貌0528, "人力资源主记录: 信息类型 0528（家庭信息）——政治面貌1001,9007. "HR 主记录: 信息类别9007——专业技术资格等级DATA INDEX TYPE I VALUE0.DATA: BEGIN OF ITAB OCCURS1, "定义输出表BOX(1), "NUM TYPE STRING, "序号NAME TYPE STRING, "姓名NACHN LIKE PA0002-NACHN, "姓VORNA LIKE PA0002-VORNA, "名GBDAT(8), "出生日期GENER(2), "性别ICNUM LIKE PA0185-ICNUM, "身份证号GZDW TYPE STRING, "工作单位RSFW LIKE T500P-NAME1, "人事范围RSZFW LIKE T001P-BTEXT, "人事子范围STEXT TYPE STRING, "职务职级HRSTE LIKE HRP1000-STEXT, "人事主管部门ZZMM(40), "政治面貌ORT01 LIKE PA0006-ORT01, "户口所在地PRIOX LIKE P1001-PRIOX,OBJID LIKE HRP1000-OBJID,RYPX LIKE P0001-ZZHR_RYPX,PERNR LIKE P0001-PERNR,END OF ITAB,WA LIKE LINE OF ITAB.DEFINE M_MESSAGE.CASE SY-SUBRC.WHEN0.WHEN OTHERS.MESSAGE E000(ZHR01)WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDCASE.END-OF-DEFINITION.SELECTION-SCREEN: BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-F01.PARAMETERS RSZGBM LIKE HRP1000-STEXT. "人事主管部门SELECTION-SCREEN: END OF BLOCK A1.*&---------------------------------------------------------------------**& 包括 ZHRR0014_EVENT*&---------------------------------------------------------------------* START-OF-SELECTION.RP_SET_DATA_INTERVAL 'P0001' PN-BEGDA PN-ENDDA.GET PERNR.PERFORM GET_DATA.END-OF-SELECTION.PERFORM SORT_ITAB.PERFORM ALV_DISPLAY.*&---------------------------------------------------------------------**& 包括 ZHRR0014_EXCEL*&---------------------------------------------------------------------* TYPE-POOLS: OLE2.DATA: P_FILENAME TYPE SAPB-SAPPFAD.CONSTANTS:CS_PATH(3) TYPE C VALUE'C:\',CO_OBJID TYPE WWWDATATAB-OBJID VALUE'ZHRR0014', "打印格式CI_LINESOFPAGE TYPE I VALUE17, "每页打印行数CI_COLUMNSOFPAGE TYPE I VALUE11, "每页打印列数CI_DATAOFFSET_TOP TYPE I VALUE4,CI_DATAOFFSET_LEFT TYPE I VALUE0,CI_DATAOFFSET_RIGHT TYPE I VALUE2,CI_DATAOFFSET_BUTTOM TYPE I VALUE0,CI_DATALINES TYPE I VALUE14. "每页打印数据条数DATA: LI_TOP TYPE I,LI_LEFT TYPE I,LI_RIGHT TYPE I,LI_BUTTOM TYPE I,LC_NUM TYPE I, "FLAG_ROW TYPE I, "标志行数FLAG_COL TYPE I, "标志列数LC_MOD TYPE I, "记录分页的模余数LI_LINES TYPE I. "记录内表条数INCLUDE OLE2INCL.DATA: APPLICATION TYPE OLE2_OBJECT,WORKBOOK TYPE OLE2_OBJECT,SHEET TYPE OLE2_OBJECT,COLUMNS TYPE OLE2_OBJECT,W_COMMENT TYPE OLE2_OBJECT,W_SHAPE TYPE OLE2_OBJECT,ROWS TYPE OLE2_OBJECT,RANGE TYPE OLE2_OBJECT,H_F TYPE OLE2_OBJECT, " fontCELLS1 TYPE OLE2_OBJECT,EXCEL TYPE OLE2_OBJECT,CELLS TYPE OLE2_OBJECT.DATA: GI_PAGENO TYPE I VALUE0. "CURRENT PAGENO DATA: GI_PAGENO_COPY TYPE I VALUE0. "CURRENT PAGENO DATA: LC_GI_PAGENO_COPY(2) TYPE C.DATA: PAGENO TYPE I VALUE0.DATA: LC_PAGENO(2) TYPE C.DATA: PAGE(6) TYPE C.DATA: I(3) TYPE P DECIMALS2.*&---------------------------------------------------------------------**& Form FRM_PROCESS_DICATOR*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->TEXT text* -->PERCENTAGE text*----------------------------------------------------------------------*FORM FRM_PROCESS_INDCATOR USING TEXT PERCENTAGE.CALL FUNCTION'SAPGUI_PROGRESS_INDICATOR'EXPORTINGPERCENTAGE = PERCENTAGETEXT = TEXT.ENDFORM. "FRM_PROCESS_DICATOR*&---------------------------------------------------------------------**& Form FRM_DOWNLOAD_EXCEL_FROMSERVER*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM FRM_DOWNLOAD_EXCEL_FROMSERVER USING P_OBJID LIKE WWWDATATAB-OBJIDP_DEST LIKE SAPB-SAPPFAD.DATA: LO_OBJDATA LIKE WWWDATATAB,LO_MIME LIKE W3MIME,LS_DESTINATION LIKE RLGRAP-FILENAME,LS_OBJNAM TYPE STRING,LI_RC LIKE SY-SUBRC,LS_ERRTXT TYPE STRING.CONCATENATE P_OBJID '.XLS'INTO LS_OBJNAM.CONDENSE LS_OBJNAM NO-GAPS.SELECT SINGLE RELID OBJID FROM WWWDATAINTO CORRESPONDING FIELDS OF LO_OBJDATAWHERE SRTF2 = 0AND RELID = 'MI'AND OBJID = P_OBJID.IF SY-SUBRC NE0OR LO_OBJDATA-OBJID EQ SPACE.CONCATENATE'模板文件：' LS_OBJNAM '不存在，请用TCODE：SMW0进行加载'INTO LS_ERRTXT.MESSAGE E000 WITH LS_ERRTXT.ENDIF.LS_DESTINATION = P_DEST.CALL FUNCTION'DOWNLOAD_WEB_OBJECT'EXPORTINGKEY = LO_OBJDATADESTINATION = LS_DESTINATIONIMPORTINGRC = LI_RC.IF LI_RC NE0.CONCATENATE'模板文件：' LS_OBJNAM '下载失败'INTO LS_ERRTXT.MESSAGE E000 WITH LS_ERRTXT.ENDIF.ENDFORM. "FRM_DOWNLOAD_EXCEL_FROMSERVER*&---------------------------------------------------------------------**& Form FRM_CLEARDATA*& 清楚区域内容*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->P_TOP text* -->P_LEFT text* -->P_RIGHT text* -->P_BUTTOM text*----------------------------------------------------------------------*FORM FRM_CLEARDATA USING P_TOP TYPE IP_LEFT TYPE IP_RIGHT TYPE IP_BUTTOM TYPE I.PERFORM FRM_SELECTRANGE USING P_LEFTP_TOPP_RIGHTP_BUTTOM.CALL METHOD OF RANGE 'ClearContents'.M_MESSAGE.ENDFORM. "FRM_CLEARDATA*&---------------------------------------------------------------------**& Form FRM_PREVIEW*& 打印预览*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM FRM_PREVIEW.SET PROPERTY OF EXCEL 'VISIBLE' = 1.CALL METHOD OF SHEET 'PrintPreview'.M_MESSAGE.ENDFORM. "FRM_PREVIEW*&---------------------------------------------------------------------* *& Form FRM_SHOW*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* FORM FRM_SHOW.SET PROPERTY OF EXCEL 'VISIBLE' = 1.* CALL METHOD OF SHEET 'PrintPreview'.M_MESSAGE.ENDFORM. "FRM_SHOW*&---------------------------------------------------------------------* *& Form FRM_FORMATROWS*& 用格式刷复制模板格式*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * -->P_AREA text 已格式化的区域* -->P_AREA1 text 需格式化的区域*----------------------------------------------------------------------* FORM FRM_FORMATROWS USING P_AREA P_AREA1.CALL METHOD OF SHEET 'ROWS' = ROWSEXPORTING#1 = P_AREA.M_MESSAGE.CALL METHOD OF ROWS'SELECT'.M_MESSAGE.CALL METHOD OF ROWS'COPY'.M_MESSAGE.CALL METHOD OF SHEET 'ROWS' = ROWSEXPORTING#1 = P_AREA1.CALL METHOD OF ROWS'SELECT'.M_MESSAGE.CALL METHOD OF ROWS'PASTESPECIAL'EXPORTING#1 = -4122.M_MESSAGE.SET PROPERTY OF EXCEL 'CutCopyMode' = 0.CALL METHOD OF SHEET 'CELLS' = CELLSEXPORTING#1 = 1#2 = 1.M_MESSAGE.CALL METHOD OF CELLS 'SELECT'.M_MESSAGE.ENDFORM. "FRM_FORMATROWS*&---------------------------------------------------------------------* *& Form FRM_SELECTRANGE*& 选择一个excel RANGE*&---------------------------------------------------------------------** text*----------------------------------------------------------------------* * -->P_LEFT text* -->P_TOP text* -->P_RIGHT text* -->P_BUTTOM text*----------------------------------------------------------------------* FORM FRM_SELECTRANGE USINGP_LEFT TYPE IP_TOP TYPE IP_RIGHT TYPE IP_BUTTOM TYPE I.CALL METHOD OF SHEET 'CELLS' = CELLSEXPORTING#1 = P_TOP#2 = P_LEFT.M_MESSAGE.CALL METHOD OF SHEET 'CELLS' = CELLS1EXPORTING#1 = P_BUTTOM#2 = P_RIGHT.M_MESSAGE.CALL METHOD OF SHEET 'RANGE' = RANGEEXPORTING#1 = CELLS#2 = CELLS1.M_MESSAGE.CALL METHOD OF RANGE 'SELECT'.M_MESSAGE.ENDFORM. "FRM_SELECTRANGE*&---------------------------------------------------------------------* *& Form GET_FILENAME 调用文件打开对话框打开文件*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * -->FILEFILTER text 文件类型过滤字符串* -->FILENAME text 文件名*----------------------------------------------------------------------* FORM FRM_GET_FILENAME USING FILEFILTER CHANGING FILENAME.DATA: P_FILE TYPE RLGRAP-FILENAME,RC TYPE I,F_TABLE TYPE FILETABLE.FIELD-SYMBOLS: <F> TYPE FILE_TABLE .CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOGEXPORTINGWINDOW_TITLE = '打开文件'FILE_FILTER = FILEFILTERINITIAL_DIRECTORY = 'C:\'CHANGINGFILE_TABLE = F_TABLERC = RCEXCEPTIONSCNTL_ERROR = 1FILE_OPEN_DIALOG_FAILED = 2ERROR_NO_GUI = 3.CALL METHOD CL_GUI_CFW=>FLUSHEXCEPTIONSCNTL_ERROR = 1CNTL_SYSTEM_ERROR = 2.CLEAR P_FILE.READ TABLE F_TABLE ASSIGNING <F> INDEX1.IF SY-SUBRC EQ0.P_FILE = <F>-FILENAME.ENDIF.FILENAME = P_FILE.ENDFORM. "GET_FILENAME*&---------------------------------------------------------------------* *& Form FILL_CELL*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * -->I_ROW text* -->I_COL text* -->P_VALUE text*----------------------------------------------------------------------* FORM FILL_CELL USING I_ROW I_COL BOLD P_VALUE.CALL METHOD OF EXCEL 'Cells' = CELLSEXPORTING #1 = I_ROW#2 = I_COL.SET PROPERTY OF CELLS 'value' = P_VALUE.GET PROPERTY OF CELLS 'Font' = H_F.SET PROPERTY OF H_F 'Bold' = BOLD .SET PROPERTY OF CELLS 'horizontalAlignment' = 3." && 水平方向2左对齐，3居中，4右对齐ENDFORM. "FILL_CELL*&---------------------------------------------------------------------* *& Form FILL_CELL*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * -->I_ROW text* -->I_COL text* -->P_VALUE text*----------------------------------------------------------------------* FORM FILL_CELL_LEFT USING I_ROW I_COL BOLD P_VALUE.CALL METHOD OF EXCEL 'Cells' = CELLSEXPORTING #1 = I_ROW#2 = I_COL.SET PROPERTY OF CELLS 'value' = P_VALUE.GET PROPERTY OF CELLS 'Font' = H_F.SET PROPERTY OF H_F 'Bold' = BOLD .ENDFORM. "FILL_CELL*&---------------------------------------------------------------------* *& Form INIT_EXCEL*& 初始化OLE控件并打开模版文件*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* FORM INIT_EXCEL USING P_FILENAME.CREATE OBJECT EXCEL 'EXCEL.APPLICATION'.CALL METHOD OF EXCEL 'WORKBOOKS' = WORKBOOK.* CALL METHOD OF WORKBOOK 'ADD'.CALL METHOD OF WORKBOOK 'OPEN'EXPORTING#1 = P_FILENAME.CALL METHOD OF EXCEL 'WORKSHEETS' = SHEETEXPORTING#1 = 1.CALL METHOD OF SHEET 'ACTIVATE'.ENDFORM. "INIT_EXCEL*&---------------------------------------------------------------------* *& Form FREE_EXCEL*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* FORM FREE_EXCEL.GET PROPERTY OF EXCEL 'ActiveWorkbook' = WORKBOOK.CALL METHOD OF WORKBOOK 'Save'.*SET PROPERTY OF EXCEL 'DisplayAlerts' = 0.CALL METHOD OF WORKBOOK 'CLOSE'.CALL METHOD OF EXCEL 'QUIT'.**删除下载到本地的文件*DATA P_FILENAME2 LIKE RLGRAP-FILENAME.*P_FILENAME2 = P_FILENAME.*CALL FUNCTION 'GUI_DELETE_FILE'* EXPORTING* FILE_NAME = P_FILENAME2* EXCEPTIONS* FAILED = 1* OTHERS = 2.FREE SHEET.FREE WORKBOOK.FREE EXCEL.ENDFORM. "FREE_EXCEL*&---------------------------------------------------------------------* *& Form UNLOCK_EXCEL*& 保护工作表区域*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * -->P_AREA text*----------------------------------------------------------------------* FORM LOCK_UNLOCK_EXCEL USING P_AREA P_LOCK.CALL METHOD OF SHEET 'COLUMNS' = COLUMNSEXPORTING#1 = P_AREA.CALL METHOD OF COLUMNS 'SELECT'.SET PROPERTY OF COLUMNS 'LOCKED' = P_LOCK.CALL METHOD OF SHEET 'PROTECT'EXPORTING#1 = 'sgcc'#2 = 1#3 = 1#4 = 1#5 = 1#6 = 1#7 = 1.ENDFORM. "UNLOCK_EXCEL*&---------------------------------------------------------------------**& Form FRM_LOCK_UNLOCK_SHEET*& 保护整个工作表*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->P_LOCK text*----------------------------------------------------------------------*FORM FRM_LOCK_SHEET.CALL METHOD OF SHEET 'PROTECT'EXPORTING#1 = 'sgcc'#2 = 1#3 = 1#4 = 1#5 = 1#6 = 1#7 = 1.M_MESSAGE.ENDFORM. "FRM_LOCK_UNLOCK_SHEET*&---------------------------------------------------------------------**& Form FRM_ADD_COMMENT*7 添加注释*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM FRM_ADD_COMMENT USING I_ROW I_COL P_TEXT.CALL METHOD OF SHEET 'Cells' = CELLSEXPORTING #1 = I_ROW #2 = I_COL.CALL METHOD OF CELLS 'AddComment' = W_COMMENT.CALL METHOD OF W_COMMENT 'Text'EXPORTING #1 = P_TEXT.CALL METHOD OF W_COMMENT 'Shape' = W_SHAPE.SET PROPERTY OF W_SHAPE 'Width' = '100.75'.SET PROPERTY OF W_SHAPE 'Height' = '60.75'.ENDFORM. "FRM_ADD_COMMENT*&---------------------------------------------------------------------**& Form FRM_ADD_SHEET*& 添加sheet*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->P_P_FILENAME text*----------------------------------------------------------------------*FORM FRM_ADD_SHEET USING P_FILENAME .*--------------------------------- 添加并重命名sheet--------------------------------------------------------------------------*" 非第一次添加sheetCALL METHOD OF EXCEL 'WORKSHEETS' = SHEET.CALL METHOD OF SHEET 'ADD'.CALL METHOD OF EXCEL 'WORKSHEETS' = SHEETEXPORTING#1 = 1.CALL METHOD OF SHEET 'ACTIVATE'.SET PROPERTY OF SHEET 'NAME' = P_FILENAME.M_MESSAGE.ENDFORM. "FRM_ADD_SHEET*&---------------------------------------------------------------------**& Form QUIT_EXCEL*&---------------------------------------------------------------------** text*----------------------------------------------------------------------* FORM QUIT_EXCEL.**Call Method Of EXCEL 'Save'.SET PROPERTY OF EXCEL 'DisplayAlerts' = 0.CALL METHOD OF WORKBOOK 'CLOSE'.CALL METHOD OF EXCEL 'QUIT'.*删除下载到本地的文件DATA P_FILENAME2 LIKE RLGRAP-FILENAME.P_FILENAME2 = P_FILENAME.CALL FUNCTION'GUI_DELETE_FILE'EXPORTINGFILE_NAME = P_FILENAME2EXCEPTIONSFAILED = 1OTHERS = 2.FREE SHEET.FREE WORKBOOK.FREE EXCEL.ENDFORM. "QUIT_EXCEL*&---------------------------------------------------------------------**& Form FRM_PAGEBREAK*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->P_LINESOFPAGE text* -->P_CELLSOFPAGE text* -->P_DATAOFFSET_TOP text* -->P_DATAOFFSET_LEFT text* -->P_DATAOFFSET_RIGHT text* -->P_DATAOFFSET_BUTTOM text*----------------------------------------------------------------------* FORM FRM_PAGEBREAK USING P_LINESOFPAGE TYPE I"每页打印行数 P_CELLSOFPAGE TYPE I"每页打印列数 P_DATAOFFSET_TOP TYPE I"打印起始行数 P_DATAOFFSET_LEFT TYPE I"打印起始列数 P_DATAOFFSET_RIGHT TYPE I"打印结束列数 P_DATAOFFSET_BUTTOM TYPE I. "打印结束行数DATA: LS_TOP TYPE STRING,LS_BUTTOM TYPE STRING,LS_AREA TYPE STRING,LS_AREA1 TYPE STRING.CLEAR:LI_TOP,LI_BUTTOM.*先复制上次的LI_TOP = GI_PAGENO * P_LINESOFPAGE + 1.LI_BUTTOM = LI_TOP + P_LINESOFPAGE - 1.LI_LEFT = 1.LI_RIGHT = P_CELLSOFPAGE.PERFORM FRM_SELECTRANGE USING LI_LEFT LI_TOP LI_RIGHT LI_BUTTOM.CALL METHOD OF RANGE 'COPY'.M_MESSAGE.*再粘贴这次的LI_TOP = LI_BUTTOM + 1.LI_BUTTOM = LI_TOP + P_LINESOFPAGE - 1.LI_LEFT = 1.LI_RIGHT = P_CELLSOFPAGE.PERFORM FRM_SELECTRANGE USING LI_LEFT LI_TOP LI_RIGHT LI_BUTTOM.CALL METHOD OF SHEET 'PASTE'.M_MESSAGE.*清除粘贴过来的行项目内容LI_TOP = LI_TOP + 4.PERFORM FRM_CLEARDATA USING LI_TOP LI_LEFT LI_RIGHT LI_BUTTOM.GI_PAGENO = GI_PAGENO + 1. "页数加1FLAG_ROW = GI_PAGENO * 25 + 5. "换页*把格式调整成一样的LI_TOP = ( GI_PAGENO - 1 ) * P_LINESOFPAGE + 1.LI_BUTTOM = ( GI_PAGENO ) * P_LINESOFPAGE.LS_TOP = LI_TOP.LS_BUTTOM = LI_BUTTOM.CONCATENATE LS_TOP ':' LS_BUTTOM INTO LS_AREA.CONDENSE LS_AREA NO-GAPS.LI_TOP = GI_PAGENO * P_LINESOFPAGE + 1.LI_BUTTOM = ( GI_PAGENO + 1 ) * P_LINESOFPAGE.LS_TOP = LI_TOP.LS_BUTTOM = LI_BUTTOM.CONCATENATE LS_TOP ':' LS_BUTTOM INTO LS_AREA1.CONDENSE LS_AREA1 NO-GAPS.PERFORM FRM_FORMATROWS USING LS_AREA LS_AREA1.ENDFORM. " PRINTFORM FRM_PAGEBREAK1 USING P_LINESOFPAGE P_CELLSOFPAGE TYPE I . "每页打印列数DATA:LS_TOP TYPE STRING,LS_BUTTOM TYPE STRING,LS_AREA TYPE STRING,LS_AREA1 TYPE STRING.CLEAR:LI_TOP,LI_BUTTOM.*先复制上次的LI_TOP = GI_PAGENO * P_LINESOFPAGE + 5.LI_BUTTOM = LI_TOP + P_LINESOFPAGE - 1.LI_LEFT = 1.LI_RIGHT = P_CELLSOFPAGE.PERFORM FRM_SELECTRANGE USING LI_LEFT LI_TOP LI_RIGHT LI_BUTTOM.CALL METHOD OF RANGE 'COPY'.M_MESSAGE.*再粘贴这次的LI_TOP = LI_BUTTOM + 1.LI_BUTTOM = LI_TOP + P_LINESOFPAGE - 1.LI_LEFT = 1.LI_RIGHT = P_CELLSOFPAGE.PERFORM FRM_SELECTRANGE USING LI_LEFT LI_TOP LI_RIGHT LI_BUTTOM.CALL METHOD OF SHEET 'PASTE'.M_MESSAGE.*清除粘贴过来的行项目内容* LI_TOP = LI_TOP + 4.PERFORM FRM_CLEARDATA USING LI_TOP LI_LEFT LI_RIGHT LI_BUTTOM.GI_PAGENO = GI_PAGENO + 1. "页数加1* FLAG_ROW = GI_PAGENO * 25 + 5. "换页*把格式调整成一样的LI_TOP = ( GI_PAGENO - 1 ) * P_LINESOFPAGE + 1.LI_BUTTOM = ( GI_PAGENO ) * P_LINESOFPAGE.LS_TOP = LI_TOP.LS_BUTTOM = LI_BUTTOM.CONCATENATE LS_TOP ':' LS_BUTTOM INTO LS_AREA.CONDENSE LS_AREA NO-GAPS.LI_TOP = GI_PAGENO * P_LINESOFPAGE + 1.LI_BUTTOM = ( GI_PAGENO + 1 ) * P_LINESOFPAGE.LS_TOP = LI_TOP.LS_BUTTOM = LI_BUTTOM.CONCATENATE LS_TOP ':' LS_BUTTOM INTO LS_AREA1.CONDENSE LS_AREA1 NO-GAPS.PERFORM FRM_FORMATROWS USING LS_AREA LS_AREA1.ENDFORM.*&---------------------------------------------------------------------* *& 包括 ZHRR0014_GET_DATA*&---------------------------------------------------------------------* FORM GET_DATA.IF PERNR-SNAME NE''ANDP0002-GBDAT NE'00000000'ANDP0001-ZZHR_ZWZJ GE10ANDP0001-ZZHR_ZWZJ LE15.ITAB-NAME = PERNR-SNAME. "姓名ITAB-NACHN = P0002-NACHN. "姓ITAB-VORNA = P0002-VORNA. "名ITAB-GBDAT = P0002-GBDAT. "出生日期IF P0002-GESCH = 1. "性别ITAB-GENER = '男'.ELSEIF P0002-GESCH = 2.ITAB-GENER = '女'.ENDIF.ITAB-ICNUM = P0185-ICNUM. "身份证号SELECT SINGLE NAME1 "人事范围INTO ITAB-RSFWFROM T500PWHEREPERSA = P0001-WERKS.SELECT SINGLE BTEXT "人事子范围INTO ITAB-RSZFWFROM T001PWHEREBTRTL = P0001-BTRTL.IF ITAB-RSZFW CS'本部'.ITAB-GZDW = ITAB-RSZFW.ELSE.CONCATENATE ITAB-RSFW ITAB-RSZFWINTO ITAB-GZDW. "工作单位ENDIF.SELECT SINGLE ZTEXT "职务职级INTO ITAB-STEXTFROM ZHR_ZWZJWHEREZZHR_ZWZJ = P0001-ZZHR_ZWZJ.* PERFORM FRM_GET_ORGEHDESC* USING P0001-ORGEH* CHANGING ITAB-HRSTE. "人事主管部门SELECT SINGLE PTEXT "政治面貌INTO ITAB-ZZMMFROM T7CN5RWHEREPCODE = P0534-PCODE ANDLANGU = 1.SELECT SINGLE ORT01 "户口所在地INTO ITAB-ORT01FROM PA0006WHERE ANSSA = '01'ANDPERNR = P0006-PERNR.ITAB-PRIOX = P1001-PRIOX.IF ITAB-PRIOX IS INITIAL.ITAB-PRIOX = 'ZZ'.ENDIF.PERFORM FRM_GET_ORGEH USING P0001-ORGEHCHANGING ITAB-OBJID. ITAB-PERNR = P0001-PERNR.ITAB-RYPX = P0001-ZZHR_RYPX.IF ITAB-RYPX IS INITIAL.ITAB-RYPX = 99.ENDIF.APPEND ITAB.CLEAR ITAB.ENDIF.ENDFORM. "GET_DATA*&---------------------------------------------------------------------* *& Form SET_ITAB*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* FORM SORT_ITAB.IF ITAB[] IS INITIAL.MESSAGE S000 WITH'查询没有数据,请重新输入条件！'.EXIT.ENDIF.DELETE ADJACENT DUPLICATES FROM ITAB.SORT ITAB BY PRIOX OBJID RYPX PERNR.LOOP AT ITAB.ITAB-NUM = SY-TABIX.MODIFY ITAB.ENDLOOP.ENDFORM. "SET_ITAB*&---------------------------------------------------------------------* *& Form FRM_GET_ORGEHDESC*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* * -->P_ORGEH text* -->P_ORGEH_DESC text*----------------------------------------------------------------------* FORM FRM_GET_ORGEHDESC USING P_ORGEH TYPE P0001-ORGEHCHANGING P_ORGEH_DESC TYPE HRP1000-STEXT.DATA: L_SOBID TYPE SOBID.DATA: L_ABTEL LIKE HRP1003-ABTEL.DATA: L_POBID TYPE SOBID.DATA: LD TYPE DATS.CLEAR L_SOBID.IF P0001-ENDDA > SY-DATUM.LD = SY-DATUM.ELSE.LD = P0001-ENDDA.ENDIF.L_POBID = P_ORGEH.L_SOBID = L_POBID.SELECT SINGLE ABTEL INTO L_ABTELFROM HRP1003 WHERE HRP1003~OBJID = L_POBID.WHILE ( L_ABTEL <> 'X' ).L_SOBID = L_POBID.SELECT SINGLE SOBID INTO L_POBIDFROM HRP1001。
