SAP 预制发票时扣除已预制的数据

INCLUDE程序：

LMR1MF6S

最后增强：

ENHANCEMENT 1  ZMIR7_01.    "active version
DATA:LS_YDRSEG LIKE LINE OF YDRSEG.
DATA:L_T_QTY LIKE EKBE-MENGE.

CHECK RM08M-VORGANG = '1'.

LOOP AT YDRSEG INTO LS_YDRSEG.
  L_T_QTY = 0.
  SELECT SUM( CASE SHKZG WHEN 'S' THEN MENGE ELSE -1 * 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 <= 0.
    DELETE YDRSEG.
    CONTINUE.
    ELSE.
      MODIFY YDRSEG FROM LS_YDRSEG.
  ENDIF.

ENDLOOP.
ENDENHANCEMENT.