IMGFISA 財(cái)務(wù)憑證的替代復(fù)雜

1、財(cái)務(wù)憑證的替代(復(fù)雜)一、 適用范圍：本文檔適用于復(fù)雜的替代，涉及到ABAP，涉及到出口(exit)二、 替代（Substitution）：在憑證保存前根據(jù)設(shè)置條件判斷此憑證是否有效，其中可以按抬頭、行項(xiàng)目或完全憑證來判斷，然后根據(jù)替代規(guī)則把原有字段替換當(dāng)前字段。三、 替代的邏輯：簡(jiǎn)單理解,首先將用戶自屏幕上輸入的值臨時(shí)保存在內(nèi)表中,當(dāng)通過了所有的業(yè)務(wù)檢查, 最后保存到數(shù)據(jù)庫, 替代則是根據(jù)用戶設(shè)置的條件去替換掉內(nèi)表的一些臨時(shí)內(nèi)容再保存到數(shù)據(jù)庫。四、 使用到的TCODE:OBBH:AP/AR/GL Doc.OACS:AM Create AssetsOA02:Mass change Assets

2、GCVY:Global Substitution(In SPL,Company Level)GCVX:Local Substitution(In SPL,Company code Level).GGB1：各模塊全部替代五、 財(cái)務(wù)憑證的替代（Substitution）和Validation不同的是,Validation只做檢測(cè),一般不做相應(yīng)數(shù)據(jù)的修改,Substitution彌補(bǔ)了這反面的缺陷,它和user exit結(jié)合將方便用戶編寫更復(fù)雜的邏輯。注意的是，如果Substitution使用User exit在程序中只做檢查而不替代內(nèi)容，此時(shí)，Substitution可以完全取代Validatio

3、n。簡(jiǎn)單地講，替代就是在會(huì)計(jì)憑證生產(chǎn)時(shí)（包括手工和自動(dòng)過帳）允許用戶根據(jù)需求對(duì)憑證抬頭和憑證行項(xiàng)目進(jìn)行一定的內(nèi)容修改，這種靈活的功能可以滿足一些非常變態(tài)的需求，六、 實(shí)例1比如國內(nèi)很多企業(yè)都要求會(huì)計(jì)憑證有個(gè)文本摘要可對(duì)某些自動(dòng)憑證根據(jù)規(guī)則寫入一些文本摘要，或修改憑證的利潤中心，功能范圍等，同樣，理論上講，SAP系統(tǒng)幾乎允許你修改會(huì)計(jì)憑證的任何內(nèi)容，甚至包括會(huì)計(jì)科目，SAP一直強(qiáng)調(diào)科目沒有級(jí)別，對(duì)自動(dòng)科目設(shè)置非常嚴(yán)謹(jǐn)，所以修改會(huì)計(jì)科目通常發(fā)生在自動(dòng)過賬時(shí)人工無法干預(yù)科目的情況，典型的是MIRO時(shí)科目只能對(duì)應(yīng)供應(yīng)商主數(shù)據(jù)科目，如果一個(gè)供應(yīng)商發(fā)票校驗(yàn)需要對(duì)應(yīng)應(yīng)付或其他應(yīng)付，系統(tǒng)就無法自動(dòng)實(shí)行，就可采

4、用科目替代。按照國內(nèi)很多企業(yè)的內(nèi)部制度，所有的會(huì)計(jì)憑證都需要文本摘要并且多數(shù)憑證要打印出來存檔，對(duì)于很多自動(dòng)憑證卻并不能產(chǎn)生文本摘要，此時(shí)可以使用替代塞一個(gè)文本進(jìn)去，有的企業(yè)連ERP系統(tǒng)產(chǎn)生的特有的中間憑證也打印，真是不掀嫌浪費(fèi)紙張。圖1是一個(gè)文本摘要的例子，和Validation不同的是，Substitution只有兩步驟，圖1表示的是如果憑證類型是折舊AF，并且科目是累計(jì)折舊類科目或折舊費(fèi)用科目，則文本摘要為“計(jì)提本月折舊”。圖1中建立Substitution和建立Validation步驟一樣。到目前為止，我們發(fā)現(xiàn)Validation和Substitution建立都非常簡(jiǎn)單，只要有簡(jiǎn)單邏輯

