FI會(huì)計(jì)憑證過賬增加記賬碼

會(huì)計(jì)憑證過賬開發(fā)我們?cè)谏蓱{證時(shí)候，可以選擇用BDC的方式，但是由于憑證多種多樣，使用BDC的話會(huì)力不從心，SAP提供了BAPI_ACC_DOCUMENT_POST這一BAPI來(lái)實(shí)現(xiàn)批量憑證的生成。使用該BAPI是必須做一個(gè)BADI增強(qiáng)，主要是把諸如記賬碼之類的行項(xiàng)目必須輸入的字段導(dǎo)入。事務(wù)碼：SE11,創(chuàng)建一個(gè)結(jié)構(gòu)激活它。創(chuàng)建3@堀事務(wù)碼：SE19下面增加一個(gè)Filter下面增加一個(gè)Filter：新增一條BKPFF（會(huì)計(jì)憑證直接輸入）的Filter,這個(gè)參考業(yè)務(wù)類型一定要選，否則不會(huì)調(diào)用保存，如果保存時(shí)出現(xiàn)了下面這個(gè)消息，說明你必須將你做的ClassicBadi遷移到NewBadi。此時(shí)可以選擇已有的或創(chuàng)建新的BadiEnhancementImplementation。我們選擇創(chuàng)建新的。下面已經(jīng)增加成功建好之后系統(tǒng)提示：0ImplementadonZ_DOCUMEfJT_BADIwassaved激活它。刪除原始Classic3@出，事務(wù)碼：SE19回到SE19,如果進(jìn)行了遷移，則在雙擊我們新建的NewBadi的時(shí)候會(huì)報(bào)出消息:

EnhancementImplementationZ_DOCUMENT_BADIDisplay小牛多翳W梟口回4冕菖匚IIH黑2國(guó)能EnhancementImplementation ZDOCUMENTEADI 'ActivePropertiesHistoryTechnicalDetails^增強(qiáng)實(shí)施元素|豆||至|l叵1圓］ EM實(shí)施 Z_DOCUMENT_EADI 畫百bC7實(shí)施 描述 憑證過賬增強(qiáng) 一?i MEFITZbADIH口缺省實(shí)施□示例實(shí)施□不可切換貫穿定制（IMG）的」激活”運(yùn)行時(shí)行為口實(shí)施激活在當(dāng)前客戶端中有效： 實(shí)施已調(diào)用BAdl定義的屬性IDMdl定義EAD1ACCDOCUMENT描述 _AnderungdesexternenBelegeEvorAufrufdesRW-Interra接口 」IFEXACCDOCUMENT J實(shí)例創(chuàng)建模式 」上下文相關(guān)BAdl01配1實(shí)施從分類中遷移口日配1實(shí)施乙DCiaJMENTBADL,更改1或刪除）原蛤?qū)嵤┛趞①T ?DEI：⑷700.所以我們刪除我們之前創(chuàng)建的Z_MY_ACC_DOCUMENT,才能保證這個(gè)增強(qiáng)能夠被正常調(diào)用。

刪除ClassicBadi時(shí)，系統(tǒng)首先提示:這個(gè)選擇Yes隨后系統(tǒng)又提示:這個(gè)提示的意思是詢問，是否刪除從這個(gè)ClassicBadi遷移過去的NewBadi。顯然要保留，這個(gè)選擇No編輯代碼在NewBadi里面顯示Z_MY_ACC_DOCUMENT，此時(shí)將不會(huì)報(bào)出需要?jiǎng)h除ClassicBadi的警告了。雙擊CHANGE方法即可進(jìn)入編輯。PropertieBHistoryTechnicalDetai^增強(qiáng)實(shí)施元素同亙1叵回回實(shí)施實(shí)施類描述接口 J實(shí)施類 JIF_EX_ACC_D0CUMENT-CHANGEIF_EX_ACC_D0CUMENT-FILL_ACC]IFE工ACCDOCUMENT?本Z_DOCUMEfJT_BADI憑證過賬增強(qiáng)ZCLIMDOCUMENTBADI+整實(shí)施類 簡(jiǎn)短描述AnderndesRec[T Fiilienderinteri+靠過濾器值代碼示例:methodIF_EX_ACC_DOCUMENT-CHANGE.data:WA_EXTENSIONtypeBAPIPAREX,ZEXT_DATAtypeZFIDOCEXT.field-symbols:<ACCIT>typeACCIT.ifC_EXTENSION2[]isnotinitial.loopatC_EXTENSION2intoWA_EXTENSIONwhereSTRUCTURE='ZFIDOCEXT'.ZEXT_DATA=WA_EXTENSIONVALUEPART1.readtableC_ACCITassigning<ACCIT>withkeyPOSNR=ZEXT_DATAPOSNR.ifSY-SUBRC=0.<ACCIT>BSCHL=ZEXT_DATABSCHL.<ACCIT>RSTGR=ZEXT_DATARSTGR.endif.endloop.endif.endmethod.代碼釋義CHANGE方法中參數(shù)FLT_VAL,C_ACCHD,C_ACCIT,C_ACCCR,C_ACCWT,C_ACCTX均與憑證數(shù)據(jù)相關(guān)。C_EXTENSION2中傳入的數(shù)據(jù)即為BAPI_ACC_DOCUMENT_POST中EXTENSION2參數(shù)。BAPIPAREX-TE_STRUC為數(shù)據(jù)字典中結(jié)構(gòu)的名稱，其余為擴(kuò)展數(shù)據(jù)。上面例子中，生成BAPI的EXTENTION2參數(shù)時(shí)，就是按照Z(yǔ)FIDOCEXT的數(shù)據(jù)結(jié)構(gòu)順序?qū)懭氲?，讀取時(shí)也按照相同的方式讀取即可。根據(jù)參數(shù)里面的類型和說明來(lái)判斷某個(gè)參數(shù)對(duì)應(yīng)憑證中的什么數(shù)據(jù)，將BAPI中無(wú)法傳入的數(shù)據(jù)從EXTENTION2里面取出，傳入CHANGE的參數(shù)里面即可。下面是一個(gè)調(diào)用的例子程序，在ECC6下測(cè)試通過*& *&ReportZFI090*&*& *&*&*& reportZFI090.tables:ZFIDOCEXT.data:WA_ZFIDOCEXTlikeZFIDOCEXToccurs0withheaderline.data:HEADERlikeBAPIACHE09occurs0withheaderline.data:WA_ACCOUNTTAXlikeBAPIACTX09occurs0withheaderline.data:WA_ACCOUNTGLlikeBAPIACGL09occurs0withheaderline.data:WA_CURRENCY_AMOUNTlikeBAPIACCR09occurs0withheaderline.data:RETURNlikeBAPIRET2occurs0withheaderline.data:RETURN1likeBAPIRET2occurs0withheaderline.使用BAPI_ACC_DOCUMENT_POST參數(shù)表EXTENSION2,將擴(kuò)展字段傳入、上、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、上、上***********************************************************************INTERNALTABLEDECLARATION、上、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、上、上**********************************************************************&--G/LACCOUNTITEMdata:ACCOUNTGLtypestandardtableofBAPIACGL09.data:ACCOUNTTAXtypestandardtableofBAPIACTX09.&-CURRENCYITEMSdata:CURRENCY_AMOUNTtypestandardtableofBAPIACCR09.&——RETURNPARAMETERDATA:RETURNTYPESTANDARDTABLEOFBAPIRET2WITHHEADERLINE.&——it_extension2ITEMSdata:IT_EXTENSION2typestandardtableofBAPIPAREXwithheaderline.&-WORKAREAFORZFIDOCEXTDATA:WA_ZFIDOCEXTLIKEZFIDOCEXT."ZFIDOCEXT就是剛才SE11創(chuàng)建的那個(gè)結(jié)構(gòu)***ACCOUNTRECEIVABLEBAPIACAR09SP_GL_IND特殊總分類帳標(biāo)志客戶項(xiàng)目*******ACCOUNTPAYABLEBAPIACAP09ACCOUNTPAYABLE特殊總分類帳標(biāo)志 供應(yīng)商項(xiàng)目、上、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、上、上**********************************************************************賦值、上、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、上、上**********************************************************************start-of-selection.&EXTENSION2擴(kuò)展字段增強(qiáng)部分WA_ZFIDOCEXTPOSNR='0000000010'."憑證行項(xiàng)目WA_ZFIDOCEXT-RSTGR='01'."憑證行項(xiàng)目原因代碼WA_ZFIDOCEXTBSCHL='40'."記賬碼IT_EXTENSION2-STRUCTURE='ZFIDOCEXT'.IT_EXTENSION2VALUEPART1=WA_ZFIDOCEXTappendIT_EXTENSION2.WA_ZFIDOCEXTPOSNR='0000000020'."憑證行項(xiàng)目WA_ZFIDOCEXT-RSTGR='15'."憑證行項(xiàng)目原因代碼WA_ZFIDOCEXTBSCHL='50'."記賬碼IT_EXTENSION2-STRUCTURE='ZFIDOCEXT'.IT_EXTENSION2VALUEPART1二WA_ZFIDOCEXT.appendIT_EXTENSION2.其他參數(shù)表的字段賦值如下例HEADER-BUS_ACT二'RMWE'."交易業(yè)務(wù)，必須是這個(gè)，可能和FI后臺(tái)配置有關(guān)HEADER-HEADER_TXT二'這是憑證抬頭文本'.HEADER-USERNAME二SY-UNAME."SY-UNAME."用戶名，也可以直接輸入中文名字HEADER-COMP_CODE='1000'."公司代碼HEADER-DOC_DATE='20120725'."憑證中的憑證日期HEADER-PSTNG_DATE='20120725'."憑證中的記帳日期HEADER-DOC_TYPE='SA'."憑證類型SA"HEADER-FIS_PERIOD='07'."會(huì)計(jì)期間”交易業(yè)務(wù)WA_ACCOUNTGLITEMNO_ACC='0000000010'."會(huì)計(jì)憑證行項(xiàng)目編號(hào)*下面寫法WA_ACCOUNTGLGL_ACCOUNT='1001001000'."’0055010616'."總分類帳帳目005501010116030000'00A000000-0'."WA_ACCOUNTGL-ASSET_NO='A000000'."主資產(chǎn)號(hào)，前面不能補(bǔ)0"WA_ACCOUNTGL-SUB_NUMBER='0000'. "次級(jí)資產(chǎn)號(hào)"WA_ACCOUNTGL-ACCT_TYPE='A'."如果是固定資產(chǎn)科目，必須輸入A"WA_ACCOUNTGL-COSTCENTER='BJ1A01'."成本中心WA_ACCOUNTGLITEM_TEXT='行項(xiàng)目文本1'."WA_ACCOUNTGL-QUANTITY='123'.”數(shù)量"WA_ACCOUNTGL-BASE_UOM='EA'."單位"WA_ACCOUNTGL-COMP_CODE='1000'.公司代碼***事物類型"WA_ACCOUNTGL-CS_TRANS_T='100'."固定資產(chǎn)事務(wù)類型appendWA_ACCOUNTGLtoACCOUNTGL.clearWA_ACCOUNTGLWA_ACCOUNTGLITEMNO_ACC='0000000020'."會(huì)計(jì)憑證行項(xiàng)目編號(hào)WA_ACCOUNTG-GL_ACCOUNT='1002002600'."總分類帳帳目"WA_ACCOUNTGL-COSTCENTER='BJ1A01'."成本中心、WA_ACCOUNTGLITEM_TEXT='行項(xiàng)目文本2'."WA_ACCOUNTGL-QUANTITY='123'."數(shù)量"WA_ACCOUNTGL-BASE_UOM二'EA'."單位"WA_ACCOUNTGL-COMP_CODE='1000'."公司代碼appendWA_ACCOUNTGLtoACCOUNTGL.clearWA_ACCOUNTGL*WA_CURRENCY_AMOUNTITEMNO_ACC='0000000010'.WA_CURRENCY_AMOUNTAMT_DOCCUR='500'.WA_CURRENCY_AMOUN-CURRENCY='CNY'."WA_CURRENCY_AMOUNT-EXCH_RATE='2'.appendWA_CURRENCY_AMOUNTtoCURRENCY_AMOUNT.clearWA_CURRENCY_AMOUNTWA_CURRENCY_AMOUNTITEMNO_ACC='0000000020'.”行項(xiàng)目編號(hào)WA_CURRENCY_AMOUNTAMT_DOCCUR='-500'.”貸方一定是負(fù)數(shù)金額WA_CURRENCY_AMOUN-CURRENCY='CNY'."WA_CURRENCY_AMOUNT-EXCH_RATE='2'.appendWA_CURRENCY_AMOUNTtoCURRENCY_AMOUNT.clearWA_CURRENCY_AMOUNT*BAPI_ACC_DOCUMENT_POST嘉入COPA特性值sunDATA:IT_CRITERIALIKETABLEOFBAPIA