SEPC_ERP试点阶段_技术书_MM_MB1B物料过帐时，检查站WBS是否有权限_V1.doc

《SEPC_ERP试点阶段_技术书_MM_MB1B物料过帐时，检查站WBS是否有权限_V1.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

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

2、机及集团DEV(llO)事务代码MBIB程序IDFIELD_EX1TMAT_PSPNRFIELD_EXIT_MAT_PSPNR_1FIELDEXITPSPSPPNRFTELDEXTTUMMATPSPNR程序名称MB1B物料过帐时，检查WBS是否有权限功能设计者叶文发技术设计者曾春梅ABAP程序员曾春梅第二部分：设计书维护记录更新日期更新人员简要说明2010.6.8曾春梅新建第三部分：技术方案描述3.1业务需求描述MB1B和MIGO进行物料过帐时，检查WBS是否有操作权限。3.2技术解决方案采用屏幕Fieldexit增强技术

3、实现。3.3系统简单架构图第四部分：程序逻辑描述一将主要代码功能描述清楚,LFUNCTIONFIELDEXIT_MAT_PSPNR・"Localinterface:IMPORTING*”REFERENCE(INPUT)EXPORTING*”REFERENCE(OUTPUT)DATA:WA_WERKSLIKEPRPS-WERKS・DATA:WA_WERKS1LIKEPRPS-WERKS・DATA:WA_PRCTRLIKEPRPS-PRCTR・DATA:PROGNAMETYPESY-REPID,DYNNUMTYPESY-DYN

4、NR,DYNPRO_VALUESTYPETABLEOFDYNPREAD,FIELD.VALUELIKELINEOFDYNPRO_VALUES・DATA:L.SELLINELIKESY-STEPL,DEVALUESTYPETABLEOFDYNPREADWITHHEADERLINE,F_VALUELIKELINEOFDYNPRO^VALUES・CLEAR:WA^WERKS,WA_PRCTR,WA_WERKS1・IFINPUTISNOTINITIAL・SELECTSINGLEWERKSINTOWA_WERKSFROMPRPSWH

5、EREPSPNR=INPUT・CHECKWA_WERKSISNOTINITIAL・AUTHORITY-CHECKOBJECT1M.MSEG.WWA1ID•WERKS1FIELDWA.WERKS.IFSY-SUBRC<>0.MESSAGEE000(ZMM01)WITH「你无权使川工厂：1WA_WERKS八卜•的W3S，・ELSE.REFRESH:D_VALUES•CLEAR:DEVALUES.SELECTSINGLEWERKSINTOWA_WERKSFROMZYWLTJ_01WHEREPRCTR=WA_PRCTR.D_VAL

6、UES-FIELDNAME='MSEG-WERKS'.D_VALUES-STEPL=0.APPENDDEVALUES.CALLFUNCTION1DYNP_VALUES_READ1EXPORTINGDYNAME='SAPMM07M'DYNUMB=r04211REQUEST=•A'TRANSLATE_TO_UPPER=fX'TABLESDYNPFIELDS=D_VALUES・IFSY-SUBRC=0.CLEAR:D_VALUES・READTABLEDEVALUESWITHKEYFIELDNAME=1MSEG-WERKS1・・I

7、FSY-SUBRC=0・IFD_VALUES-FIELDVALUEISINITIAL.MESSAGEE000(ZMM01)WITH•i音先输入工厂再输入l归S编号，以便检金WBS肚否止硝。1.ELSE・WRITED_VALUES—FIELDVALUETOWA_WERKS1・IFWA_WERKS<>WA_WERKS1・MESSAGEEOOO(ZMMOl)WITH，该阳S对应的工厂与调岀工厂不【兀配，请甫新选择，・ENDIF.ENDIF.ENDIF.ENDIF.ENDIF.ENDIF.2,FUNCTIONFIELD_EXIT_

8、MAT_PSPNR_1・n★nLocalinterface:nTMPORTINGREFERENCE(INPUT)EXPORTINGREFERENCE(OUTPUT)DATA:WA_WERKSLIKEPRPS-WERKS・DATA:WA_WERKS1LIKEPRPS-WERKS・DATA:WA_PRCTR