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.