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

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.