SEPCERP试点阶段技术书PMZPMI0004PMS 接口 功能位置设备主数据 写入V1.docx

1、SEPCERP试点阶段技术书PMZPMI0004PMS 接口 功能位置设备主数据 写入V1四川省电力公司企业资源管理(ERP)系统实施项目技术设计说明书第一部分：基本信息(生成新的版本后，以下内容要相应改动)开发类型 增强 接口 单据 报表技术工具 Enhancement User Exit BAdI Dialog Interactive list ABAP OO Function group RFC BAPI function Executive Program BDC Table Contents Modification Server file Local file SAPScript

2、Smartforms Output-only List 模块PM开发机及集团D19 110事务代码ZPMI0004程序IDZPMI0004程序名称功能位置、设备主数据 写入功能设计者 王宗光技术设计者郑扬钱ABAP程序员郑扬钱第二部分： 设计书维护记录 更新日期更新人员简要说明2009-09-03郑扬钱新增第三部分： 技术方案描述1. 业务需求描述PMS系统中新增、修改或删除表达设备层次结构的信息（如变电站、间隔、线路、配电站房等）时，按照ERP系统的功能位置编码规则生成ERP功能位置编码，将基础数据同步至数据中心共享区，ERP系统从数据中心共享区获取功能位置主数据，并在ERP系统中新增、修改

3、或删除功能位置主数据。PMS系统中对设备主数据进行新增、删除或修改操作时，将新增、修改或删除数据同步至数据中心共享区，ERP系统通过接口从数据中心共享区获取ERP系统所需的设备主数据，按照ERP系统对设备编码规则及颗粒度要求，在ERP系统中创建或更新对应的设备主数据信息。ERP系统对设备生成资产编号后，将资产编号同步至数据中心共享区，PMS系统从数据中心获取设备资产编号信息。2. 技术解决方案根据数据中心共享区中“数据增量更新索引表”获取功能位置和设备主数据的变更（新增、修改或删除）数据，并将获取到的数据存放在ERP系统临时表中，而后对数据进行转换处理，并写入ERP系统真实表，实现设备功能位置

4、和设备主数据在ERP系统与PMS系统的同步。本程序承接功能位置和设备主数据的转换程序，在数据转换完毕后，由中间表写入ERP系统业务表。写数对象为临时表中处理状态为“1(已转换)”的数据，写数成功后将处理状态修改为“2(已写入)”。3. 系统简单架构图4. ERP临时表：一、 功能位置临时表（ZPMGNWZ）序号字段名字段说明字段类型长度备注1. ID标识列NUMC(15)2. OBJ_ID被更新数据主键CHAR(42)3. OPER_DATE取数日期DATS(8)4. OPER_TIME取数时间TIMS(6)5. OPER_TYPE操作类型CHAR(1)C: CREATE, M:MODIFY,

5、 D:DELETE6. OPER_STAT处理状态CHAR(1)0:未转换, 1:已转换, 2:已写入, 3: 转换错误, 4:写入错误, 5:不作处理7. OPER_DES处理说明 CHAR(255)记录处理错误时的信息8. FUNCT_LOC功能位置编码CHAR(60)PMS功能位置编码9. FUNCLOC功能位置描述CHAR(40)10. TPLNR功能位置CHAR(30)转换后的ERP功能位置编码11. TPLMA上一级功能位置CHAR(30)12. MAINTPLANT维护工厂CHAR(80)PMS运行(维护)班组或单位13. SWERK维护工厂CHAR(4)14. IWERK维护计

6、划工厂CHAR(4)15. ABCINDIC电压等级CHAR(2)PMS电压等级16. ABCKZABCCHAR(1)17. PLSECTNPMS资产性质CHAR(50)18. BEBER工厂区域CHAR(3)19. EDIT_DATE操作日期DATS(8)在ERP中进行写入处理的记录日期20. EDIT_TIME操作时间TIMS(6)在ERP中进行写入处理的记录时间21. DATA_TABLECODE被更新数据类型CHAR(80)22. DATA_SPC专业分类CHAR(10)二、 设备台帐临时表（ZPMSBTZ）序号字段名字段说明字段类型长度备注1. ID 标识列NUMC(15)2. OB

