BOM 展开带 成本计算

展开BOM 的情形大家都遇到过，最近在做与BOM相关的模块，因此准备好好研究一下与BOM相关的东西，如果BOM要展开，而且显示成本可以用如下代码

DECLARE
  l_grp_id NUMBER;
  l_session_id NUMBER;
  l_org_id NUMBER := 102;
  l_levels_to_explode NUMBER := 10;
  l_module NUMBER DEFAULT 1; --1 - Costing| 2 - Bom| 3 - Order entry| 4 - ATO| 5 - WSM
  l_cst_type_id NUMBER DEFAULT 1; -- All cost = -1 else 0,cost type id for costed explosion
  l_item_id NUMBER := 4774; --57
  l_bom_or_eng NUMBER := 1;
  l_using_req_quantity NUMBER;
  l_using_ass_dem_date DATE;
  l_rev_date VARCHAR2(20);
  l_err_msg VARCHAR2(250);
  l_error_code NUMBER;

BEGIN
  -- 首先要有一个Group id
  SELECT bom_explosion_temp_s.nextval INTO l_grp_id FROM dual;

  -- 其次要得到一个Session id
  SELECT bom_explosion_temp_session_s.nextval INTO l_session_id FROM dual;

  bompexpl.exploder_userexit(verify_flag => 0,
                             org_id => l_org_id,
                             order_by => 1,
                             grp_id => l_grp_id,
                             session_id => l_session_id,
                             levels_to_explode => l_levels_to_explode,
                             bom_or_eng => l_bom_or_eng,
                             impl_flag => 2,
                             plan_factor_flag => 2,
                             explode_option => 2, -- 2,
                             module => l_module,
                             cst_type_id => l_cst_type_id,
                             std_comp_flag => 2,
                             expl_qty => 1,
                             item_id => l_item_id,
                             alt_desg => '',
                             comp_code => '',
                             rev_date => l_rev_date,
                             err_msg => l_err_msg,
                             ERROR_CODE => l_error_code);
END;
select * from bom_explosion_temp where WHERE group_id = l_grp_id;

注意module ,cst_type_id  这两个参数的设置