5、思維的用戶不需要任何編程經(jīng)驗(yàn)拖拖拽拽就可以實(shí)現(xiàn)功能，國內(nèi)的ERP設(shè)計(jì)者應(yīng)該好好借鑒借鑒，ERP項(xiàng)目實(shí)施不容易，不要讓可憐的業(yè)務(wù)顧問天天浪費(fèi)時(shí)間去玩技術(shù)玩Coding 。系統(tǒng)允許更復(fù)雜的替代邏輯，下面舉一個(gè)結(jié)合用戶出口的替代簡(jiǎn)單應(yīng)用實(shí)例。業(yè)務(wù)背景：假設(shè)在公司代碼5100中,如果發(fā)生業(yè)務(wù)招待費(fèi),則在其行項(xiàng)目文本摘要字段(BSEG-SGTXT)寫入信息“業(yè)務(wù)招待費(fèi)”以做統(tǒng)計(jì)。同時(shí)，在公司代碼5100的期初,會(huì)將一些調(diào)整憑證或月結(jié)憑證過帳到上期間,如果有這樣的業(yè)務(wù)，無論用戶輸入上期間的任何一天，替代將自動(dòng)將上期間的憑證的過帳日期換成上期間最后一天。參考步驟如下：(1).自定義的替代程序(Tcode:G

6、CX2)最好Copy系統(tǒng)默認(rèn)的程序出來修改，起碼不要申請(qǐng)Access Key! App. Area 選擇GBLS,輸入Copy出來的自定義程序ZRGGBS00,自定義的程序名稱最好不超過8位,系統(tǒng)只能顯示程序名的前8位。(2）。建立替代步驟(Tcode:OBBH)建立一個(gè)替代的Step包括先決條件和替代內(nèi)容,如【圖3】,你可選擇一個(gè)替代字段,表示替代這個(gè)字段的內(nèi)容,在此選擇”O(jiān)nly exit”,表示使用用戶出口編寫程序來替代。(3).剖析替代用戶出口程序ZRGGBS00(Tcode:SE38).用戶出口程序ZRGGBS00分析.究竟自定義的Form例程是field exit,header e

7、xit,line exit 或complete exit有系統(tǒng)參數(shù)c_exit_param_none, c_exit_param_field和c_exit_param_class決定。通常用戶可以看到替代出口程序如下（粗體部分）：exits-name = 'U100'. exits-param = c_exit_param_none. “能用在Field exit,only exit等任何地方 exits-title = text-100. APPEND exits. exits-name = 'U101'. exits-param = c_exit_param

8、_field.”此Form只用于字段出口Field exit exits-title = text-101. APPEND exits.exits-name = 'U900'. exits-param = c_exit_param_class.”U801只能在complete doc才可使用. exits-title = text-900. APPEND exits. *.可以對(duì)著Copy增加自定義的例程 REFRESH ETAB. LOOP AT EXITS. ETAB = EXITS. APPEND ETAB. ENDLOOP.增加一個(gè)例程就5個(gè)簡(jiǎn)單步驟：1Exits-na

9、me = *表示出口例程名稱。2exits-param =*只有c_exit_param_none/field/class3種,表示例程的用法.3exits-title=* 例程的抬頭顯示4APPEND exits.表示增加該出口例程。5.接下來定義一個(gè)例程Form * /endform .在例程中編寫替代邏輯。接下來根據(jù)業(yè)務(wù)背景編寫邏輯,假設(shè)使用Form 100,其類型c_exit_param_none，可用于“Only Exit”，參考代碼如下表：FORM U100. DATA:Z_PSTDATE TYPE SY-DATUM, Z_CURPER LIKE T009B-POPER, Z_CU

10、RYEAR LIKE T009B-BDATJ, Z_PSTPER LIKE T009B-POPER, Z_PSTYEAR LIKE T009B-BDATJ, Z_PERLSTDAY LIKE SY-DATUM.If bseg-hkont = 這填寫您的業(yè)務(wù)招待費(fèi)科目.BSEG-SGTXT = '業(yè)務(wù)招待費(fèi)'. "For業(yè)務(wù)招待費(fèi)用文本摘要.Endif.*如果期初發(fā)生上期的財(cái)務(wù)憑證過帳,則自動(dòng)將過帳日期一律調(diào)整為上期期末最后一天.*check posting date's period and fiscal yearCALL FUNCTION 'DETE

11、RMINE_PERIOD' EXPORTING DATE = BKPF-BUDAT VERSION = 'Z1' "你的會(huì)計(jì)年度變式,國內(nèi)多是K4 IMPORTING PERIOD = Z_PSTPER YEAR = Z_PSTYEAR .*check sysdate's period and fiscal yearCALL FUNCTION 'DETERMINE_PERIOD' EXPORTING DATE = SY-DATUM VERSION = 'Z1' "Fiscal Year Var. IMPORTI

12、NG PERIOD = Z_CURPER YEAR = Z_CURYEAR.*能否在輸入的posting date記帳讓系統(tǒng)去判斷.CHECK Z_CURYEAR <> Z_PSTYEAR OR Z_PSTPER <> Z_CURPER.*如posting date不在本期間得到其期間最后一天Z_PSTPER = Z_PSTPER + 1 .CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET' EXPORTING I_GJAHR = Z_PSTYEAR I_PERIV = 'Z1' I_POPER = Z_PST

13、PER IMPORTING E_DATE = Z_PERLSTDAY .*無論用戶選擇過帳到上期哪一天,都將過帳日期設(shè)置為最后一天BKPF-BUDAT = Z_PERLSTDAY - 1 .BKPF-MONAT = Z_PSTPER .通過上面的業(yè)務(wù)我們可以看到,替代+用戶出口能實(shí)現(xiàn)更復(fù)雜的業(yè)務(wù),而這些業(yè)務(wù)通常是簡(jiǎn)單的拖拽實(shí)現(xiàn)不了的,再舉一個(gè)典型的有用的替代實(shí)例。七、 實(shí)例2業(yè)務(wù)背景：在SAP中，供應(yīng)商主數(shù)據(jù)的科目只有一個(gè)比如通常設(shè)置的是應(yīng)付帳款，在SAP中，科目和中國傳統(tǒng)會(huì)計(jì)不一樣，其科目是不強(qiáng)調(diào)層級(jí)的，比如應(yīng)付帳款，國內(nèi)ERP可能會(huì)帶供應(yīng)商項(xiàng)目等幾個(gè)核算項(xiàng)目，SAP采用另一種方式，它將供應(yīng)

14、商直接看成明細(xì)科目，從其主數(shù)據(jù)自動(dòng)帶出應(yīng)付帳款，如果還需要區(qū)分是什么項(xiàng)目的應(yīng)付，則可采用統(tǒng)計(jì)內(nèi)部訂單或特殊總帳標(biāo)志，但是，在后勤發(fā)票校驗(yàn)（Tcode：MIRO）時(shí)卻不能使用特殊總帳標(biāo)志。這樣，比如企業(yè)從同一供應(yīng)商購買生產(chǎn)用材料（對(duì)應(yīng)普通應(yīng)付帳款）和項(xiàng)目材料（對(duì)應(yīng)應(yīng)付項(xiàng)目款）且需要從會(huì)計(jì)科目上就直接區(qū)分時(shí)兩種應(yīng)付時(shí)就有點(diǎn)小麻煩。一般的思路有這么些：I.因?yàn)橥还?yīng)商主數(shù)據(jù)中只能有一個(gè)科目又不能特殊總帳標(biāo)志，建議拆分成多個(gè)虛擬供應(yīng)商來對(duì)應(yīng)不同科目,此法嚴(yán)重違反編碼唯一性原則,賊笨。II.會(huì)計(jì)科目還是使用同一個(gè)應(yīng)付帳款科目,附加一個(gè)字段比如文本/參考字段來區(qū)分同一個(gè)供應(yīng)商的不同應(yīng)付,假設(shè)供應(yīng)商還承包

