更改Billing记账时ac ument的金额.docVIP

问题描述： 现在有个问题是用户希望变更Billing 生成FI凭证时，某个字段的金额不用默认的，BSEG-DMBE2 这个字段 涉及到的标准程序： RV_ACCOUNTING_DOCUMENT_CREATE AC_DOCUMENT_CREATE 最后产生的凭证是以下的 原来方框里的内容是根据汇率算出来的，但是现在的是material master里输入的（account1）那个tab里的 最初的办法：RV_ACCOUNTING_DOCUMENT_CREATE 中调用了 EXIT_SAPLV60B_008 这个user-exit。 * possibility to change interface tables call customer-function 008 exporting cvbrk = vbrk doc_number = xvbrp_key-vbeln tables xaccit = xaccit xacccr = xacccr cvbrp = xvbrp ckomv = xkomv caccdpc = accdpc. 于是我们在这个exit里修改了相应的内容，但是后面是有check的 这个下一步是找到所有TRWPR表中是DOCUMENT CHECK类型的函数并且分别调用 我们的方法是在check 之前做的操作，对于30类型的金额进行了增加。所以在FI_DOCUMENT_CHECK这个函数里，check_accit的时候check SUBST_AMOUNTS 这个form里来检查 在form PERFORM CHECK_CURRENCY_CONSISTENCY TABLES ICURTP USING ACCIT_FI-POSNR CHANGING COUNT. 这里面报错的。原因就是我们更改了ACCIT_FI中的内容，检查逻辑过不去。 系统标准的做法是在这个check之后面更新了按照汇率来的金额。所以我们需要找到一个在check之后的地方来增加我们的逻辑。 这个和BTE类似，我们可以想到在check的时候，所执行的操作并不是只有一个FI_DOCUMENT_CHECK这个，我们可以发现lr_wrpwr这个内表里还有Z开头的函数，我们可以尝试在哪里面修改。 因为他们也会被操作到。这就是TRWPR里check时会用到的程序，我们选择Z_EI_FI_DOCUMENT_CHECK这个函数去增加我们的逻辑，经测试可以实现。 代码逻辑 * changed by mckin leung 08/02/26 *---------------------------------------------------------------------* DATA: ACCIT_KEY LIKE ACCIT_KEY, ACCCR_KEY LIKE ACCCR_KEY, TABIX LIKE SY-TABIX. DATA: I_DAT LIKE LIKP-ERDAT, T_CKMLHD LIKE CKMLHD OCCURS 0 WITH HEADER LINE, T_CKMLCR LIKE CKMLCR OCCURS 0 WITH HEADER LINE, I_MLBWA LIKE T001K-MLBWA, I_BDATJ LIKE CKMLCR-BDATJ, I_POPER LIKE CKMLCR-POPER. CLEAR:I_DAT,T_CKMLHD[],T_CKMLHD,I_MLBWA,T_CKMLCR[],T_CKMLCR,I_POPER,I_BDATJ. LOOP AT T_ACCIT WHERE KSCHL EQ ZISH. CLEAR:ACCCR_KEY. MOVE-CORRESPONDING T_ACCIT TO ACCCR_KEY. ACCCR_KEY-POSNR = T_ACCIT-POSNR. ACCCR_KEY-CURTP = 30. READ TABLE T_ACCCR WITH KEY ACCCR_KEY BINARY SEARCH. IF SY-SUBRC IS INITIAL. * Get