小技巧財(cái)務(wù)憑證的退代（substitution）

1、.：.；小技巧 財(cái)務(wù)憑證的退代Substitution和Validation不同的是,Validation只做檢測(cè),普通不做相應(yīng)數(shù)據(jù)的修正,Substitution彌補(bǔ)了這反面的缺陷,它和user exit結(jié)合將方便用戶(hù)編寫(xiě)更復(fù)雜的邏輯。留意的是，假設(shè)Substitution運(yùn)用User exit在程序中只做檢查而不替代內(nèi)容，此時(shí)，Substitution可以完全取代Validation。簡(jiǎn)單地講，替代就是在會(huì)計(jì)憑證消費(fèi)時(shí)包括手工和自動(dòng)過(guò)帳允許用戶(hù)根據(jù)需求對(duì)憑證抬頭和憑證行工程進(jìn)展一定的內(nèi)容修正，這種靈敏的功能可以滿(mǎn)足一些非常變態(tài)的需求，要不怎樣說(shuō)SAP什么東西都能隨便配置出來(lái)呢？比如國(guó)內(nèi)很多

2、企業(yè)都要求會(huì)計(jì)憑證有個(gè)文本摘要可對(duì)某些自動(dòng)憑證根據(jù)規(guī)那么寫(xiě)入一些文本摘要，或修正憑證的利潤(rùn)中心，功能范圍等，同樣，實(shí)際上講，SAP系統(tǒng)幾乎允許他修正會(huì)計(jì)憑證的任何內(nèi)容，甚至包括會(huì)計(jì)科目，SAP不斷強(qiáng)調(diào)科目沒(méi)有級(jí)別，對(duì)自動(dòng)科目設(shè)置非常嚴(yán)謹(jǐn)，所以修正會(huì)計(jì)科目通常發(fā)生在自動(dòng)過(guò)帳時(shí)人工無(wú)法干涉科目的情況，典型的是MIRO時(shí)科目只能對(duì)應(yīng)供應(yīng)商主數(shù)據(jù)科目，假設(shè)一個(gè)供應(yīng)商發(fā)票校驗(yàn)需求對(duì)應(yīng)應(yīng)付或其他應(yīng)付，系統(tǒng)就無(wú)法自動(dòng)實(shí)行，就可采用科目替代。替代Tcode：OBBH:AP/AR/GL Doc.OACS:AM Create AssetsOA02:Mass change AssetsGCVY:Global Sub

3、stitution(In SPL,Company Level)GCVX:Local Substitution(In SPL,Company code Level).GGB1：各模塊全部替代按照國(guó)內(nèi)很多企業(yè)的內(nèi)部制度，一切的會(huì)計(jì)憑證都需求文本摘要并且多數(shù)憑證要打印出來(lái)存檔，對(duì)于很多自動(dòng)憑證卻并不能產(chǎn)生文本摘要，此時(shí)可以運(yùn)用替代塞一個(gè)文本進(jìn)去，有的企業(yè)連ERP系統(tǒng)產(chǎn)生的特有的中間憑證也打印，真是不掀嫌浪費(fèi)紙張。圖1是一個(gè)文本摘要的例子，和Validation不同的是，Substitution只需兩步驟，圖1表示的是假設(shè)憑證類(lèi)型是折舊AF，并且科目是累計(jì)折舊類(lèi)科目或折舊費(fèi)用科目，那么文本摘要為“計(jì)提

4、本月折舊。圖1中建立Substitution和建立Validation步驟一樣。到目前為止，我們發(fā)現(xiàn)Validation和Substitution建立都非常簡(jiǎn)單，只需有簡(jiǎn)單邏輯思想的用戶(hù)不需求任何編程閱歷拖拖拽拽就可以實(shí)現(xiàn)功能，國(guó)內(nèi)的ERP設(shè)計(jì)者應(yīng)該好好自創(chuàng)自創(chuàng)，ERP工程實(shí)施不容易，不要讓可憐的業(yè)務(wù)顧問(wèn)天天浪費(fèi)時(shí)間去玩技術(shù)玩Coding 。系統(tǒng)允許更復(fù)雜的替代邏輯，下面舉一個(gè)結(jié)合用戶(hù)出口的替代簡(jiǎn)單運(yùn)用實(shí)例。業(yè)務(wù)背景：假設(shè)在公司代碼5100中,假設(shè)發(fā)生業(yè)務(wù)款待費(fèi),那么在其行工程文本摘要字段(BSEG-SGTXT)寫(xiě)入信息“業(yè)務(wù)款待費(fèi)以做統(tǒng)計(jì)。同時(shí)，在公司代碼5100的期初,會(huì)將一些調(diào)整憑證或月

