SEPC_ERP試點階段_技術書_MM_ZME_PROCESS_PO_CUST采購訂單增強_V1

1、四川省電力公司企業(yè)資源管理(ERP)系統(tǒng)實施項目技術設計說明書第一部分：基本信息(生成新的版本后，以下內(nèi)容要相應改動)開發(fā)類型兇增強匚1接口n單據(jù)報表Enhan ceme ntUser Exit區(qū) BAdlDialogIn teractive listABAP OOFunction group技術工具RFCBAPI fun ctionExecutive ProgramBDCTable Contents ModificationServer fileLocal fileSAPScriptSmartformsOutput-only List模塊MM開發(fā)機及集團110事務代碼程序IDZME PROC

2、ESS POCUST程序名稱采購訂單增強功能設計者口 /寺 呂田技術設計者侯佳男ABAP程序員侯佳男第二部分：設計書維護記錄更新日期更新人員簡要說明2009-8-28侯佳男新建第三部分：技術方案描述3.1業(yè)務需求描述1）利庫字段屏幕控制于采購方式相同，即完全審批后頁可以更改.只有利庫標志打勾，下面的市/省數(shù)量等才可以改.2）如果市省數(shù)量有值的話，則憑證號欄位必須輸入.3）申請轉(zhuǎn)訂單的時候，默認數(shù)量為申請數(shù)量-已轉(zhuǎn)訂單數(shù)量-利庫數(shù)量.采購訂單行項目中的訂單數(shù)量（如果物料有多個單位則統(tǒng)一折合成基本計量單位）如果超過行項目對應采購申請的未清數(shù)量（EBAN-MENGE- EBAN-ZLKQTY - E

3、BAN-BSMNG，則報錯：“采購訂單總量已超岀采購申請有效 數(shù)量，請修正！”，如果沒有超過，則默認將未清數(shù)量帶到采購訂單屏幕3.2技術解決方案BADI技術使用3.3系統(tǒng)簡單架構圖第四部分：程序邏輯描述 一將主要代碼功能描述清楚,第五部分：源程序-復雜性功能實現(xiàn)可貼主要功能代碼部分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