聯(lián)芯科技ERP項(xiàng)目-技術(shù)文檔-FICO-020-付款會計(jì)憑證增強(qiáng)-V1.4-20090716

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

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

第III部分:技術(shù)說明ProgramnameTransactioncodeAuthorizationObjectFormFormnameN/AOutputtypeN/AFormroutineN/A程序邏輯：進(jìn)入OB28-完全憑證-U108，此驗(yàn)證是完全驗(yàn)證，在輸入憑證的最后一行結(jié)束時(shí)觸發(fā)，對bseg-sgtxt+0(4)<>'0000'的憑證行項(xiàng)目進(jìn)行判斷，取到憑證放在lt_bseg。依據(jù)取出的憑證，計(jì)算對應(yīng)此部分的PO的含稅價(jià)格，放在lt_po中。依據(jù)取出的憑證，結(jié)合bsik、bsak，依據(jù)同一個(gè)供應(yīng)商和同一個(gè)PO，取出兩個(gè)表的相關(guān)憑證，并對供應(yīng)商+PO的金額進(jìn)行合計(jì)，放在lt_bsik中。循環(huán)lt_bseg，做如下代碼中判斷。對應(yīng)Spec中值A(chǔ)/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、供應(yīng)商、凈值-》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.*針對同一個(gè)供應(yīng)商+同一個(gè)PO進(jìn)行限制SELECTbukrslifnrumsksumskzaugdtaugblzuonrgjahrbelnrbuzeishkzgwrbtrINTOTABLElt_bsik_tmpFROMbsikFORALLENTRIESINlt_bsegWHEREbukrs=lt_bseg-bukrsANDgjahr=lt_bseg-gjahrANDlifnr=lt_bseg-lifnrANDzuonr=lt_bseg-zuonrANDxnegp=''"反記賬標(biāo)記為空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=''"反記賬標(biāo)記為空ANDhkontIN('1123010100','1123010200','1123010300','1123010400','1123010600','1123020100','1123020200','1123020300','1123020400','1123020600','2202010000','2202020000')AND(bschl='21'OR(bschl='29'ANDumskz='A')).*按照供應(yīng)商+PO對wrbtr金額進(jìn)行合計(jì)（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