聯(lián)芯科技ERP項目-技術文檔-FICO-020-付款會計憑證增強-V1.4-20090716

DATE\@"yyyy-MM-dd"2009-10-28Version1.0PAGE1聯(lián)芯科技ERP項目 DATE\@"M/d/yyyy"10/28/2009Version1.0 聯(lián)芯科技ERP項目開發(fā)規(guī)格書第I部分:需求模塊MACROBUTTONCheckIt_CheckBox￡MM MACROBUTTONCheckIt_CheckBox￡PP MACROBUTTONCheckIt_CheckBox￡SD ■FI MACROBUTTONCheckIt_CheckBox￡CO MACROBUTTONCheckIt_CheckBox￡IP/FMMACROBUTTONCheckIt_CheckBox￡其它Spec編號ZLC_SPEC_FICO_020短描述此增強用于從系統(tǒng)操作限制對同一供應商同一采購訂單的超額付款情況類型MACROBUTTONCheckIt_Radiobutton報表MACROBUTTONCheckIt_RadiobuttonABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONCheckIt_Radiobutton表單MACROBUTTONUnCheckIt_Radiobutton流程增強MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton數(shù)據(jù)轉(zhuǎn)移需求優(yōu)先級MACROBUTTONUnCheckIt_RadiobuttonHigh/關鍵 MACROBUTTONCheckIt_RadiobuttonMid/推薦 MACROBUTTONCheckIt_RadiobuttonLow/可選用戶MACROBUTTONNextCell（必填）（關鍵用戶崗位/領導）要求日期2009-6-8預計開發(fā)天數(shù)（由功能顧問與開發(fā)顧問評估）必填_____天是否有標準功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo標準功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse參考的標準功能無BSIK/BSAK文檔變更歷史版本號文檔維護時間姓名簡要的描述1.02009-李翔創(chuàng)建1.12009-6-22李翔更改1.22009-6-24李翔更改1.32009-7-16更改更改

