尚德科技MM_EXT_001 采购订单创建时价格等相关增强_FS.docVIP

增强设计规格 MM-采购订单创建控制 版本: Version Release Date and Time By Remarks 1.0 2006-02-24 Mike Cui Draft 签名: Reviewed Approved by Business Dept/Business Process Owner: Name Title Signature Date Business Dept/Business Process Owner 陆一波 采购部经理 倪红霞 SunSAP Project 熊海波 Project Manager 肖捷 Project Manager Loytong,Chia Project Manager Mike Cui Consultant 初始屏幕: 1. 采购订单创建屏幕： 开发需求 对于采购订单类型是ZNBB、ZNBP、ZSPP、ZTTP的采购订单，当系统在保存采购订单时，触发此增强：在保存订单时，如果采购订单行中为正常的物料号码和一般的供应商（供应商不是一般的供应商），系统自动检查采购订单中物料在对应的工厂下是否存在合法的采购信息记录！（同样的物料、同样的供应商、采购订单的日期落在采购信息记录的有效期内）；如果存在，则限制采购订单中的价格必须从采购信息记录中引用，采购订单中的价格不允许手工修改！（采购订单中的净价字段（MEPO1211-NETPR）不能手工修改，采购订单行项目中的条件屏幕（Condition）中的PBXX和PB00字段为不同修改）。如果不存在合法的信息记录，系统提示用户需要维护相应的采购信息记录！ 对于委外加工的采购订单(采购订单的Item Category为“L”)，需要检查对应的委外加工信息记录是否已经维护！（委外加工的订单类型与标准的采购订单的类型相同,所以第一条就可以满足）。 对于采购订单类型是ZNBB、ZNBP、ZTTP的采购订单，采购订单中的行项目必须有合法的采购申请行项目（采购申请有效且有足够Open的数量）。否则提示用户“无采购申请参考”或“采购申请的Open数量不足”，系统不能保存PO。 4. 在判断价格是否与采购信息价格一致的时候，要取采购订单的建立日期去采购信息记录包含这个日期的区间的价格来比较，如果一致，放行，不一致，跳出error messge. 三、系统实现 通过事务SMOD 查找 MM06E005 — EXIT_SAPMM06E_017— ZXM06U42。在ZXM06U42中填充如下代码： ** * 包括 ZXM06U42 ** IF sy-uname = CONSULTANT12. BREAK-POINT. ENDIF. *************MM_EX_T01 采购订单的价格增强 by llj************** if I_EKPO-LOEKZ = . if I_EKPO-matnr . if I_EKKO-BSART = ZNBB or I_EKKO-BSART = ZNBP or I_EKKO-BSART = ZTPP . IF I_EKPO-RETPO = X OR I_EKPO-NETPR = 0.00. ELSE. data: begin of itab_temp occurs 0, * BANFN like EBAN-BANFN, 采购申请号 * matnr like EBAN-BNFPO, 采购申请行+ MENGE LIKE EBAN-MENGE,申请总数 BSMNG LIKE EBAN-BSMNG,订单数 end of itab_temp. data: begin of itab_temp2 occurs 0, * matnr like EBAN-BNFPO, 采购申请行+ MENGE LIKE EBAN-MENGE,申请总数 end of itab_temp2. DATA: Zdata LIKE I_EKPO-MENGE. DATA: ZBSMNG LIKE I_EKPO-MENGE. Zdata = I_EKPO-MENGE. TABLES: EBAN,EKET. SELECT SINGLE MENGE BSMNG FROM EBAN INTO itab_temp WHERE BANFN