SAPCS01创建 BOM
此文档使用BAPI：BAPI_MATERIAL_BOM_GROUP_CREATE创建BOM
事务代码：CS01
输入行项目信息
保存即可
## 3.1 调用 BAPI
抬头
行项目
导入BAPI
## 3.2 问题解决
### 3.2.1 成本核算标识置空
成本核算标识置空失败，因为业务配置默认打钩，传空置之后，系统默认使用默认配置打上勾。
后来查了资料，是因为当以下字段为空时，就默认使用T416V，也就是业务配置的默认值予以覆盖，
因此需要给其中一个字段传值，这样可以不适用默认值覆盖，这里我们选择的是生产相关字段。
之后就可以顺利置空了。
## 3.3 源代码
"-----------------------------------------@斌将军--------------------------------------------DATA:gt_bomgroup TYPE bapi1080_bgr_c OCCURS 0 WITH HEADER LINE, " gt_variants TYPE bapi1080_bom_c OCCURS 0 WITH HEADER LINE, " gt_items TYPE bapi1080_itm_c OCCURS 0 WITH HEADER LINE, " gt_subitems TYPE bapi1080_itm_c OCCURS 0 WITH HEADER LINE, gt_materialrelations TYPE bapi1080_mbm_c OCCURS 0 WITH HEADER LINE, gt_itemassignments TYPE bapi1080_rel_itm_bom_c OCCURS 0 WITH HEADER LINE, " gt_return TYPE bapiret2 OCCURS 0 WITH HEADER LINE, gs_return TYPE bapiret2,* texts TYPE bapi1080_txt_c OCCURS 0 WITH HEADER LINE. gw_subitemas TYPE bapi1080_rel_sui_itm_c, gt_subitemas TYPE TABLE OF bapi1080_rel_sui_itm_c.
DATA:item_no TYPE i, lv_check TYPE char1, lv_message type char200, lv_text TYPE char120 VALUE 'texttexttexttexttexttexttexttexttexttexttexttexttexttexttexttext'."以父物料汇总CLEAR gt_bomgroup.gt_bomgroup-bom_group_identification = 'BAPI_SMP_COL1'. "可以为空gt_bomgroup-object_type = 'BGR'.gt_bomgroup-object_id = 'SIMPLE1'.gt_bomgroup-bom_usage = '1'. "用途gt_bomgroup-ltxt_lang = sy-langu.gt_bomgroup-technical_type = ''.gt_bomgroup-bom_group = ''. "可以为空gt_bomgroup-created_in_plant = '2010'."工厂" gt_bomgroup-bom_text = lt_data-bom_text."BOM文本APPEND gt_bomgroup.
" HEADER DETAILS OF THE DIFFERENT gt_variantsCLEAR gt_variants.gt_variants-bom_group_identification = 'BAPI_SMP_COL1'.gt_variants-object_type = 'BOM'.gt_variants-object_id = 'SIMPLE1'.gt_variants-alternative_bom = '09'."备选物料清单 此处要填两位数字，不够补零gt_variants-bom_status = '01'. "BOM状态gt_variants-base_qty = '10'."基本数量" gt_variants-base_unit = lt_data-bmein."计量单位gt_variants-valid_from_date = sy-datum."生效日期" gt_variants-alt_text = lt_data-stktx."可选文本gt_variants-ltxt_lang = sy-langu.gt_variants-langu_iso = sy-langu.gt_variants-function = 'NEW'. "NEW表示新建.APPEND gt_variants.CLEAR gt_materialrelations.gt_materialrelations-bom_group_identification = 'BAPI_SMP_COL1'. "可以为空gt_materialrelations-material_long = '000000000005000021'. "物料号gt_materialrelations-plant = '2010'."工厂gt_materialrelations-bom_usage = '1'."BOM用途gt_materialrelations-alternative_bom = '09'."可选的BOM 此处要填两位数字，不够补零APPEND gt_materialrelations."" CLEAR gt_itemassignments." gt_itemassignments-bom_group_identification = ''. " 可以为空" gt_itemassignments-sub_object_type = 'ITM'." gt_itemassignments-sub_object_id = object_id." gt_itemassignments-super_object_type = 'BOM'." gt_itemassignments-super_object_id = 'BOM1'." gt_itemassignments-valid_from_date = sy-datum." gt_itemassignments-function = 'NEW'." APPEND gt_itemassignments.
" CLEAR gw_subitemas." gw_subitemas-bom_group_identification = bom_group_identification." gw_subitemas-sub_object_type = 'SUI'." gw_subitemas-sub_object_id = 'SIM1'." gw_subitemas-super_object_type = 'ITM'." gw_subitemas-super_object_id = object_id." APPEND gw_subitemas TO gt_subitemas.
"取父物料的子件信息item_no = item_no + 1.CLEAR gt_items.gt_items-bom_group_identification = 'BAPI_SMP_COL1'. "可以为空gt_items-object_type = 'ITM'.gt_items-object_id = item_no.gt_items-item_no = '0010'."项目gt_items-item_cat = 'L'."项目类别gt_items-component_long = '000000000004000012'."组件编码gt_items-comp_qty = '10'."组件数量*gt_items-alt_item_group = gs_data-alpgr."项目替代组gt_items-prod_rel = 'X'."标识：与生产相关项目gt_items-cost_rel = ''."成本核算相关项的标识符
*IF gs_data-alpgr IS NOT INITIAL .* gt_items-alt_item_strategy = '2'."替代项目：策略*ENDIF.*gt_items-alt_item_prio = gs_data-alprf."优先级*gt_items-usage_prob = 100."以百分比表示的使用概率（备选项目）
"gt_items-comp_unit = gs_data-meins."组件计量单位gt_items-item_text1 = lv_text+0(40)."项目长文本gt_items-item_text2 = lv_text+40(80).gt_items-ltxt_lang = sy-langu. "这个参数一定要填APPEND gt_items.CLEAR gt_itemassignments.gt_itemassignments-bom_group_identification = 'BAPI_SMP_COL1'. " 可以为空gt_itemassignments-sub_object_type = 'ITM'.gt_itemassignments-sub_object_id = item_no.gt_itemassignments-super_object_type = 'BOM'.gt_itemassignments-super_object_id = 'SIMPLE1'.gt_itemassignments-valid_from_date = sy-datum.gt_itemassignments-function = 'NEW'.APPEND gt_itemassignments.
"BOM操作CALL FUNCTION 'BAPI_MATERIAL_BOM_GROUP_CREATE' EXPORTING* TESTRUN = 'X' all_error = 'X' TABLES bomgroup = gt_bomgroup variants = gt_variants items = gt_items materialrelations = gt_materialrelations itemassignments = gt_itemassignments* subitemassignments = gt_subitemas return = gt_return.
lv_check = 'S'.LOOP AT gt_return INTO gs_return WHERE type = 'A' OR type = 'E'. lv_message = lv_message && gs_return-message. lv_check = 'E'.ENDLOOP.
IF lv_check = 'S'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'.* WRITE:GV_NUMBER.ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF."-----------------------------------------@斌将军--------------------------------------------