15、了你的在建項(xiàng)目有涉及應(yīng)付勞務(wù),如果僅用一個(gè)文本區(qū)分不嚴(yán)謹(jǐn),也沒有從科目上直接區(qū)分那樣直觀。III使用科目替代方式解決，直接從科目上區(qū)分不同應(yīng)付款。參考步驟如下：a.SE16:V_T053定義行文本標(biāo)志，其中ZNOR:MIRO 普通應(yīng)付和ZPSC:MIRO 項(xiàng)目應(yīng)付。b.建立特殊總帳標(biāo)志9表示應(yīng)付項(xiàng)目款，并設(shè)置好應(yīng)付項(xiàng)目款會(huì)計(jì)科目。 在MIRO的時(shí)候抬頭的“文本”選擇a步驟中建立的文本c.使用Only exit出口替代,這樣使用替代就直接從科目上就區(qū)分出了應(yīng)付帳款類型，e. 基本設(shè)置 1.2.3.4.SE38參考代碼如下表（參考使用，責(zé)任自負(fù)）:FORM U100 . DATA: IWA_T07

16、4 LIKE T074 , I_ANS(1) Type C . Check ( SY-Tcode = 'MIRO' OR SY-Tcode = 'MR8M' ) and BSEG-KOART = 'K' . “檢查是否為發(fā)票校驗(yàn)事務(wù) condense bseg-sgtxt .*判斷用戶必須輸入文本摘要而且MIRO/MR8M時(shí)只能是ZNOR和ZPSC if bseg-sgtxt <> 'MIRO 普通應(yīng)付' and bseg-sgtxt <>'MIRO 項(xiàng)目應(yīng)付'. message E001(

17、00) with 'Choose ZNOR or ZPSC ' . endif.*如果文本輸入應(yīng)付項(xiàng)目款則從特殊總帳配置中讀取應(yīng)付項(xiàng)目款項(xiàng)目替代應(yīng)付帳款 if bseg-sgtxt = 'MIRO 項(xiàng)目應(yīng)付' . I_ANS = '9' . "特殊總帳標(biāo)志9表示應(yīng)付項(xiàng)目款 SELECT SINGLE * INTO IWA_T074 FROM T074 WHERE KTOPL = 'INT' AND KOART = 'K' AND UMSKZ = I_ANS AND HKONT = BSEG-HKONT .

