ENHANCEMENT   ZMIR7_01.    "active version

DATA:LS_YDRSEG LIKE LINE OF YDRSEG.

DATA:L_T_QTY LIKE EKBE-MENGE.

CHECK RM08M-VORGANG = ''.

LOOP AT YDRSEG INTO LS_YDRSEG.

  L_T_QTY = .

  SELECT SUM( CASE SHKZG WHEN 'S' THEN MENGE ELSE - * MENGE END )

              INTO @L_T_QTY

              FROM EKBE

  WHERE EBELN = @LS_YDRSEG-EBELN

  AND   EBELP = @LS_YDRSEG-EBELP

  AND   BEWTP IN ('T','Q')

  AND   LFGJA = @LS_YDRSEG-LFGJA

  AND   LFBNR = @LS_YDRSEG-LFBNR

  AND   LFPOS = @LS_YDRSEG-LFPOS.

  LS_YDRSEG-MENGE = LS_YDRSEG-WEMNG - L_T_QTY.

  LS_YDRSEG-BPMNG = LS_YDRSEG-MENGE.

  IF LS_YDRSEG-MENGE <= .

    DELETE YDRSEG.

    CONTINUE.

    ELSE.

      MODIFY YDRSEG FROM LS_YDRSEG.

  ENDIF.

ENDLOOP.

ENDENHANCEMENT.