CK11，CK11N 成本估算數(shù)據(jù)讀取

CK11 數(shù)據(jù)讀取

在程序使用中有時(shí)需要臨時(shí)取成本估計(jì)的過(guò)程結(jié)果數(shù)據(jù)，此時(shí)的估算數(shù)據(jù)尚未保存至數(shù)據(jù)庫(kù)，無(wú)法通過(guò)函數(shù)CK_F_CSTG_STRUCTURE_EXPLOSION 取得，可使用CK_F_MATERIAL_CALC進(jìn)行先計(jì)算出中間結(jié)果，再經(jīng)過(guò)相應(yīng)轉(zhuǎn)換可得出相要的結(jié)果。

以下是步驟展示：

第一步：使用CK_F_MATERIAL_CALC 計(jì)算中間結(jié)果

第二步：使用類cl_costing_persistence方法 costing_read_simple 轉(zhuǎn)換明細(xì)數(shù)據(jù)

第三步：對(duì)明細(xì)結(jié)果進(jìn)行第二步循環(huán)，展出整個(gè)成本結(jié)果數(shù)據(jù)。

單層讀取樣例如下（程序可直接運(yùn)行）：

REPORT zcf_ck11.
PARAMETERS:
? klvar??? LIKE? keko-klvar???????? DEFAULT??????????? 'OP01',
? matnr??? LIKE? mara-matnr???????? DEFAULT???????????? '404014305000',
? werks??? LIKE? marc-werks???????? DEFAULT????????????? '8100',
*LOSGR? LIKE? KEKO-LOSGR
? tvers??? LIKE? keko-tvers? DEFAULT '01',
*STLAN? LIKE? CKI64A-STLAN
*STALT? LIKE? CKI64A-STALT
*PLNTY? LIKE? CKI64A-PLNTY
*PLNNR? LIKE? CKI64A-PLNNR
*PLNAL? LIKE? CKI64A-PLNAL
? kadat??? LIKE? cki64a-kadat?? DEFAULT sy-datum,
*BIDAT? LIKE? CKI64A-BIDAT
*ALDAT? LIKE? CKI64A-ALDAT
? bwdat??? LIKE? cki64a-bwdat?????????????????????? DEFAULT sy-datum,
*UEBID? LIKE? CKI64A-UEBID
*KALNR_BA LIKE? CKI64A-KALNR_BA
*KALSM? LIKE? KEKO-KALSM
? s_dunkel TYPE? c DEFAULT 'X',
? s_update TYPE? c DEFAULT 'S'.
*? s_no_commit TYPE? c defult 'X'.
*S_REPETITIVE TYPE? C SPACE
*S_SNGL_LOCK? TYPE? C 'X'
*U_KALSM? TYPE? XFELD SPACE
DATA: f_keko_exp? LIKE? keko.
DATA: t_keph_exp? LIKE? keph OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'CK_F_MATERIAL_CALC'
EXPORTING
??? klvar????????? = 'OP01'
??? matnr????????? = matnr
??? werks????????? = werks
*?? LOSGR????????? =
??? tvers????????? = tvers
*?? STLAN????????? =
*?? STALT????????? =
*?? PLNTY????????? =
*?? PLNNR????????? =
*?? PLNAL????????? =
??? kadat????????? = kadat
*?? BIDAT????????? =
*?? ALDAT????????? =
??? bwdat????????? = bwdat
*?? UEBID????????? =
*?? KALNR_BA?????? =
*?? KALSM????????? =
??? s_dunkel?????? = s_dunkel
??? s_update?????? = s_update
??? s_no_commit??? = 'X'
*?? S_REPETITIVE?? = ' '
*?? S_SNGL_LOCK??? = 'X'
*?? U_KALSM??????? = ' '
IMPORTING
??? f_keko_exp???? = f_keko_exp
TABLES
??? t_keph_exp???? = t_keph_exp
EXCEPTIONS
??? wrong_call???? = 1
??? keph_not_found = 2
??? locked???????? = 3
OTHERS???????? = 4.

DATA: g_persistence_manager TYPE REF TO cl_costing_persistence.
IF g_persistence_manager IS INITIAL.
CALL METHOD cl_costing_persistence=>create
IMPORTING
????? ex_costing_persistence = g_persistence_manager.
ENDIF.
DATA: l_ckkekokey TYPE ckkekokey.
DATA: l_itemization TYPE kkek0_uc.
DATA: l_ccs?????? TYPE ckf_keko_keph.
MOVE-CORRESPONDING f_keko_exp TO l_ckkekokey.
CALL METHOD g_persistence_manager->costing_read_simple
EXPORTING
??? im_kekokey???? = l_ckkekokey
??? im_read_mode?? = '0' "all locations
IMPORTING
??? ex_itemization = l_itemization
??? ex_ccs???????? = l_ccs.

高度中可查看到L_ITEMIZATION-T_KIS1就是我們想要的結(jié)果

總結(jié)

以上是生活随笔為你收集整理的CK11，CK11N 成本估算数据读取的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。