SEPC_ERP试点阶段_技术书_PS_ZPS00001_采购申请类型增强功能_V1

《SEPC_ERP试点阶段_技术书_PS_ZPS00001_采购申请类型增强功能_V1》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、四川省电力公司企业资源管理(ERP)系统实施项目技术设计说明书第一部分：基本信息(生成新的版本后,以下内容要相应改动)开发类型凶增强□接口□单据□报表技术工具EnhancementDialogABAP00RFCBDCServerfileSAPScript—UserExit□BAdTInteractivelistFunctiongroupBAPTfunction□ExecutiveProgramTableContentsModificationLocalfileSmartforms□Output-o

2、nlyList模块PS开发机及集团DEV(llO)事务代码CMOD程序IDZPSOOOO1程序名称采购申请类型增强功能功能设计者康阳技术设计者王刚强ABAP程序员王刚强第二部分：设计书维护记录更新日期更新人员简要说明第三部分：技术方案描述3.1业务需求描述业务人员项目网络作业中按照物资/服务需求计划创建物资/服务需求。当需求下达吋，根据不同的需求区分釆购类型。3.2技术解决方案根据自定义表中的作业控制码和订单类型的对应关系，判断出该订单的类别根据岀口COZFOOOl(EXIT_SAPLCOZF_O

3、Ol)或COZFOOOl(EXIT_SAPLCOZF_OOl)传入的订单类型(AUART),生成对应类型(BSART)禹采购申请，同时将项目作业所属WBS耳的“项目类型”(PRPS-PRART)字段取出，判断是否是16或者19,如是填入到作业的“需求跟踪号”字段中，否则不填入。订单类型和采购申请类型的关系在自定义的中间表中维护3・3系统简单架构图第四部分：程序逻辑描述一将主要代码功能描述清楚,第五部分：源程序…■复杂性功能实现可贴主要功能代码部分*&*包括ZXCOZU01*&**&**&Progr

4、amName:ZXCOZUOJ**&Author:王刚强**&CreateDate:11/06/2009**&LogicalDB:None**&ProgramType:UserExitInelude**&SAPRelease:6.0**&Description:采购申请类型增强功能**&**&**&包括ZXCOZU01**IFAFVGD」MP-STEUSISINITIAL.*EBAN_ORD_CUST_CHG・BSART=SPACE.水ENDIF.DATAWA.ZPSPRTYPEZPSPR.TAB

5、LESPRPS・DATAW.PRARTLIKEPRPS-PRART.IFCAUFVD_IMP-AUTYP=20*•”网络订单类另0SELECTSINGLE*FROMZPSPRINTOCORRESPONDINGFIELDSOFWAZPSPRWHEREZPSPR〜STEUS=AFVGD_IMP-STEUS.IFSY-SUBRC<>0.MESSAGE根据网络控制码未找到对应的订单类型!，TYPEE.ENDIF.IFWA_ZPSPR-BSARTISINITIAL.MESSAGE，查找的订单类型为空，请检查

6、配置表!TYPEE.ENDIF.EBAN_ORD_CUST_CHG-BSART=WA_ZPSPR-BSART.“需求跟踪号HtMtfftfHtMtffffHtMtfftntHffHtMtfftfHtMtfffHftMtffffHtMtfffrHtMtfffrHtMtfffrHtMtfffrHtMtfffrHfrSELECTSINGLEPRARTINTOW_PRARTFROMPRPSWHEREPRPS〜PSPNR=CAUFVD_IMP-PSPEL.IFSY-SUBRC=0.IFW.PRART=,I6

7、,ORW_PRART=,19,.EBAN_ORD_CUST_CHG-BEDNR=W_PRART.ENDIF.ENDIF.ELSEIFCAUFVD_IMP-AUTYP='30*.HPM订单ENDIF.**&包括ZXCOZU02*&*DATA:W_PROJTYPEPROJ,W.MARATYPEMARA,W_ZMMPTYPEZMMPURCATEGORY.IFCAUFVDJMP-AUTYP=*20*.SELECTSINGLEPSPNRPROFLINTOCORRESPONDINGFIELDSOFW_PROJ

8、FROMPROJWHEREPSPNR=CAUFVDJMP-PRONR.SELECTSINGLEMATNRMATKLINTOCORRESPONDINGFIELDSOFW.MARAFROMMARAWHEREMATNR=EBANJMP-MATNR.SELECTSINGLEMATKLCLASSACLASSBCLASSCCLASSDINTOCORRESPONDINGFIELDSOFWZMMPFROMZMMPURCATEGORYWHEREMATKL=W_MARA-MATKL.IFW_ZMMPI