1、针对MIGO类的,移动类型不为为221的。
如果针对221的输入了获利能力,会报出 KI 249这个消息号
DATA: LT_COPADATA LIKE COPADATA OCCURS 0 WITH HEADER LINE,
LS_COBL_TMP LIKE COBL.
REFRESH LT_COPADATA.
LT_COPADATA-FNAM = 'PRCTR'.
APPEND LT_COPADATA.
CLEAR LT_COPADATA.
LT_COPADATA-FNAM = 'GSBER'.
APPEND LT_COPADATA.
CLEAR LT_COPADATA.
SELECT SINGLE BUKRS KOKRS KOSTL PRCTR INTO (T_BUKRS , T_KOKRS ,T_KOSTL ,T_PRCTR ) FROM CSKS WHERE KOSTL = ITAB-KOSTL AND KOKRS = '8000' AND KOSAR = 'V'.
IF SY-SUBRC = 0.
GOODSMVT_ITEM-PROFIT_CTR = T_PRCTR.
LS_COBL_TMP-BUKRS = T_BUKRS.
LS_COBL_TMP-KOKRS = T_KOKRS.
LS_COBL_TMP-KOSTL = T_KOSTL.
LS_COBL_TMP-PRCTR = T_PRCTR.
ENDIF.
LS_COBL_TMP-BWART = ITAB-BWARTWA.
LS_COBL_TMP-BLDAT = SY-DATUM.
LS_COBL_TMP-BUDAT = SY-DATUM.
LS_COBL_TMP-GJAHR = SY-DATUM+0(4).
* derive new PAOBJNR
C