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

INCLUDE程序：

LMR1MF6S

最后增强：

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.