SEPC_ERP试点阶段_技术书_MM_ZME_PROCESS_PO_CUST采购订单增强_V1

1、四川省电力公司企业资源管理(ERP)系统实施项目技术设计说明书第一部分：基本信息(生成新的版本后，以下内容要相应改动)开发类型凶增强匚1接口n单据报表Enhan ceme ntUser Exit区 BAdlDialogIn teractive listABAP OOFunction group技术工具RFCBAPI fun ctionExecutive ProgramBDCTable Contents ModificationServer fileLocal fileSAPScriptSmartformsOutput-only List模块MM开发机及集团110事务代码程序IDZME PROC

2、ESS POCUST程序名称采购订单增强功能设计者口 /寺 吕田技术设计者侯佳男ABAP程序员侯佳男第二部分：设计书维护记录更新日期更新人员简要说明2009-8-28侯佳男新建第三部分：技术方案描述3.1业务需求描述1）利库字段屏幕控制于采购方式相同，即完全审批后页可以更改.只有利库标志打勾，下面的市/省数量等才可以改.2）如果市省数量有值的话，则凭证号栏位必须输入.3）申请转订单的时候，默认数量为申请数量-已转订单数量-利库数量.采购订单行项目中的订单数量（如果物料有多个单位则统一折合成基本计量单位）如果超过行项目对应采购申请的未清数量（EBAN-MENGE- EBAN-ZLKQTY - E

3、BAN-BSMNG，则报错：“采购订单总量已超岀采购申请有效 数量，请修正！”，如果没有超过，则默认将未清数量带到采购订单屏幕3.2技术解决方案BADI技术使用3.3系统简单架构图第四部分：程序逻辑描述 一将主要代码功能描述清楚,第五部分：源程序-复杂性功能实现可贴主要功能代码部分METHOD IF_EX_ME_PROCESS_PO_CUSTPROCESS_HEADER. DATA: WA_EBAN TYPE EBAN.TYPES:BEGIN OF TY_FLG,BANFN TYPE EBAN-BANFN,BNFPO TYPE EBAN-BNFPO, EBELP TYPE EKPO-EBELP

4、,END OF TY_FLG.DATA: IT_FLG1 TYPE STANDARD TABLE OF TY_FLG,WA_FLG1 TYPE TY_FLG,IT_FLG TYPE STANDARD TABLE OF TY_FLG, WA_FLG TYPE TY_FLG.DATA: W_FLG1 TYPE I,W_FLG TYPE I.DATA: HEADER TYPE MEPOHEADER,ITEMS TYPE PURCHASE_ORDER_ITEMS, LINE_ITEM TYPE PURCHASE_ORDER_ITEM, PO_ITEM TYPE MEPOITEM.IF SY-TCODE

5、 ='ME21N' OR SY-TCODE ='ME21'.IMPORT IT_FLG TO IT_FLG FROM MEMORYID 'ZME21BADI'. HEADER = IM_HEADER->GET_DATA().ITEMS = IM_HEADER->GET_ITEMS().LOOP AT ITEMSINTOLINE ITEM.PO_ITEM =LINE_ITEM-ITEM->GET_DATA().WA_FLG1-BANFN =PO_ITEM-BANFN.四川省电力公司SCHlUtHBCniK POWER DCRPHU

6、TinjWA_FLG1-BNFPO = PO_ITEM-BNFPO.WA_FLG1-EBELP = PO_ITEM-EBELP.APPEND WA_FLG1 TO IT_FLG1.READ TABLE IT_FLG INTO WA_FLG WITH KEY BANFN = PO_ITEM-BANFNBNFPO = PO_ITEM-BNFPOEBELP = PO_ITEM-EBELP.IF SY-SUBRC NE 0.SELECT SINGLE *INTO WA_EBANFROM EBANWHERE BANFN = PO_ITEM-BANFN AND BNFPO = PO ITEM-BNFPO.

7、PO_ITEM-MENGE = PO_ITEM-MENGE - WA_EBAN-ZCMENGE-WA_EBAN-ZPMENGE. CALL METHOD LINE_ITEM-ITEM->SET_DATA( PO_ITEM ). IF SY-SUBRC =0.WA_FLG-BANFN = PO_ITEM-BANFN.WA_FLG-BNFPO = PO_ITEM-BNFPO.WA_FLG-EBELP = PO_ITEM-EBELP. APPEND WA_FLG TO IT_FLG.ENDIF.ENDIF.ENDLOOP.DESCRIBE TABLE IT_FLG1 LINES W_FLG1.DESCRIBE TABLE IT_FLG LINES W_FLG.IF W_FLG <= W_FLG1.EXPORT IT_FLG FROM IT_FLG TO MEMORYID 'ZME21BADI'.ELSE.-EXPORT IT_FLG FROM IT_FLG1 TO MEMORYID 'Z