7、J_ID 被更新数据主键CHAR(42)3. OPER_DATE 取数日期DATS(8)4. OPER_TIME 取数日期TIMS(6)5. OPER_TYPE 操作类型CHAR(1)C: CREATE, M:MODIFY, D:DELETE6. OPER_STAT 处理状态CHAR(1)0:未转换, 1:已转换, 2:已写入, 3: 转换错误, 4:写入错误, 5:不作处理7. OPER_DES 处理说明CHAR(255)记录处理错误时的信息8. EQUITYPE_TMP 设备大类CHAR(10)9. EQUIPMENT 设备编号CHAR(18)10. EQUIDESCR 设备名称CHAR(

8、60)11. USTAT PMS设备用户状态CHAR(50)12. J_ESTAT ERP设备用户状态CHAR(5)13. EQUITYPE 技术对象类型CHAR(50)PMS设备类型14. EQART 技术对象类型CHAR(10)15. INGRP 客户服务和工厂维护的计划员组CHAR(3)16. MAINTPLANT 维护工厂CHAR(80)PMS维护或运行单位（班组）17. SWERK 维护工厂CHAR(4)18. IWERK 维护计划工厂CHAR(4)19. KOSTL 成本中心CHAR(10)20. ARBPL 工作中心CHAR(8)21. MANFACTURE 制造商CHAR(50

9、)PMS生产厂家，线路设备默认空22. MANCOUNTRY PMS制造商国家CHAR(50)线路设备默认空)23. HERLD 制造国别CHAR(3)24. MANMODEL 设备型号CHAR(50)线路设备默认空25. PLSECTN PMS工厂区域CHAR(50)PMS资产性质26. BEBER 工厂区域CHAR(3)27. ABCINDIC PMS电压等级CHAR(2)28. ABCKZ ABCCHAR(1)29. FUNCT_LOC PMS功能位置CHAR(60)30. TPLNR 功能位置CHAR(30)31. INBDT 投运日期CHAR(20)32. SUPEREQUI 高级设

