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

会计凭证过账开发我们在生成凭证时候，可以选择用BDC的方式，但是由于凭证多种多样，使用BDC的话会力不从心，SAP提供了BAPI_ACC_DOCUMENT_POST这一BAPI来实现批量凭证的生成。使用该BAPI是必须做一个BADI增强，主要是把诸如记账码之类的行项目必须输入的字段导入。事务码：SE11,创建一个结构激活它。创建3@堀事务码：SE19下面增加一个Filter下面增加一个Filter：新增一条BKPFF（会计凭证直接输入）的Filter,这个参考业务类型一定要选，否则不会调用保存，如果保存时出现了下面这个消息，说明你必须将你做的ClassicBadi迁移到NewBadi。此时可以选择已有的或创建新的BadiEnhancementImplementation。我们选择创建新的。下面已经增加成功建好之后系统提示：0ImplementadonZ_DOCUMEfJT_BADIwassaved激活它。删除原始Classic3@出，事务码：SE19回到SE19,如果进行了迁移，则在双击我们新建的NewBadi的时候会报出消息:

EnhancementImplementationZ_DOCUMENT_BADIDisplay小牛多翳W枭口回4冕菖匚IIH黑2国能EnhancementImplementation ZDOCUMENTEADI 'ActivePropertiesHistoryTechnicalDetails^增强实施元素|豆||至|l叵1圆］ EM实施 Z_DOCUMENT_EADI 画百bC7实施 描述 凭证过账增强 一♦i MEFITZbADIH口缺省实施□示例实施□不可切换贯穿定制（IMG）的」激活”运行时行为口实施激活在当前客户端中有效： 实施已调用BAdl定义的属性IDMdl定义EAD1ACCDOCUMENT描述 _AnderungdesexternenBelegeEvorAufrufdesRW-Interra接口 」IFEXACCDOCUMENT J实例创建模式 」上下文相关BAdl01配1实施从分类中迁移口日配1实施乙DCiaJMENTBADL,更改1或删除）原蛤实施口|①T »DEI：⑷700.所以我们删除我们之前创建的Z_MY_ACC_DOCUMENT,才能保证这个增强能够被正常调用。

删除ClassicBadi时，系统首先提示:这个选择Yes随后系统又提示:这个提示的意思是询问，是否删除从这个ClassicBadi迁移过去的NewBadi。显然要保留，这个选择No编辑代码在NewBadi里面显示Z_MY_ACC_DOCUMENT，此时将不会报出需要删除ClassicBadi的警告了。双击CHANGE方法即可进入编辑。PropertieBHistoryTechnicalDetai^增强实施元素同亘1叵回回实施实施类描述接口 J实施类 JIF_EX_ACC_D0CUMENT-CHANGEIF_EX_ACC_D0CUMENT-FILL_ACC]IFE工ACCDOCUMENT♦本Z_DOCUMEfJT_BADI凭证过账增强ZCLIMDOCUMENTBADI+整实施类 简短描述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方法中参数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.&——RETURNPARAMETERDATA:RETURNTYPESTANDARDTABLEOFBAPIRET2WITHHEADERLINE.&——it_extension2ITEMSdata:IT_EXTENSION2typestandardtableofBAPIPAREXwithheaderline.&-WORKAREAFORZFIDOCEXTDATA:WA_ZFIDOCEXTLIKEZFIDOCEXT."ZFIDOCEXT就是刚才SE11创建的那个结构***ACCOUNTRECEIVABLEBAPIACAR09SP_GL_IND特殊总分类帐标志客户项目*******ACCOUNTPAYABLEBAPIACAP09ACCOUNTPAYABLE特殊总分类帐标志 供应商项目、上、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、上、上**********************************************************************赋值、上、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、卜、上、上**********************************************************************start-of-selection.&EXTENSION2扩展字段增强部分WA_ZFIDOCEXTPOSNR='0000000010'."凭证行项目WA_ZFIDOCEXT-RSTGR='01'."凭证行项目原因代码WA_ZFIDOCEXTBSCHL='40'."记账码IT_EXTENSION2-STRUCTURE='ZFIDOCEXT'.IT_EXTENSION2VALUEPART1=WA_ZFIDOCEXTappendIT_EXTENSION2.WA_ZFIDOCEXTPOSNR='0000000020'."凭证行项目WA_ZFIDOCEXT-RSTGR='15'."凭证行项目原因代码WA_ZFIDOCEXTBSCHL='50'."记账码IT_EXTENSION2-STRUCTURE='ZFIDOCEXT'.IT_EXTENSION2VALUEPART1二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'."凭证类型SA"HEADER-FIS_PERIOD='07'."会计期间”交易业务WA_ACCOUNTGLITEMNO_ACC='0000000010'."会计凭证行项目编号*下面写法WA_ACCOUNTGLGL_ACCOUNT='1001001000'."’0055010616'."总分类帐帐目005501010116030000'00A000000-0'."WA_ACCOUNTGL-ASSET_NO='A000000'."主资产号，前面不能补0"WA_ACCOUNTGL-SUB_NUMBER='0000'. "次级资产号"WA_ACCOUNTGL-ACCT_TYPE='A'."如果是固定资产科目，必须输入A"WA_ACCOUNTGL-COSTCENTER='BJ1A01'."成本中心WA_ACCOUNTGLITEM_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_ACCOUNTGLWA_ACCOUNTGLITEMNO_ACC='0000000020'."会计凭证行项目编号WA_ACCOUNTG-GL_ACCOUNT='1002002600'."总分类帐帐目"WA_ACCOUNTGL-COSTCENTER='BJ1A01'."成本中心、WA_ACCOUNTGLITEM_TEXT='行项目文本2'."WA_ACCOUNTGL-QUANTITY='123'."数量"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'.”行项目编号WA_CURRENCY_AMOUNTAMT_DOCCUR='-500'.”贷方一定是负数金额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