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

会计凭证过账开发 我们在生成凭证时候，可以选择用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编辑代码 method?IF_EX_ACC_DOCUMENT~CHANGE.??data:?WA_EXTENSION?type?BAPIPAREX,????????ZEXT_DATA????type?ZFIDOCEXT.??field-symbols:?ACCIT?type?ACCIT.??if?C_EXTENSION2[]?is?not?initial.????loop?at?C_EXTENSION2?into?WA_EXTENSION????where?STRUCTURE?=?ZFIDOCEXT.??????ZEXT_DATA?=?WA_EXTENSION-VALUEPART1.??????read?table?C_ACCIT?assigning?ACCIT?with?key?POSNR?=?ZEXT_DATA-POSNR.??????if?SY-SUBRC?=?0.????????ACCIT-BSCHL?=?ZEXT_DATA-BSCHL.????????ACCIT-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下测试通过 *---------------------------------------------------------------------**?Report??ZFI090**---------------------------------------------------------------------****---------------------------------------------------------------------*report??ZFI090.tables:?ZFIDOCEXT.data:?WA_ZFIDOCEXT?like?ZFIDOCEXT?occurs?0?with?header?line.data:?HEADER?like?BAPIACHE09?occurs?0?with?header?line.data:?WA_ACCOUNTTAX??like?BAPIACTX09?occurs?0?with?header?line.data:?WA_ACCOUNTGL??like?BAPIACGL09??occurs?0?with?header?line.data:?WA_CURRENCY_AMOUNT??l