四川电力SAPSEPCERP试点阶段技术书MMZMM00004CJ20N物料组件生成采购申请时添加采购策略默认值.docVIP

四川电力SAPSEPC_ERP试点阶段_技术书_MM_ZMM00004 CJ20N物料组件生成采购申请时添加采购策略默认值_V1 ABAP OO Function group RFCBAPI function Executive ProgramBDCTable Contents Modification Server file Local file SAPScriptSmartforms Output-only List 模块 MM 开发机及集团 110 事务代码 程序ID ZMM00004 程序名称 CJ20N物料组件生成采购申请时添加采购策略默认值 功能设计者 吕长雷 技术设计者 侯佳男 ABAP程序员 侯佳男 第二部分: 设计书维护记录更新日期 更新人员 简要说明 2009-7-31 侯佳男 新建 第三部分: 技术方案描述 3.1业务需求描述 四川电力物资采购按照采购目录执行,即根据不同的物资分类/项目电压等级,有不同的采购策略?,如省公司统谈统签?/省公司统谈分签等. 各单位上报采购需求后,由市公司/省公司根据采购目录规定进行相应采购. 在CJ20n下,用户挂入物料,在下达后产生采购申请.产生采购申请时,需要按照项目的项目参数文件确定电压等级,再按照物资采购目录的内容,确定采购方式,将其写入到采购申请的行项目字段?EBAN- ZPUR_STRATEGY 3.2技术解决方案 使用User Exit工具完成开发 增强或出口的名称 COZF0002 EXIT_SAPLCOZF_002 3.3 系统简单架构图 第四部分:程序逻辑描述?将主要代码功能描述清楚, DATA:?W_PROJ?TYPE?PROJ, W_MARA?TYPE?MARA, W_ZMMP?TYPE?ZMMPURCATEGORY?IF?CAUFVD_IMP-AUTYP??20?SELECT?SINGLE?PSPNR?PROFL?INTO?CORRESPONDING?FIELDS?OF?W_PROJ?FROM?PROJWHERE?PSPNR??CAUFVD_IMP-PRONRSELECT?SINGLE?MATNR?MATKL?INTO?CORRESPONDING?FIELDS?OF?W_MARA?FROM?MARAWHERE?MATNR??EBAN_IMP-MATNRSELECT?SINGLE?MATKL?CLASSA?CLASSB?CLASSC?CLASSD?INTO?CORRESPONDING?FIELDS?OF?W_ZMMP?FROM?ZMMPURCATEGORYWHERE?MATKL??W_MARA-MATKLIF?W_ZMMP?IS?INITIAL??EBAN_ORD_CUST_CHG-ZPUR_STRATEGY??SPACE??EBAN_ORD_CUST_CHG-ZPUR_MODE???SPACEELSE??CASE?W_PROJ-PROFL?WHEN?SCPS002?OR?SCPS003IF?W_ZMMP-CLASSD?IS?NOT?INITIAL??EBAN_ORD_CUST_CHG-ZPUR_MODE???W_ZMMP-CLASSDENDIFIF?W_ZMMP-CLASSA?IS?NOT?INITIAL??EBAN_ORD_CUST_CHG-ZPUR_STRATEGY??W_ZMMP-CLASSAELSEIF?W_ZMMP-CLASSB?IS?NOT?INITIAL??EBAN_ORD_CUST_CHG-ZPUR_STRATEGY??W_ZMMP-CLASSBELSEIF?W_ZMMP-CLASSC?IS?NOT?INITIAL??EBAN_ORD_CUST_CHG-ZPUR_STRATEGY??W_ZMMP-CLASSCENDIF?WHEN?OTHERSIF?W_ZMMP-CLASSB?IS?NOT?INITIAL??EBAN_ORD_CUST_CHG-ZPUR_STRATEGY??W_ZMMP-CLASSBELSEIF?W_ZMMP-CLASSC?IS?NOT?INITIAL??EBAN_ORD_CUST_CHG-ZPUR_STRATEGY??W_ZMMP-CLASSCENDIF??ENDCASEENDIF?ENDIF? IF?CAUFVD_IMP-AUTYP??20?网络订单类别 *??DATA?WA_ZPSPR?TYPE?ZPSPR?DATA?W_PRART?LIKE?PRPS-PRART. *??SELECT?SINGLE?*?FROM?ZPSPR *?INTO?CORRESPONDING?FIELDS?OF?WA_ZPSPR *?WHERE?ZPSPR~STEUS??AFVGD_IMP-STEUS. *??IF?SY-S