第II部分:詳細功能描述目的：控制對同一供應商同一采購訂單號的付款情況，從系統(tǒng)操作層面避免對同一供應商同一采購訂單號超額付款的現(xiàn)象發(fā)生功能描述:輸入付款憑證時進行檢查，考慮對該供應商、該采購訂單的歷史預付、應付、付款記錄進行檢索，用以往相關業(yè)務余額與憑證中付款金額進行比較，若付款金額超出，系統(tǒng)不允許憑證生成，并給出提示信息。運行頻率MACROBUTTONUnCheckIt_Radiobutton任何時間MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton兩周MACROBUTTONCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：運行方式MACROBUTTONCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自動MACROBUTTONCheckIt_Radiobutton批處理MACROBUTTONUnCheckIt_Radiobutton在線處理輸出方式MACROBUTTONCheckIt_Radiobutton屏幕輸出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONCheckIt_Radiobutton文件輸出MACROBUTTONUnCheckIt_Radiobutton其它：實時控制打印機類型不需打印紙張大小不需打印語言選擇屏幕：無 報表/表單的字段順序字段名稱字段技術名稱字段描述1記賬碼BSCHLFB01記賬憑證的記賬代碼2公司代碼BUKRS公司代碼3供應商LIFNR供應商代碼4訂單凈值NETWR采購訂單行項目凈值5刪除標識LOEKZ采購訂單行項目刪除標識6分配ZUONR會計憑證中的分配字段7借貸方標識SHKZG憑證借貸方標識8采購憑證EBELN采購訂單編號9總賬科目HKONT憑證行項目總賬科目10反記賬標識XNEGP標記憑證行項目是否反記賬11本位幣金額DMBTR憑證行項目本位幣金額12參考碼3XREF3憑證行項目參考碼3格式/屏幕設計：邏輯關系：對供應商付款，符合下列兩種情況之一時增強生效：a.事務代碼為FB01、FBVB、FB1K，記賬碼（BSCHL）為21。b.事務代碼為FB01、FBVB、FB1K，記賬碼（BSCHL）為29。c.總賬科目（HKONT）為1123010100（預付賬款-內(nèi)-材料款）、1123010200（預付賬款-內(nèi)-運保報關）、1123010300（預付賬款-內(nèi)-海關進項）、1123010400（預付賬款-內(nèi)-設備款）、1123010600（預付賬款-內(nèi)-軟件款）、1123020100（預付賬款-外-材料款）、1123020200（預付賬款-外-運保報關）、1123020300（預付賬款-外-海關進項）、1123020400（預付賬款-外-設備款）、1123020600（預付賬款-外-軟件款）、2202010000（應付賬款-集團內(nèi)）、2202020000（應付賬款-集團外）。觸發(fā)增強的時點為憑證保存過賬時。對表EKPO進行查找，查找條件同時滿足：a.FB01輸入的公司代碼（BUKRS）=EKPO-BUKRS、FB01輸入的分配（ZUONR）=EKPO-EBELN。b.刪除標識（LOEKZ）不為L。找到對應的記錄后，按行項目凈值（NETWR），乘以（1+EKPO-MWSKZ（稅碼）對應的稅率），得到采購訂單含稅價，將含稅價匯總，得到值A。對表BSIK、BSAK進行篩選，篩選條件同時滿足：a.FB01輸入的公司代碼（BUKRS）=EKPO-BUKRS、分配（ZUONR）=EKPO-EBELN。b.記賬碼（BSCHL）為21、29。c.總賬科目（HKONT）為1123010100（預付賬款-內(nèi)-材料款）、1123010200（預付賬款-內(nèi)-運保報關）、1123010300（預付賬款-內(nèi)-海關進項）、1123010400（預付賬款-內(nèi)-設備款）、1123010600（預付賬款-內(nèi)-軟件款）、1123020100（預付賬款-外-材料款）、1123020200（預付賬款-外-運保報關）、1123020300（預付賬款-外-海關進項）、1123020400（預付賬款-外-設備款）、1123020600（預付賬款-外-軟件款）、2202010000（應付賬款-集團內(nèi)）、2202020000（應付賬款-集團外）。d.反記賬標記（XNEGP）為空。但不包含發(fā)票參考號（REBZG）為空值找到對應記錄后，按照本位幣金額（SHKZG）進行匯總，得到值B。以A-B，得到值C。對計算出的可付款值C以及憑證輸入值進行比較判斷，分以下兩種情況：a.如果C為負，不用后續(xù)判斷，在憑證保存提示“超出付款限制！”，不允許憑證保存。b.如果C為正，加總FB01中供應商相同、“分配”（ZUONR）字段相同，記賬碼為21或29，且總賬科目（HKONT）為1123010100（預付賬款-內(nèi)-材料款）、1123010200（預付賬款-內(nèi)-運保報關）、1123010300（預付賬款-內(nèi)-海關進項）、1123010400（預付賬款-內(nèi)-設備款）、1123010600（預付賬款-內(nèi)-軟件款）、1123020100（預付賬款-外-材料款）、1123020200（預付賬款-外-運保報關）、1123020300（預付賬款-外-海關進項）、1123020400（預付賬款-外-設備款）、1123020600（預付賬款-外-軟件款）、2202010000（應付賬款-集團內(nèi)）、2202020000（應付賬款-集團外）的行項目金額，得到值D，如果D<=C，則允許憑證保存，如果D>C，則保存憑證時提示“超出付款限制！”。6.特別說明：當“參考碼3”字段（XREF3）輸入“0000樣張：其它內(nèi)容：

