FR-OP0103文件修改记录表
转速传感器检查校准记录单
转速传感器检查校准记录单转速传感器检查校准记录单的重要性与使用1. 前言转速传感器是现代汽车的关键部件之一，它负责监测发动机旋转的速度，并将其转化为电信号。
转速传感器的准确性和工作正常与否直接影响到发动机的性能和整个车辆系统的运行。
及时进行转速传感器的检查和校准非常重要。
而转速传感器检查校准记录单则是记录和跟踪此过程的文档。
2. 转速传感器检查校准记录单的定义与作用转速传感器检查校准记录单是一种文件，用于记录与转速传感器相关的检查和校准过程。
该记录单包含了在检查和校准转速传感器时所采取的措施和结果，以及任何必要的调整或修正。
此记录单可以提供给汽车维修技师、车辆制造商或相关监管机构，用于验证转速传感器的状态和准确性。
3. 转速传感器检查校准记录单的内容一个完整的转速传感器检查校准记录单应包含以下内容：3.1 日期和时间：记录检查校准过程的具体日期和时间，以便追溯和比对。
3.2 检查项目：列出检查的具体项目，如传感器的安装位置、线路连接、电源供应等。
3.3 检查方法和工具：阐述用于检查转速传感器的方法和工具，如万用表、示波器等。
3.4 检查结果：记录传感器的检查结果，包括正常、异常或无响应等。
3.5 校准步骤：描述进行校准的步骤和要求，包括调整传感器的位置、更换传感器等。
3.6 校准结果：记录校准后传感器的准确性和性能，以及相应的调整或修正。
3.7 技师签名和备注：由执行检查校准工作的技师签名，并留下任何必要的备注和建议。
4. 转速传感器检查校准记录单的重要性与应用转速传感器检查校准记录单在汽车维修和生产中起着至关重要的作用：4.1 安全性能保证：通过定期检查和校准转速传感器，可以确保发动机的准确运转，及时发现并排除可能存在的故障，从而保证车辆的驾驶安全。
4.2 故障排查和维修：通过准确记录转速传感器的检查和校准过程，技师可以追溯问题的源头，提供有针对性的维修方案，减少维修时间和成本。
4.3 质量控制与监管：汽车制造商和监管机构可以通过查阅转速传感器检查校准记录单，确保生产和维修过程的合规性和质量。
程序文件修改记录与流程图
程序文件修改记录与流程图1目的对检测方法进行确认，以确保采用的检测方法满足客户要求和预期的使用要求并保证检测方法在应用时的协调一致。
2适用范围本程序使用于公司对检测方法的变更和偏离进行的确认。
3职责3.1总经理负责批准实验室检测方法的变化和偏离的实施；3.2 技术负责人负责组织实施对检测方法的变化和偏离的确认；3.3 检测一、二室负责实施检测方法的变化和偏离的确认；4工作程序4.1方法的偏离和变化4.1.1当客户提出偏离检测标准、规范中规定的方法时，合同评审时应与客户就方法中变动部分进行书面的约定，并明示可能存在的风险。
4.1.2当公司确定检测中需要偏离检测标准、规范中规定的方法时，合同评审时应以书面方式告知客户并说明偏离的原由、可能存在的问题和可能存在的风险，并征得客户的书面同意。
4.1.3技术负责人负责组织检测一、二室对偏离的检测标准、规范中规定的方法进行必要的确认，以确定偏离的方法满足预期使用要求的能力和可行性；4.1.4 国家、行业颁布的检测标准、规范中规定的方法发生性质变化，技术负责人负责组织相关部门实施确认。
4.1.5 任何对检测标准、规范中规定的方法偏离或变化，办公室应及时通知检测一、二室负责人。
4.2本公司需要进行方法确认的范围包括：a) 国家、行业颁布的检测标准中方法的性质发生变化；b) 对检测标准、规范中的方法实施偏离；c) 超出其预定范围使用的标准方法；d) 经过扩充和更改的标准方法；4.3确定方法性能的技术（确认的方法）可采用《检测结果质量控制程序》中的方法。
4.4方法确认的实施4.4.1各部在开展检测工作时，采用满足客户需要并适用于所进行的检测的方法，优先使用国际、区域或国家标准发布的方法，并确保使用最新有效版本。
OP软件升级记录
OP20 V6.4i 1、新增OP321机型
2、对于Omron通讯，需要在监控模式下进行的做法取消，直接通讯即可。
OP20 V6.4j 1、新增ASC码的显示。
OP20 V6.5a 1、MP330的触摸面板大小有所改动，需用6.5以上版本使用。
OP20 V6.5W 1、增加PLC通讯对象：OEMAX PLC。
OP20 V6.5Y 1、修正棒图水平时，标点上浮的bug。
OP20 V6.5Z 1、英文版修正时间日期显示形式。
OP20 V7.0a 1、改错：Siemens PLC, 连续写多个寄存器时，出错。
OP20 V7.0b 1、support OP325。
OP20 V7.1A 1、修正小bug。
OP20 V8.0 1、OP硬件V8.0适用版本软件。
OP20 V8.0a 1、纠正与三菱PLC在输出点的对应关系错乱的问题。
OP20 V8.0c 1、当瞬时ON功能键按下时，如果画面切换，会将线圈OFF。
2、modbus－slave通讯模式修正。
OP20 V6.5c 1、PLC类型增加了和利时。
OP20 V6.5f 1、增加了和泉的PLC。
OP20 V6.5h 1、修正与三菱的通讯问题。
OP20 V6.5k 1、改进Modbus协议单字写。
OP20 V6.5N 1、修正矢量字体显示过大或过小时的笔画不全，显示有误的问题。
OP20 V6.5O 1、进行数字设定时，除set->数字键方法之外，新增加set->上下方向键；
2、Modbus-RTU通讯的地址，除0x，4x之外，新增加1x，3x。
OP20 V6.5T 1、与丰炜PLC通讯时，增加写多个寄存器功能（仅支持ASCII 显示）
实验室原始记录填写及数据更改的规定
实验室原始记录填写及数据更改的规定1目的为使实验的原始记录客观、真实、规范、完整，保证其结果的精密度和准确度，特制定本规定2适用范围适用于本所原始记录的填写及数据更改。
3职责实验人员应严格执行本规定，质控人员对执行情况进行监督。
4原始记录的填写要求4.1原始记录必须记录在经审批符合本所规定的记录表格中，不得临时用其他纸张替代。
4.2原始记录可用蓝色或黑色钢笔、签字笔填写，不得用铅笔填写。
4.3原始记录应在实验过程中及时记录，不允许补记。
4.4原始记录内所有文字、数字、签名都应字迹工整、清晰、不允许任意涂改，填写时一般不越过边框底线。
4.5原始记录内的数据、有效数字、单位、符号的填写应符合现行有效的国家标准和国家法定计量单位，不得出现以“0”代表“0.0”及“0.00”等类似错误。
4.6每份原始记录应包含足够的信息，以便识别影响不确定的各种因子。
4.原始记录的信息一般应等于或多于报告上的信息，包括环境特征及其它需要说明的内容，原始均应有相应的记载。
4.6.2原始记录通用部分均应逐栏如实填写，不空白，不做填写要求的栏目，应画上一根长横杠线，或用文字说明。
5原始记录的填写说明5.1报告上填写的分析日期，原始记录上也应有记录。
5.2每份记录必须有实验人员和质控人员的亲笔签名以作确认。
5.3需要编号时，应对项目编号，选用阿拉伯数字。
5.4若有分包，应在结果一栏里加以说明：“某项结果由某某分包”，“记录见附页”（若有分包原始记录），并将分包记录附在原始记录后一起装订。
6原始记录的更改规定原始记录允许更改，更改时应先用删除线将被修改的内容划去，删除线是从左下方向右上方划一斜杠，然后在起右上角写上完整的正确内容，再在出错处斜杠上加盖个人红色印章给予确认。
6.2原始记录只能有原始记录者更改。
6.3原始记录的修改应不超过整个记录的五分之一，超出规定限度的应重新整理，并将原始记录附后。
6.4凡发现原始记录书写模糊，字迹潦草或发现数据异常而未经注明原因者，质控人员有权责成责任人重新填写原始记录，对原始记录重新复核后方可上报。
作业指导书修改记录
一、本公司的综合行政部，根据实际工作的内容和岗位要求，制定了人员的任职条件如下：《各岗位能力要求规定》二、由综合行政部负责根据《人力资源控制程序》的要求对公司员工的培训进行安排，每年编制培训计划，并组织实施，培训大纲如下：三、培训对象为各级管理人员、技术人员、质检员及操作工；四、所有操作工人必须应知应会和经考试合格后才能正式操作设备；五、检验人员必须经有关部门培训后才能进行检验工作；六、对新入公司员工和转岗工人，要进行岗前培训，达到上岗应具备的应知应会等要求，才能上岗；七、每年进行评比考核一次，优秀的给予表扬和奖励；八、综合行政部保管培训的有关记录1目的本制度规定了本公司人力资源管理的方法和要求，包括人员招聘、入职手续、转正、离职手续、人事档案的管理。
2.范围本制度适用于人事管理制度的全过程。
3职责综合行政部负责公司人力资源的档案管理及招聘、人员培训工作。
管理者代表负责批准人事管理制度的应用。
厂长负责批准入职人员的审批。
各部门负责人招聘的申请；对入职人员的监督、技能培训、审批转正。
4.程序人员招聘综合行政部根据各部门有效签批的招聘申请表，拟定招聘计划，由厂长签批。
招聘方式包括以下：a)人才市场招聘；b)刊登报纸；c)张贴招聘广告；d)职业介绍所推荐。
综合行政部对应聘者验证，初试及填写招工表，不合格者不予招聘。
经验证、初试合格的应聘者由综合行政部带应聘者至用人部门负责人面试，不合格者退回综合行政部。
经用人部门面试合格后，由用人部门负责人审批应聘者的招工表并交还综合行政部。
由综合行政部组织对新员工进行入职前培训，用人部门记录培训结果交综合行政部。
将新员工资料交厂长审批，合格者办理入职手续并带新员工至部门上班；不合格者退回综合行政部。
内部招聘（异动部门）由综合行政部推荐合格人员，部门亦可推荐合格人员进行培训及考核，合格者办理异动手续并到新部门上班。
入职手续：厂长审批合格的应聘者需填写〈员工登记表〉及复印身份证、学历证等相关证件附于〈员工登记表〉交综合行政部存档。
otis_sky故障码
奥的斯SKY故障表Event OverviewInformation Events 日志记录000 Power On 上电001 New Run 新运行002 SPARE 空003 Stack Warn 超过限制警告004 Power Down 电源下降005 Extern FLASH GDCB闪存失败006 Extern RAM GDCB存储失败007 OMU Present008 OMU Prohibit 禁止升级009 Manual Mode 手动模式010 B_MODE011 Battery Mode 节能模式012 LearnRun REQ要求013 Reset DSP 重置DSP014 Clear Log 清日志015 AutoTun Mode自动模式016 Earthquake 地震模式017 Block Cleard018 ALWA CONVRGD 收到偏移和增益019 ALWA ERROR 算法错误020 ALWA RESET 重置021 ALWA DIVERGD 算法持平Inverter CurrentFaults 变频器电流故障100 Inv SW Oct 过电压逆变器电机线/修改参数101 Inv I Imbal 过电流接地/噪音102 Inv Id Error103 Inv Iq Error 逆变器误差超过法子,电流调节器/电机匹配? 104 Inv Ix Offst105 Inv Iy Offst106 Inv Iz Offst 逆变器超过5%偏移,检查电路107 Inv Gate Flt 模块失败108 Inv HW Oct 过电流109 Overload 过重抱匝/电压110 Drive Limit 抱匝限制111 No Id fdbk112 No Iq fdbk 一个内在的错误被检测电流反馈的逆变器的期间发动机磁化开始运行,检查电机线,电流传感器113 Inv IPM Flt 功率模块失败检查电源114 Curr Ovrload 参考115 Brk Chop Err 抱匝动作错误116 Inv HW Ovt117 Inv Pfai FltConverter CurrentFaults变频器电流200 Cnv SW Oct 超过允许电流变换器阈值,限制Cnv %201 Cnv Id Error 错误202 Cnv Iq Error 电流指示转换器误差超过30%203 Cnv Ix Offst204 Cnv Iy Offst 当前变换器相抵消呈现的超过5%205 Cnv Gate FltIGBT逆变器故障门电源电压检测206 Cnv HW Oct 变频器电流超过一个预设级别之下207 Cnv Gnd Flt 接地故障208 Bus Cap Fail 直流环节电容器坏209 DC Link OCT 直流母线过流缺相/接地210 Cnv IPM Flt 智能功率变换器模块(IPM)失败211 Battry Chrgd驱动检测电池充电电流流进ARO期间,这是不允许的212 Cnv Vmag FltV oltage Faults 电压故障300 DC Bus Over直流母线过压,大于108%的命名母线电压750伏直流电301 DC Bus Under直流母线欠压70%302 VAC Over 交流线路电压超过限制112%303 VAC Under 交流线路电压超过限制85%304 VAC Imbal 交流电路输入电压波动超过10%305 PLL Unlock 解开306 Single Phase 缺相307 PLL Freq Rng308 Welded Mx/Px309 Vscales off310 AC Brown-out311 AC All Err 交流故障,交流线路电压超过极限高于302 VAC超过阈值125% 312 DBTR ShrtErr集缺DBTR检测313 AC/DC Calib 整流标准314 Cnv Res FltBrake Faults 抱匝故障400 Brake SAS401 Brake SAS402 Brake Status 抱匝开关状态错误403 Brake BY 抱匝接触器404 Brake I Off 抱匝点常开405 Brake I Drop 未动作406 Brake I Hold 粘连407 Brake I Max408 Brk S1 ESTOP 动作失败409 Brk S2 ESTOPMotion Faults 马达故障500 Overspeed 超过额定速度501 Pos Tracking 位置跟踪误差超过发展502 Vel Tracking 速度跟踪误差超过阈值503 LRT Motion 转子测试504 Enc Pos Err 驱动已经失去了追踪的磁铁的位置505 SPARE 空506 Stopping Err 停止失败507 Pos at 1LS 下强减动作508 Pos at 2LS 上509 Floor at 1LS 在最底510 Floor at 2LS511 1LS & 2LS ! 同时动作512 Missing Vane 丢失513 No PRS Trans514 Enc <> Vane515 NTSD failed516 Corr failed 校正失败517 DDP Error 错误518 BeltCmp Wrng 误差519 RlvPermit Err520 Rllbck Start 开始521 Rllbck Stop 回滚或超调(导向运行)的超过5.0毫米的结束运行522 Manual Rescue 盘车,划一523 Moved at POF 移动524 No Enc Signl 编码器可能未相连,供电可能失败525 NoRlv SpdChk速度过高(> = 0.285米/秒)526 NoRlv TooMny试图relevel连续20分后,relevel已经执行但没有正常的运行527 NoRlv LostDZ 门区检测不一致528 Profile Err 自学习,检查减速开关位置不当529 No enc fdbck 检查编码器530 No enc tmout 电机速度不正常,编码器,参数等531 PRS Sigs 1LS 减速开关动作正常532 PRS Sigs 2LS533 ARO Over spd 过速(阀值)534 ABL Abort:LW 未有负荷数据可用535 Timeout PTR 超时(驱动没有命令)536 Timeout LB 没有接到驱动命令537 No EndRunCmd 抱匝打开3S538 Abort:EndRun 终止,运行已被终止通常由一个异形与减速OPB命令539 LvTransUnclr 电梯没有运行,可楼层传感器动作了540 Shock Detect 震动检测到信号541 SinCos Warng 模拟编码器失败Temperature Faults 温度故障600 Inv Tmp Warn 变频器温度警告80C601 Inv Tmp Over 超温,逆变器散热片已超过85 C602 Inv Tmp Fail 模拟温度传感器在逆变器散热片是不真实的联系还是失败了603 Cnv Tmp Warn 警告的温度已经超过80转换器热沉C604 Cnv Tmp Over 散热器已超过85 C605 Cnv Tmp Fail 失败表明模拟温器在转炉热沉是不真实的联系还是失败了606 Mtr Tmp Over 马达超温607 Reactor Temp反应器温度热开关丙线反应器已打开,表示过热在线路条件反应608 DBR Tmp Over 制动电阻超温State Faults 正式故障700 Safety Chain 安全开关动作开放的安全链会导致SX继电器下降,导致开车到不带电电机和刹车,一个ESTOP造成701 No Man Input 没有电源输入702 Prechrg Time 故障时间宣布时未达到直流母线充电电压阈值。
otis_sky故障码
奥的斯SKY故障表EventOverviewInformationEvents日志记录000PowerOn上电001NewRun新运行002SPARE空003StackWarn超过限制警告004PowerDown电源下降005ExternFLASHGDCB闪存失败006ExternRAMGDCB存储失败007OMUPresent008OMUProhibit禁止升级009ManualMode手动模式010B_MODE011BatteryMode节能模式012LearnRunREQ要求013ResetDSP重置DSP014ClearLog清日志015AutoTunMode自动模式016Earthquake地震模式017BlockCleard018ALWACONVRGD收到偏移和增益019ALWAERROR算法错误020ALWARESET重置021ALWADIVERGD算法持平InverterCurrentFaults变频器电流故障100InvSWOct过电压逆变器电机线/修改参数101InvIImbal过电流接地/噪音102InvIdError103InvIqError逆变器误差超过法子，电流调节器/电机匹配？104InvIxOffst105InvIyOffst106InvIzOffst逆变器超过5%偏移，检查电路107InvGateFlt模块失败108InvHWOct过电流109Overload过重抱匝/电压110DriveLimit抱匝限制111NoIdfdbk112NoIqfdbk一个内在的错误被检测电流反馈的逆变器的期间发动机磁化开始运行，检查电机线，电流传感器113InvIPMFlt功率模块失败检查电源114CurrOvrload参考115BrkChopErr抱匝动作错误116InvHWOvt117InvPfaiFltConverterCurrentFaults变频器电流200CnvSWOct超过允许电流变换器阈值，限制Cnv%201CnvIdError错误202CnvIqError电流指示转换器误差超过30%203CnvIxOffst204CnvIyOffst当前变换器相抵消呈现的超过5%205CnvGateFltIGBT逆变器故障门电源电压检测206CnvHWOct变频器电流超过一个预设级别之下207CnvGndFlt接地故障208BusCapFail直流环节电容器坏209DCLinkOCT直流母线过流缺相/接地210CnvIPMFlt智能功率变换器模块(IPM)失败211BattryChrgd驱动检测电池充电电流流进ARO期间,这是不允许的212CnvVmagFltVoltageFaults电压故障300DCBusOver直流母线过压，大于108%的命名母线电压750伏直流电301DCBusUnder直流母线欠压70%302VACOver交流线路电压超过限制112%303VACUnder交流线路电压超过限制85%304VACImbal交流电路输入电压波动超过10%305PLLUnlock解开306SinglePhase缺相307PLLFreqRng308WeldedMx/Px309Vscalesoff310ACBrown-out311ACAllErr交流故障，交流线路电压超过极限高于302VAC超过阈值125% 312DBTRShrtErr集缺DBTR检测313AC/DCCalib整流标准314CnvResFltBrakeFaults抱匝故障400BrakeSAS401BrakeSAS402BrakeStatus抱匝开关状态错误403BrakeBY抱匝接触器404BrakeIOff抱匝点常开405BrakeIDrop未动作406BrakeIHold粘连407BrakeIMax408BrkS1ESTOP动作失败409BrkS2ESTOPMotionFaults马达故障500Overspeed超过额定速度501PosTracking位置跟踪误差超过发展502VelTracking速度跟踪误差超过阈值503LRTMotion转子测试504EncPosErr驱动已经失去了追踪的磁铁的位置505SPARE空506StoppingErr停止失败507Posat1LS下强减动作508Posat2LS上509Floorat1LS在最底510Floorat2LS5111LS&2LS!同时动作512MissingVane丢失513NoPRSTrans514Enc<>Vane515NTSDfailed516Corrfailed校正失败517DDPError错误518BeltCmpWrng误差519RlvPermitErr520RllbckStart开始521RllbckStop回滚或超调(导向运行)的超过5.0毫米的结束运行522ManualRescue盘车，划一523MovedatPOF移动524NoEncSignl编码器可能未相连,供电可能失败525NoRlvSpdChk速度过高(>=0.285米/秒)526NoRlvTooMny试图relevel连续20分后，relevel已经执行但没有正常的运行527NoRlvLostDZ门区检测不一致528ProfileErr自学习，检查减速开关位置不当529Noencfdbck检查编码器530Noenctmout电机速度不正常，编码器，参数等531PRSSigs1LS减速开关动作正常532PRSSigs2LS533AROOverspd过速（阀值）534ABLAbort:LW未有负荷数据可用535TimeoutPTR超时（驱动没有命令）536TimeoutLB没有接到驱动命令537NoEndRunCmd抱匝打开3S538Abort:EndRun终止，运行已被终止通常由一个异形与减速OPB命令539LvTransUnclr电梯没有运行，可楼层传感器动作了540ShockDetect震动检测到信号541SinCosWarng模拟编码器失败TemperatureFaults温度故障600InvTmpWarn变频器温度警告80C601InvTmpOver超温，逆变器散热片已超过85C602InvTmpFail模拟温度传感器在逆变器散热片是不真实的联系还是失败了603CnvTmpWarn警告的温度已经超过80转换器热沉C604CnvTmpOver散热器已超过85C605CnvTmpFail失败表明模拟温器在转炉热沉是不真实的联系还是失败了606MtrTmpOver马达超温607ReactorTemp反应器温度热开关丙线反应器已打开,表示过热在线路条件反应608DBRTmpOver制动电阻超温StateFaults正式故障700SafetyChain安全开关动作开放的安全链会导致SX继电器下降,导致开车到不带电电机和刹车,一个ESTOP造成701NoManInput没有电源输入702PrechrgTime故障时间宣布时未达到直流母线充电电压阈值。
WCM-009-01 MP-机器改善改进记录单
Mainte nance
Preven
tion
机器改
进记录
单
编号：
机器类型, 机器
部位和功能What材料:
When时间:Where机器:包含成员及来自
部门, 联系人指明结果如何测量Who人方法:
Which趋势:机器
对策阶梯6对策阶梯5对策阶梯4对策阶梯3对策阶梯2对策阶梯1
零部件:
人工费:
0EE提升:
成本节省:
How频发/偶
发，突发/积
累，前/发生/
后:改进事例总结损失类型日期： 年 月 日
原因分析：
改进计划：
计划实施日期：
实 施 人：
改善前：贴管单元贴管机拨叉链接杆轴套为四氟材质，由杆叉、轴套、连接轴组成拨叉气缸链
接杆，排期为2月更换一次。
贴管单元贴管黏贴位置出现错误报警停机次数14次/周；
估算成本，作为新活动实施该证明有效方案。
MP节省（人民币）
4. 过去条件解析 (分析)
6. 主要改进内容 (Plan计划 & Do实施)
改进之前照片改进之后照片7. 结果 (Check检查)列举结果，针对识别的损失，如：故障停机，设备效率，成本，及类似。
请同时列举其它收益，如：更好的AM/PM，更高的安全性等。
8. 行动采取维护条件
列举采取AM/PM行动，以维护条件，同时推荐频次和责任部门，以实施行动。
2. 小组成员 & 部门 3. 关键量度改进主题（描述）1. 位置 & 设备 5. 问题记载 (5W1H)
部门：编号：。
FW-HC-FM-012 文件更改申请表
更改后
内容
现将手册附录中管代任命书、质量和食品安全方针颁布页抽出以通告形式另行发布，不作为手册附录。
审批意见
申请/日期
审批/日期
茂名市茂南平和坊食品有限公司
文件更改申请表版本：A
表格编号:FW-HC-FM-012
文件称
质量及食品安全管理手册
更改前版本
B1
文件编号
FW-QSM-01
更改后版本
B2
申请更改理由
涉及管代、质量和食品安全方针、目标变动时，需要整本手册换版，浪费资源。
文件
原内容
9.2管理者代表（食品安全小组组长）任命书
工单更改历史记录（轉載）
⼯单更改历史记录（轉載）⼀、⾃定义表结构⼆、⽣产⼯单出⼝增强三、查询报表⼀、⾃定义表结构表ZPCO02MANDT MANDT CLNT 3 0 客户端AUFNR AUFNR CHAR 12 0 订单号MATNR MATNR CHAR 18 0 物料号FILED FIELDNAME CHAR 30 0 字段名AENAM AENAM CHAR 12 0 对象更改⼈员的名称LAEDA LAEDA DATS 8 0 上次更改的⽇期TCODE TCODE CHAR 20 0 事务代码CHNID CDCHNGIND CHAR 1 0 修改类型 (U, I, E, D)HOSTIP CHAR20 CHAR 20 0 字符 20HOST MSHOST2 CHAR 32 0 Name of Application ServerVALUE_OLD CHAR20 CHAR 20 0 字符 20VALUE_NEW CHAR20 CHAR 20 0 字符 20TIMES CDUZEIT TIMS 6 0 时间已更改LOOPID SYTABIX INT4 10 0ALPOS ALPOS CHAR 1 0 指⽰符：替代项⽬STTXT CO_STTXT CHAR 40 0 系统状态BDMNG BDMNG QUAN 13 3 需求量⼆、⽣产⼯单出⼝增强PPCO0001EXIT_SAPLCOBT_001ZXCO1U01check sy-tcode ne 'CO01'.*&保存⼯单更改的历史记录tables:caufv,resb.data: begin of old_resb occurs 0, "更改后未保存之RESB.aufnr like resb-aufnr,posnr like resb-posnr,matnr like resb-matnr,rsnum like resb-rsnum,rspos like resb-rspos,xloek like resb-xloek,bdmng like resb-bdmng,objnr like resb-objnr,lgort like resb-lgort,end of old_resb.data: begin of new_resb occurs 0. "数据库中的RESB.include structure old_resb.data: end of new_resb.data: begin of obj_resb occurs 0. "插⼊的RESBinclude structure old_resb.data: end of obj_resb.data: i_zpco02 like zpco02 occurs 0 with header line.data: i_temp like zpco02 occurs 0 with header line.data: iporg like msxxlist-hostadr,ipdec(16) type c,host(18) type c.data: char1(20) type c,char2(20) type c.data: licl type c.data: inst_flg type c value 'N',chan_had type c value 'N'.* teco_flg TYPE c VALUE 'N',* read_flg TYPE c .data: l_str type string.data: i_msgty like sy-msgty.data: tabix like sy-tabix.*BREAK-POINT.clear: i_temp, iporg, ipdec, host.** Get user IP,hostnamecall function 'TH_USER_INFO' " Get user IP,hostnameexportingclient = sy-mandtuser = sy-unameimportinghostaddr = iporgterminal = hostexceptionsothers = 1.**"Conv.IP addr to format 'xxx.xxx.xxx.xxx'call function 'GWY_IPADR2STRING' "Conv.IP addrexportingipadr = iporgimportingstring = ipdec.***Common var.move: sy-mandt to i_temp-mandt,sy-uname to i_temp-aenam,sy-datum to i_temp-laeda,sy-uzeit to i_temp-times,sy-tcode to i_temp-tcode,ipdec to i_temp-hostip,host to i_temp-host,* { INCERTheader_table-sttxt to i_temp-sttxt, "⼯单状态* INCERT } DEVK905414 ADD:⼯单状态取值header_table-aufnr to i_temp-aufnr.***Check M/O headerselect single gamng gltrp gstrp into (caufv-gamng, caufv-gltrp,caufv-gstrp) from caufv where aufnr eq header_table-aufnr.**qtyif header_table-gamng ne caufv-gamng.move: caufv-gamng to char1, header_table-gamng to char2.move-corresponding i_temp to i_zpco02.move: '更改⼯单总数' to i_zpco02-filed,'U' to i_zpco02-chnid,char1 to i_zpco02-value_old,char2 to i_zpco02-value_new.append i_zpco02.inst_flg = 'Y'.chan_had = 'Y'.endif.**增加开始⽇期修改记录（MODIFY BY LU.X 2010.09.26)if header_table-gstrp ne caufv-gstrp.move-corresponding i_temp to i_zpco02.move: '更改开始时间' to i_zpco02-filed,'U' to i_zpco02-chnid,caufv-gstrp to i_zpco02-value_old,header_table-gstrp to i_zpco02-value_new.append i_zpco02.inst_flg = 'Y'.endif.if header_table-gltrp ne caufv-gltrp.move-corresponding i_temp to i_zpco02.move: '更改完成时间' to i_zpco02-filed,'U' to i_zpco02-chnid,caufv-gltrp to i_zpco02-value_old,header_table-gltrp to i_zpco02-value_new.append i_zpco02.inst_flg = 'Y'.endif.if inst_flg = 'Y'.insert zpco02 from table i_zpco02 accepting duplicate keys. inst_flg = 'N'.endif.loop at component_table where vbkz eq 'U'or vbkz eq 'I'or vbkz eq 'D'.clear licl.case component_table-vbkz.when 'I'.move-corresponding i_temp to i_zpco02.move: '新增组件' to i_zpco02-filed,'I' to i_zpco02-chnid,'' to i_zpco02-value_old, "old_resb-matnrcomponent_table-matnr to i_zpco02-value_new,'新增的组件' to i_zpco02-matnr,* read_flg TO i_zpco02-readf,component_table-alpos to i_zpco02-alpos,component_table-bdmng to i_zpco02-bdmng,sy-tabix to i_zpco02-loopid.append i_zpco02.inst_flg = 'Y'.when 'D'.move-corresponding i_temp to i_zpco02.move: '删除组件' to i_zpco02-filed,'D' to i_zpco02-chnid,resb-xloek to i_zpco02-value_old,component_table-xloek to i_zpco02-value_new,component_table-matnr to i_zpco02-matnr,* read_flg TO i_zpco02-readf,component_table-alpos to i_zpco02-alpos,sy-tabix to i_zpco02-loopid.append i_zpco02.inst_flg = 'Y'.when 'U'.* { INCERTif component_table-xloek is not initial.* { INCERTsearch i_temp-sttxt for 'TECO'.case sy-subrc.when 4.* } DEVK910121move-corresponding i_temp to i_zpco02.move: '删除组件' to i_zpco02-filed,'D' to i_zpco02-chnid,resb-xloek to i_zpco02-value_old,component_table-xloek to i_zpco02-value_new, component_table-matnr to i_zpco02-matnr,* read_flg TO i_zpco02-readf,component_table-alpos to i_zpco02-alpos,sy-tabix to i_zpco02-loopid.append i_zpco02.inst_flg = 'Y'.* { INCERTendcase.* } DEVK910121 忽略由⼯单关闭引起的组件删除else.* INCERT } DEVK905414 FIX BUG:删除组件⽆记录select single matnr bdmng lgort into (resb-matnr, resb-bdmng,resb-lgort) from resb where aufnr eq component_table-aufnrand posnr eq component_table-posnrand matnr eq component_table-matnrand rsnum eq component_table-rsnumand rspos eq component_table-rspos.if component_table-matnr ne resb-matnr.move-corresponding i_temp to i_zpco02.move: '更改组件' to i_zpco02-filed,'U' to i_zpco02-chnid,resb-matnr to i_zpco02-value_old,component_table-matnr to i_zpco02-value_new,'更改的⼯单组件' to i_zpco02-matnr,* read_flg TO i_zpco02-readf,component_table-alpos to i_zpco02-alpos,sy-tabix to i_zpco02-loopid.append i_zpco02.inst_flg = 'Y'.elseif component_table-bdmng ne resb-bdmng.* { DELETE* CHECK chan_had NE 'Y'.* DELETE } DEVK905414 FIX BUG:抬头数量修改引起的组件数量修改⽆记录 move: component_table-bdmng to char1, resb-bdmng to char2.move-corresponding i_temp to i_zpco02.move: '需求数量' to i_zpco02-filed,'U' to i_zpco02-chnid,char2 to i_zpco02-value_old,char1 to i_zpco02-value_new,component_table-matnr to i_zpco02-matnr,* read_flg TO i_zpco02-readf,component_table-alpos to i_zpco02-alpos,sy-tabix to i_zpco02-loopid.append i_zpco02.inst_flg = 'Y'.* wangkai 发料仓库变更的记录elseif component_table-lgort ne resb-lgort .move: component_table-lgort to char1, resb-lgort to char2.move-corresponding i_temp to i_zpco02.move: '发料仓库' to i_zpco02-filed,'U' to i_zpco02-chnid,char2 to i_zpco02-value_old,char1 to i_zpco02-value_new,component_table-matnr to i_zpco02-matnr,* read_flg TO i_zpco02-readf,component_table-alpos to i_zpco02-alpos,sy-tabix to i_zpco02-loopid.append i_zpco02.inst_flg = 'Y'.* { INCERTendif.* INCERT } DEVK905414endif.endcase.endloop.if inst_flg = 'Y'.insert zpco02 from table i_zpco02 accepting duplicate keys.if sy-subrc eq 0.inst_flg = 'N'.chan_had = 'N'.free: i_zpco02.clear: i_temp.endif.endif.三、查询报表REPORT ZCOHS.tables: zpco02, afko.data: i_zpco02 like zpco02 occurs 0 with header line.data: i_clear like zpco02 occurs 0 with header line.*data: i_aufnrselection-screen begin of block block1 with frame. title text-001 .select-options s_aufnr for afko-aufnr."⽣产订单*SELECT-OPTIONS s_matnr FOR ZPCO02-MATNR.select-options s_aenam for zpco02-aenam."更改者select-options s_laeda for zpco02-laeda modif id gp2."修改⽇期"PARAMETERS: p_clear AS CHECKBOX MODIF ID gp1.selection-screen end of block block1 .top-of-page.perform. write_header.at selection-screen output.loop at screen.if screen-group1 = 'GP1'.screen-intensified = '1'.modify screen.continue.endif.endloop.*&---------------------------------------------------------------------**& Event START-OF-SELECTION*&---------------------------------------------------------------------*start-of-selection.perform. get_data.*&---------------------------------------------------------------------**& Event END-OF-SELECTION*&---------------------------------------------------------------------*end-of-selection.perform. report_output.form. get_data .select zpco02~mandt zpco02~aufnr zpco02~matnr zpco02~filed zpco02~aenam zpco02~laeda zpco02~tcodezpco02~chnid zpco02~hostip zpco02~host zpco02~value_old zpco02~value_new zpco02~times zpco02~loopid zpco02~alpos zpco02~sttxt zpco02~bdmnginto corresponding fields of table i_zpco02from zpco02inner join afpo on zpco02~aufnr = afpo~aufnrwhere afpo~posnr = 1and afpo~elikz = ''and zpco02~aufnr in s_aufnrand zpco02~aenam in s_aenamand zpco02~laeda in s_laeda.check i_zpco02[] is initial or sy-subrc eq 4.message id 'ZX' type 'S'number '000' with '没有找到数据'.endform. " get_data*&---------------------------------------------------------------------**& Form write_header*&---------------------------------------------------------------------* form. write_header .data: l_pos1 type i,l_pos2 type i,l_pos3 type i,l_title(33) type c value '⼯单更改历史记录'.* CONCATENATE l_title v_bom_til INTO l_title.l_pos1 = sy-linsz / 2 - 15.l_pos2 = sy-linsz - 15.l_pos3 = l_pos2 + 6.skip 2.write /l_pos1 l_title.uline at /l_pos1(16).skip.write at: /(11) '⽣产订单',(16) '组件/表头',(16) '更改动作',(20) '新字段值',(20) '旧字段值',(08) '替代',(08) '需求数',(08) '更改帐号',(15) '更改者IP',(10) '更改者PC',(10) '更改⽇期',(10) '更改时间',* { INCERT(35) '⼯单状态'.* INCERT } DEVK910078uline.endform. " write_header*&---------------------------------------------------------------------* *& Form report_output*&---------------------------------------------------------------------* * text*----------------------------------------------------------------------* form. report_output .* { REPLACE* SORT i_zpco02 BY aufnr aenam laeda.sort i_zpco02 by aufnr laeda times matnr.* REPLACE } DEVK910078data qty(13) type c .loop at i_zpco02.write at: /(11) i_zpco02-aufnr , " '⽣产订单',(16) i_zpco02-matnr , " '物料号码',(16) i_zpco02-filed . " '更改动作',* { INCERTset left scroll-boundary.* INCERT } DEVK910078if i_zpco02-filed = '新增组件' .qty = i_zpco02-bdmng .else .qty = ''.endif .write at: (20) i_zpco02-value_newcolor 2, " '新字段值',(20) i_zpco02-value_oldcolor 3, " '旧字段值',(08) i_zpco02-alposcolor 4,(08) qtycolor 5, " '需求数'(08) i_zpco02-aenam , " '更改帐号',(15) i_zpco02-hostip , " '更改者IP',(10) i_zpco02-host , " '更改者PC',(10) i_zpco02-laeda , " '更改⽇期', (10) i_zpco02-times , " '更改时间'.(35) i_zpco02-sttxt. "'⼯单状态'.endloop.endform. " report_output。