5、結(jié)憑證過(guò)帳到上期間,假設(shè)有這樣的業(yè)務(wù)，無(wú)論用戶(hù)輸入上期間的任何一天，替代將自動(dòng)將上期間的憑證的過(guò)帳日期換成上期間最后一天。參考步驟如下：(1).自定義的退代程序(Tcode:GCX2)最好Copy系統(tǒng)默許的程序出來(lái)修正，起碼不要懇求Access Key! App. Area 選擇GBLS,輸入Copy出來(lái)的自定義程序ZRGGBS00,自定義的程序稱(chēng)號(hào)最好不超越8位,系統(tǒng)只能顯示程序名的前8位。(2。建立退代步驟(Tcode:OBBH)建立一個(gè)替代的Step包括先決條件和退代內(nèi)容,如圖3,他可選擇一個(gè)替代字段,表示替代這個(gè)字段的內(nèi)容,在此選擇Only exit,表示運(yùn)用用戶(hù)出口編寫(xiě)程序來(lái)替代。(

6、3).分析替代用戶(hù)出口程序ZRGGBS00(Tcode:SE38).用戶(hù)出口程序ZRGGBS00分析.終究自定義的Form例程是field exit,header exit,line exit 或complete exit有系統(tǒng)參數(shù)c_exit_param_none, c_exit_param_field和c_exit_param_class決議。通常用戶(hù)可以看到替代出口程序如下粗體部分：exits-name = U100. exits-param = c_exit_param_none. “能用在Field exit,only exit等任何地方 exits-title = text-100

7、. APPEND exits. exits-name = U101. exits-param = c_exit_param_field.此Form只用于字段出口Field exit exits-title = text-101. APPEND exits.exits-name = U900. exits-param = c_exit_param_class.U801只能在complete doc才可運(yùn)用. exits-title = text-900. APPEND exits. *.可以對(duì)著Copy添加自定義的例程 REFRESH ETAB. LOOP AT EXITS. ETAB = EX

8、ITS. APPEND ETAB. ENDLOOP.添加一個(gè)例程就5個(gè)簡(jiǎn)單步驟：1Exits-name = *表示出口例程稱(chēng)號(hào)。2exits-param =*只需c_exit_param_none/field/class3種,表例如程的用法.3exits-title=* 例程的抬頭顯示4APPEND exits.表示添加該出口例程。5.接下來(lái)定義一個(gè)例程Form * /endform .在例程中編寫(xiě)替代邏輯。接下來(lái)根據(jù)業(yè)務(wù)背景編寫(xiě)邏輯,假設(shè)運(yùn)用Form 100,其類(lèi)型c_exit_param_none，可用于“Only Exit，參考代碼如下表：FORM U100. DATA:Z_PSTDAT

9、E TYPE SY-DATUM, Z_CURPER LIKE T009B-POPER, Z_CURYEAR LIKE T009B-BDATJ, Z_PSTPER LIKE T009B-POPER, Z_PSTYEAR LIKE T009B-BDATJ, Z_PERLSTDAY LIKE SY-DATUM.If bseg-hkont = 這填寫(xiě)您的業(yè)務(wù)款待費(fèi)科目.BSEG-SGTXT = 業(yè)務(wù)款待費(fèi). For業(yè)務(wù)款待費(fèi)用文本摘要.Endif.*假設(shè)期初發(fā)生上期的財(cái)務(wù)憑證過(guò)帳,那么自動(dòng)將過(guò)帳日期一概調(diào)整為上期期末最后一天.*check posting dates period and fiscal

10、 yearCALL FUNCTION DETERMINE_PERIOD EXPORTING DATE = BKPF-BUDAT VERSION = Z1 他的會(huì)計(jì)年度變式,國(guó)內(nèi)多是K4 IMPORTING PERIOD = Z_PSTPER YEAR = Z_PSTYEAR .*check sysdates period and fiscal yearCALL FUNCTION DETERMINE_PERIOD EXPORTING DATE = SY-DATUM VERSION = Z1 Fiscal Year Var. IMPORTING PERIOD = Z_CURPER YEAR = Z

11、_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_PSTPER IMPORTING E_DATE = Z_PERLSTDAY .*無(wú)論用戶(hù)選擇過(guò)帳到上期哪一天,都將過(guò)帳日期設(shè)置為最后一天BK

12、PF-BUDAT = Z_PERLSTDAY - 1 .BKPF-MONAT = Z_PSTPER .經(jīng)過(guò)上面的業(yè)務(wù)我們可以看到,替代+用戶(hù)出口能實(shí)現(xiàn)更復(fù)雜的業(yè)務(wù),而這些業(yè)務(wù)通常是簡(jiǎn)單的拖拽實(shí)現(xiàn)不了的,再舉一個(gè)典型的有用的替代實(shí)例。業(yè)務(wù)背景：在SAP中，供應(yīng)商主數(shù)據(jù)的科目只需一個(gè)比如通常設(shè)置的是應(yīng)付帳款，在SAP中，科目和中國(guó)傳統(tǒng)會(huì)計(jì)不一樣，其科目是不強(qiáng)調(diào)層級(jí)的，比如應(yīng)付帳款，國(guó)內(nèi)ERP能夠會(huì)帶供應(yīng)商工程等幾個(gè)核算工程，SAP采用另一種方式，它將供應(yīng)商直接看成明細(xì)科目，從其主數(shù)據(jù)自動(dòng)帶出應(yīng)付帳款，假設(shè)還需求區(qū)分是什么工程的應(yīng)付，那么可采用統(tǒng)計(jì)內(nèi)部訂單或特殊總帳標(biāo)志，但是，在后勤發(fā)票校驗(yàn)Tcod

13、e：MIRO時(shí)卻不能運(yùn)用特殊總帳標(biāo)志。這樣，比如企業(yè)從同一供應(yīng)商購(gòu)買(mǎi)消費(fèi)用資料對(duì)應(yīng)普通應(yīng)付帳款和工程資料對(duì)應(yīng)應(yīng)付工程款且需求從會(huì)計(jì)科目上就直接區(qū)分時(shí)兩種應(yīng)付時(shí)就有點(diǎn)小費(fèi)事。普通的思緒有這么些：I.由于同一供應(yīng)商主數(shù)據(jù)中只能有一個(gè)科目又不能特殊總帳標(biāo)志，建議拆分成多個(gè)虛擬供應(yīng)商來(lái)對(duì)應(yīng)不同科目,此法嚴(yán)重違反編碼獨(dú)一性原那么,賊笨。II.會(huì)計(jì)科目還是運(yùn)用同一個(gè)應(yīng)付帳款科目,附加一個(gè)字段比如文本/參考字段來(lái)區(qū)分同一供應(yīng)商的不同應(yīng)付,假設(shè)供應(yīng)商還承包了他的在建工程有涉及應(yīng)付勞務(wù),假設(shè)僅用一個(gè)文本區(qū)分不嚴(yán)謹(jǐn),也沒(méi)有從科目上直接區(qū)分那樣直觀。III運(yùn)用科目替代方式處理，直接從科目上區(qū)分不同應(yīng)付款。參考步驟如

14、下：a.SE16:V_T053定義行文本標(biāo)志，其中ZNOR:MIRO 普通應(yīng)付和ZPSC:MIRO 工程應(yīng)付。b.建立特殊總帳標(biāo)志9表示應(yīng)付工程款，并設(shè)置好應(yīng)付工程款會(huì)計(jì)科目。c.運(yùn)用Only exit出口替代,這樣運(yùn)用替代就直接從科目上就區(qū)分出了應(yīng)付帳款類(lèi)型，參考代碼如下表參考運(yùn)用，責(zé)任自傲:FORM U100 . DATA: IWA_T074 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-sg

15、txt .*判別用戶(hù)必需輸入文本摘要而且MIRO/MR8M時(shí)只能是ZNOR和ZPSC if bseg-sgtxt MIRO 普通應(yīng)付 and bseg-sgtxt MIRO 工程應(yīng)付. message E001(00) with Choose ZNOR or ZPSC . endif.*假設(shè)文本輸入應(yīng)付工程款那么從特殊總帳配置中讀取應(yīng)付工程款工程替代應(yīng)付帳款 if bseg-sgtxt = MIRO 工程應(yīng)付 . I_ANS = 9 . 特殊總帳標(biāo)志9表示應(yīng)付工程款 SELECT SINGLE * INTO IWA_T074 FROM T074 WHERE KTOPL = INT AND KO

16、ART = K AND UMSKZ = I_ANS AND HKONT = BSEG-HKONT . IF IWA_T074-HKONT NE SPACE. BSEG-HKONT = IWA_T074-HKONT. 特殊總帳科目 BSEG-UMSKZ = I_ANS . 特別總帳標(biāo)示 BSEG-UMSKS = A . 特別總帳事務(wù)類(lèi)型，A，W，O*SAP高度集成替代必需思索其它模塊影響，替代同時(shí)也替代特殊總帳的方案層次。 BSEG-FDLEV = IWA_T074-EBENE . 特殊總帳方案層次,假設(shè)啟動(dòng)CBM BSEG-BSCHL+1(1) = 9 . 記賬碼的第一碼 ENDIF. end

17、if . endform. 為什么他的替代不起作用？替代不起作用通常有兩個(gè)緣由：一系統(tǒng)默許不允許他替代該字段內(nèi)容。SAP將一切的允許字段退代關(guān)系維護(hù)在GB01表中，假設(shè)該表中沒(méi)有出現(xiàn)他的替代字段，他是不能替代的，比如會(huì)計(jì)科目BSEG-HKONT通常是不允許替代的，他就需求在此表添加。二替代程序需求重新自動(dòng)編譯。在一些特殊情況下，他發(fā)現(xiàn)他的Validaton和Substitution都不起作用了,SE38運(yùn)轉(zhuǎn)程序RGUGBR00| RGUGBR00, 將能選的工程全選上手工重新編譯就行。替代如何任務(wù)？相關(guān)表格：GB01|T001Q|T80D|GB03|GB03T|GB31|GB31T|GB907|GB90|GB92|GB922|GB901|OXT_GENOBJDTL|。相關(guān)函數(shù)和程序：FI_SUBSTITUTION_ACTIVE|FI_SUBSTITUTION_DOC|FI_SUBSTITUTION_HEADER|FI_SUBSTITU