SAP MD03 Enhancement LM61QF1G

LM61QF1G:

 

 CLEAR MDPA-KZAVC.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form CHECK_NEW_KOMPONENTE, End                                                                                                                    A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZEXPLORE_BOM.    "active version
*
  SELECT SINGLE * FROM mara
    WHERE matnr = mdpmx-matnr
      AND MTART = 'ZLGP'.
  IF sy-subrc eq 0.
    DATA: l_aufwg LIKE mdpm-aufwg,
          l_tabix LIKE sy-tabix,
          wa_mdpmx LIKE LINE OF mdpmx,
          gt_mdpmx LIKE TABLE OF mdpmx WITH HEADER LINE.
    LOOP AT mdpmx.
      IF l_aufwg < mdpmx-aufwg.
        l_aufwg = mdpmx-aufwg.
      ENDIF.
    ENDLOOP.
    l_tabix = sy-tabix.
    READ TABLE mdpmx INTO wa_mdpmx INDEX l_tabix.
    DELETE mdpmx INDEX l_tabix.
    wa_mdpmx-aufst = 01.
    l_aufwg = l_aufwg + 1.
    wa_mdpmx-aufwg = l_aufwg.
    wa_mdpmx-dumps = 'X'.
    CLEAR: wa_mdpmx-knttp,wa_mdpmx-sobkz,wa_mdpmx-kzvbr,wa_mdpmx-kzbws.
    CLEAR: wa_mdpmx-vstat.                                "TBC
    wa_mdpmx-stalt = '01'.
    APPEND wa_mdpmx to mdpmx.
    CALL FUNCTION 'ZEXPLORE_BOM'
      EXPORTING
        wa_mdpmx       = wa_mdpmx
        p_aufwg        = l_aufwg
      TABLES
        gt_mdpmx       = gt_mdpmx
              .
    IF sy-subrc eq 0.
      APPEND LINES OF gt_mdpmx to mdpmx.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.