18、 IF IWA_T074-HKONT NE SPACE. BSEG-HKONT = IWA_T074-HKONT. "特殊總帳科目 BSEG-UMSKZ = I_ANS . "特別總帳標(biāo)示 BSEG-UMSKS = 'A' . "特別總帳事務(wù)類型，A，W，O*SAP高度集成替代必須考慮其它模塊影響，替代同時(shí)也替代特殊總帳的計(jì)劃層次。 BSEG-FDLEV = IWA_T074-EBENE . "特殊總帳計(jì)劃層次,如果啟動(dòng)CBM BSEG-BSCHL+1(1) = '9' . "記賬碼的第一碼 ENDIF. endif . endform. 為什么你的替代不起作用？替代不起作用通常有兩個(gè)原因：一系統(tǒng)默認(rèn)不允許你替代該字段內(nèi)容。SAP將所有的允許字段替代關(guān)系維護(hù)在GB01表中，如果該表中沒有出現(xiàn)你的替代字段，你是不能替代的，比如會(huì)計(jì)科目BSEG-HKONT通常是不允許替代的，你就需要在此表增加。二替代程序需要重新自動(dòng)編譯。在一些特殊情況下，你發(fā)現(xiàn)你的Validaton和Substitution都不起作用了,SE38運(yùn)行程序RGUGBR00| RGUGBR00, 將能選的項(xiàng)目全選上手工重新編譯就行。SE38 輸入RGUGBR00 F8運(yùn)行替代如何工作？相關(guān)表格：GB01|T001Q|T8