SAP ABAP KO88工单结算 替代FI凭证信息 BADI BADI_FINS_ACDOC_POSTING_EVENTS
增强点:ES_FINS_ACDOCA
BADI:BADI_FINS_ACDOC_POSTING_EVENTS
1.将凭证替代字段添加到结构 FINS_ACDOC_SUBST
实现方法SUBST_ACDOCA_EXTENSION_FIELDS
METHOD IF_BADI_FINS_ACDOC_POST_EVENTS~SUBST_ACDOCA_EXTENSION_FIELDS.
* Example implementation to substitute or derive extension fields in ACDOCA
DATA:LS_ACDOCA TYPE ACDOCA .
DATA: LS_ACDOC_SUBST TYPE LINE OF FINST_ACDOC_SUBST.
BREAK zwanggf .
CLEAR ET_ACDOC_SUBST.
LOOP AT IT_ACDOC REFERENCE INTO DATA(LR_ACDOC).
* Fill key fields and standard fields for ET_ACDOC_SUBST
MOVE-CORRESPONDING LR_ACDOC->* TO LS_ACDOC_SUBST ##enh_ok.
MOVE-CORRESPONDING LR_ACDOC->* TO LS_ACDOCA .
* Example 1: move another ACDOCA field to an extension field
* ls_acdoc_subst-yy1_prctr_jei = lr_acdoc->prctr.
* Example 2: copy a field from ACCIT to an extension field
* First we have to lookup the corresponding ACCIT item
* With note 2827405 the lines in it_acdoc and it_acdoc_item are linked also via temporary DOCLN
* to retrieve also split data in it_acdoc_item.
* Furthermore it_acdoc_item has also a secondary key ACDOCA_KEY with the following fields:
* RLDNR BUKRS GJAHR BELNR BUZEI DOCLN
* Via this secondary key the data in it_acdoc_item can be found very quickly
*管理费用分类编码
SELECT
SINGLE
*
INTO @DATA(LS_DATA)
FROM ZFIT0037
WHERE KTOPL EQ 'RT01'
AND SAKNR EQ @LS_ACDOCA-RACCT .
IF SY-SUBRC = 0 .
LS_ACDOC_SUBST-ZZFI005 = LS_DATA-ZCLASS .
APPEND LS_ACDOC_SUBST TO ET_ACDOC_SUBST.
ENDIF .
ENDLOOP.
ENDMETHOD.
3.激活增强 。
KO88工单结算,凭证字段替代成功。
post SAP-Garson
原文链接:https://blog.csdn.net/u014535256/article/details/113342732文章来自于网络,如果侵犯了您的权益,请联系站长删除!