10、备CHAR(42)上级物理设备，线路设备默认空33. XLQC 线路全长DEC(15(2)34. SFFD 是否分段CHAR(2)35. CODE_ASSET PMS资产编号CHAR(50)36. PMSTABLE 所属PMS数据中心表格CHAR(30)37. EDIT_DATE 操作日期DATS(8)38. EDIT_TIME 操作时间TIMS(6)39. DATA_TABLECODE被更新数据类型CHAR(80)40. DATA_SPC 专业分类CHAR(10)41. POSID WBS 要素CHAR(24)第四部分：程序逻辑描述将主要代码功能描述清楚，功能位置创建、修改、标记删除程序 技

11、术实现方式：BAPI，FunctionalLocation1、 创建功能位置（事务代码IL01）调用方法：CreateBAPI传入参数与接口获取数据的对应序号BAPI传入参数中间表数据项SAP透明表/字段名字段类型长度备注1. FUNCT_LOC功能位置IFLO/TPLNRCHAR(30)2. FUNCLOC功能位置描述IFLO/PLTXTCHAR(40)3. MAINTPLANT维护工厂ITOB/SWERKCHAR(4)4. PLANPLANT计划工厂ITOB/IWERKCHAR(4)5. ABCINDIC电压等级ITOB/ABCKZCHAR(1)6. SUPFLOC上一级功能位置IFLO/

12、TPLMACHAR(30)直接根据功能位置截取到上一层7. CATEGORY功能位置种类IFLO/FLTYP CHAR(1)默认M8. STRIND结构标识RILO0/TPLKZCHAR(5)默认ZFL019. PLSECTN工厂区域ITOB/BEBERCHAR(3)2、 修改功能位置（事务代码IL02）调用方法：ChangeBAPI传入参数与接口获取数据的对应序号BAPI传入参数接口传入数据SAP透明表/字段名字段类型长度备注1. FUNCT_LOC功能位置ITOB/TPLNRCHAR(30)作为主键2. DESCRIPT功能位置描述ITOB/PLTXTCHAR(40)更新内容3. MAIN

13、TPLANT维护工厂ITOB/SWERKCHAR(4)更新内容4. PLANPLANT计划工厂ITOB/IWERKCHAR(4)更新内容5. ABCINDIC电压等级ITOB/ABCKZCHAR(1)更新内容6. PLSECTN工厂区域ITOB/BEBERCHAR(3)3、 删除功能位置（事务代码IL02） 调用方法：Change操作码为D时，在原有功能位置描述后面添加“（已删除）”，并对该功能位置作删除标识。序号BAPI传入参数接口传入数据SAP透明表/字段名字段类型长度备注1. FUNCT_LOC功能位置ITOB/TPLNRCHAR(30)作为主键2. 功能位置描述ITOB/PLTXTCH

14、AR(40)更新内容设备创建、修改、标记删除程序 技术实现方式：BAPI，PieceOfEquipment1、 创建设备信息（事务代码IE01）调用方法：CreateBAPI传入参数与接口获取数据的对应序号BAPI传入参数接口传入数据SAP透明表/字段名字段类型长度备注1. EQUIPMENT设备编码ITOB/EQUNRCHAR(18)2. EQUICATGRY设备种类ITOB/EQTYPCHAR(1)默认“生产性PMS设备”3. EQUIDESCR设备名称ITOB/SHTXTCHAR(40)4. 设备用户状态ITOBATTR/STTXUCHAR(40)默认“10在用”5. EQUITYPE技

15、术对象类型ITOB/EQARTCHAR(10)6. MANFACTURE制造商ITOB/HERSTCHAR(30)7. MANCOUNTRY制造商国家ITOB/HERLDCHAR(3)8. MANMODEL设备型号ITOB/TYPBZCHAR(20)9. MAINTPLANT维护工厂ITOB/SWERKCHAR(4)10. PLANPLANT计划工厂ITOB/IWERKCHAR(4)11. COSTCENTER成本中心ITOB/KOSTLCHAR(10)12. PLANGROUP计划人员组ITOB/INGRPCHAR(3)13. WORK_CTR主工作中心ITOB/GEWRKCHAR(8)14

16、. PLSECTN工厂区域ITOB/BEBERCHAR(3)15. ABCINDIC电压等级ITOB/ABCKZCHAR(1)16. COMP_CODE公司代码ITOB/BUKRSCHAR(4)默认190017. START_FROM开始日期ITOB/INBDTDATS(8)投运日期18. FUNCT_LOC功能位置ITOB/TPLNRCHAR(30)19. SUPEREQUI高级设备ITOB/HEQUICHAR(18)2、 修改设备信息（事务代码IE02）调用方法：ChangeBAPI传入参数与接口获取数据的对应序号BAPI传入参数接口传入数据SAP透明表/字段名字段类型长度备注1. EQU

17、IPMENT设备编码ITOB/EQUNRCHAR(18)作为主键2. EQUIDESCR设备名称ITOB/SHTXTCHAR(40)3. 设备用户状态ITOBATTR/STTXUCHAR(40)4. EQUITYPE技术对象类型ITOB/EQARTCHAR(10)5. MANFACTURE制造商ITOB/HERSTCHAR(30)6. MANCOUNTRY制造商国家ITOB/HERLDCHAR(3)7. MANMODEL设备型号ITOB/TYPBZCHAR(20)8. MAINTPLANT维护工厂ITOB/SWERKCHAR(4)9. PLANPLANT计划工厂ITOB/IWERKCHAR(4

18、)10. COSTCENTER成本中心ITOB/KOSTLCHAR(10)11. PLANGROUP计划人员组ITOB/INGRPCHAR(3)12. WORK_CTR主工作中心ITOB/GEWRKCHAR(8)13. PLSECTN工厂区域ITOB/BEBERCHAR(3)14. ABCINDIC电压等级ITOB/ABCKZCHAR(1)15. START_FROM开始日期ITOB/INBDTDATS(8)投运日期16. FUNCT_LOC功能位置ITOB/TPLNRCHAR(30)17. SUPEREQUI高级设备ITOB/HEQUICHAR(18)3、 删除设备（事务代码IE02） 调用

19、方法：Change操作码为D时，拆卸功能位置和高级设备，修改设备状态为“60删除”，并为该设备设置删除标识。序号BAPI传入参数接口传入数据SAP透明表/字段名字段类型长度备注1. EQUIPMENT设备编码ITOB/EQUNRCHAR(18)EQUIPMENT2. 设备用户状态ITOBATTR/STTXUCHAR(40)3. FUNCT_LOC功能位置ITOB/TPLNRCHAR(30)4. SUPEREQUI高级设备ITOB/HEQUICHAR(18)第五部分：源程序-复杂性功能实现可贴主要功能代码部分1. 程序运行效果：输入事务代码 ZPMI0004选择需要进行写入到ERP的维护工厂，将

20、相应的数据写入到ERP系统。2. 程序源代码*&-*& 程序名称: ZPMI0004 &*& 程序描述: 功能位置、设备主数据写入 &*& 开发人员: 郑扬钱 &*& 创建日期: 2009/07/13 &*& 程序用途: 将转换后的数据写入到ERP系统 &*&-*& 日期 更改人. 更改版本 主要更改内容描述 &*& 20090723 郑扬钱 01 高级设备和功能位置同时存在，无法写入 &*& 修改为：存在高级设备时不写功能位置 &*& 20090813 郑扬钱 02 在修改设备时，首先判断该设备是否在ERP &*& 系统存在，若不存在，则创建 &*& 20090929 郑扬钱 03 添加及时

21、更新临时表数据功能 &*& 20091014 郑扬钱 04 创建设备时如果设备已经存在，则修改设备 &*& 20091014 郑扬钱 05 修改设备时，如果设备维护工厂进行了变更 &*& 先拆卸功能位置，再改设备变化值 &*& 20091109 郑扬钱 06 删除设备时，首先判断该设备是否在系统存 &*& 在，再进行删除相应的处理 &*&-&*REPORT ZPMI0004 MESSAGE-ID ZPM01.* TYPES 定义* 功能位置TYPES: BEGIN OF TY_GNWZ.INCLUDE TYPE ZPMGNWZ.TYPES: END OF TY_GNWZ.* 设备台帐TYPES

22、: BEGIN OF TY_SBTZ.INCLUDE TYPE ZPMSBTZ.TYPES: END OF TY_SBTZ.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.DATA: W_SWERK TYPE T001W-WERKS, FLG_STAT TYPE C. FLAG 标识 处理状态* 功能位置,设备台帐-调用BAPI时所用的参数DATA: W_NUMBER TYPE BAPI

23、_ITOB_PARMS-FUNCLOC, 功能位置编码 W_FUNCLOC_INT TYPE BAPI_ITOB_PARMS-FUNCLOC_INT, W_ENUMBER TYPE BAPI_ITOB_PARMS-EQUIPMENT, 设备编码 W_SYSTEM TYPE BAPI_ITOB_PARMS-LABEL_SYST,标志系统 WA_GENERAL TYPE BAPI_ITOB, WA_GGENERALX TYPE BAPI_ITOBX, WA_GSPECIFIC TYPE BAPI_ITOB_FL_ONLY, WA_GSPECIFICX TYPE BAPI_ITOB_FL_ONLYX

24、, WA_EPECIFIC TYPE BAPI_ITOB_EQ_ONLY, WA_EPECIFICX TYPE BAPI_ITOB_EQ_ONLYX, W_INST_DATE TYPE BAPI_ITOB_PARMS-INST_DATE, WA_EQ_INSTALL TYPE BAPI_ITOB_EQ_INSTALL, W_TPLNR TYPE IFLOT-TPLNR, W_EQUNR TYPE EQUI-EQUNR, WA_RETURN TYPE BAPIRET2, W_MSG TYPE MSGTXT.*BDC* Batchinputdata of single transactionDAT

25、A: IT_BDCDATA TYPE STANDARD TABLE OF BDCDATA, WA_BDCDATA TYPE BDCDATA,* messages of call transaction IT_MESSTAB TYPE STANDARD TABLE OF BDCMSGCOLL, WA_MESSTAB TYPE BDCMSGCOLL.SELECTION-SCREEN BEGIN OF BLOCK BK01 WITH FRAME TITLE TEXT-001.SELECT-OPTIONS: S_SWERK FOR W_SWERK.SELECTION-SCREEN END OF BLO

26、CK BK01.* 程序初始化INITIALIZATION. REFRESH: IT_GNWZ, IT_SBTZ, IT_BDCDATA, IT_MESSTAB. CLEAR: WA_GNWZ, WA_SBTZ.* 程序主处理START-OF-SELECTION.* 对功能位置临时表进行加锁 CALL FUNCTION ENQUEUE_EZPMGNWZ EXPORTING MODE_ZPMGNWZ = E MANDT = SY-MANDT EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3. IF SY-SUBRC 0. MESSAGE S000 WITH 功能位置临时表 ZPMGNWZ 加锁失败，请检查！. EXIT. ENDIF.* 对设备台帐临时表进行加锁 CALL FUNCTIO