更改Billing记账时ac ument的金额

问题描述：
现在有个问题是用户希望变更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 group(USD) price.
SELECT SINGLE MLBWA INTO I_MLBWA FROM T001K WHERE BWKEY = T_ACCIT-WERKS. IF I_MLBWA EQ 'X'.
SELECT KALNR MATNR BWKEY INTO CORRESPONDING FIELDS OF TABLE T_CKMLHD
FROM CKMLHD WHERE MATNR EQ T_ACCIT-MATNR AND BWKEY EQ T_ACCIT-WERKS. IF SY-SUBRC EQ 0.
SELECT SINGLE ERDAT INTO I_DAT FROM LIKP WHERE VBELN EQ T_ACCIT-XBLNR. IF SY-SUBRC EQ 0.
I_BDATJ = I_DAT(4).
I_POPER = I_DAT+4(2).
IF I_POPER EQ 11.
I_POPER = 1.
I_BDATJ = I_BDATJ + 1.
ELSEIF I_POPER EQ 12.
I_POPER = 2.
I_BDATJ = I_BDATJ + 1.
ELSE.
I_POPER = I_POPER + 2.
ENDIF.
ENDIF.
SELECT KALNR BDATJ POPER CURTP STPRS WAERS INTO CORRESPONDING FIELDS OF TABLE T_CKMLCR
FROM CKMLCR FOR ALL ENTRIES IN T_CKMLHD WHERE KALNR EQ T_CKMLHD-KALNR AND CURTP EQ '30' AND BDATJ EQ I_BDATJ
AND POPER EQ I_POPER.
IF SY-SUBRC EQ 0.
LOOP AT T_CKMLCR.
IF T_ACCCR-WRBTR < 0.
T_ACCCR-WRBTR = 0 - T_CKMLCR-STPRS.
ELSE.
T_ACCCR-WRBTR = T_CKMLCR-STPRS.
ENDIF.
EXIT.
ENDLOOP.
T_ACCCR-KURSF = 1.
MODIFY TABLE T_ACCCR TRANSPORTING WRBTR KURSF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
CLEAR:I_DAT,T_CKMLHD[],T_CKMLHD,I_MLBWA,T_CKMLCR[],T_CKMLCR,I_POPER,I_BDATJ.。