第III部分:技術說明ProgramnameTransactioncodeAuthorizationObjectFormFormnameN/AOutputtypeN/AFormroutineN/A程序邏輯：進入OB28-完全憑證-U108，此驗證是完全驗證，在輸入憑證的最后一行結(jié)束時觸發(fā)，對bseg-sgtxt+0(4)<>'0000'的憑證行項目進行判斷，取到憑證放在lt_bseg。依據(jù)取出的憑證，計算對應此部分的PO的含稅價格，放在lt_po中。依據(jù)取出的憑證，結(jié)合bsik、bsak，依據(jù)同一個供應商和同一個PO，取出兩個表的相關憑證，并對供應商+PO的金額進行合計，放在lt_bsik中。循環(huán)lt_bseg，做如下代碼中判斷。對應Spec中值A/B/C/D如下說明。ls_po-netwr（A）-ls_bsik-wrbtr(B)=lv_wrbtr(C).lv_wrbtr（C）>=ls_bseg-wrbtr(D).*ZLC_SPEC_FICO_020*CHECKsy-uname='GUOXIAOXIAO'.DATA:lv_bukrsLIKEbkpf-bukrs.TYPES:BEGINOFty_bseg,bukrsLIKEbseg-bukrs,gjahrLIKEbseg-gjahr,lifnrLIKEbseg-lifnr,zuonrLIKEbseg-zuonr,wrbtrLIKEbseg-wrbtr,ENDOFty_bseg.DATA:lt_bsegTYPETABLEOFty_bseg,ls_bsegTYPEty_bseg.TYPES:BEGINOFty_bseg_po,bukrsLIKEbseg-bukrs,gjahrLIKEbseg-gjahr,lifnrLIKEbseg-lifnr,ebelnLIKEekko-ebeln,wrbtrLIKEbseg-wrbtr,ENDOFty_bseg_po.DATA:lt_bseg_poTYPETABLEOFty_bseg_po,ls_bseg_poTYPEty_bseg_po.TYPES:BEGINOFty_ekpo,ebelnLIKEekpo-ebeln,ebelpLIKEekpo-ebelp,netwrLIKEekpo-netwr,mwskzLIKEekpo-mwskz,lifnrLIKEekko-lifnr,ENDOFty_ekpo.DATA:lt_ekpoTYPETABLEOFty_ekpo,ls_ekpoTYPEty_ekpo.TYPES:BEGINOFty_po,lifnrLIKEekko-lifnr,ebelnLIKEekpo-ebeln,netwrLIKEekpo-netwr,ENDOFty_po.DATA:lt_poTYPETABLEOFty_po,ls_poTYPEty_po.TYPES:BEGINOFty_bsik_tmp,bukrsLIKEbsik-bukrs,lifnrLIKEbsik-lifnr,umsksLIKEbsik-umsks,umskzLIKEbsik-umskz,augdtLIKEbsik-augdt,augblLIKEbsik-augbl,zuonrLIKEbsik-zuonr,gjahrLIKEbsik-gjahr,belnrLIKEbsik-belnr,buzeiLIKEbsik-buzei,shkzgLIKEbsik-shkzg,wrbtrLIKEbsik-wrbtr,ebelnLIKEbsik-ebeln,ENDOFty_bsik_tmp.TYPES:BEGINOFty_bsik,lifnrLIKEbsik-lifnr,zuonrLIKEbseg-zuonr,wrbtrLIKEbsik-wrbtr,ENDOFty_bsik.DATA:lt_bsik_tmpTYPETABLEOFty_bsik_tmp,ls_bsik_tmpTYPEty_bsik_tmp.DATA:lt_bsikTYPETABLEOFty_bsik,ls_bsikTYPEty_bsik.DATA:lv_wrbtrLIKEbsis-wrbtr.DATA:lv_ebelnLIKEekko-ebeln.lv_bukrs=bool_data-bkpf-bukrs.*BREAK-POINT.LOOPATbool_data-bsegINTObsegWHEREbschl='21'OR(bschl='29'ANDumskz='A').IFbseg-sgtxt+0(4)='0000'.ELSE.IF(bseg-hkont='1123010100'ORbseg-hkont='1123010200'ORbseg-hkont='1123010300'ORbseg-hkont='1123010400'ORbseg-hkont='1123010600'ORbseg-hkont='1123020100'ORbseg-hkont='1123020200'ORbseg-hkont='1123020300'ORbseg-hkont='1123020400'ORbseg-hkont='1123020600'ORbseg-hkont='2202010000'ORbseg-hkont='2202020000').ls_bseg-bukrs=bseg-bukrs.ls_bseg-gjahr=bseg-gjahr.ls_bseg-lifnr=bseg-lifnr.ls_bseg-zuonr=bseg-zuonr.ls_bseg-wrbtr=bseg-wrbtr.COLLECTls_bsegINTOlt_bseg.CLEAR:bseg.ENDIF.ENDIF.ENDLOOP.*EKKO+EKPO取出：PO、供應商、凈值-》LT_PO（X值）CHECKlt_bsegISNOTINITIAL.LOOPATlt_bsegINTOls_bseg.ls_bseg_po-bukrs=ls_bseg-bukrs.ls_bseg_po-gjahr=ls_bseg-gjahr.ls_bseg_po-lifnr=ls_bseg-lifnr.ls_bseg_po-ebeln=ls_bseg-zuonr.ls_bseg_po-wrbtr=ls_bseg-wrbtr.APPENDls_bseg_poTOlt_bseg_po.CLEAR:ls_bseg,ls_bseg_po.ENDLOOP.SELECTekpo~ebelnekpo~ebelpekpo~netwrekpo~mwskzekko~lifnrINTOTABLElt_ekpoFROMekpoINNERJOINekkoONekpo~ebeln=ekko~ebelnFORALLentriesINlt_bseg_poWHEREekpo~ebeln=lt_bseg_po-ebelnANDekpo~loekz<>'L'ANDekpo~bukrs=lt_bseg_po-bukrsANDekko~lifnr=lt_bseg_po-lifnr.LOOPATlt_ekpoINTOls_ekpo.ls_po-lifnr=ls_ekpo-lifnr.ls_po-ebeln=ls_ekpo-ebeln.CASEls_ekpo-mwskz.WHEN'J0'.ls_po-netwr=ls_ekpo-netwr.WHEN'J1'.ls_po-netwr=ls_ekpo-netwr+ls_ekpo-netwr*'0.17'.WHEN'J2'.ls_po-netwr=ls_ekpo-netwr+ls_ekpo-netwr*'0.13'.WHEN'J3'.ls_po-netwr=ls_ekpo-netwr+ls_ekpo-netwr*'0.1'.WHEN'J4'.ls_po-netwr=ls_ekpo-netwr+ls_ekpo-netwr*'0.07'.WHEN'J5'.ls_po-netwr=ls_ekpo-netwr+ls_ekpo-netwr*'0.06'.WHEN'J6'.ls_po-netwr=ls_ekpo-netwr+ls_ekpo-netwr*'0.04'.WHEN'J7'.ls_po-netwr=ls_ekpo-netwr+ls_ekpo-netwr*'0.03'.WHEN'R1'.ls_po-netwr=ls_ekpo-netwr+ls_ekpo-netwr*'0.17'.ENDCASE.COLLECTls_poINTOlt_po.CLEAR:ls_ekpo,ls_po.ENDLOOP.*針對同一個供應商+同一個PO進行限制SELECTbukrslifnrumsksumskzaugdtaugblzuonrgjahrbelnrbuzeishkzgwrbtrINTOTABLElt_bsik_tmpFROMbsikFORALLENTRIESINlt_bsegWHEREbukrs=lt_bseg-bukrsANDgjahr=lt_bseg-gjahrANDlifnr=lt_bseg-lifnrANDzuonr=lt_bseg-zuonrANDxnegp=''"反記賬標記為空ANDhkontIN('1123010100','1123010200','1123010300','1123010400','1123010600','1123020100','1123020200','1123020300','1123020400','1123020600','2202010000','2202020000')AND(bschl='21'OR(bschl='29'ANDumskz='A'))ANDxnegp=''.SELECTbukrslifnrumsksumskzaugdtaugblzuonrgjahrbelnrbuzeishkzgwrbtrebelnAPPENDINGTABLElt_bsik_tmpFROMbsakFORALLENTRIESINlt_bsegWHEREbukrs=lt_bseg-bukrsANDgjahr=lt_bseg-gjahrANDlifnr=lt_bseg-lifnrANDzuonr=lt_bseg-zuonrANDxnegp=''"反記賬標記為空ANDhkontIN('1123010100','1123010200','1123010300','1123010400','1123010600','1123020100','1123020200','1123020300','1123020400','1123020600','2202010000','2202020000')AND(bschl='21'OR(bschl='29'ANDumskz='A')).*按照供應商+PO對wrbtr金額進行合計（Y值）LOOPATlt_bsik_tmpINTOls_bsik_tmp.IFls_bsik_tmp-shkzg='H'.ls_bsik-wrbtr=0-ls_bsik_tmp-wrbtr.ELSE.ls_bsik-wrbtr=ls_bsik_tmp-wrbtr.ENDIF.ls_bsik-lifnr=ls_bsik_tmp-lifnr.ls_bsik-zuonr=ls_bsik_tmp-zuonr.COLL