Itemization

BAPI_COSTESTIMATE_ITEMIZATION

K_KKB_ITEMIZATION

Cost Comps

SELECT SINGLE
*
INTO @DATA(ls_keko)
FROM keko
WHERE matnr = @ls_std_cost-matnr
AND werks = ‘1000’
AND feh_sta = ‘FR’
AND elehk = ‘Z1’
AND klvar = ‘ZPC1’.

SELECT
*
INTO TABLE @DATA(lt_keph)
FROM keph
WHERE bzobj = @ls_keko-bzobj
AND kalnr = @ls_keko-kalnr
AND kalka = @ls_keko-kalka
AND kadky = @ls_keko-kadky
AND tvers = @ls_keko-tvers
AND bwvar = @ls_keko-bwvar
AND kkzma = @ls_keko-kkzma.

REFRESH lt_kkb_split[].
CALL FUNCTION ‘K_KKB_SPLITTING_CONVERT’
EXPORTING
i_elehk = ‘Z1′
i_sicht = ’01’
i_keart = ‘H’
i_losfx = ”
i_waers = lv_waers
TABLES
t_keph = lt_keph
t_kkb_split = lt_kkb_split.

SORT lt_kkb_split BY elemt.

READ TABLE lt_kkb_split INTO DATA(ls_kkb_split)
WITH KEY elemt = ‘016’ BINARY SEARCH.
IF sy-subrc = 0.
ls_std_cost-hc = ls_kkb_split-w000.
ENDIF.

READ TABLE lt_kkb_split INTO ls_kkb_split
WITH KEY elemt = ‘017’ BINARY SEARCH.
IF sy-subrc = 0.
ls_std_cost-nc = ls_kkb_split-w000.
ENDIF.

READ TABLE lt_kkb_split INTO ls_kkb_split
WITH KEY elemt = ‘018’ BINARY SEARCH.
IF sy-subrc = 0.
ls_std_cost-sxc = ls_kkb_split-w000.
ENDIF.

TCode CS03, if do not input Alternative BOM

Next screen will show Alternative list

Table MAST link STKO by Bill of Material to get Alternative list

EG:

Application ID (CAPID) = ‘PP01’

Valid On (DATUV) = current date

Required quantity (EMENG) = 1

Multilevel Explosion (MEHRS) = ‘X’

Material (MTNRV) = FG Material

Plant (WERKS) = Plant

Result: table STB