四川电力实施文档SEPC_ERP试点阶段_技术书_PM_ZPMI0003_PMS 接口 -功能位置、设备主数据转换_V1

四川电力实施文档SEPC_ERP试点阶段_技术_PM_ZPMI0003_PMS 接口 -功能位置、设备主数据转换_V1 四川电力实施文档SEPC_ERP试点阶段_技术书 _PM_ZPMI0003_PMS 接口 -功能位置、设备主数据转换_V1 四川省电力公司 企业资源管理ERP系统实施项目 技术设计说明书 第一部分:基本信息 生成新的版本后,以下要相应改动 开发类型 增强 接口 单据 报 技术工具 Enhancement User Exit BAdI DialogInteractive list ABAP OO Function group RFCBAPI function Executive ProgramBDCTable Contents Modification Server file Local file SAPScriptSmartforms Output-only List 模块 PM 开发机及集团 D19 110 事务代码 ZPMI0003 程序ID ZPMI0003 程序名称 功能位置、设备主数据转换 功能设计者 王宗光 技术设计者 郑扬钱 ABAP程序员 郑扬钱 第二部分: 设计书维护记录更新日期 更新人员 简要说明 2009-09-02 郑扬钱 新增第三部分: 技术描述 业务需求描述 PMS系统中新增、修改或删除表达设备层次结构的信息(如变电站、间隔、线路、配电站房等)时,按照ERP系统的功能位置编码规则生成ERP功能位置编码,将基础数据同步至数据中心共享区,ERP系统从数据中心共享区获取功能位置主数据,并在ERP系统中新增、修改或删除功能位置主数据。 PMS系统中对设备主数据进行新增、删除或修改操作时,将新增、修改或删除数据同步至数据中心共享区,ERP系统通过接口从数据中心共享区获取ERP系统所需的设备主数据,按照ERP系统对设备编码规则及颗粒度要求,在ERP系统中创建或更新对应的设备主数据信息。ERP系统对设备生成资产编号后,将资产编号同步至数据中心共享区,PMS系统从数据中心获取设备资产编号信息。 技术解决方案 根据数据中心共享区中“数据增量更新索引表”获取功能位置和设备主数据的变更(新增、修改或删除)数据,并将获取到的数据存放在ERP系统临时表中,而后对数据进行转换处理,并写入ERP系统真实表,实现设备功能位置和设备主数据在ERP系统与PMS系统的同步。 本程序将实现ERP临时表数据的转换处理。 系统简单架构图 ERP临时表: 功能位置临时表(ZPMGNWZ) 序号 字段名 字段说明 字段类型长度 备注 ID 标识列 NUMC15OBJ_ID 被更新数据主键 CHAR42OPER_DATE 取数日期 DATS8OPER_TIME 取数时间 TIMS6OPER_TYPE 操作类型 CHAR1 C: CREATE, M:MODIFY, D:DELETE OPER_STAT 处理状态 CHAR1 0:未转换, 1:已转换, 2:已写入, 3: 转换错误, 4:写入错误, 5:不作处理 OPER_DES 处理说明 CHAR255 记录处理错误时的信息 FUNCT_LOC 功能位置编码 CHAR60 PMS功能位置编码 FUNCLOC 功能位置描述 CHAR40 第二层:按照PMS运行班组或单位与ERP维护工厂的映射关系进行转换 第三层:按照PMS功能位置第三层编码与ERP功能位置第三层编码的映射关系进行转换 TPLNR 功能位置 CHAR30 转换后的ERP功能位置编码 TPLMA 上一级功能位置 CHAR30MAINTPLANT 维护工厂 CHAR80 PMS运行维护班组或单位 SWERK 维护工厂 CHAR4 按照PMS运行班组或单位与ERP维护工厂的映射关系进行转换 IWERK 维护计划工厂 CHAR4 按照PMS运行班组或单位与ERP计划工厂的映射关系进行转换 ABCINDIC 电压等级 CHAR2 PMS电压等级 ABCKZ ABC CHAR1 按照PMS电压等级代码与ERP电压等级代码的映射关系进行转换 PLSECTN PMS资产性质 CHAR50BEBER 工厂区域 CHAR3 按照PMS资产性质与ERP工厂区域的映射关系进行转换 EDIT_DATE 操作日期 DATS8 在ERP中进行转换处理的记录日期 EDIT_TIME 操作时间 TIMS6 在ERP中进行转换处理的记录时间 DATA_TABLECODE 被更新数据类型 CHAR80DATA_SPC 专业分类 CHAR10 设备台帐临时表(ZPMSBTZ) 序号 字段名 字段说明 字段类型长度 备注 ID 标识列 NUMC15OBJ_ID被更新数据主键 CHAR42OPER_DATE取数日期 DATS8OPER_TIME取数日期 TIMS6OPER_TYPE操作类型 CHAR1 C: CREATE, M:MODIFY, D:DELETE OPER_STAT处理状态 CHAR1 0:未转换, 1:已转换, 2:已写入, 3: 转换错误, 4:写入错误, 5:不作处理 OPER_DES 处理说明 CHAR255 记录处理错误时的信息 EQUITYPE_TMP设备大类 CHAR10EQUIPMENT设备编号 CHAR18EQUIDESCR 设备名称 CHAR60USTAT PMS设备用户状态 CHAR50J_ESTAT ERP设备用户状态 CHAR5 PMS转入设备默认为在用状态,直接转换为ERP“10在用”状态编码 EQUITYPE 技术对象类型 CHAR50 PMS设备类型 EQART 技术对象类型 CHAR10 按照PMS设备分类与ERP技术对象类型的映射关系进行转换 INGRP 客户服务和工厂维护的计划员组 CHAR3 按照PMS设备分类与 ERP计划人员组的映射关系进行转换 MAINTPLANT 维护工厂 CHAR80 PMS维护或运行单位(班组) SWERK 维护工厂 CHAR4 按照PMS运行班组或单位与ERP维护工厂的映射关系进行转换 IWERK 维护计划工厂 CHAR4 按照PMS运行班组或单位与ERP计划工厂的映射关系进行转换 KOSTL 成本中心 CHAR10 按照PMS运行班组或单位与ERP成本中心的映射关系进行转换 ARBPL 工作中心 CHAR8 按照PMS运行班组或单位与ERP工作中心的映射关系进行转换 MANFACTURE 制造商 CHAR50 PMS生产厂家,线路设备默认空 MANCOUNTRY PMS制造商国家 CHAR50 线路设备默认空 HERLD 制造国别 CHAR3 按照PMS运行班组或单位与ERP工作中心的映射关系进行转换 MANMODEL 设备型号 CHAR50 线路设备默认空 PLSECTN PMS工厂区域 CHAR50 PMS资产性质 BEBER 工厂区域 CHAR3 按照PMS资产性质与ERP工厂区域的映射关系进行转换 ABCINDIC PMS电压等级 CHAR2ABCKZ ABC CHAR1 按照PMS电压等级代码与ERP电压等级代码的映射关系进行转换 FUNCT_LOCPMS功能位置 CHAR60TPLNR 功能位置 CHAR30 第二层:按照PMS运行班组或单位与ERP维护工厂的映射关系进行转换 第三层:按照PMS功能位置第三层编码与ERP功能位置第三层编码的映射关系进行转换 INBDT 投运日期 CHAR20 按照ERP日期格式要求转换 SUPEREQUI高级设备 CHAR42 上级物理设备,线路设备默认空 XLQC 线路全长 DEC152SFFD 是否分段 CHAR2CODE_ASSET PMS资产编号 CHAR50PMSTABLE 所属PMS数据中心表格 CHAR30EDIT_DATE操作日期 DATS8EDIT_TIME操作时间 TIMS6DATA_TABLECODE 被更新数据类型 CHAR80DATA_SPC 专业分类 CHAR10POSID WBS 要素 CHAR24 三、映射关系存储表 - 维护工厂、工作中心(ZPM_PLANT) WHBZ PMS单位(班组) CHAR80WHBZC PMS单位(班组)名称 CHAR10SWERK ERP维护工厂编码 CHAR4SWERKCERP维护工厂名称 CHAR50ARBPL ERP工作中心编码 CHAR8ARBPLCERP工作中心名称 CHAR50PLANPLANTERP计划工厂编码 CHAR4PLANPLANTC ERP计划工厂名称 CHAR50COSTCENTER ERP成本中心编码 CHAR10COSTCENTERC ERP成本中心名称 CHAR20SEC_FUNC 功能位置第二层 CHAR8SEC_FUNCC描述 CHAR20IF_DEPT 是否实施范围 CHAR1映射关系表 - 电压等级(ZPM_ABC) DYDJ PMS电压等级编码 CHAR2 DYDJC PMS电压等级说明 CHAR20ABCKZ ERP电压等级 CHAR1 ABCTX ERP电压等级说明 CHAR20映射关系表 - 技术对象类型(ZPM_EQUITYPE) SBLX PMS设备分类编码 CHAR50SBLXC PMS设备分类说明 CHAR50EQART ERP技术对象类型 CHAR10EQARTX ERP技术对象类型说明 CHAR50INGRP ERP计划员组编码 CHAR3INGRPC ERP计划员组名称 CHAR18 映射关系表 - 工厂区域(ZPM_GCQY) ZCXZ PMS资产性质 CHAR50ZCXZCPMS资产性质说明 CHAR50ZPLANT ERP工厂区域 CHAR3ZPLANTC ERP工厂区域说明 CHAR50 映射关系表 - 制造商国家(ZPM_ZZGJ) MANCOUNTRY PMS制造商国家 CHAR17MANCOUNTRYC PMS制造商国家名称 CHAR50HERLD ERP制造商国家 CHAR3HERLDCERP制造商国家名称 CHAR30 映射关系表 - 功能位置第三层专业分类标识(ZPM_SPECI) PMS_CODE PMS功能位置第三层编码 CHAR1 PMS_CODEC PMS功能位置第三层名称 CHAR20ERP_CODE ERP功能位置第三层编码 CHAR1 ERP_CODEC ERP功能位置第三层名称 CHAR20 映射关系表 - 设备用户状态(ZPM_USTAT) USTAT PMS设备用户状态 CHAR50USTATCPMS设备状态名称 CHAR60J_ESTAT ERP设备用户状态 CHAR5 EQUI_USTATC ERP设备用户状态名称 CHAR30BFLG 是否回传 CHAR1 “1”表示是 “0”表示否 第四部分:程序逻辑描述?将主要代码功能描述清楚, 转换过程 判断设备是否在ERP管理范围内: 根据“技术对象类型”的映射关系,判断临时表设备台帐数据中技术对象类 型所记录的PMS设备分类是否在映射范围内,不在该范围内的设备主数据,将其删除。 判断功能位置、设备数据是否在实施组织结构范围内: 根据“维护工厂”的映射关系,判断临时表中维护工厂所记录的PMS班组是否在实施组织结构范围内,不在该范围内的功能位置和设备主数据,将其处理状态修改为“5不作处理” 功能位置临时表中处理状态为“3转换错误”的数据记录,将处理状态修改为“0未转换)”,处理说明置空。 逐个判断功能位置临时表中功能位置第二层、第三层、维护工厂、电压等级、工厂区域编码是否在映射表中存在,不存在的将整条数据的处理状态修改为“3转换错误”,并在“处理说明”中逐个增量写入“XX(数据项)XX(数据)不存在映射关系。”。例:标识列为99的维护工厂999999不存在映射关系,则将处理状态修改为“3转换错误”,处理说明中写入“维护工厂999999不存在映射关系。”,电压等级9999也不存在映射关系,则处理说明修改为“维护工厂999999不存在映射关系。电压等级9999不存在映射关系。”。 判断完毕后,对处理状态为“0未转换)”按照映射关系表进行批量转换,并将处理状态修改为“1已转换”,同时将系统日期和时间分别写入操作日期OPER_DATE和操作时间OPER_TIME。 对设备台帐中设备大类为“绝缘子”的设备,使用其高级设备的班组、功能位置信息更新该设备的班组和功能位置信息。 设备台帐临时表的转换过程按照功能位置临时表的转换过程执行。 第五部分:源程序----复杂性功能实现可贴主要功能代码部分 程序运行效果:输入事务代码 ZPMI0003 选择需要进行转换的类型,及其数据的范围后可进行数据转换成ERP所需要 的格式。 程序源代码 *& *& 程序名称: ZPMI0003 &* *& 程序描述: 功能位置、设备主数据转换&* *& 开发人员: 郑扬钱&* *& 创建日期: 2009/06/18 &* *& 程序用途: 对从数据中心取得的数据(ERP系统临时表)进行转换 &* *& *& 日期更改人. 更改版本 主要更改内容描述 &* *& 20090723 郑扬钱 01 新增操作类型为删除的情况下的处理方法&* *& 修改设备大类为绝缘子的情况下的功能位置 &* *& REPORT ZPMI0003 MESSAGE-ID ZPM01. * TYPES 定义 * 功能位置 TYPES: BEGIN OF TY_GNWZ. INCLUDE TYPE ZPMGNWZ. TYPES: END OF TY_GNWZ. * 设备台帐 TYPES: BEGIN OF TY_SBTZ. INCLUDE TYPE ZPMSBTZ. TYPES: END OF TY_SBTZ. *映射关系存储表 - 维护工厂、工作中心 TYPES: BEGIN OF TY_PLANT. INCLUDE TYPE ZPM_PLANT. TYPES: END OF TY_PLANT. *映射关系表 - 电压等级 TYPES: BEGIN OF TY_ABC. INCLUDE TYPE ZPM_ABC. TYPES: END OF TY_ABC. *映射关系表 - 技术对象类型 TYPES: BEGIN OF TY_EQUITYPE. INCLUDE TYPE ZPM_EQUITYPE. TYPES: END OF TY_EQUITYPE. *映射关系表 - 工厂区域 TYPES: BEGIN OF TY_GCQY. INCLUDE TYPE ZPM_GCQY. TYPES: END OF TY_GCQY. *映射关系表 - 制造商国家 TYPES: BEGIN OF TY_ZZGJ. INCLUDE TYPE ZPM_ZZGJ. TYPES: END OF TY_ZZGJ. *映射关系表 - 功能位置第三层专业分类标识 TYPES: BEGIN OF TY_SPECI. INCLUDE TYPE ZPM_SPECI. TYPES: END OF TY_SPECI. *映射关系表 - 功能位置第三层专业分类标识 TYPES: BEGIN OF TY_USTAT. INCLUDE TYPE ZPM_USTAT. TYPES: END OF TY_USTAT. TYPES: BEGIN OF TY_SBTZTMP, ID TYPE ZPMSBTZ-ID, OPER_DATE TYPE ZPMSBTZ-OPER_DATE, OPER_TIME TYPE ZPMSBTZ-OPER_TIME, EQUITYPE_TMP TYPE ZPMSBTZ-EQUITYPE_TMP, EQUIPMENT TYPE ZPMSBTZ-EQUIPMENT, MAINTPLANTTYPE ZPMSBTZ-MAINTPLANT, FUNCT_LOC TYPE ZPMSBTZ-FUNCT_LOC, END OF TY_SBTZTMP. * 内表及工作区定义 DATA: IT_GNWZ TYPE STANDARD TABLE OF TY_GNWZ, WA_GNWZ TYPE TY_GNWZ, IT_SBTZ TYPE STANDARD TABLE OF TY_SBTZ, WA_SBTZ TYPE TY_SBTZ, IT_SBTZTMP TYPE STANDARD TABLE OF TY_SBTZTMP, WA_SBTZTMP TYPE TY_SBTZTMP, * RANGE 定义-处理状态 RT_STAT TYPE RANGE OF ZPMGNWZ-OPER_STAT, RW_STAT LIKE LINE OF RT_STAT, * 上一级功能位置使用内表 IT_STRING TYPE TABLE OF STRING, WA_STRING TYPE STRING, IT_PLANT TYPE STANDARD TABLE OF TY_PLANT, WA_PLANT TYPE TY_PLANT, IT_ABC TYPE STANDARD TABLE OF TY_ABC, WA_ABC TYPE TY_ABC, IT_EQUIT TYPE STANDARD TABLE OF TY_EQUITYPE, WA_EQUIT TYPE TY_EQUITYPE, IT_GCQYTYPE STANDARD TABLE OF TY_GCQY, WA_GCQYTYPE TY_GCQY, IT_ZZGJTYPE STANDARD TABLE OF TY_ZZGJ, WA_ZZGJTYPE TY_ZZGJ, IT_SPECI TYPE STANDARD TABLE OF TY_SPECI, WA_SPECI TYPE TY_SPECI, IT_USTAT TYPE STANDARD TABLE OF TY_USTAT, WA_USTAT TYPE TY_USTAT. DATA: W_TABIXTYPE SY-TABIX, FLG_STAT TYPE C, "FLAG 标识 处理状态 FLG_DELTYPE C. "FLAG 标识 删除标识 SELECTION-SCREEN BEGIN OF BLOCK BK01 WITH FRAME TITLE TEXT-001. PARAMETERS: P_STAT0 TYPE C AS CHECKBOX DEFAULT 'X', P_STAT1 TYPE C AS CHECKBOX, P_STAT2 TYPE C AS CHECKBOX, P_STAT3 TYPE C AS CHECKBOX DEFAULT 'X', P_STAT4 TYPE C AS CHECKBOX, P_STAT5 TYPE C AS CHECKBOX. SELECTION-SCREEN END OF BLOCK BK01. SKIP. SELECTION-SCREEN BEGIN OF BLOCK BK02 WITH FRAME TITLE TEXT-002. SELECT-OPTIONS: S_GDATE FOR SY-DATUM, S_EDATE FOR SY-DATUM, S_SWEAK FOR WA_SBTZ-SWERK, S_PLANT FOR WA_GNWZ-MAINTPLANT, S_FUNCL FOR WA_SBTZ-TPLNR. SELECTION-SCREEN END OF BLOCK BK02. * 程序初始化 INITIALIZATION REFRESH: IT_GNWZ,IT_SBTZ,RT_STAT,IT_STRING,IT_PLANT,IT_ABC,IT_EQUIT,IT_GCQY,IT _ZZGJ,IT_SPECI CLEAR: WA_ZZGJ, WA_GCQY, WA_EQUIT, WA_ABC, WA_PLANT, WA_STRING, RW_STAT, WA_SBTZ, WA_GNWZ, WA_SPECI, FLG_STAT, "FLAG 标识 处 理状态 FLG_DEL"FLAG 标识 删除标识 * 程序主处理 START-OF-SELECTION IF P_STAT0 IS NOT INITIALRW_STAT-SIGN 'I'RW_STAT-OPTION 'EQ'RW_STAT-LOW '0'APPEND RW_STAT TO RT_STATCLEAR: RW_STAT ENDIF IF P_STAT1 IS NOT INITIALRW_STAT-SIGN 'I'RW_STAT-OPTION 'EQ'RW_STAT-LOW '1'APPEND RW_STAT TO RT_STATCLEAR: RW_STAT ENDIF IF P_STAT2 IS NOT INITIALRW_STAT-SIGN 'I'RW_STAT-OPTION 'EQ'RW_STAT-LOW '2'APPEND RW_STAT TO RT_STATCLEAR: RW_STAT ENDIF IF P_STAT3 IS NOT INITIALRW_STAT-SIGN 'I'RW_STAT-OPTION 'EQ'RW_STAT-LOW '3'APPEND RW_STAT TO RT_STATCLEAR: RW_STAT ENDIF IF P_STAT4 IS NOT INITIALRW_STAT-SIGN 'I'RW_STAT-OPTION 'EQ'RW_STAT-LOW '4'APPEND RW_STAT TO RT_STATCLEAR: RW_STAT ENDIF IF P_STAT5 IS NOT INITIALRW_STAT-SIGN 'I'RW_STAT-OPTION 'EQ'RW_STAT-LOW '5'APPEND RW_STAT TO RT_STATCLEAR: RW_STAT ENDIF. * 对功能位置临时表进行加锁CALL FUNCTION 'ENQUEUE_EZPMGNWZ' EXPORTING MODE_ZPMGNWZ 'E' MANDT SY-MANDT EXCEPTIONS FOREIGN_LOCK 1 SYSTEM_FAILURE 2 OTHERS 3 IF SY-SUBRC 0MESSAGE S000 WITH '功能位置临 时表 ZPMGNWZ 加锁失败,请检查!'EXIT ENDIF. * 对设备台帐临时表进行加锁CALL FUNCTION 'ENQUEUE_EZPMSBTZ' EXPORTING MODE_ZPMSBTZ 'E' MANDT SY-MANDT EXCEPTIONS FOREIGN_LOCK 1 SYSTEM_FAILURE 2 OTHERS 3 IF SY-SUBRC 0MESSAGE S000 WITH '功能位置临 时表 ZPMSBTZ 加锁失败,请检查!'EXIT ENDIF IF SY-BATCH 'X'CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTINGTEXT '正在根据映射表转换数据,请 等待!' ENDIF. * 获取新增的数据PERFORM FRM_GET_DATA. * 对数据进行处理及其数据的导入、修改等PERFORM FRM_DATA_CONVER IF SY-BATCH 'X'CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTINGTEXT '正在更新临时表,请等待!' ENDIF. * 数据库数据进行更新IF IT_GNWZ IS NOT INITIAL "功能位置临时表 MODIFY ZPMGNWZ FROM TABLE IT_GNWZ ENDIF IF IT_SBTZ IS NOT INITIAL " 设备台帐临时表 MODIFY ZPMSBTZ FROM TABLE IT_SBTZ ENDIF. * 对功能位置临时表进行解锁CALL FUNCTION 'DEQUEUE_EZPMGNWZ'. * 对设备台帐临时表进行解锁CALL FUNCTION 'DEQUEUE_EZPMSBTZ' MESSAGE S000 WITH '数据转换已经完成'. *& *&Form FRM_GET_DATA *& * 从临时表中获取还没有转换的数据 * FORM FRM_GET_DATA. * 获取功能位置信息SELECT * FROM ZPMGNWZ INTO CORRESPONDING FIELDS OF TABLE IT_GNWZ WHERE OPER_STAT IN RT_STAT"处理状态AND OPER_DATE IN S_GDATEAND EDIT_DATE IN S_EDATEAND SWERK IN S_SWEAKAND MAINTPLANT IN S_PLANTAND TPLNR IN S_FUNCL SORT IT_GNWZ BY ID ASCENDING FUNCT_LOC ASCENDING. * 获取设备台帐信息SELECT * FROM ZPMSBTZ INTO CORRESPONDING FIELDS OF TABLE IT_SBTZ WHERE OPER_STAT IN RT_STAT"处理状态AND OPER_DATE IN S_GDATEAND EDIT_DATE IN S_EDATEAND SWERK IN S_SWEAKAND MAINTPLANT IN S_PLANTAND TPLNR IN S_FUNCL SORT IT_SBTZ BY ID EQUIPMENT. * 获取映射关系存储表 - 维护工厂、工作中心SELECT * FROM ZPM_PLANT INTO CORRESPONDING FIELDS OF TABLE IT_PLANT SORT IT_PLANT BY WHBZ ASCENDING. * 获取映射关系表 - 电压等级SELECT * FROM ZPM_ABC INTO CORRESPONDING FIELDS OF TABLE IT_ABC SORT IT_ABC BY DYDJ ASCENDING. * 获取映射关系表 - 技术对象类型SELECT * FROM ZPM_EQUITYPE INTO CORRESPONDING FIELDS OF TABLE IT_EQUIT SORT IT_EQUIT BY SBLX ASCENDING. * 获取映射关系表 - 工厂区域SELECT * FROM ZPM_GCQY INTO CORRESPONDING FIELDS OF TABLE IT_GCQY SORT IT_GCQY BY ZCXZ ASCENDING. * 获取映射关系表 - 制造商国家SELECT * FROM ZPM_ZZGJ INTO CORRESPONDING FIELDS OF TABLE IT_ZZGJ SORT IT_ZZGJ BY MANCOUNTRY ASCENDING. * 获取映射关系表 - 第三层功能位置SELECT * FROM ZPM_SPECI INTO CORRESPONDING FIELDS OF TABLE IT_SPECI SORT IT_SPECI. * 获取映射关系表 - 设备用户状态SELECT * FROM ZPM_USTAT INTO CORRESPONDING FIELDS OF TABLE IT_USTAT SORT IT_USTAT SELECT ID OPER_DATE OPER_TIME EQUITYPE_TMP EQUIPMENT MAINTPLANT FUNCT_LOC INTO CORRESPONDING FIELDS OF TABLE IT_SBTZTMP FROM ZPMSBTZ WHERE EQUITYPE_TMP '绝缘子'AND MAINTPLANT IS NOT NULL SORT IT_SBTZTMP DESCENDING BY OPER_DATE OPER_TIME. ENDFORM" FRM_GET_DATA *& *&Form FRM_DATA_CONVER *& * 数据转换 * FORM FRM_DATA_CONVER. * 检查功能位置是否有新的操作LOOP AT IT_GNWZ INTO WA_GNWZCLEAR: WA_GNWZ-OPER_DES,FLG_STAT, W_TABIX "清除当前的操作说明 W_TABIX SY-TABIXCASE WA_GNWZ-OPER_TYPE WHEN 'C'"Create,创建数据PERFORM FRM_GNWZ_CREATE WHEN 'M'"Modify,更新数据PERFORM FRM_GNWZ_MODIFY WHEN 'D'"Delete,删除数据PERFORM FRM_GNWZ_DELETEENDCASEWA_GNWZ-OPER_STAT FLG_STAT"处理状态 WA_GNWZ-EDIT_DATE SY-DATUM"处理日期 WA_GNWZ-EDIT_TIME SY-UZEIT"处 理日期 MODIFY IT_GNWZ FROM WA_GNWZ INDEX W_TABIXCLEAR: WA_GNWZ, FLG_STAT ENDLOOP. * 检查设备台帐是否有新的操作LOOP AT IT_SBTZ INTO WA_SBTZCLEAR: WA_SBTZ-OPER_DES, FLG_STAT, W_TABIX. "清除当前的操作说明 W_TABIX SY-TABIXIF WA_SBTZ-EQUITYPE_TMP '绝缘子' READ TABLE IT_SBTZTMP INTO WA_SBTZTMPWITH KEY EQUIPMENT WA_SBTZ-SUPEREQUI IF SY-SUBRC 0 WA_SBTZ-FUNCT_LOC WA_SBTZTMP-FUNCT_LOC WA_SBTZ-MAINTPLANT WA_SBTZTMP-MAINTPLANT ENDIFENDIFCASE WA_SBTZ-OPER_TYPE WHEN 'C'"Create,创建数据PERFORM FRM_SBTZ_CREATE WHEN 'M'"Modify,更新数据 PERFORM FRM_SBTZ_MODIFY WHEN 'D'"Delete,删除数据PERFORM FRM_SBTZ_DELETEENDCASEWA_SBTZ-OPER_STAT FLG_STAT"处理状态 WA_SBTZ-EDIT_DATE SY-DATUM"处理日期 WA_SBTZ-EDIT_TIME SY-UZEIT"处 理日期 IF FLG_DEL 'X' FLG_STAT 'D'ENDIFMODIFY IT_SBTZ FROM WA_SBTZ INDEX W_TABIXCLEAR: WA_SBTZ, FLG_STAT, FLG_DEL ENDLOOP. ENDFORM" FRM_DATA_CONVER *& *&Form FRM_GNWZ_CREATE *& * 新建工作位置的数据转换及数据写入 * FORM FRM_GNWZ_CREATE DATA: N_LINES TYPE I REFRESH: IT_STRING IF WA_GNWZ-FUNCT_LOC IS INITIALCONCATENATE WA_GNWZ-OPER_DES '数据错误。 'INTO WA_GNWZ-OPER_DESFLG_STAT '3'EXIT ENDIF CLEAR: WA_PLANT. * 查询映射关系表中PMS所对应ERP的维护工厂READ TABLE IT_PLANT INTO WA_PLANTWITH KEY WHBZ WA_GNWZ-MAINTPLANT BINARY SEARCH IF SY-SUBRC 0IF WA_PLANT-IF_DEPT '0' "是否实施范围“否” FLG_STAT '5' "不作处理 CONCATENATE WA_GNWZ-OPER_DES '维护工厂' WA_GNWZ-MAINTPLANT '不在实施范 围内。' INTO WA_GNWZ-OPER_DES EXITENDIFWA_GNWZ-SWERK WA_PLANT-SWERK"维护工厂 IF WA_GNWZ-SWERK IS NOT INITIAL IF FLG_STAT '3' AND FLG_STAT '5' FLG_STAT '1'"数据已转换 ENDIFELSE FLG_STAT '3' CONCATENATE WA_GNWZ-OPER_DES '维护工厂' WA_GNWZ-MAINTPLANT '不存 在映射关系。' INTO WA_GNWZ-OPER_DESENDIFWA_GNWZ-IWERK WA_PLANT-PLANPLANT. "计划工厂 IF WA_GNWZ-IWERK IS NOT INITIAL IF FLG_STAT '3' AND FLG_STAT '5' FLG_STAT '1'"数据已转换 ENDIFELSE FLG_STAT '3'"数据转换错误 CONCATENATE WA_GNWZ-OPER_DES '计划工厂' WA_GNWZ-MAINTPLANT '不存在映射关系。' INTO WA_GNWZ-OPER_DESENDIF ELSEFLG_STAT '3'"数据转换错误 CONCATENATE WA_GNWZ-OPER_DES '维护工 厂' WA_GNWZ-MAINTPLANT '不存在映射关系。'INTO WA_GNWZ-OPER_DES ENDIF CLEAR: WA_ABC. * 根据映射关系表查找电压等级所对应的ERP编码、名称READ TABLE IT_ABC INTO WA_ABCWITH KEY DYDJ WA_GNWZ-ABCINDIC BINARY SEARCH. "电压等级IF SY-SUBRC 0WA_GNWZ-ABCKZ WA_ABC-ABCKZ"电压等级 IF FLG_STAT '3' AND FLG_STAT '5' FLG_STAT '1'"数据已转换 ENDIF ELSEFLG_STAT '3' "数据 转换错误 CONCATENATE WA_GNWZ-OPER_DES '电压等级' WA_GNWZ-ABCINDIC '不存在映射关系。'INTO WA_GNWZ-OPER_DES ENDIF. * 功能位置IF WA_GNWZ-SWERK IS NOT INITIALPERFORM FRM_MAKE_FUNC USING WA_GNWZ-FUNCT_LOCWA_GNWZ-MAINTPLANTCHANGING WA_GNWZ-TPLNRWA_GNWZ-OPER_DES ENDIF. * 编辑上一级功能位置IF WA_GNWZ-TPLNR IS NOT INITIALSPLIT WA_GNWZ-TPLNR AT '-' INTO TABLE IT_STRINGDESCRIBE TABLE IT_STRING LINES N_LINESDELETE IT_STRING INDEX N_LINESCLEAR WA_GNWZ-TPLMALOOP AT IT_STRING INTO WA_STRING IF WA_GNWZ-TPLMA IS NOT INITIAL CONCATENATE WA_GNWZ-TPLMA '-' WA_STRING INTO WA_GNWZ-TPLMA ELSE WA_GNWZ-TPLMA WA_STRING ENDIFENDLOOP ENDIF READ TABLE IT_GCQY INTO WA_GCQY WITH KEY ZCXZ WA_GNWZ-PLSECTN BINARY SEARCH IF SY-SUBRC 0"工厂区域 WA_GNWZ-BEBER WA_GCQY-ZPLANT ENDIF. ENDFORM" FRM_GNWZ_CREATE *& *&Form FRM_GNWZ_MODIFY *& * 功能位置更新 * FORM FRM_GNWZ_MODIFY IF WA_GNWZ-FUNCT_LOC IS INITIALCONCATENATE WA_GNWZ-OPER_DES '数据错误。'INTO WA_GNWZ-OPER_DESFLG_STAT '3'EXIT ENDIF CLEAR: WA_PLANT. * 查询映射关系表中PMS所对应ERP的维护工厂READ TABLE IT_PLANT INTO WA_PLANTWITH KEY WHBZ WA_GNWZ-MAINTPLANT BINARY SEARCH IF SY-SUBRC 0IF WA_PLANT-IF_DEPT '0' "是否实施范围“否” FLG_STAT '5' "不作处理 CONCATENATE WA_GNWZ-OPER_DES '维护工厂' WA_GNWZ-MAINTPLANT '不在实施范 围内。' INTO WA_GNWZ-OPER_DES EXITENDIFWA_GNWZ-SWERK WA_PLANT-SWERK"维护工厂 IF WA_GNWZ-SWERK IS NOT INITIAL IF FLG_STAT '3' AND FLG_STAT '5' FLG_STAT '1'"数据已转换 ENDIFELSE FLG_STAT '3' CONCATENATE WA_GNWZ-OPER_DES '维护工厂' WA_GNWZ-MAINTPLANT '不存 在映射关系。' INTO WA_GNWZ-OPER_DESENDIFWA_GNWZ-IWERK WA_PLANT-PLANPLANT. "计划工厂 IF WA_GNWZ-IWERK IS NOT INITIAL IF FLG_STAT '3' AND FLG_STAT '5' FLG_STAT '1'"数据已转换 ENDIFELSE FLG_STAT '3'"数据转换错误 CONCATENATE WA_GNWZ-OPER_DES '计划工厂' WA_GNWZ-MAINTPLANT '不存在映射关系。' INTO WA_GNWZ-OPER_DESENDIF ELSEFLG_STAT '3'"数据转换错误 CONCATENATE WA_GNWZ-OPER_DES '维护工 厂' WA_GNWZ-MAINTPLANT '不存在映射关系。'INTO WA_GNWZ-OPER_DES ENDIF CLEAR: WA_ABC. * 根据映射关系表查找电压等级所对应的ERP编码、名称READ TABLE IT_ABC INTO WA_ABCWITH KEY DYDJ WA_GNWZ-ABCINDIC BINARY SEARCH. "电压等级IF SY-SUBRC 0WA_GNWZ-ABCKZ WA_ABC-ABCKZ"电压等级 IF FLG_STAT '3' AND FLG_STAT '5' FLG_STAT '1'"数据已转换 ENDIF ELSEFLG_STAT '3' "数据 转换错误 CONCATENATE WA_GNWZ-OPER_DES '电压等级' WA_GNWZ-ABCINDIC '不存在映射关系。'INTO WA_GNWZ-OPER_DES ENDIF IF WA_GNWZ-SWERK IS NOT INITIAL. * 编辑功能位置 PERFORM FRM_MAKE_FUNC USING WA_GNWZ-FUNCT_LOCWA_GNWZ-MAINTPLANTCHANGING WA_GNWZ-TPLNRWA_GNWZ-OPER_DES ENDIF READ TABLE IT_GCQY INTO WA_GCQY WITH KEY ZCXZ WA_GNWZ-PLSECTN BINARY SEARCH IF SY-SUBRC 0"工厂区域 WA_GNWZ-BEBER WA_GCQY-ZPLANT ENDIF. ENDFORM" FRM_GNWZ_MODIFY *& *&Form FRM_GNWZ_DELETE *& * 删除功能位置 * FORM FRM_GNWZ_DELETE DATA: LW_PLTXT40 TYPE C"设备名称 * 功能位置IF WA_GNWZ-SWERK IS NOT INITIALPERFORM FRM_MAKE_FUNC USING WA_GNWZ-FUNCT_LOCWA_GNWZ-MAINTPLANTCHANGING WA_GNWZ-TPLNRWA_GNWZ-OPER_DES ENDIF SELECT SINGLE PLTXT INTO LW_PLTXT FROM IFLOTX WHERE TPLNR WA_GNWZ-TPLNRAND SPRAS SY-LANGU CONDENSE: LW_PLTXT CONCATENATE LW_PLTXT'(删除)' INTO WA_GNWZ-FUNCLOC IF FLG_STAT '3' AND FLG_STAT '5'FLG_STAT '1'"数据已转换ENDIF. ENDFORM" FRM_GNWZ_DELETE *& *&Form FRM_SBTZ_CREATE *& * 设备台帐新建 * FORM FRM_SBTZ_CREATE CLEAR: FLG_STAT, FLG_DEL. * 读取映射关系表 - 技术对象类型 获取PMS对应的技术对象类型CLEAR: WA_EQUIT READ TABLE IT_EQUIT INTO WA_EQUITWITH KEY SBLX WA_SBTZ-EQUITYPE BINARY SEARCH IF SY-SUBRC 0. *技术对象类型 WA_SBTZ-EQART WA_EQUIT-EQARTIF WA_SBTZ-EQART IS NOT INITIAL IF FLG_STAT '3' AND FLG_STAT '5' FLG_STAT '1'"数据已转 换 ENDIFELSE FLG_STAT '3' CONCATENATE WA_SBTZ-OPER_DES '技术对象类 型' WA_SBTZ-EQUITYPE '不存在映射关系。' INTO WA_SBTZ-OPER_DESENDIF. *计划人员组 WA_SBTZ-INGRP WA_EQUIT-INGRPIF WA_SBTZ-INGRP IS NOT INITIAL IF FLG_STAT '3' AND FLG_STAT '5' FLG_STAT '1'"数据已转换 ENDIFELSE FLG_STAT '3' CONCATENATE WA_SBTZ-OPER_DES '技术对象类型