MIR7預制發票扣除已經預制的數量（每月多次預制，未即時過賬）

業務場景見抬頭，有沒有標准的解決方案就不說了，也沒去考慮。。。

這個增強還是SAP老表提供的，感謝，省了不少時間。

INCLUDE:LMR1MF6S

最后的位置

ENHANCEMENT 1  ZMIR7_01.    "active version
DATA:LS_YDRSEG LIKE LINE OF YDRSEG.
DATA:L_T_QTY LIKE EKBE-MENGE.
DATA:LY_PRUEFLOS TYPE QPLOS.
DATA:LY_ART TYPE QPART.
DATA:LV_INSMK TYPE MSEG-INSMK.
DATA:lv_BSART TYPE ESART.
DATA:lv_KNTTP TYPE KNTTP.

CHECK RM08M-VORGANG = '1'.

LOOP AT YDRSEG INTO LS_YDRSEG.
  L_T_QTY = 0.
  CLEAR:LY_PRUEFLOS,LV_INSMK,lv_bSART,lv_KNTTP."排除沒做出使用決策的物料憑證

  SELECT SINGLE KNTTP INTO LV_KNTTP FROM EKPO WHERE EBELN = LS_YDRSEG-EBELN AND EBELP = LS_YDRSEG-EBELP..
    IF LV_KNTTP = 'A' OR LV_KNTTP = 'K' OR LV_KNTTP = 'Z' OR LV_KNTTP = 'F'.
      ELSE.
        SELECT SINGLE INSMK INTO LV_INSMK FROM MSEG WHERE MJAHR = LS_YDRSEG-LFGJA
         AND MBLNR = LS_YDRSEG-LFBNR  AND ZEILE = LS_YDRSEG-LFPOS.
        IF LV_INSMK = 'X'.
            SELECT SINGLE ART INTO lY_ART FROM QMAT WHERE ART = '01' AND MATNR = LS_YDRSEG-matnr AND WERKS = LS_YDRSEG-werks.
              IF sy-subrc = 0.
                  SELECT SINGLE PRUEFLOS INTO LY_PRUEFLOS
                    FROM QALS WHERE MJAHR = LS_YDRSEG-LFGJA
                   AND  MBLNR = LS_YDRSEG-LFBNR  AND ZEILE = LS_YDRSEG-LFPOS AND STAT34 = 'X'.
                 IF LY_PRUEFLOS IS INITIAL.
                    DELETE YDRSEG.
                    CONTINUE.
                 ENDIF.
        ENDIF.
    ENDIF.
    ENDIF.




  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.

  SELECT SINGLE bsart INTO lv_bsart FROM ekko WHERE ebeln = LS_YDRSEG-EBELN.
    IF lv_bsart = '915'.
      LS_YDRSEG-MENGE = LS_YDRSEG-WEMNG + L_T_QTY.
      ELSE.
        LS_YDRSEG-MENGE = LS_YDRSEG-WEMNG - L_T_QTY.
    ENDIF.


  "DELETE 沒有使用決策的物料憑證
  LS_YDRSEG-BPMNG = LS_YDRSEG-MENGE.

  IF LS_YDRSEG-MENGE <= 0.
    DELETE YDRSEG.
    CONTINUE.
    ELSE.
      MODIFY YDRSEG FROM LS_YDRSEG.
  ENDIF.

ENDLOOP.
ENDENHANCEMENT.

中間有一大串IF ELSE的可以忽略，特殊業務處理