FI会计凭证过账增加记账码.doc

会计凭证过账开发我们在生成凭证时候，可以选择用BDC的方式，但是由于凭证多种多样，使用BDC的话会力不从心，SAP提供了BAPI_ACC_DOCUMENT_POST这一BAPI来实现批量凭证的生成。使用该BAPI是必须做一个BADI增强，主要是把诸如记账码之类的行项目必须输入的字段导入。事务码：SE11，创建一个结构激活它。创建Badi，事务码：SE19下面增加一个Filter：新增一条BKPFF(会计凭证直接输入)的Filter，这个参考业务类型一定要选，否则不会调用保存，如果保存时出现了下面这个消息，说明你必须将你做的Classic Badi迁移到New Badi。此时可以选择已有的或创建新的Badi Enhancement Implementation。我们选择创建新的。下面已经增加成功建好之后系统提示：激活它。删除原始Classic Badi，事务码：SE19回到SE19，如果进行了迁移，则在双击我们新建的New Badi的时候会报出消息：所以我们删除我们之前创建的Z_MY_ACC_DOCUMENT，才能保证这个增强能够被正常调用。删除Classic Badi时，系统首先提示：这个选择Yes随后系统又提示：这个提示的意思是询问，是否删除从这个Classic Badi迁移过去的New Badi。显然要保留，这个选择No编辑代码在New Badi里面显示Z_MY_ACC_DOCUMENT，此时将不会报出需要删除Classic Badi的警告了。双击CHANGE方法即可进入编辑。代码示例：methodIF_EX_ACC_DOCUMENTCHANGE.data:WA_EXTENSIONtypeBAPIPAREX,ZEXT_DATAtypeZFIDOCEXT.field-symbols:typeACCIT.ifC_EXTENSION2isnotinitial.loopatC_EXTENSION2intoWA_EXTENSIONwhereSTRUCTURE=ZFIDOCEXT.ZEXT_DATA=WA_EXTENSION-VALUEPART1.readtableC_ACCITassigningwithkeyPOSNR=ZEXT_DATA-POSNR.ifSY-SUBRC=0.-BSCHL=ZEXT_DATA-BSCHL.-RSTGR=ZEXT_DATA-RSTGR.endif.endloop.endif.endmethod.代码释义CHANGE方法中参数FLT_VAL，C_ACCHD，C_ACCIT，C_ACCCR，C_ACCWT，C_ACCTX均与凭证数据相关。C_EXTENSION2中传入的数据即为BAPI_ACC_DOCUMENT_POST中EXTENSION2参数。BAPIPAREX-TE_STRUC为数据字典中结构的名称，其余为扩展数据。上面例子中，生成BAPI的EXTENTION2参数时，就是按照ZFIDOCEXT的数据结构顺序写入的，读取时也按照相同的方式读取即可。根据参数里面的类型和说明来判断某个参数对应凭证中的什么数据，将BAPI中无法传入的数据从EXTENTION2里面取出，传入CHANGE的参数里面即可。下面是一个调用的例子程序，在ECC6下测试通过*&-*&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参数表EXTENSION2，将扩展字段传入*INTERNALTABLEDECLARATION*&-G/LACCOUNTITEMdata:ACCOUNTGLtypestandardtableofBAPIACGL09.data:ACCOUNTTAXtypestandardtableofBAPIACTX09.*&CURRENCYITEMSdata:CURRENCY_AMOUNTtypestandardtableofBAPIACCR09.*&-RETURNPARAMETER*DATA:RETURNTYPESTANDARDTABLEOFBAPIRET2WITHHEADERLINE.*&-it_extension2ITEMSdata:IT_EXTENSION2typestandardtableofBAPIPAREXwithheaderline.*&WORKAREAFORZFIDOCEXT*DATA:WA_ZFIDOCEXTLIKEZFIDOCEXT.ZFIDOCEXT就是刚才SE11创建的那个结构*ACCOUNTRECEIVABLEBAPIACAR09SP_GL_IND特殊总分类帐标志客户项目*ACCOUNTPAYABLEBAPIACAP09ACCOUNTPAYABLE特殊总分类帐标志供应商项目*赋值*start-of-selection.*&EXTENSION2扩展字段增强部分WA_ZFIDOCEXT-POSNR=0000000010.凭证行项目WA_ZFIDOCEXT-RSTGR=01.凭证行项目原因代码WA_ZFIDOCEXT-BSCHL=40.记账码IT_EXTENSION2-STRUCTURE=ZFIDOCEXT.IT_EXTENSION2-VALUEPART1=WA_ZFIDOCEXT.appendIT_EXTENSION2.WA_ZFIDOCEXT-POSNR=0000000020.凭证行项目WA_ZFIDOCEXT-RSTGR=15.凭证行项目原因代码WA_ZFIDOCEXT-BSCHL=50.记账码IT_EXTENSION2-STRUCTURE=ZFIDOCEXT.IT_EXTENSION2-VALUEPART1=WA_ZFIDOCEXT.appendIT_EXTENSION2.*其他参数表的字段赋值如下例HEADER-BUS_ACT=RMWE.交易业务，必须是这个，可能和FI后台配置有关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.凭证类型SAHEADER-FIS_PERIOD=07.会计期间交易业务WA_ACCOUNTGL-ITEMNO_ACC=0000000010.会计凭证行项目编号*下面写法WA_ACCOUNTGL-GL_ACCOUNT=1001001000.0055010616.总分类帐帐目00550101011603000000A000000-0.WA_ACCOUNTGL-ASSET_NO=A000000.主资产号，前面不能补0WA_ACCOUNTGL-SUB_NUMBER=0000.次级资产号WA_ACCOUNTGL-ACCT_TYPE=A.如果是固定资产科目，必须输入AWA_ACCOUNTGL-COSTCENTER=BJ1A01.成本中心WA_ACCOUNTGL-ITEM_TEXT=行项目文本1.WA_ACCOUNTGL-QUANTITY=123.数量WA_ACCOUNTGL-BASE_UOM=EA.单位WA_ACCOUNTGL-COMP_CODE=1000.公司代码*事物类型WA_ACCOUNTGL-CS_TRANS_T=100.固定资产事务类型appendWA_ACCOUNTGLtoACCOUNTGL.clearWA_ACCOUNTGL.WA_ACCOUNTGL-ITEMNO_ACC=0000000020.会计凭证行项目编号WA_ACCOUNTGL-GL_ACCOUNT=1002002600.总分类帐帐目WA_ACCOUNTGL-COSTCENTER=BJ1A01.成本中心WA_ACCOUNTGL-ITEM_TEXT=行项目文本2.WA_ACCOUNTGL-QUANTITY=123.数量WA_ACCOUNTGL-BASE_UOM=EA.单位WA_ACCOUNTGL-COMP_CODE=1000.公司代码appendWA_ACCOUNTGLtoACCOUNTGL.clearWA_ACCOUNTGL.*WA_CURRENCY_AMOUNT-ITEMNO_ACC=0000000010.WA_CURRENCY_AMOUNT-AMT_DOCCUR=500.WA_CURRENCY_AMOUNT-CURRENCY=CNY.WA_CURRENCY_AMOUNT-EXCH_RATE=2.appendWA_CURRENCY_AMOUNTtoCURRENCY_AMOUNT.clearWA_CURRENCY_AMOUNT.WA_CURRENCY_AMOUNT-ITEMNO_ACC=0000000020.行项目编号WA_CURRENCY_AMOUNT-AMT_DOCCUR=-500.贷方一定是负数金额WA_CURRENCY_AMOUNT-CURRENCY=CNY.WA_CURRENCY_AMOUNT-EXCH_RATE=2.appendWA_CURRENCY_AMOUNTtoCURRENCY_AMOUNT.clearWA_CURRENCY_AMOUNT.*BAPI_ACC_DOCUMENT_POST寫入COPA特性值sun*DATA:IT_CRITERIALIKETABLEOFBAPIACKEC9WITHHEADERLINE.*IT_CRITERIA-ITEMNO_ACC=ITAB-BUZEI.*IT_CRITERIA-FIELDNAME=VTWEG.*IT_CRITERIA-CHARACTER=ITAB-VTWEG.*APPENDIT_CRITERIA.CLEARIT_CRITERIA.*sun*执行BAPIcallfunctionBAPI_ACC_DOCUMENT_POSTexportingDOCUMENTHEADER=HEADER*CUSTOMERCPD=*CONTRACTHEADER=*IMPORTING*OBJ_TYPE=*OBJ_KEY=*OBJ_SYS=tablesACCOUNTGL=ACCOUNTGL*ACCOUNTRECEIVABLE=*ACCOUNTPAYABLE=ACCOUNTTAX=ACCOUNTTAXCURRENCYAMOUNT=CURRENCY