需求:创建财务凭证,如果传入备选统驭科目就用备选统驭科目创建财务凭证
标准BAPI有传入备用统驭科目但是不起任何作用,通过DEBUG跟踪发现备用统驭科目会被替换成总账科目
强制干预回来即可
点击修改插入代码即可
源码:
LOOP AT ACCIT_FI.
MOVE-CORRESPONDING ACCIT_FI TO ACCIT_KEY.
READ TABLE T_ACCIT WITH KEY ACCIT_KEY BINARY SEARCH.
*{ INSERT 1
"传过来的备选统驭科目
- BREAK-POINT.
DATA(LV_HKONT) = T_ACCIT-HKONT.
*} INSERT
MOVE-CORRESPONDING ACCIT_FI TO T_ACCIT.
IF SY-SUBRC IS INITIAL.
*{ INSERT 2
"有传备选统驭科目就回写到科目里
IF LV_HKONT IS NOT INITIAL .
T_ACCIT-HKONT = LV_HKONT.
ENDIF.
*} INSERT
MODIFY T_ACCIT INDEX SY-TABIX.
ELSE.
*{ INSERT 3
"有传备选统驭科目就回写到科目里
IF LV_HKONT IS NOT INITIAL .
T_ACCIT-HKONT = LV_HKONT.
ENDIF.
*} INSERT