SAP MM BAPI BOM

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.
  DATA lt_materialrelations TYPE TABLE OF  bapi1080_mbm_c WITH HEADER LINE.
  DATA   lt_items TYPE TABLE OF  bapi1080_itm_c WITH HEADER LINE.
  DATA lt_itemassignments TYPE TABLE OF  bapi1080_rel_itm_bom_c WITH HEADER LINE.
  DATA lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.
  DATA ls_return LIKE LINE OF lt_return.
  DATA ld_item_no(4) TYPE n.

  CLEAR lt_bomgroup[].
  CLEAR lt_bomgroup.
  lt_bomgroup-bom_group_identification  = 'MDF'.
  lt_bomgroup-object_type = 'BGR'.
  lt_bomgroup-object_id  = '00000001'.
  lt_bomgroup-bom_usage  = '5'." BOM TIPO 5
  lt_bomgroup-bom_group  = '00000001'.
  lt_bomgroup-created_in_plant  = marc-werks."
  lt_bomgroup-ltxt_lang   = 'S'.
  lt_bomgroup-bom_text  = 'CREADO VIA ZMDF'.
  APPEND lt_bomgroup.

  CLEAR lt_variants[].
  CLEAR lt_variants.
  lt_variants-bom_group_identification  = 'MDF'.
  lt_variants-object_type  = 'BOM'.
  lt_variants-object_id    = '00000001'.
  lt_variants-alternative_bom = '01'.
  lt_variants-bom_status = '01'.
  lt_variants-base_qty  = '1'.
  lt_variants-base_unit  = 'ST' . "'UN'.
  lt_variants-ltxt_lang  = 'S'.
  lt_variants-alt_text   = 'CREADO VIA ZMDF'.
  lt_variants-valid_from_date  = sy-datum - 30.
  lt_variants-function   = 'NEW'.
  APPEND lt_variants.

  CLEAR lt_materialrelations[].
  CLEAR lt_materialrelations.
  lt_materialrelations-bom_group_identification  = 'MDF'.
  lt_materialrelations-material = wa_headdata-material.
  lt_materialrelations-plant  = marc-werks.
  lt_materialrelations-bom_usage   = '1'.
  lt_materialrelations-alternative_bom  = '01'.
  APPEND lt_materialrelations.

  CLEAR lt_items[].
  ld_item_no = 0.
  LOOP AT gt_comp INTO gs_comp WHERE matnr IS NOT INITIAL.
    CLEAR lt_items.

    ld_item_no = ld_item_no + 10.
    lt_items-bom_group_identification = 'MDF'.
    lt_items-object_type = 'ITM'.
    lt_items-object_id = '00000001'.
    lt_items-item_no  = ld_item_no.
*   : Ajuste posiciones de servicio
    SELECT COUNT(*) FROM mara
           WHERE matnr = gs_comp-matnr
           AND mtart = 'DIEN'.
    IF sy-subrc = 0.
      lt_items-item_cat = 'N'.
    ELSE.
      lt_items-item_cat = 'L'.
    ENDIF.
*   Fin 
    lt_items-component = gs_comp-matnr.
    lt_items-comp_qty  = gs_comp-menge.
    lt_items-comp_unit  = gs_comp-meins.
    lt_items-valid_from_date = sy-datum - 30.
    APPEND lt_items.
  ENDLOOP.

  CLEAR lt_itemassignments[].
  CLEAR lt_itemassignments.
  lt_itemassignments-bom_group_identification  = 'MDF'.
  lt_itemassignments-sub_object_type = 'ITM'.
  lt_itemassignments-sub_object_id   = '00000001'.
  lt_itemassignments-super_object_type  = 'BOM'.
  lt_itemassignments-super_object_id  = '00000001'.
  lt_itemassignments-valid_from_date  = sy-datum - 30.
  lt_itemassignments-function  = 'NEW'.
  APPEND lt_itemassignments.

  CALL FUNCTION 'BAPI_MATERIAL_BOM_GROUP_CREATE'
* EXPORTING
*   TESTRUN                  = ' '
*   ALL_ERROR                = ' '
    TABLES
      bomgroup                 = lt_bomgroup
      variants                 = lt_variants
      items                    = lt_items
*   SUBITEMS                 =
      materialrelations        = lt_materialrelations
      itemassignments          = lt_itemassignments
*   SUBITEMASSIGNMENTS       =
*   TEXTS                    =
       return                  = lt_return
            .

  LOOP AT  lt_return INTO ls_return WHERE type CA 'EA'.

    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
*       IMPORTING
*         RETURN        =
          .

    MESSAGE ID ls_return-id TYPE 'E' NUMBER ls_return-number
                   WITH ls_return-message_v1
                        ls_return-message_v2
                        ls_return-message_v3
                        ls_return-message_v4.
  ENDLOOP.
  IF sy-subrc <> 0.
    LOOP AT lt_return INTO ls_return WHERE type NA 'EA'.
    ENDLOOP.
    IF sy-subrc = 0.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait   = co_yes
        IMPORTING
          return = wa_return_commit.

      MESSAGE ID ls_return-id TYPE 'I' NUMBER ls_return-number
                 WITH ls_return-message_v1
                      ls_return-message_v2
                      ls_return-message_v3
                      ls_return-message_v4.
    ENDIF.


  ENDIF.

ENDFORM.                    "create_material_bom