https://sapwiki.cl/wiki/index.php?action=history&feed=atom&title=SAP_MM_BAPI_BOM SAP MM BAPI BOM - Revision history 2026-10-26T16:18:21Z Revision history for this page on the wiki MediaWiki 1.34.0 https://sapwiki.cl/wiki/index.php?title=SAP_MM_BAPI_BOM&diff=494&oldid=prev WikiSysop at 01:09, 5 April 2020 2020-04-05T01:09:59Z <p></p> <a href="https://sapwiki.cl/wiki/index.php?title=SAP_MM_BAPI_BOM&amp;diff=494&amp;oldid=389">Show changes</a> WikiSysop https://sapwiki.cl/wiki/index.php?title=SAP_MM_BAPI_BOM&diff=389&oldid=prev WikiSysop: Created page with " <nowiki> FORM create_material_bom. DATA lt_bomgroup TYPE TABLE OF bapi1080_bgr_c WITH HEADER LINE. DATA lt_variants TYPE TABLE OF bapi1080_bom_c WITH HEADER LINE...." 2020-04-04T22:04:47Z <p>Created page with &quot; &lt;nowiki&gt; FORM create_material_bom. DATA lt_bomgroup TYPE TABLE OF bapi1080_bgr_c WITH HEADER LINE. DATA lt_variants TYPE TABLE OF bapi1080_bom_c WITH HEADER LINE....&quot;</p> <p><b>New page</b></p><div> &lt;nowiki&gt; FORM create_material_bom.<br /> <br /> DATA lt_bomgroup TYPE TABLE OF bapi1080_bgr_c WITH HEADER LINE.<br /> DATA lt_variants TYPE TABLE OF bapi1080_bom_c WITH HEADER LINE.<br /> DATA lt_materialrelations TYPE TABLE OF bapi1080_mbm_c WITH HEADER LINE.<br /> DATA lt_items TYPE TABLE OF bapi1080_itm_c WITH HEADER LINE.<br /> DATA lt_itemassignments TYPE TABLE OF bapi1080_rel_itm_bom_c WITH HEADER LINE.<br /> DATA lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.<br /> DATA ls_return LIKE LINE OF lt_return.<br /> DATA ld_item_no(4) TYPE n.<br /> <br /> CLEAR lt_bomgroup[].<br /> CLEAR lt_bomgroup.<br /> lt_bomgroup-bom_group_identification = &#039;MDF&#039;.<br /> lt_bomgroup-object_type = &#039;BGR&#039;.<br /> lt_bomgroup-object_id = &#039;00000001&#039;.<br /> lt_bomgroup-bom_usage = &#039;5&#039;.&quot; BOM TIPO 5<br /> lt_bomgroup-bom_group = &#039;00000001&#039;.<br /> lt_bomgroup-created_in_plant = marc-werks.&quot;<br /> lt_bomgroup-ltxt_lang = &#039;S&#039;.<br /> lt_bomgroup-bom_text = &#039;CREADO VIA ZMDF&#039;.<br /> APPEND lt_bomgroup.<br /> <br /> CLEAR lt_variants[].<br /> CLEAR lt_variants.<br /> lt_variants-bom_group_identification = &#039;MDF&#039;.<br /> lt_variants-object_type = &#039;BOM&#039;.<br /> lt_variants-object_id = &#039;00000001&#039;.<br /> lt_variants-alternative_bom = &#039;01&#039;.<br /> lt_variants-bom_status = &#039;01&#039;.<br /> lt_variants-base_qty = &#039;1&#039;.<br /> lt_variants-base_unit = &#039;ST&#039; . &quot;&#039;UN&#039;.<br /> lt_variants-ltxt_lang = &#039;S&#039;.<br /> lt_variants-alt_text = &#039;CREADO VIA ZMDF&#039;.<br /> lt_variants-valid_from_date = sy-datum - 30.<br /> lt_variants-function = &#039;NEW&#039;.<br /> APPEND lt_variants.<br /> <br /> CLEAR lt_materialrelations[].<br /> CLEAR lt_materialrelations.<br /> lt_materialrelations-bom_group_identification = &#039;MDF&#039;.<br /> lt_materialrelations-material = wa_headdata-material.<br /> lt_materialrelations-plant = marc-werks.<br /> lt_materialrelations-bom_usage = &#039;1&#039;.<br /> lt_materialrelations-alternative_bom = &#039;01&#039;.<br /> APPEND lt_materialrelations.<br /> <br /> CLEAR lt_items[].<br /> ld_item_no = 0.<br /> LOOP AT gt_comp INTO gs_comp WHERE matnr IS NOT INITIAL.<br /> CLEAR lt_items.<br /> <br /> ld_item_no = ld_item_no + 10.<br /> lt_items-bom_group_identification = &#039;MDF&#039;.<br /> lt_items-object_type = &#039;ITM&#039;.<br /> lt_items-object_id = &#039;00000001&#039;.<br /> lt_items-item_no = ld_item_no.<br /> * : Ajuste posiciones de servicio<br /> SELECT COUNT(*) FROM mara<br /> WHERE matnr = gs_comp-matnr<br /> AND mtart = &#039;DIEN&#039;.<br /> IF sy-subrc = 0.<br /> lt_items-item_cat = &#039;N&#039;.<br /> ELSE.<br /> lt_items-item_cat = &#039;L&#039;.<br /> ENDIF.<br /> * Fin <br /> lt_items-component = gs_comp-matnr.<br /> lt_items-comp_qty = gs_comp-menge.<br /> lt_items-comp_unit = gs_comp-meins.<br /> lt_items-valid_from_date = sy-datum - 30.<br /> APPEND lt_items.<br /> ENDLOOP.<br /> <br /> CLEAR lt_itemassignments[].<br /> CLEAR lt_itemassignments.<br /> lt_itemassignments-bom_group_identification = &#039;MDF&#039;.<br /> lt_itemassignments-sub_object_type = &#039;ITM&#039;.<br /> lt_itemassignments-sub_object_id = &#039;00000001&#039;.<br /> lt_itemassignments-super_object_type = &#039;BOM&#039;.<br /> lt_itemassignments-super_object_id = &#039;00000001&#039;.<br /> lt_itemassignments-valid_from_date = sy-datum - 30.<br /> lt_itemassignments-function = &#039;NEW&#039;.<br /> APPEND lt_itemassignments.<br /> <br /> CALL FUNCTION &#039;BAPI_MATERIAL_BOM_GROUP_CREATE&#039;<br /> * EXPORTING<br /> * TESTRUN = &#039; &#039;<br /> * ALL_ERROR = &#039; &#039;<br /> TABLES<br /> bomgroup = lt_bomgroup<br /> variants = lt_variants<br /> items = lt_items<br /> * SUBITEMS =<br /> materialrelations = lt_materialrelations<br /> itemassignments = lt_itemassignments<br /> * SUBITEMASSIGNMENTS =<br /> * TEXTS =<br /> return = lt_return<br /> .<br /> <br /> LOOP AT lt_return INTO ls_return WHERE type CA &#039;EA&#039;.<br /> <br /> CALL FUNCTION &#039;BAPI_TRANSACTION_ROLLBACK&#039;<br /> * IMPORTING<br /> * RETURN =<br /> .<br /> <br /> MESSAGE ID ls_return-id TYPE &#039;E&#039; NUMBER ls_return-number<br /> WITH ls_return-message_v1<br /> ls_return-message_v2<br /> ls_return-message_v3<br /> ls_return-message_v4.<br /> ENDLOOP.<br /> IF sy-subrc &lt;&gt; 0.<br /> LOOP AT lt_return INTO ls_return WHERE type NA &#039;EA&#039;.<br /> ENDLOOP.<br /> IF sy-subrc = 0.<br /> CALL FUNCTION &#039;BAPI_TRANSACTION_COMMIT&#039;<br /> EXPORTING<br /> wait = co_yes<br /> IMPORTING<br /> return = wa_return_commit.<br /> <br /> MESSAGE ID ls_return-id TYPE &#039;I&#039; NUMBER ls_return-number<br /> WITH ls_return-message_v1<br /> ls_return-message_v2<br /> ls_return-message_v3<br /> ls_return-message_v4.<br /> ENDIF.<br /> <br /> <br /> ENDIF.<br /> <br /> ENDFORM. &quot;create_material_bom&lt;/nowiki&gt;</div> WikiSysop