IMGFISA 財務憑證的替代復雜

1、財務憑證的替代(復雜)一、 適用范圍：本文檔適用于復雜的替代，涉及到ABAP，涉及到出口(exit)二、 替代（Substitution）：在憑證保存前根據(jù)設置條件判斷此憑證是否有效，其中可以按抬頭、行項目或完全憑證來判斷，然后根據(jù)替代規(guī)則把原有字段替換當前字段。三、 替代的邏輯：簡單理解,首先將用戶自屏幕上輸入的值臨時保存在內(nèi)表中,當通過了所有的業(yè)務檢查, 最后保存到數(shù)據(jù)庫, 替代則是根據(jù)用戶設置的條件去替換掉內(nèi)表的一些臨時內(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：各模塊全部替代五、 財務憑證的替代（Substitution）和Validation不同的是,Validation只做檢測,一般不做相應數(shù)據(jù)的修改,Substitution彌補了這反面的缺陷,它和user exit結(jié)合將方便用戶編寫更復雜的邏輯。注意的是，如果Substitution使用User exit在程序中只做檢查而不替代內(nèi)容，此時，Substitution可以完全取代Validatio

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

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

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

6、CX2)最好Copy系統(tǒng)默認的程序出來修改，起碼不要申請Access Key! App. Area 選擇GBLS,輸入Copy出來的自定義程序ZRGGBS00,自定義的程序名稱最好不超過8位,系統(tǒng)只能顯示程序名的前8位。(2）。建立替代步驟(Tcode:OBBH)建立一個替代的Step包括先決條件和替代內(nèi)容,如【圖3】,你可選擇一個替代字段,表示替代這個字段的內(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. *.可以對著Copy增加自定義的例程 REFRESH ETAB. LOOP AT EXITS. ETAB = EXITS. APPEND ETAB. ENDLOOP.增加一個例程就5個簡單步驟：1Exits-na

9、me = *表示出口例程名稱。2exits-param =*只有c_exit_param_none/field/class3種,表示例程的用法.3exits-title=* 例程的抬頭顯示4APPEND exits.表示增加該出口例程。5.接下來定義一個例程Form * /endform .在例程中編寫替代邏輯。接下來根據(jù)業(yè)務背景編寫邏輯,假設使用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è)務招待費科目.BSEG-SGTXT = '業(yè)務招待費'. "For業(yè)務招待費用文本摘要.Endif.*如果期初發(fā)生上期的財務憑證過帳,則自動將過帳日期一律調(diào)整為上期期末最后一天.*check posting date's period and fiscal yearCALL FUNCTION 'DETE

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

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

15、了你的在建項目有涉及應付勞務,如果僅用一個文本區(qū)分不嚴謹,也沒有從科目上直接區(qū)分那樣直觀。III使用科目替代方式解決，直接從科目上區(qū)分不同應付款。參考步驟如下：a.SE16:V_T053定義行文本標志，其中ZNOR:MIRO 普通應付和ZPSC:MIRO 項目應付。b.建立特殊總帳標志9表示應付項目款，并設置好應付項目款會計科目。 在MIRO的時候抬頭的“文本”選擇a步驟中建立的文本c.使用Only exit出口替代,這樣使用替代就直接從科目上就區(qū)分出了應付帳款類型，e. 基本設置 1.2.3.4.SE38參考代碼如下表（參考使用，責任自負）: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ā)票校驗事務 condense bseg-sgtxt .*判斷用戶必須輸入文本摘要而且MIRO/MR8M時只能是ZNOR和ZPSC if bseg-sgtxt <> 'MIRO 普通應付' and bseg-sgtxt <>'MIRO 項目應付'. message E001(

17、00) with 'Choose ZNOR or ZPSC ' . endif.*如果文本輸入應付項目款則從特殊總帳配置中讀取應付項目款項目替代應付帳款 if bseg-sgtxt = 'MIRO 項目應付' . I_ANS = '9' . "特殊總帳標志9表示應付項目款 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 . "特別總帳標示 BSEG-UMSKS = 'A' . "特別總帳事務類型，A，W，O*SAP高度集成替代必須考慮其它模塊影響，替代同時也替代特殊總帳的計劃層次。 BSEG-FDLEV = IWA_T074-EBENE . "特殊總帳計劃層次,如果啟動CBM BSEG-BSCHL+1(1) = '9' . "記賬碼的第一碼 ENDIF. endif . endform. 為什么你的替代不起作用？替代不起作用通常有兩個原因：一系統(tǒng)默認不允許你替代該字段內(nèi)容。SAP將所有的允許字段替代關系維護在GB01表中，如果該表中沒有出現(xiàn)你的替代字段，你是不能替代的，比如會計科目BSEG-HKONT通常是不允許替代的，你就需要在此表增加。二替代程序需要重新自動編譯。在一些特殊情況下，你發(fā)現(xiàn)你的Validaton和Substitution都不起作用了,SE38運行程序RGUGBR00| RGUGBR00, 將能選的項目全選上手工重新編譯就行。SE38 輸入RGUGBR00 F8運行替代如何工作？相關表格：GB01|T001Q|T8