財務憑證的替代

小技巧財務憑證的替代(Substitution)和Validation不同白是,Validation 只做檢測,一般不做相應數(shù)據(jù)的修改 ,Substitution彌補了這反面的缺陷，它和userexit 結合將方便用戶編寫更復雜的邏輯。注意的是，如果Substitution 使用Userexit在程序中只做檢查而不替代內(nèi)容，此時，Substitution可以完全取代Validation。簡單地講，替代就是在會計憑證生產(chǎn)時 (包括手工和自動過帳) 允許用戶根據(jù)需求對憑證抬頭和憑證行項目進行一定的內(nèi)容修改， 這種靈活的功能可以滿足一些非常變態(tài)的需求， 要不怎么說SAP什么東西都能輕易配置出來呢？比如國內(nèi)很多企業(yè)都要求會計憑證有個文本摘要可對某些自動憑證根據(jù)規(guī)則寫入一些文本摘要，或修改憑證的利潤中心，功能范圍等，同樣，理論上講， SAP系統(tǒng)幾乎允許你修改會計憑證的任何內(nèi)容，甚至包括會計科目， SAP一直強調(diào)科目沒有級別，對自動科目設置非常嚴謹，所以修改會計科目通常發(fā)生在自動過帳時人工無法干預科目的情況，典型的是MIRO時科目只能對應供應商主數(shù)據(jù)科目， 如果一個供應商發(fā)票校驗需要對應應付或其他應付，系統(tǒng)就無法自動實行，就可采用科目替代。替代Tcode:OBBHAP/AR/GLDoc.OACJAMCreateAssetsOA02MasschangeAssetsGCVGlobalSubstitution(InSPL,CompanyLevel)GCVLocalSubstitution(InSPL,CompanycodeLevel).GGB1各模塊全部替代%CDCopyEntiyQDeleteentry口SLtistituticnDRuleSubstitutions口Financialacoounting◎?Documentheader▼?Lineitemp口ApoouaiBd%CDCopyEntiyQDeleteentry口SLtistituticnDRuleSubstitutions口Financialacoounting◎?Documentheader▼?Lineitemp口ApoouaiBdStepOQl守DStep002鄧Prerequsl1/6Step003鄧Prerequrlte:%substitutionsC口Step004口OStep005。口Step006t>□StepL□StepDOBSubstitutionAP00001002PrerequElteEKPF-BLART='AF'ANDEKFF-EUKRS=T鴕爐ANDEEEC-HKORT”T502020000’ANDESEC-HKOWTESEC-HKONT<=J15020600Q0J)OR=,4100160000f)|Substitutions(Ifprerequisiteismet)片sLtostitutedby；Constant￥丸日計提本月折舊按照國內(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建立都非常簡單，只要有簡單邏輯思維的用戶不需要任何編程經(jīng)驗拖拖拽拽就可以實現(xiàn)功能，國內(nèi)的 ERP設計者應該好好借鑒借

Coding。(BSEG-SGTXT寫,如果有這樣的鑒，Coding。(BSEG-SGTXT寫,如果有這樣的業(yè)務背景:假設在公司代碼5100中，如果發(fā)生業(yè)務招待費，則在其行項目文本摘要字段入信息“業(yè)務招待費”以做統(tǒng)計。同時，在公司代碼5100的期初，會將一些調(diào)整憑證或月結憑證過帳到上期間業(yè)務，無論用戶輸入上期間的任何一天， 替代將自動將上期間的憑證的過帳日期換成上期間最后一天。參考步驟如下：(1).自定義的替代程序(Tcode:GCX2)ChangeView"Client-SpecificUserExitsinFISLOverview步NewentriesT3Ei哈國圍凡ApptareaEx^proq,ApplicatiionareaGBLRRGGBR000Val/sub:Exitsrules： 圖2i(GELS"jZRGGBSOOVal/sub;ExitsforsubstitutionGERURCLVU000Rollup:UserexitsRGIVUOOOVariablefieldmovementKROURKROUOOOCstctrsummariztn:Userexits1LCEALC:GesBerSUbstitutioriJLCTT.C:TransTypeSubstitution最好Copy系統(tǒng)默認的程序出來修改，起碼不要申請 AccessKey!App.Area 選才GGBLS輸入Copy出來的自定義程序ZRGGBS00B定義的程序名稱最好不超過 8位，系統(tǒng)只能顯示程序名的前8位。(2)。建立替代步驟(Tcode:OBBH)建立一個替代的Step包括先決條件和替代內(nèi)容，如圖3,你可選擇一個替代字段，表示替代這個字段的內(nèi)容，在此選擇"Onlyexit”，表示使用用戶出口編寫程序來替代。

(3).剖析替代用戶出口程序 ZRGGBS00(Tcode:SE38).用戶出口程序ZRGGBS0價析.究竟自定義的Form例程是fieldexit,headerexit,lineexit 或completeexit有系統(tǒng)參數(shù)c_exit_param_none,c_exit_param_field和c_exit_param_class決定。通常用戶可以看至U替代出口程序如下(粗體部分)：exits-name='U100'.exits-paramexits-name='U100'.exits-param=c_exit_param_none.exits-title=text-100.APPENDexits.exits-name='U101'.exits-param=c_exit_param_field.exits-title=text-101.APPENDexits.exits-name='U900'.exits-param=c_exit_param_class.exits-title=text-900.APPENDexits.“能用在Fieldexit,onlyexit 等任何地方”此Form只用于字段出口Fieldexit“U801只能在completedoc才可使用.* 可以對著Copyt曾加自定義的例程REFRESHETAB.LOOPATEXITS.ETAB=EXITS.APPENDETAB.ENDLOOP.增加一個例程就5個簡單步驟：Exits-name= '****'表示出口例程名稱。exits-param= '***'只有c_exit_param_none/field/class3種，表示例程的用法exits-title='***'例程的抬頭顯示APPENDexits.表示增加該出口例程。接下來定義一個例程 Form****/endform. 在例程中編寫替代邏輯。接下來根據(jù)業(yè)務背景編寫邏輯 ，假設使用Form100,其類型c_exit_param_none,可用于“OnlyExit”，參考代碼如下表：FORMU100.DATA:Z_PSTDATETYPESY-DATUM,Z_CURPERLIKET009B-POPER,Z_CURYEARLIKET009B-BDATJ,Z_PSTPERLIKET009B-POPER,Z_PSTYEARLIKET009B-BDATJ,Z_PERLSTDAYLIKESY-DATUM.Ifbseg-hkont= '這填寫您的業(yè)務招待費科目‘ ^BSEG-SGTXT='業(yè)務招待費,."For業(yè)務招待費用文本摘要.Endif.如果期初發(fā)生上期的財務憑證過帳 ，則自動將過帳日期一律調(diào)整為上期期末最后一天 .*checkpostingdate'speriodandfiscalyearCALLFUNCTION'DETERMINE_PERIOD'EXPORTINGDATE =BKPF-BUDATVERSION ='Z1'" 你的會計年度變式，國內(nèi)多是K4IMPORTINGPERIOD =Z_PSTPERYEAR =Z_PSTYEAR.*checksysdate'speriodandfiscalyearCALLFUNCTION'DETERMINE_PERIOD'EXPORTINGDATE =SY-DATUMVERSION ='Z1'"FiscalYearVar.IMPORTINGPERIOD =Z_CURPERYEAR =Z_CURYEAR.能否在輸入的postingdate記帳讓系統(tǒng)去判斷.CHECKZ_CURYEAR<>Z_PSTYEARORZ_PSTPER<>Z_CURPER.如postingdate不在本期間得到其期間最后一天Z_PSTPER=Z_PSTPER+1.CALLFUNCTION'FIRST_DAY_IN_PERIOD_GET'EXPORTINGI_GJAHR =Z_PSTYEARI_PERIV='Z1'I_POPER =Z_PSTPERIMPORTINGE_DATE=Z_PERLSTDAY.無論用戶選擇過帳到上期哪一天 ，都將過帳日期設置為最后一天BKPF-BUDAT=Z_PERLSTDAY-1.BKPF-MONAT=ZPSTPER.通過上面的業(yè)務我們可以看到，替代+用戶出口能實現(xiàn)更復雜的業(yè)務 ，而這些業(yè)務通常是簡單的拖拽實現(xiàn)不了的，再舉一個典型的有用的替代實例。業(yè)務背景：在SAP中，供應商主數(shù)據(jù)的科目只有一個比如通常設置的是應付帳款， 在SAP中，科目和中國傳統(tǒng)會計不一樣，其科目是不強調(diào)層級的， 比如應付帳款，國內(nèi)ERP可能會帶供應商項目等幾個核算項目，SAP采用另一種方式，它將供應商直接看成明細科目，從其主數(shù)據(jù)自動帶出應付帳款，如果還需要區(qū)分是什么項目的應付，則可采用統(tǒng)計內(nèi)部訂單或特殊總帳標志，但是，在后勤發(fā)票校驗(Tcode:MIRO時卻不能使用特殊總帳標志。這樣，比如企業(yè)從同一供應商購買生產(chǎn)用材料 (對應普通應付帳款)和項目材料(對應應付項目款)且需要從會計科目上就直接區(qū)分時兩種應付時就有點小麻煩。一般的思路有這么些：I.因為同一供應商主數(shù)據(jù)中只能有一個科目又不能特殊總帳標志， 建議拆分成多個虛擬供應商來對應不同科目，此法嚴重違反編碼唯一性原則，賊笨。II.會計科目還是使用同一個應付帳款科目 ，附加一個字段比如文本/參考字段來區(qū)分同一供應商的不同應付，假設供應商還承包了你的在建項目有涉及應付勞務 ，如果僅用一個文本區(qū)分不嚴謹，也沒有從科目上直接區(qū)分那樣直觀。III.使用科目替代方式解決，直接從科目上區(qū)分不同應付款。參考步驟如下：a.SE16:V_T053定義行文本標志，其中 ZNOR:MIRO普通應付和ZPSC:MIRO項目應付。b.建立特殊總>帳標志9表示應付項目款，并設置好應付項目款會計科目。c.使用Onlyexit出口替代，這樣使用替代就直接從科目上就區(qū)分出了應付帳款類型，參考代碼如下表(參考使用，責任自負)：FORMU100.DATA:IWA_T074LIKET074,I_ANS(1)TypeC.Check(SY-Tcode='MIRO'ORSY-Tcode='MR8M')andBSEG-KOART='K'. “檢查是否為發(fā)票校驗事務condensebseg-sgtxt.判斷用戶必須輸入文本摘要而且MIRO/MR81M?只能是ZNOR口ZPSCifbseg-sgtxt<>'MIRO 普通應付’andbseg-sgtxt<>'MIRO 項目應付’.messageE001(00)with'ChooseZNORorZPSC'.endif.如果文本輸入應付項目款則從特殊總帳配置中讀取應付項目款項目替代應付帳款ifbseg-sgtxt='MIRO項目應付'.I_ANS='9'." 特殊總帳標志9表示應付項目款SELECTSINGLE*INTOIWA_T074FROMT074WHEREKTOPL='INT'ANDKOART='K'ANDUMSKZ=I_ANSANDHKONT=BSEG-HKONT.IFIWA_T074-HKONTNESPACE.BSEG-HKONT=IWA_T074-HKONT."特殊總帳科目BSEG-UMSKZ=I_ANS." 特別總帳標示BSEG-UMSKS='A'." 特別總帳事務類型， A,WOSAP高度集成替代必須考慮其它模塊影響，替代同時也替代特殊總帳的計劃層次。BSEG-FDLEV=IWA_T074-EBENE." 特殊總帳計劃層次，如果啟動CBMBSEG-BSCHL+1(1)='9'." 記賬碼的第一碼

ENDIF.endif.endform.為什么你的替代不起作用？替代不起作用通常有兩個原因：一.系統(tǒng)默認不允許你替代該字段內(nèi)容。SAP將所有的允許字段替代關系維護在 GB01表中，如果該表中沒有出現(xiàn)你的替代字段，你是不能替代的，比如會計科目BSEG-HKONT常是不允許替代的，你就需要在此表增加。二.替代程序需要重新自動編譯。在一些特殊情況下，你發(fā)現(xiàn)你的Validaton和Substitution 都不起作用了，SE38運行程序RGUGBR00|RGUGBR00W能選的項目全選上手工重新編譯就行。替代如何工作?相關表格：GB011T001Q|T80D|GB031GB03T|GB311GB31T||GB9071GB901GB921GB9221GB901|OXT_GENOBJDTL|相關函數(shù)和程序：FI_SUBSTITUTION_ACTIVE|FI_SUBSTITUTION_DOC||FI_SUBSTITUTION_HEADER|FI_SUBSTITUTION_ITEM|GBTDMFI0|GBTDMFIJ|RGUGBR00|RGUGBR00|GBTDMFIJ|GBTDMFIG|MF05AIENJ,■』唱 1F06AIEKJ *J& WNRLineIteL I客stwedtnXB5EC 1* headrr dataLestoredinXBKPF for othtrheader5.EveryGLLineIt”inIBSEGIHDEIGM2Isdiecktd+ andMODIFled瓦Documentlaready3bepoitedorfliulttedI* 7. O05AfieldsforgIHmpostingr<>utlne>ofIF2j￡<^reianpleIf orOFF，戶IIf?。=dxwent_>erg&IXPUT.fcKVIFerr.at_ccMchajn?e■*X*,-JCLEAKerr_st_cc_chanae+LEAVETO9CR￡E1sy-dyxmr..EKDIF.PfRFORIcopany^codereadUSINGbkpf^bukrs.FrRFORIbclreart_pruefen(sapff001)(JSIBGbkpf"blartbkpf-gjahr.在會計憑證的主程序SAPMF05A勺子仞^程MF05AIENJ中,Moduledocument_mergeINPUT是檢查和替代的處理入口簡單理解，系統(tǒng)將用戶自屏幕上輸入的信息首先保存在一些臨時內(nèi)表中 ，當通過所有的業(yè)務檢查時最后保存到數(shù)據(jù)庫，替代則是根據(jù)用戶設置的條件去退換掉內(nèi)表的一些臨時內(nèi)容從而保存到一些字段內(nèi)容最終保存到數(shù)據(jù)庫時是用戶替換的內(nèi)容。 在敘述SAP增強時會詳細描述這個機制。對于原因代碼的替代SAP所有模塊的替代字段都由表 GB01控制。所謂releasefieldsforsubstitution,就是在對應的BOOLCLASS中添加該字段，或者將該字段的GB01-BEXCLUDE='X'改為GB01-BEXCLUDE=''。BOOLCLASS(Booleanclass)對于FI/CO,BOOLCLASS對應的是調(diào)用點：BOOLCLASS=008atcalluppoint1BOOLCLASS=009atcalluppoint2

BOOLCLASS=015atcalluppoint3release所以的字段，因為有如下 entries：BCLFIELDBEXCLUDE對于調(diào)用點release所以的字段，因為有如下 entries：BCLFIELDBEXCLUDEBOOLCLASSCLASSTYPEBCLTAB1