abap 实际成本,计划成本等查找COSP和COSS
SPAN { font-family: "Courier New"; font-size: 10pt; color: rgba(0, 0, 0, 1); background: rgba(255, 255, 255, 1) }
.L0S31 { font-style: italic; color: rgba(128, 128, 128, 1) }
*COSP外部費用
*COSS內部費用
*GJAHR年度
*WRTTP01代表計劃04代表實際
*WTGXX,WKGXX,WOGXX,其中XXX對應著期間001~016,不過WKGXX是以成本控制范圍控制的貨幣,如果有匯率轉換,WKGXX就是轉換后的貨幣值
*BEKNZD借方過帳或接收方借方過帳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: rgba(0, 0, 0, 1); background: rgba(255, 255, 255, 1) }
.L0S31 { font-style: italic; color: rgba(128, 128, 128, 1) }
.L0S33 { color: rgba(77, 166, 25, 1) }
.L0S52 { color: rgba(0, 0, 255, 1) }
.L0S55 { color: rgba(128, 0, 128, 1) }
.L0S70 { color: rgba(128, 128, 128, 1) }
IFNOTlt_output[]ISINITIAL.
SELECTlednr,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
INTOTABLE@DATA(lt_cosp)
FROMcosp
FORALLENTRIESIN@lt_output
WHEREobjnrEQ@lt_output-objnr
ANDwrttpEQ'04'.
SELECTlednr,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
INTOTABLE@DATA(lt_coss)
FROMcoss
FORALLENTRIESIN@lt_output
WHEREobjnrEQ@lt_output-objnr
ANDwrttpEQ'04'.
ENDIF.
LOOPATlt_cospASSIGNINGFIELD-SYMBOL(<ls_cosp>).
CALLFUNCTION'CONVERSION_EXIT_BEKNZ_OUTPUT'
EXPORTING
input=<ls_cosp>-beknz
IMPORTING
output=<ls_cosp>-beknz.
MOVE-CORRESPONDING<ls_cosp>TOgs_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.
WHENOTHERS.
ENDCASE.
COLLECTgs_cospINTOgt_cosp.
ENDLOOP.
LOOPATlt_cossASSIGNINGFIELD-SYMBOL(<ls_coss>).
CALLFUNCTION'CONVERSION_EXIT_BEKNZ_OUTPUT'
EXPORTING
input=<ls_coss>-beknz
IMPORTING
output=<ls_coss>-beknz.
MOVE-CORRESPONDING<ls_coss>TOgs_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.
WHENOTHERS.
ENDCASE.
COLLECTgs_cospINTOgt_cosp.
ENDLOOP.
總結
以上是生活随笔為你收集整理的abap 实际成本,计划成本等查找COSP和COSS的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: SAP Spartacus Header
- 下一篇: 图片url地址的生成获取方法(免费正版高