南宫玉儿__
范文一：电仪A级设备易损备件使用周期统计表
A级设备易损备件使用周期统计
设备名称:仪表
名称 规格型号 安装使用预计更时间 备注
件数 周期
ZSPQ-25B DN300 1 氧气总管快1台 不锈钢 切阀 配电磁阀:K23JD-15W
空气减压过滤器:QTY-15
ZSPQ-25K DN300 1 左右枪氧气2台 不锈钢 快切阀 配电磁阀:K23JD-15W
空气减压过滤器:QTY-15
ZSPQ-25K DN50 1 左右枪氧气2台 不锈钢 放散阀
ZMAN-25K DN250/200 1 氧气总管压1台 不锈钢 力调节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
ZMAN-25K DN250/200 1 左右枪氧气2台 不锈钢 流量调节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
ZSPQ-25B DN250 1 氮气总管快1台 碳钢 切阀 配电磁阀:K23JD-15W
空气减压过滤器:QTY-15
ZSPQ-25K DN250 1 左右枪氮切2台 碳钢 阀 配电磁阀:K23JD-15W
空气减压过滤器:QTY-15
ZSPQ-25K DN50 1 氮气放散快2台 碳钢 切阀
ZMAN-25K DN200 1 氮气压力调1台 碳钢 节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
ZMBN-25K DN200 1 氮气流量调1台 碳钢 节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
ZMAN-25B DN200 1 氧枪水流量2台 碳钢 调节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
63350RA-S-N-301K-25B 1 氧枪进水切2台 碳钢
DN200 断阀
配电电磁阀:4V410-15
空气减压过滤器:BFR-3000
63350RA-S-N-301K-25B 1 氧枪回水切2台 碳钢
DN200 断阀
配电磁阀:4V410-15
空气减压过滤器:BFR-3000
A级设备易损备件使用周期统计
设备名称:仪表
名称 规格型号 安装使用预计更时间 备注
件数 周期
180T主钩YZR400L2-10C 200KW 2 1 大连布鲁
电机 克 调压调速装QY2-1200S/T 1200A 1 温州久久
置 380V
180T主副YZR355L1-10C 110KW 1 1 大连布鲁钩电机 克 调压调速装QY2-350S/T 1 温州久久
置
180T小副YZR250M2-8C 37KW 1 1 大连布鲁
钩 克 调压调速装QY2-150S/T 150A 380V 1 温州久久
置
180T大车YZR280S-6 55KW 4 1 大连布鲁
电机 克 变频器 6ES7033-2EG60 2 1 西门子 制动单元 6ES7031-6EB87-2DA1 1 西门子 180T主小YZR200L1-6 22KW 2 1 大连布鲁车电机 克 变频器 6ES7031-5EF60 1 西门子 制动单元 6ES7028-DES87-2DA1 1 西门子 180T副小YZR180L-6 15KW 1 1 大连布鲁车电机 克 变频器 6ES7024-7ED61 1 西门子 制动单元 6ES7023-2ES87-2DA1 1 西门子
30+30
YZR280M-10 45KW 2 1 大连布鲁主钩电机 克 大车行走电YZR180L-8 11KW 2 1 大连布鲁
机 克 小车行走电YZR160M1-6 5.5KW 2 1 大连布鲁
机 克
A级设备易损备件使用周期统计
设备名称:转炉
名称 规格型号 安装使用预计更时间 备注
件数 周期
转炉倾动电YZP315M-6-AG130 4 1
机 90KW
控制方式变ABB ACS800 4 1
频器
S1皮带 Y280M-4 90KW 1 1 软启动 雷诺尔JJR2000 1 1 S2皮带 Y180L-4 22KW 1 1 布料小车 Y112M-4 4KW 1 1 移钢机 Y280S-6 45KW 1 1 控制方式变西门子 M440 1 1
频器
大包旋转台 YTSP225M-6 30KW 1 1 控制方式变西门子 M440 1 1
频器
范文二：电仪A级设备易损备件使用周期统计表[宝典]
A级设备易损备件使用周期统计
设备名称:仪表
名称 规格型号 安装使用预计更时间 备注
件数 周期 氧气总管快1台 不锈钢 ZSPQ-25B DN300 1
切阀 配电磁阀:K23JD-15W
空气减压过滤器:QTY-15
左右枪氧气2台 不锈钢 ZSPQ-25K DN300 1 快切阀 配电磁阀:K23JD-15W
空气减压过滤器:QTY-15
左右枪氧气2台 不锈钢 ZSPQ-25K DN50 1 放散阀
氧气总管压1台 不锈钢 ZMAN-25K DN250/200 1 力调节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
左右枪氧气2台 不锈钢 ZMAN-25K DN250/200 1 流量调节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
氮气总管快1台 碳钢 ZSPQ-25B DN250 1
切阀 配电磁阀:K23JD-15W
空气减压过滤器:QTY-15
左右枪氮切2台 碳钢 ZSPQ-25K DN250 1
阀 配电磁阀:K23JD-15W
空气减压过滤器:QTY-15
氮气放散快2台 碳钢 ZSPQ-25K DN50 1
切阀
氮气压力调1台 碳钢 ZMAN-25K DN200 1
节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
氮气流量调1台 碳钢 ZMBN-25K DN200 1
节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
氧枪水流量2台 碳钢 ZMAN-25B DN200 1 调节阀 配定位器:EP(CHX)-4111
空气减压过滤器:QFH-241
氧枪进水切2台 碳钢 63350RA-S-N-301K-25B 1
断阀 DN200
配电电磁阀:4V410-15
空气减压过滤器:BFR-3000
氧枪回水切2台 碳钢 63350RA-S-N-301K-25B 1
断阀 DN200
配电磁阀:4V410-15
空气减压过滤器:BFR-3000
A级设备易损备件使用周期统计
设备名称:仪表
名称 规格型号 安装使用预计更时间 备注
件数 周期
180T主钩YZR400L2-10C 200KW 2 1 大连布鲁
电机 克 调压调速装QY2-1200S/T 1200A 1 温州久久
置 380V
180T主副YZR355L1-10C 110KW 1 1 大连布鲁钩电机 克 调压调速装QY2-350S/T 1 温州久久
置
180T小副YZR250M2-8C 37KW 1 1 大连布鲁
钩 克 调压调速装QY2-150S/T 150A 380V 1 温州久久
置
180T大车YZR280S-6 55KW 4 1 大连布鲁
电机 克 变频器 6ES7033-2EG60 2 1 西门子 制动单元 6ES7031-6EB87-2DA1 1 西门子 180T主小YZR200L1-6 22KW 2 1 大连布鲁车电机 克 变频器 6ES7031-5EF60 1 西门子 制动单元 6ES7028-DES87-2DA1 1 西门子 180T副小YZR180L-6 15KW 1 1 大连布鲁车电机 克 变频器 6ES7024-7ED61 1 西门子 制动单元 6ES7023-2ES87-2DA1 1 西门子
30+30
YZR280M-10 45KW 2 1 大连布鲁主钩电机 克 大车行走电YZR180L-8 11KW 2 1 大连布鲁
机 克 小车行走电YZR160M1-6 5.5KW 2 1 大连布鲁
机 克
A级设备易损备件使用周期统计
设备名称:转炉
名称 规格型号 安装使用预计更时间 备注
件数 周期
转炉倾动电YZP315M-6-AG130 4 1
机 90KW
控制方式变ABB ACS800 4 1
频器
S1皮带 Y280M-4 90KW 1 1 软启动 雷诺尔JJR2000 1 1 S2皮带 Y180L-4 22KW 1 1 布料小车 Y112M-4 4KW 1 1 移钢机 Y280S-6 45KW 1 1 控制方式变西门子 M440 1 1
频器
大包旋转台 YTSP225M-6 30KW 1 1 控制方式变西门子 M440 1 1
频器
范文三：设备备件管理表格
篇一:设备备品备件管理规范(含表格)
设备备品备件管理规范
(ISO9001:2015)
1 目的
为了规范公司的设备备品备件管理工作，加强设备成本控制，缩短设备的维修时间，提高设备维修质量，特制定本办法。
范围
本办法适用于设备的备品备件从计划、采购、库存、使用、成本等管理工作的控制。
术语
配件:在设备维修工作中，为了恢复设备的性能和精度，需要用新制的或2 3 3.1
修复的零部件来更换磨损的旧件，这种新制的或修复的零部件
3.2 备品:为了缩短修理停机时间，对某些形状复杂、加工困难、生产(外购)周期长的配件预先储备一定数量，这种配件称为备品
1
3.3 配件和备品总称备品备件，简称备件。
4 职责
各使用部门负责备件需求计划的审批、采购、库存管理及配件的成本控制。 使用部门负责备件需求计划的编制及配件的使用管理。
4.1 4.2
4.3
4.4 财务部门负责备件的成本监控管理和资金保障。 纪检监察部门负责备件比价采购的效能检查。
5 工作程序
备件管理内容
备件的计划、外购(自制)、供应、库存的管控活动。 5.1
5.2 备件的计划管理
制定备件计划的基本原则:
有需求申请;
考虑库存情况;
考虑采购周期;
考虑备件的单价价格;
考虑备件的使用寿命周期;
严格按备件管理办法中的规定执行。
设备备件计划的要求及内容:
设备备件的需求申请;
2
明确的型号、规格、数量、名称及厂家要求;
备件库存情况说明。 5.2.1 a) b) c) d) e) f) 5.2.2 g) h) i)
5.3 备品备件的采购管理
设备使用单位根据设备使用情况填写《设备备件请购单》，提出配件需5.3.1
求申请。
5.3.2 各使用部门依据设备使用单位填报的《设备备件请购单》，填写《备件采购计划》并按比价采购原则，按合同评审程序要求进行评审，在满足技术要求的前提下实施采购。
5.4 备件的库存及供应管理
备件的库存管理及供应应满足以下基本要求:
a)
b)
c)
d)
e) 应有出、入库的登记手续和记录; 在库存放整齐，并进行可视化管理; 进行防锈、防腐、防火、防潮管理相关设施; 库存备件的清单目录清晰; 领用时应该填写领用单。
6 相关记录
设备备件请购单
备件采购(自制)计划表
篇二:设备备品备件管理规程(含表格)
3
德信诚培训网
设备备品备件管理规程
1 目的与适用范围
为保证设备持续、稳定、正常运转，满足生产的需要，制订本规程
本规程适用于公司生产设备备件的管理，不适用于运输、超重设备及电器仪表标准件、通用件等的管理。
2 职责
设备部负责编制设备备品备件的目录及技术要求，部分简单备件的自制，供应部负责备品备件的采购及储存、发放。使用部门负责采购计划的填报。 3 内容
3.1 术语
3.1.1 备件
为了缩短检修停歇时间而事先准备供检修时更换的零部件，本规程将备件分为易损件、事故件和预制件三类。
3.1.2 易损件
在机械设备运行中，受到磨损或腐蚀而经常更换的零部件。
3.1.3 事故件
在机械设备运行中，虽不受磨损和腐蚀或磨损腐蚀很慢(六十个月以上)，但在发生事故时易损坏且制造周期比较长的零部件。
4
3.1.4 预制件
非易损件和事故件，在设备长期运行或多次检修无法修复需要更换的部件，不进行储备，在设备检修前进行预制。
更多免费资料下载请进:好好学习社区
篇三:体系文件设备备件管理控制程序
体系文件设备备件管理控制程序
更多免费资料下载请进:http://bbs.bz01.com
好好学习社区
设备备件管理控制程序
1. 目的 2. 适用范围 3. 引用标准 4. 定义 4.1 设备备件 4.2 备件 5. 管理职责 5.1 设备部门职责 5.2 财务部门职责 5.3 使用部门职责 6. 管理内容与要求 6.1 备件计划 6.2 备件采购 6.3 备件入仓与领用 6.4 关键备件试用及确认 6.5 库存管理 6.6 安全库存管理 7. 附录和附表 1. 目的
为规范公司在设备备件管理方面的职责、管理内容和方法，使备件管理工作得到有效控制，为降低备件费用以及资金积压，特制定本控制程序。 2. 适用范围 3. 引用标准
TX-A.03.01《质量管理手册》 TX-B.04.02《设备管理控制程序》 4(定义
4.1 设备备件:通常指用以设备维修、保养所需的零件、部件、油、气等物资的总称。 4.2 本控制程序的备件，包含
5
低值易耗品、工具、加工件和设备零部件等。为与公司产品的
备件、配件区别，也称设备备件。
5(管理职责
5.1设备部门职责:研制中心制造部设备课为公司设备备件管理的归口管理部门。对设备备
件的计划、审核、采购、仓存、发放、费用统计、管理考核等管理工作的全过程负责。 5.2财务部门职责:负责对设备备件的费用进行管理与考核。
5.3使用部门职责:对本部门内的设备备件的计划、领用、二级仓存管理以及本部门的备件
费用等负责。 6. 管理内容与要求
备件管理包括备件计划、采购、仓库管理、备件试用和确认等方面。 6.1 备件计划
备件计划是保证备件使用和控制库存、费用的关键一环，使用部门应对备件计划的完整性、准确性和合理性负责。
备件计划分为:月度备件采购计划、急购件临时采购计划和委外加工计划。 6.1.1 备件计划与审批
1. 备件计划号:备件计划号对设备备件的计划、领用与使用部门的对应有非常重要的作用。
*NnyyyymmXXX *:备件类型。
a) ? 设备备件(B); ? 低值易耗品(D); ? 油品(Y);
6
? 工具(G); ? 加工件(J)。 b) Nn:表示使用部门。N代表部门，n代表课室。 c) yyyymm:表示年月。 d) XXX:流水顺序号。
2. 表格:《月度备件采购计划表》、《临时备件采购计划表》、《委外加工、修理申请单》 3. 备件计划审批流程:使用部门计划人?课长?部长?设备课备件采购员?课长?主管部
长审核，由主管副总批准。
4. 使用部门在填写备件采购计划时应明确备件的编号、名称、型号、规格、生产商、图号
以准确描述所需的备件。
5. 使用部门计划人在填写备件采购计划时必须明确备件的数量，并尽量准确填写单价与金
额并在备注栏说明用途以便各级管理人员审核控制费用。
6. 使用部门在制定备件计划时应在调查库存情况后认真填写，必须考虑以下几个因素:月
使用消耗数量、现库存(含二级库存)、装机数量、安全库存以及价格性能比。
7. 为严格控制备件计划的准确性、完整性和合理性，设备课可以不予采购备件描述不清楚、
计划马虎、虚报、乱报和非设备课采购范围(如生产物料、办公用品、劳保用品)的备件，但应知会使用部门。
7
8. 使用部门在制定备件计划时，应尽量选用备件仓的备件台帐目录中已登录的项目。 6.1.2 月度备件采购计划
每月25日由使用部门做出下月的备件计划填写《月度备件采购计划表》并上交设备课。 6.1.3 临时采购计划
1(临时采购计划是用于计划采购由于设备突发性故障而备件仓无备件进行维修，且无相关
设备进行替代使用时急需采购的备件。根据实际情况填报《临时备件采购计划表》，是用于月度采购计划考虑不足或应对突发事件的一种补充手段。
2(由于大量的临时采购计划必然对扰乱备件采购正常运作，造成真正的急购备件无法按时
购回。因此，使用部门加强设备的预防维修和备件的计划预见性，减少临时采购的次数，主管课长应对临时采购计划全面负责。
3(设备课对于不属于急购备件的情况可以不予采购，但应知会使用部门。 6.1.4 委外加工计划
1(设备的零部件需要进行加工制造而公司无能力自行加工的，由使用部门填报《委外加工、修理申请单》。
2(设备的零部件需要进行公司内进行加工处理的，以工作联络单的形式执行。 3(委外加工件的计划原则上每月25日上报一次。特殊情况也可临时上报。 6.2 备件采购 6.2.1 采购权限
8
1. 备件的采购工作由设备课负责。
2. 一般备件由设备课备件采购员负责采购。
3. 对于有专业技术要求的备件和委外加工件的采购工作由设备课长指定或授权设备工程师
采购或协助备件采购员采购。
4. 设备工程师执行采购工作任务时必须按6.2.3条款进行价格审核报批。
6.2.2 备件的定价 1. 招标:
a) 招标适用于低值易耗品、工具等价格变化较小的备品备件。 b) 招标由设备课编制招标文件并组织实施。
2. 符合以下条件之一的备件应通过招标或按价格审批制度报上级领导批准后方可实施采
购。
a) 专用设备备件(来自:WwW.xltkwJ.cOm 小龙 文档 网:设备备件管理表格)。
b) 单价高于500元的设备备件(不含钢材等低值易耗品)。 c) 进口备件。 d) 委外加工件。
e) 招标中未包含的备件。 f) 市场价格变化较大的备件。 6.2.3 价格审批
1. 表格:《设备备件审价表》
2. 价格审核报批流程:备件采购员(设备工程师)?设备课长?主管部长?主管副总。 3. 审批权限:
9
a) 一次采购价格低于1000元的，由设备课长批准。 b) 一次采购价格低于5000元的，由主管部长批准。 c) 一次采购价格高于或等于5000元的，由主管副总批准。 4. 其他要求:
a) 备件的采购定价必须有3家或以上供应商参与竞价。特殊情况不足3家的，采购员应做
出书面的说明并经上级领导批准。
b) 如在三个月内发生重复采购的，备件价格可以按不高于上次审批的价格执行，不需要再
办理价格审批。 6.2.4 应急采购
1. 对于严重影响生产急需购买的备件，备件采购员在经设备课课长同意后，先给予购买，
再补办价格审批手续。
2. 对于一时无法找到设备课采购员采购而又严重影响生产的急购备件，设备课长应指定设
备工程师或使用部门设备主管购买，并在24小时内通知设备课采购员。
10
范文四：设施设备统计表
文件名称:设施设备统计表
文件编码:CF-JL-GC-001
设施设备统计表
一、 变压器设备基本情况档案登记表
序号 设备名称 型号 额定容量 高压电流 低压电流 冷却方式 绝缘等级 生产厂家 安装地点 出厂编号 出厂年月 责任人
一号变压S9-M-10江苏海北院中1 1000KVA 油浸 07276 2007.12 器 00 田电气 心配
二号变压S9-M-63江苏海北院中2 630KVA 油浸 07450 2007.12 器 0 田电气 心配
三号变压S9-M-10 江苏海北院中3 油浸 07277 2007.12 器 00 1000KVA 田电气 心配
一号变压SZ9-630汉中变南院中4 630KVA 油浸 1 1999.1 器 /10 压器厂 心配
西安银
河电力二号变压 南院中5 油浸 输配电50666 2005.8 器 630KVA 心配 设备有
限公司
箱变北变SM9-630汉中变南院箱6 630KVA 油浸 12 2005.11 压器 /10 压器厂 变
箱变南变SM9-630汉中变南院箱7 630KVA 油浸 12 2003.6 压器 /10 压器厂 变
8 9 10 11 12
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
文件名称:设施设备统计表
文件编码:CF-JL-GC-001 13 14 15 16
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
文件名称:设施设备统计表
文件编码:CF-JL-GC-001
二、 配电柜设备基本情况档案登记表
责任人 序号 设备名称 型号 执行标准 额定电流 额定电压 防护等级 生产厂家 安装地点 出厂编号 出厂年月
杭州之江KYN28A-1北院中心200711141 高压进线柜 1250A 12KV 开关股份2007.11 2 配 22 有限公司
杭州之江1#变压器出KYN28A-1北院中心200711142 1250A 12KV 开关股份2007.11 线柜 2 配 19 有限公司
杭州之江2#变压器出KYN28A-1北院中心200711143 1250A 12KV 开关股份2007.11 线柜 2 配 20 有限公司
杭州之江3#变压器出KYN28A-1北院中心200711424 1250A 12KV 开关股份2007.11 线柜 2 配 1 有限公司
杭州之江KYN28A-1北院中心5 备用进线柜 1250A 12KV 开关股份 2007.11 2 配 有限公司
KYN28A-16 计量柜 2
KYN28A-17 PT柜 2
8 中央信号屏 9 直流屏 GZDW 10 电池屏 GZDW
陕西曝光KYN28A-1南院中心2005127811 1#进线柜 1250A 12KV 集团有限2005.12 2 配 59 公司
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
文件名称:设施设备统计表
文件编码:CF-JL-GC-001
陕西曝光KYN28A-1南院中心20051278 12 3#出线柜 1250A 12KV 集团有限 2 配 64 2005.12 公司
陕西曝光 KYN28A-1南院中心13 4#出线柜 1250A 12KV 集团有限200512782005.12 2 配 公司 62
陕西曝光KYN28A-1南院中心2005127814 联络柜 1250A 12KV 集团有限2005.12 2 配 57 公司
陕西曝光KYN28A-1南院中心2005127815 5#出线柜 1250A 12KV 集团有限2005.12 2 配 60 公司
陕西曝光KYN28A-1南院中心2005127816 2#进线柜 1250A 12KV 集团有限2005.12 2 配 58 公司
17 冲馈电柜 GZDW 18 电池屏 GZDW
陕西曝光KYN28A-1南院中心 一段PT柜 1250A 12KV 集团有限 2 配 公司
陕西曝光KYN28A-1南院中心 隔离柜 1250A 12KV 集团有限 2 配 公司
陕西曝光KYN28A-1南院中心 二段PT柜 1250A 12KV 集团有限 2 配 公司
信号屏 Pk-1/800
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
文件名称:设施设备统计表
文件编码:CF-JL-GC-001
四、水泵设备基本情况档案登记表
序号 设备名称 型 号 额定功率 额定电流 额定电压 转速r/min 绝缘等级 生产厂家 安装地点 出厂编号 出厂年月 责任人
广州市
Y160M2第一水小二楼2000年71 水泵 15KW 29.4A 380V 2930 IP4 A2004 -2 泵厂电下泵房 月
机分厂
上海东
YE2-16方威尔小二楼2014年82 水泵 15KW 28.7 380V 2930 IP5 081773 0M2-2 电机有下泵房 月
限公司
广东江Y160M2小二楼3 水泵 15KW 29.4 380V 2930 IP4 门电机 81年 -2 下泵房 厂
广东江Y160M2小二楼4 水泵 15KW 29.4 380V 2930 IP4 门电机 -2 下泵房 厂
小二楼5 深井水泵 22KW 下泵房
威乐,中
W 国,水泵6 补水泵 2.2KW 4.73 380V 2840 F 换热站 90L-2 系统有
限公司
威乐,中
W 国,水泵7 补水泵 2.2KW 4.73 380V 2840 F 换热站 90L-2 系统有
限公司
W200L1威乐,中8 循环泵 30KW 55.7 380V 2960 IP55 换热站 -2 国,水泵
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
文件名称:设施设备统计表
文件编码:CF-JL-GC-001
系统有
限公司
威乐,中W200L1国,水泵9 循环泵 30KW 55.7 380V 2960 IP55 换热站 -2 系统有
限公司
威乐,中
W 国,水泵10 补水泵 2.2KW 4.73 380V 2840 F 换热站 90L-2 系统有
限公司
威乐,中
W 国,水泵11 补水泵 2.2KW 4.73 380V 2840 F 换热站 90L-2 系统有
限公司
威乐,中W200L1国,水泵12 循环泵 30KW 55.7 380V 2960 IP55 换热站 -2 系统有
限公司
威乐,中W200L1国,水泵13 循环泵 30KW 55.7 380V 2960 IP55 换热站 -2 系统有
限公司
广州市Y160M1第一水 南试14 水泵 -2 11KW 21.8 380V 2930 IP44 泵厂电楼泵房 B5G1 机分厂 Y160M1广州市 南试15 水泵 -2 11KW 21.8 380V 2930 IP44 第一水 楼泵房 B5G1 泵厂电
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
文件名称:设施设备统计表
文件编码:CF-JL-GC-001
机分厂
上海上
Y1012-诚泵阀 南试2007年416 消防水泵 15KW 28.3 380V 2930 B 2 制造有楼泵房 月
限公司
广一集XBD7.8团.广州 南试2004年417 消防水泵 /8.3-G15KW 380V 2900 市第一楼泵房 月 D 水泵厂
上海凯
Y160M2翔机电 南试 消防水泵 15KW 29.4 380V 2930 B -2 有限公楼泵房
司
Y160L-南院泵 低区水泵 4 房
Y160L-南苑泵 低区水泵 4 房
Y225S- 高区水泵 4
Y225S- 高区水泵 4
132M1- 高区水泵 2
132M1- 高区水泵 2
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
文件名称:设施设备统计表
文件编码:CF-JL-GC-001
五、电梯设备基本情况档案登记表
序号 设备名称 型号 额定功率 额定电压 速度M/S 载重Kg 生产厂家 安装地点 出厂编号 出厂年月 责任人
广州日
立电梯北院北1 客梯 GVF-S 1.0 1000 G023483 2002.11 有限公试楼
司
上海三
菱电梯北院南 2 客梯 GPS-II 1.75 1000 1999 有限公试楼 992852
司
上海三
菱电梯北院南3 客梯 GPS-II 1.75 1000 992853 1999 有限公试楼
司
上海三
菱电梯北院中02111184 客梯 HOPE 1.0 1600 2002 有限公试楼 12
司
广州日
NMP-1000-立电梯南院1号5 客梯 1.75 C0105 有限公楼
司
广州日
NMP-1000-立电梯南院1号6 客梯 1.75 C0105 有限公楼
司
上海三南院2号7 客梯 LEHY 1.75 1050 菱电梯楼
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
文件名称:设施设备统计表
文件编码:CF-JL-GC-001
有限公
司
上海三
菱电梯南院2号8 客梯 LEHY 1.75 1050 有限公楼
司
9 10 11 12 13 14 15 16 17
版本/修订次数:A/0 保存部门:工程部 保存期限:三年
范文五：[精品]备件.进销存统计表
备件.进销存统计表
*&---------------------------------------------------------------------*
*& Program Title: 内蒙古亿阳备件进、销、存统计表
*
*& Report name: Sales Analysis Report *
*&---------------------------------------------------------------------*
*& Author : GuoDongYang *
*& Create date : 2004/05/12 *
*& Program type : Report *
*& Message class : *
*& Modifications : *
*&---------------------------------------------------------------------*
REPORT YMMR0001 MESSAGE-ID Y04 "程序中会用到的
Message Class
NO STANDARD PAGE HEADING "输出的报表不使用
标准的页标题
LINE-SIZE 110. "输出的报表每页
的字符宽度
**********定义常量
CONSTANTS:C_NETWR1(5) TYPE P DECIMALS 2 VALUE '0.05',
C_NETWR2(5) TYPE P DECIMALS 2 VALUE '0.06',
C_NETWR3(5) TYPE P DECIMALS 2 VALUE '0.07',
C_NETWR4(5) TYPE P DECIMALS 2 VALUE '0.09',
C_NETWR5(5) TYPE P DECIMALS 2 VALUE '0.82',
C_NETWR6(5) TYPE P DECIMALS 2 VALUE '0.87',
C_NETWR7(5) TYPE P DECIMALS 2 VALUE '1.17'.
**********表定义
TABLES: EKKO, "采购凭证抬头
EKPO, "采购凭证项目
EKET, "计划协议计划行
VBAK, "销售凭证:抬头数据
VBAP, "销售凭证:项目数据
MBEW, "商品评估
MKPF, "抬头:物料管理
MSEG, "凭证部分:商品
KONV, "条件(事务数据)
S039, "统计: 存货控制
MARA, "常规物料数据
MARD. "物料的仓储位置数据
*********数据定义
DATA: BEGIN OF G_I_BILLING OCCURS 0,
EINDT LIKE EKET-EINDT, "项目交货日期
KNUMV LIKE EKKO-KNUMV, "单据条件数
EBELN LIKE EKKO-EBELN, "采购凭证
EKORG LIKE EKKO-EKORG, "采购组织
EBELP LIKE EKPO-EBELP, "采购凭证的项目编号
MATKL LIKE EKPO-MATKL, "物料组
MATNR LIKE MSEG-MATNR, "物料号码
MENGE LIKE MSEG-MENGE, "数量
WERKS LIKE MSEG-WERKS, "工厂
LGORT LIKE MSEG-LGORT, "库存地点
MBLNR LIKE MSEG-MBLNR, "物料凭证编号
BWART LIKE MSEG-BWART, "移动类型
KBETR LIKE KONV-KBETR, "采购价格(含税)
JE1 LIKE KONV-KBETR, "采购金额
END OF G_I_BILLING.
DATA: BEGIN OF D_I_BILLING OCCURS 0,
SPTAG LIKE S904-SPTAG, "当前日期
VKORG LIKE S904-VKORG, "销售组织
SPART LIKE S904-SPART, "部门
VTWEG LIKE S904-VTWEG, "分销渠道
MATKL LIKE S904-MATKL, "物料组
MATNR LIKE S904-MATNR, "物料号码
REKZWI1 LIKE S904-REKZWI1, "毛收益
WAVWR LIKE S904-WAVWR, "凭证成本
JE2 LIKE KONV-KBETR, "金额
END OF D_I_BILLING.
DATA: BEGIN OF C_I_BILLING OCCURS 0,
AUDAT LIKE VBAK-AUDAT, "单据日期
AUFNR LIKE AUFM-AUFNR, "订单号
MATNR LIKE AUFM-MATNR, "物料号码
MENGE LIKE AUFM-MENGE, "数量
BWART LIKE AUFM-BWART, "移动类型
AUART LIKE AUFK-AUART, "订单类型
VERPR LIKE MBEW-VERPR, "成本价
CBJ LIKE MBEW-VERPR, "成本金额
END OF C_I_BILLING.
DATA: BEGIN OF Y_I_BILLING OCCURS 0,
BLDAT LIKE MKPF-BLDAT, "凭证中的凭证日期
ERSDA LIKE MARD-ERSDA, "创建日期
MATNR LIKE MARD-MATNR, "物料号码
WERKS LIKE MARD-WERKS, "工厂
LGORT LIKE MARD-LGORT, "库存地点
LABST LIKE MARD-LABST, "非限制使用的估价的库存
INSME LIKE MARD-INSME, "质量在检的库存
SPEME LIKE MARD-SPEME, "冻结库存
RETME LIKE MARD-RETME, "退货
VERPR LIKE MBEW-VERPR, "移动平均价格
JE3 LIKE MBEW-VERPR, "库存金额
LBKUM LIKE MBEW-LBKUM, "总评估的库存
MATKL LIKE MARA-MATKL, "物料组
MTART LIKE MARA-MTART, "物料类型
NAME_FIRST LIKE USER_ADDR-NAME_FIRST, "名
NAME_LAST LIKE USER_ADDR-NAME_LAST, "性
END OF Y_I_BILLING.
DATA: XING(4) TYPE C,
MING(10) TYPE C,
ZHIDANREN(14) TYPE C.
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE
TEXT-BL1.
SELECTION-SCREEN SKIP 1.
**********Selection Screen的选择项定义
SELECT-OPTIONS:
S_MATNR FOR MARD-MATNR OBLIGATORY DEFAULT '2100000' TO
'2199999',
S_DATE FOR EKET-EINDT OBLIGATORY DEFAULT '20040901' TO
'20040930'.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK BL1.
***********开始处理
START-OF-SELECTION.
DATA: RET_VALUE TYPE C.
***********取得输出数据
PERFORM GET_DATA USING RET_VALUE.
IF RET_VALUE <> 0.
EXIT.
ENDIF.
**********输出取得数据
PERFORM WRITE_DATA.
*----------------------------------------------------------
----------*
* FORM get_data
*
* 取得输出数据 *
*--------------------------------------------------------------------*
FORM GET_DATA USING P_RETVALUE. "从数据库中抓取要输出的资
料至内表
DATA: L_KBETR LIKE KONV-KBETR,
L_KBETR1 LIKE KONV-KBETR,
L_JE1 LIKE KONV-KBETR,
L_JE2 LIKE KONV-KBETR,
L_JE3 LIKE MBEW-VERPR,
L_VERPR LIKE MBEW-VERPR,
L_CBJ LIKE MBEW-VERPR.
************取得采购数据
SELECT A~EINDT
B~KNUMV B~EBELN
C~EBELP C~MATKL
D~MBLNR D~BWART D~MATNR D~MENGE D~LGORT D~WERKS
INTO CORRESPONDING FIELDS OF G_I_BILLING
FROM EKET AS A INNER JOIN EKKO AS B ON A~EBELN = B~EBELN
INNER JOIN EKPO AS C ON B~EBELN = C~EBELN
AND A~EBELP = C~EBELP
AND C~LOEKZ <> 'L'
INNER JOIN MSEG AS D ON B~EBELN = D~EBELN
AND C~WERKS = D~WERKS
AND C~LGORT = D~LGORT
AND C~MATNR = D~MATNR
AND D~SOBKZ <> 'K'
WHERE A~EINDT IN S_DATE
AND B~EKORG = 'P002'
AND D~MATNR IN S_MATNR
AND ( D~LGORT = 'P001' OR D~LGORT = 'P002'
OR D~LGORT = 'P003' )
AND D~WERKS = '2000'
AND ( D~BWART = '101'
OR D~BWART = '122' ).
************取得采购单价(含税)
L_KBETR = ''.
SELECT SINGLE KBETR
INTO L_KBETR
FROM KONV
WHERE KNUMV = G_I_BILLING-KNUMV AND
KPOSN = G_I_BILLING-EBELP AND
KSCHL = 'PBXX'.
IF G_I_BILLING-BWART = '122'.
L_KBETR = 0 - L_KBETR.
ENDIF.
MOVE L_KBETR TO G_I_BILLING-KBETR.
*************取得采购金额
L_JE1 = G_I_BILLING-KBETR * G_I_BILLING-MENGE.
MOVE L_JE1 TO G_I_BILLING-JE1. * WRITE: / G_I_BILLING-EBELN, * G_I_BILLING-EINDT, ** G_I_BILLING-MBLNR, * G_I_BILLING-MATNR, * G_I_BILLING-LGORT, * G_I_BILLING-KBETR, * G_I_BILLING-MENGE, * G_I_BILLING-JE1.
APPEND G_I_BILLING.
CLEAR G_I_BILLING.
ENDSELECT.
*************取得销售单单相关的数据
SELECT SPTAG VKORG SPART VTWEG MATKL MATNR
REKZWI1 WAVWR
INTO CORRESPONDING FIELDS OF D_I_BILLING
FROM S904
WHERE SPTAG IN S_DATE
AND MATNR IN S_MATNR
AND VKORG = 'JF00'. ***********取得金额
L_JE2 = D_I_BILLING-WAVWR * C_NETWR7.
MOVE L_JE2 TO D_I_BILLING-JE2.
APPEND D_I_BILLING.
CLEAR D_I_BILLING.
ENDSELECT.
* sort d_i_billing by MATNR. * loop at d_i_billing.
* if D_I_BILLING-SPART = '30'
* AND D_I_BILLING-VTWEG = '02' "三包 * and D_I_BILLING-MATKL >= '200300' * AND D_I_BILLING-MATKL <= '200313'.="">
* write:/ d_i_billing-VKORG,
* d_i_billing-SPART,
* d_i_billing-VTWEG,
* d_i_billing-MATKL,
* d_i_billing-MATNR,
* d_i_billing-REKZWI1.
* endif.
* endloop.
**********取得库存数据
DATA:L_EDATE(20).
IF S_DATE+3(8) <> '00000000' AND S_DATE+11(8) =
'00000000'.
L_EDATE = S_DATE+3(8).
* WRITE:/ l_EDATE.
ELSEIF S_DATE+3(8) <> '00000000' AND S_DATE+11(8) <>
'00000000'.
L_EDATE = S_DATE+11(8).
* WRITE:/ l_EDATE.
ENDIF.
SELECT A~ERSDA A~MATNR A~WERKS A~LGORT A~LABST
A~INSME A~SPEME A~RETME
B~MATKL B~MTART
C~VERPR
INTO CORRESPONDING FIELDS OF Y_I_BILLING
FROM MARD AS A INNER JOIN MARA AS B ON A~MATNR = B~MATNR
LEFT JOIN MBEW AS C ON B~MATNR = C~MATNR
WHERE ( A~ERSDA >= '20040501' AND A~ERSDA <= l_edate="">
AND B~MTART = 'PJ02'
AND ( A~LGORT = 'P001' OR A~LGORT = 'P002' OR A~LGORT =
'P003' )
AND A~WERKS = '2000'
AND A~MATNR IN S_MATNR
AND A~LABST <> '0'.
**********取得库存金额
L_JE3 = Y_I_BILLING-VERPR * ( Y_I_BILLING-LABST
+ Y_I_BILLING-INSME
+ Y_I_BILLING-SPEME
- Y_I_BILLING-RETME ) * C_NETWR7.
MOVE L_JE3 TO Y_I_BILLING-JE3. **********取得制单人
SELECT SINGLE NAME_LAST NAME_FIRST
INTO (MING ,XING)
FROM USER_ADDR
WHERE BNAME = SY-UNAME.
CONCATENATE MING XING INTO ZHIDANREN.
APPEND Y_I_BILLING.
CLEAR Y_I_BILLING.
ENDSELECT.
* SORT y_i_billing BY MATNR. * data: L_KCJ1 like KONV-KBETR. * LOOP AT y_i_billing.
* IF Y_I_BILLING-MATKL = '200301'. * L_KCJ1 = L_KCJ1 + Y_I_BILLING-JE3. * write: y_i_billing-MATNR,
* Y_I_BILLING-MATKL, * y_i_billing-LGORT, * y_i_billing-verpr, * y_i_billing-LABST, * y_i_billing-JE3, * L_KCJ1 .
* ENDIF.
* ENDLOOP. SORT y_i_billing BY MATNR.
* data: L_KCJ1 like KONV-KBETR. * LOOP AT y_i_billing. ** IF Y_I_BILLING-MATKL = '200301'. * L_KCJ1 = L_KCJ1 + Y_I_BILLING-JE3. * write: y_i_billing-MATNR, * Y_I_BILLING-MATKL, * y_i_billing-LGORT, * y_i_billing-verpr, * y_i_billing-LABST, * y_i_billing-JE3, * L_KCJ1 .
** ENDIF.
* ENDLOOP.
IF SY-SUBRC <> 0.
MESSAGE I001.
P_RETVALUE = '1'.
EXIT.
ENDIF.
**********三包油数据
SELECT A~AUDAT
B~AUART B~AUART
C~MATNR C~MENGE
INTO CORRESPONDING FIELDS OF C_I_BILLING
FROM VBAK AS A INNER JOIN AUFK AS B ON A~AUFNR = B~AUFNR
INNER JOIN AUFM AS C ON B~AUFNR = C~AUFNR
WHERE A~AUDAT IN S_DATE
AND C~MATNR IN S_MATNR
AND B~WERKS = '2000'
AND B~AUART = 'ZSM2'.
***********取得成本单价
L_VERPR = ''.
SELECT SINGLE VERPR
INTO L_VERPR
FROM MBEW
WHERE MATNR = C_I_BILLING-MATNR.
L_VERPR = L_VERPR * C_NETWR7.
MOVE L_VERPR TO C_I_BILLING-VERPR.
***********处理冲消成本
IF C_I_BILLING-BWART = '262'.
C_I_BILLING-VERPR = 0 - C_I_BILLING-VERPR.
ENDIF.
***********取得强保成本
L_CBJ = C_I_BILLING-VERPR * C_I_BILLING-MENGE.
MOVE L_CBJ TO C_I_BILLING-CBJ.
APPEND C_I_BILLING.
CLEAR C_I_BILLING.
ENDSELECT.
ENDFORM.
*----------------------------------------------------------
----------*
* FORM write_data
*
* 输出取得数据
*
*----------------------------------------------------------
----------*
*************输出取得数据
FORM WRITE_DATA.
DATA: L_XSJ LIKE KONV-KBETR,
L_KCJ LIKE MBEW-VERPR,
L_CGJ LIKE KONV-KBETR,
L_CGJ1 LIKE KONV-KBETR,
L_XSJ1 LIKE KONV-KBETR,
L_KCJ1 LIKE MBEW-VERPR,
L_CGJ2 LIKE KONV-KBETR,
L_XSJ2 LIKE KONV-KBETR,
L_KCJ2 LIKE MBEW-VERPR,
L_CGJ3 LIKE KONV-KBETR,
L_XSJ3 LIKE KONV-KBETR,
L_KCJ3 LIKE MBEW-VERPR,
L_CGJ4 LIKE KONV-KBETR,
L_XSJ4 LIKE KONV-KBETR,
L_KCJ4 LIKE MBEW-VERPR,
L_XSJ5 LIKE KONV-KBETR,
L_KCJ5 LIKE MBEW-VERPR,
L_CGJ5 LIKE KONV-KBETR,
L_XSJ6 LIKE KONV-KBETR,
L_KCJ6 LIKE MBEW-VERPR,
L_CGJ6 LIKE KONV-KBETR. ************输出采购金额
SORT G_I_BILLING BY MATNR.
CLEAR L_CGJ1. CLEAR L_CGJ2.
CLEAR L_CGJ3. CLEAR L_CGJ4.
CLEAR L_CGJ5. CLEAR L_CGJ6.
LOOP AT G_I_BILLING.
IF G_I_BILLING-MATKL >= '200300'
AND G_I_BILLING-MATKL <= '200313'="">
L_CGJ1 = L_CGJ1 + G_I_BILLING-JE1. * WRITE: / G_I_BILLING-EBELN, ** G_I_BILLING-EINDT, ** G_I_BILLING-MBLNR, * G_I_BILLING-MATNR, ** G_I_BILLING-LGORT, * G_I_BILLING-KBETR, * G_I_BILLING-MENGE, * G_I_BILLING-JE1, * L_CGJ1.
ELSEIF G_I_BILLING-MATKL >= '200314'
AND G_I_BILLING-MATKL <= '200326'.="">
L_CGJ2 = L_CGJ2 + G_I_BILLING-JE1.
ELSEIF G_I_BILLING-MATKL >= '201309'
AND G_I_BILLING-MATKL <= '201311'.="">
L_CGJ3 = L_CGJ3 + G_I_BILLING-JE1.
ELSEIF G_I_BILLING-MATKL >= '201312'
AND G_I_BILLING-MATKL <= '201324'.="">
L_CGJ4 = L_CGJ4 + G_I_BILLING-JE1.
ELSEIF G_I_BILLING-MATKL >= '202309'
AND G_I_BILLING-MATKL <= '202311'.="">
L_CGJ5 = L_CGJ5 + G_I_BILLING-JE1.
ELSE. "其他
L_CGJ6 = L_CGJ6 + G_I_BILLING-JE1.
ENDIF.
ENDLOOP.
**********输出销售金额
DATA: L_JE1 LIKE KONV-KBETR,
L_JE2 LIKE KONV-KBETR,
L_JE3 LIKE KONV-KBETR,
L_JE4 LIKE KONV-KBETR,
L_JE5 LIKE KONV-KBETR,
L_JE6 LIKE KONV-KBETR,
L_JE7 LIKE KONV-KBETR,
L_JE8 LIKE KONV-KBETR,
L_JE9 LIKE KONV-KBETR,
L_JE10 LIKE KONV-KBETR,
L_JE11 LIKE KONV-KBETR,
L_JE12 LIKE KONV-KBETR,
L_JE13 LIKE KONV-KBETR,
L_JE14 LIKE KONV-KBETR,
L_JE15 LIKE KONV-KBETR,
L_JE16 LIKE KONV-KBETR,
L_JE17 LIKE KONV-KBETR,
L_JE18 LIKE KONV-KBETR,
L_JE19 LIKE KONV-KBETR.
SORT D_I_BILLING BY MATNR.
CLEAR L_XSJ1.CLEAR L_XSJ2.
CLEAR L_XSJ3.CLEAR L_XSJ4.
CLEAR L_XSJ5.CLEAR L_XSJ6.
CLEAR L_JE1.CLEAR L_JE2.
CLEAR L_JE3.CLEAR L_JE4.
CLEAR L_JE5.CLEAR L_JE6.
CLEAR L_JE7.CLEAR L_JE8.
CLEAR L_JE9.
CLEAR L_JE10.CLEAR L_JE11.
CLEAR L_JE12.CLEAR L_JE13.
CLEAR L_JE14.CLEAR L_JE15.
CLEAR L_JE16.CLEAR L_JE17.
CLEAR L_JE18.CLEAR L_JE19.
LOOP AT C_I_BILLING.
L_JE12 = L_JE12 + C_I_BILLING-CBJ * ( 1 + C_NETWR1 )."0.05
ENDLOOP.
LOOP AT D_I_BILLING.
IF D_I_BILLING-SPART = '20' "用户价
AND ( D_I_BILLING-VTWEG = '01'
OR D_I_BILLING-VTWEG = '02'
OR D_I_BILLING-VTWEG = '03' ).
IF D_I_BILLING-MATKL >= '200300'
AND D_I_BILLING-MATKL <= '200313'.="" "一汽="">
L_JE1 = L_JE1 + D_I_BILLING-REKZWI1.
ELSEIF D_I_BILLING-MATKL >= '200314'
AND D_I_BILLING-MATKL <= '200326'.="" "奥威="">
L_JE2 = L_JE2 + D_I_BILLING-REKZWI1.
ELSEIF D_I_BILLING-MATKL >= '201309'
AND D_I_BILLING-MATKL <= '201311'.="" "大柴="">
L_JE3 = L_JE3 + D_I_BILLING-REKZWI1.
ELSEIF D_I_BILLING-MATKL >= '201312'
AND D_I_BILLING-MATKL <= '201324'.="" "青岛="">
L_JE4 = L_JE4 + D_I_BILLING-REKZWI1.
ELSEIF D_I_BILLING-MATKL >= '202309'
AND D_I_BILLING-MATKL <= '202311'.="" "锡柴="">
L_JE5 = L_JE5 + D_I_BILLING-REKZWI1.
ELSE. "其他
L_JE6 = L_JE6 + D_I_BILLING-REKZWI1.
ENDIF.
ELSEIF D_I_BILLING-SPART = '30'
AND D_I_BILLING-VTWEG = '02'. "三包
IF D_I_BILLING-MATKL >= '200300'
AND D_I_BILLING-MATKL <= '200313'.="">
L_JE7 = L_JE7 + ( D_I_BILLING-JE2 / C_NETWR5 ) *
C_NETWR6."0.82/
* write:/ D_I_BILLING-MATNR,
* D_I_BILLING-JE2,
* L_JE7.
ELSEIF D_I_BILLING-MATKL >= '200314'
AND D_I_BILLING-MATKL <= '200326'.="">
L_JE8 = L_JE8 + ( D_I_BILLING-JE2 / C_NETWR5 ) *
C_NETWR6."0.82/
ELSEIF D_I_BILLING-MATKL >= '201309'
AND D_I_BILLING-MATKL <= '201311'.="">
L_JE9 = L_JE9 + D_I_BILLING-JE2 * ( 1 + C_NETWR2 )."0.06
ELSEIF D_I_BILLING-MATKL >= '201312'
AND D_I_BILLING-MATKL <= '201324'.="">
L_JE10 = L_JE10 + ( D_I_BILLING-JE2 / C_NETWR5 ) *
C_NETWR6."0.82/
ELSEIF D_I_BILLING-MATKL >= '202309'
AND D_I_BILLING-MATKL <= '202311'.="">
L_JE11 = L_JE11 + ( D_I_BILLING-JE2 / C_NETWR6 ). "0.87
* ELSEIF D_I_BILLING-MATKL = '299312'."油
* L_JE12 = L_JE12 + D_I_BILLING-JE2 * ( 1 + C_NETWR1 )."0.05
ELSE. "其他
L_JE13 = L_JE13 + D_I_BILLING-JE2 * ( 1 + C_NETWR3 )."0.07
ENDIF.
ELSEIF D_I_BILLING-SPART = '30'
AND D_I_BILLING-VTWEG = '01'. "三包零售
IF D_I_BILLING-MATKL >= '200300'
AND D_I_BILLING-MATKL <= '200313'.="">
L_JE14 = L_JE14 + D_I_BILLING-JE2 * ( 1 + C_NETWR4 ).
ELSEIF D_I_BILLING-MATKL >= '200314'
AND D_I_BILLING-MATKL <= '200326'.="">
L_JE15 = L_JE15 + D_I_BILLING-JE2 * ( 1 + C_NETWR4 ).
ELSEIF D_I_BILLING-MATKL >= '201309'
AND D_I_BILLING-MATKL <= '201311'.="">
L_JE16 = L_JE16 + D_I_BILLING-JE2 * ( 1 + C_NETWR4 ).
ELSEIF D_I_BILLING-MATKL >= '201312'
AND D_I_BILLING-MATKL <= '201324'.="">
L_JE17 = L_JE17 + D_I_BILLING-JE2.
ELSEIF D_I_BILLING-MATKL >= '202309'
AND D_I_BILLING-MATKL <= '202311'.="">
L_JE18 = L_JE18 + D_I_BILLING-JE2 * ( 1 + C_NETWR4 ).
ELSE. "其他
L_JE19 = L_JE19 + D_I_BILLING-JE2 * ( 1 + C_NETWR4 ).
ENDIF.
ENDIF.
ENDLOOP.
L_XSJ1 = L_JE1 + L_JE7 + L_JE14. "一汽
* WRITE:/ '一汽',L_XSJ1, '20', L_JE1 ,'3002',L_JE7, '3001',L_JE14 .
L_XSJ2 = L_JE2 + L_JE8 + L_JE15. "奥威
L_XSJ3 = L_JE3 + L_JE9 + L_JE16. "大柴
* WRITE:/ '大柴',L_XSJ3,'20',L_JE3,'3002',L_JE9 ,'3001', L_JE16 .
L_XSJ4 = L_JE4 + L_JE10 + L_JE17."青岛
L_XSJ5 = L_JE5 + L_JE11 + L_JE18."锡柴
* WRITE:/ '锡柴
',L_XSJ5,'20',L_JE5 ,'3002',L_JE11,'3001',L_JE18.
L_XSJ6 = L_JE6 + L_JE13 + L_JE12 + L_JE19."其他
*WRITE:/ '其他', L_XSJ6, '20',
L_JE6 ,'3002',L_JE13,'3001',L_JE19.
*WRITE:/ '油',L_JE12 .
************输出库存金额
SORT Y_I_BILLING BY MATNR.
CLEAR L_KCJ1.CLEAR L_KCJ2.
CLEAR L_KCJ3.CLEAR L_KCJ4.
CLEAR L_KCJ6.CLEAR L_KCJ6.
LOOP AT Y_I_BILLING.
IF Y_I_BILLING-MATKL >= '200300'
AND Y_I_BILLING-MATKL <= '200313'.="" "一汽="">
L_KCJ1 = L_KCJ1 + Y_I_BILLING-JE3. * write:/ y_i_billing-MATNR,
* Y_I_BILLING-MATKL,
* y_i_billing-LGORT,
* y_i_billing-verpr,
* y_i_billing-LABST,
* y_i_billing-JE3,
* L_KCJ1.
ELSEIF Y_I_BILLING-MATKL >= '200314'
AND Y_I_BILLING-MATKL <= '200326'.="" "奥威="">
L_KCJ2 = L_KCJ2 + Y_I_BILLING-JE3.
ELSEIF Y_I_BILLING-MATKL >= '201309'
AND Y_I_BILLING-MATKL <= '201311'.="" "大柴="">
L_KCJ3 = L_KCJ3 + Y_I_BILLING-JE3.
ELSEIF Y_I_BILLING-MATKL >= '201312'
AND Y_I_BILLING-MATKL <= '201324'.="" "青岛="">
L_KCJ4 = L_KCJ4 + Y_I_BILLING-JE3.
ELSEIF Y_I_BILLING-MATKL >= '202309'
AND Y_I_BILLING-MATKL <= '202311'.="" "锡柴="">
L_KCJ5 = L_KCJ5 + Y_I_BILLING-JE3.
ELSE. "其他
L_KCJ6 = L_KCJ6 + Y_I_BILLING-JE3.
* WRITE:/ y_i_billing-MATNR, * Y_I_BILLING-MATKL, * y_i_billing-LGORT, * y_i_billing-verpr, * y_i_billing-LABST, * y_i_billing-JE3, * L_KCJ5.
ENDIF.
ENDLOOP.
CLEAR L_XSJ.
CLEAR L_KCJ.
CLEAR L_CGJ.
L_CGJ = L_CGJ1 + L_CGJ2 + L_CGJ3 + L_CGJ4 + L_CGJ5 +
L_CGJ6.
L_XSJ = L_XSJ1 + L_XSJ2 + L_XSJ3 + L_XSJ4 + L_XSJ5 +
L_XSJ6.
L_KCJ = L_KCJ1 + L_KCJ2 + L_KCJ3 + L_KCJ4 + L_KCJ5 +
L_KCJ6.
WRITE:/10 '内蒙古亿阳汽车销售服务有限公司备件',
S_DATE+3(4) ,'年(',
S_DATE+7(2) ,'月',
S_DATE+9(2) ,'日—',
S_DATE+15(2) ,'月',
S_DATE+17(2), '日)进、销、存统计表'.
SKIP.
WRITE:/98 '单位:元'.
ULINE (108).
WRITE:/ SY-VLINE,(20) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE.
WRITE:/ SY-VLINE,(20) '名称',
SY-VLINE,(25) '购进金额',
SY-VLINE,(25) '销售金额',
SY-VLINE,(25) '库存金额',
SY-VLINE.
ULINE (108).
WRITE:/ SY-VLINE,(20) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE.
WRITE:/ SY-VLINE,(20) '一汽备品',
SY-VLINE,(25) L_CGJ1,
SY-VLINE,(25) L_XSJ1,
SY-VLINE,(25) L_KCJ1,
SY-VLINE.
ULINE (108).
WRITE:/ SY-VLINE, (20) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE.
WRITE:/ SY-VLINE,(20) '奥威',
SY-VLINE,(25) L_CGJ2,
SY-VLINE,(25) L_XSJ2,
SY-VLINE,(25) L_KCJ2,
SY-VLINE.
ULINE (108).
WRITE:/ SY-VLINE,(20) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE.
WRITE:/ SY-VLINE,(20) '大柴',
SY-VLINE,(25) L_CGJ3,
SY-VLINE,(25) L_XSJ3,
SY-VLINE,(25) L_KCJ3,
SY-VLINE.
ULINE (108).
WRITE:/ SY-VLINE,(20) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE.
WRITE:/ SY-VLINE,(20) '青岛',
SY-VLINE,(25) L_CGJ4,
SY-VLINE,(25) L_XSJ4,
SY-VLINE,(25) L_KCJ4,
SY-VLINE.
ULINE (108).
WRITE:/ SY-VLINE,(20) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE.
WRITE:/ SY-VLINE,(20) '锡柴',
SY-VLINE,(25) L_CGJ5,
SY-VLINE,(25) L_XSJ5,
SY-VLINE,(25) L_KCJ5,
SY-VLINE.
ULINE (108).
WRITE:/ SY-VLINE,(20) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE.
WRITE:/ SY-VLINE,(20) '其它(包括油)',
SY-VLINE,(25) L_CGJ6,
SY-VLINE,(25) L_XSJ6,
SY-VLINE,(25) L_KCJ6,
SY-VLINE.
ULINE (108).
WRITE:/ SY-VLINE,(20) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE,(25) '',
SY-VLINE.
WRITE:/ SY-VLINE,(20) '合计',
SY-VLINE,(25) L_CGJ,
SY-VLINE,(25) L_XSJ,
SY-VLINE,(25) L_KCJ,
SY-VLINE.
ULINE (108).
WRITE:/2 '注:以上金额均含税'.
WRITE:/40 '制表人:', ZHIDANREN,
85 '制表时间:',SY-DATUM.
WRITE:/2 '部门:备品中心'.
ENDFORM.
转载请注明出处范文大全网 » 电仪A级设备易损备件使用周期
