SPAN { font-family: “Courier New”; font-size: 10pt; color: rgba0, 0, 0, 1); background: rgba255, 255, 255, 1) }
.L0S31 { font-style: italic; color: rgba128, 128, 128, 1) }
*COSP 外部费用
*COSS 内部费用
*GJAHR 年度
*WRTTP 01代表计划 04 代表实际
*WTGXX,WKGXX,WOGXX，其中XXX对应着期间001~016，不过WKGXX是以成本控制范围控制的货币，如果有汇率转换，WKGXX就是转换后的货币值
*BEKNZ D借方过帐或接收方借方过帐 C贷方过帐或接收方贷方过帐 其中D + C)为KC04里的借方
* O额外: 从计算中发送方记帐 S额外: 送货人信贷自运输至存货 其中O + S)为KC04里的贷方
* 需取出来后，通过转换例程函数 CONVERSION_EXIT_BEKNZ_OUTPUT 转换为’DCOS’
*MEGXXX 对应期间数量
*KC04里 实际成本借方，是需要将COSP和COSS都汇总的。
SPAN { font-family: “Courier New”; font-size: 10pt; color: rgba0, 0, 0, 1); background: rgba255, 255, 255, 1) }
.L0S31 { font-style: italic; color: rgba128, 128, 128, 1) }
.L0S33 { color: rgba77, 166, 25, 1) }
.L0S52 { color: rgba0, 0, 255, 1) }
.L0S55 { color: rgba128, 0, 128, 1) }
.L0S70 { color: rgba128, 128, 128, 1) }
IF NOT lt_output[] IS INITIAL.
SELECT lednr,objnr,gjahr,wrttp,versn,kstar,hrkft,vrgng,vbund,pargb,beknz,twaer,perbl,meinh,
wkg001,wkg002,wkg003,wkg004,wkg005,wkg006,wkg007,wkg008,wkg009,wkg010,
wkg011,wkg012,wkg013,wkg014,wkg015,wkg016
INTO TABLE @DATAlt_cosp)
FROM cosp
FOR ALL ENTRIES IN @lt_output
WHERE objnr EQ @lt_output-objnr
AND wrttp EQ ’04’.
SELECT lednr,objnr,gjahr,wrttp,versn,kstar,hrkft,vrgng,parob,uspob,beknz,twaer,perbl,meinh,
wkg001,wkg002,wkg003,wkg004,wkg005,wkg006,wkg007,wkg008,wkg009,wkg010,
wkg011,wkg012,wkg013,wkg014,wkg015,wkg016
INTO TABLE @DATAlt_coss)
FROM coss
FOR ALL ENTRIES IN @lt_output
WHERE objnr EQ @lt_output-objnr
AND wrttp EQ ’04’.
ENDIF.
LOOP AT lt_cosp ASSIGNING FIELD–SYMBOL<ls_cosp>).
CALL FUNCTION ‘CONVERSION_EXIT_BEKNZ_OUTPUT’
EXPORTING
input = <ls_cosp>-beknz
IMPORTING
output = <ls_cosp>-beknz.
MOVE-CORRESPONDING <ls_cosp> TO gs_cosp.
CASE <ls_cosp>-beknz.
WHEN ‘D’ OR ‘C’.
* gs_cosp-shkzg = ‘S’.
gs_cosp-zwkgs = <ls_cosp>-wkg001 + <ls_cosp>-wkg002 + <ls_cosp>-wkg003 + <ls_cosp>-wkg004 + <ls_cosp>-wkg005 +
<ls_cosp>-wkg006 + <ls_cosp>-wkg007 + <ls_cosp>-wkg008 + <ls_cosp>-wkg009 + <ls_cosp>-wkg010 +
<ls_cosp>-wkg011 + <ls_cosp>-wkg012 + <ls_cosp>-wkg013 + <ls_cosp>-wkg014 + <ls_cosp>-wkg015 + <ls_cosp>-wkg016.
gs_cosp-zwkgsh = gs_cosp-zwkgs.
WHEN ‘O’ OR ‘S’.
* gs_cosp-shkzg = ‘H’.
gs_cosp-zwkgh = <ls_cosp>-wkg001 + <ls_cosp>-wkg002 + <ls_cosp>-wkg003 + <ls_cosp>-wkg004 + <ls_cosp>-wkg005 +
<ls_cosp>-wkg006 + <ls_cosp>-wkg007 + <ls_cosp>-wkg008 + <ls_cosp>-wkg009 + <ls_cosp>-wkg010 +
<ls_cosp>-wkg011 + <ls_cosp>-wkg012 + <ls_cosp>-wkg013 + <ls_cosp>-wkg014 + <ls_cosp>-wkg015 + <ls_cosp>-wkg016.
gs_cosp-zwkgsh = gs_cosp-zwkgh.
WHEN OTHERS.
ENDCASE.
COLLECT gs_cosp INTO gt_cosp.
ENDLOOP.
LOOP AT lt_coss ASSIGNING FIELD–SYMBOL<ls_coss>).
CALL FUNCTION ‘CONVERSION_EXIT_BEKNZ_OUTPUT’
EXPORTING
input = <ls_coss>-beknz
IMPORTING
output = <ls_coss>-beknz.
MOVE-CORRESPONDING <ls_coss> TO gs_cosp.
CASE <ls_coss>-beknz.
WHEN ‘D’ OR ‘C’.
* gs_cosp-shkzg = ‘S’.
gs_cosp-zwkgs = <ls_coss>-wkg001 + <ls_coss>-wkg002 + <ls_coss>-wkg003 + <ls_coss>-wkg004 + <ls_coss>-wkg005 +
<ls_coss>-wkg006 + <ls_coss>-wkg007 + <ls_coss>-wkg008 + <ls_coss>-wkg009 + <ls_coss>-wkg010 +
<ls_coss>-wkg011 + <ls_coss>-wkg012 + <ls_coss>-wkg013 + <ls_coss>-wkg014 + <ls_coss>-wkg015 + <ls_coss>-wkg016.
gs_cosp-zwkgsh = gs_cosp-zwkgs.
WHEN ‘O’ OR ‘S’.
* gs_cosp-shkzg = ‘H’.
gs_cosp-zwkgh = <ls_coss>-wkg001 + <ls_coss>-wkg002 + <ls_coss>-wkg003 + <ls_coss>-wkg004 + <ls_coss>-wkg005 +
<ls_coss>-wkg006 + <ls_coss>-wkg007 + <ls_coss>-wkg008 + <ls_coss>-wkg009 + <ls_coss>-wkg010 +
<ls_coss>-wkg011 + <ls_coss>-wkg012 + <ls_coss>-wkg013 + <ls_coss>-wkg014 + <ls_coss>-wkg015 + <ls_coss>-wkg016.
gs_cosp-zwkgsh = gs_cosp-zwkgh.
WHEN OTHERS.
ENDCASE.
COLLECT gs_cosp INTO gt_cosp.
ENDLOOP.