关于库龄分析算法

港控/mmm° 2023-06-05 14:57 18阅读 0赞

1月入库10  2月入库10 3月入库 10 4月出库15 库存剩余15

按照先进先出算法，1月呆滞为0,2月呆滞5 3月呆滞10 。

也就是说，出库首先冲销1月的10个，再冲销2月5个。

入1 + 入2 + 入3 -出 = 库存。这个是恒等式。

变换下

入1-出= 库存-入2-入3  得到1月呆滞。2月和3月呆滞都为入库数

如果 出>入1 那么1月呆滞为0，2月呆滞 = 库存-入2-入3

如果出 >入1+入2 那么 3月的呆滞数= 库存数

下面SAP 的代码

gt\_mseg1 是入库数

menge1 是30天内

menge2 是60天内 以此类推

LOOP AT gt\_mseg1 INTO gs\_mseg1 WHERE matnr = wa\_item\-matnr AND lgort = wa\_item\-lgort .  
  
      p\_data = sy\-datum \- gs\_mseg1\-budat\_mkpf.  
  
      IF  p\_data < 31.  
        wa\_item\-menge1 = wa\_item\-menge1 + gs\_mseg1\-menge.  
        IF wa\_item\-menge1 > wa\_item\-lbkum.  
          wa\_item\-menge1 = wa\_item\-lbkum .*"-  wa\_item-menge2 -  wa\_item-menge3 - wa\_item-menge4 -  wa\_item-menge5 - wa\_item-menge7 .*  
        ENDIF.  
      ENDIF.  
      IF  p\_data > 30 AND p\_data < 61.  
        wa\_item\-menge2 = wa\_item\-menge2 + gs\_mseg1\-menge.  
        IF wa\_item\-menge2 + wa\_item\-menge1 > wa\_item\-lbkum.  
          wa\_item\-menge2 = wa\_item\-lbkum \- wa\_item\-menge1 .  
        ENDIF.  
      ENDIF.  
      IF  p\_data > 60 AND p\_data < 91.  
        wa\_item\-menge3 = wa\_item\-menge3 + gs\_mseg1\-menge.  
        IF wa\_item\-menge3 +  wa\_item\-menge1 + wa\_item\-menge2 > wa\_item\-lbkum.  
          wa\_item\-menge3 = wa\_item\-lbkum \- wa\_item\-menge1 \- wa\_item\-menge2 .  
        ENDIF.  
      ENDIF.  
      IF  p\_data > 90 AND p\_data < 121.  
        wa\_item\-menge4 = wa\_item\-menge4 + gs\_mseg1\-menge.  
        IF wa\_item\-menge4 + wa\_item\-menge1 + wa\_item\-menge2 +  wa\_item\-menge3 > wa\_item\-lbkum.  
          wa\_item\-menge4 = wa\_item\-lbkum \- wa\_item\-menge1 \- wa\_item\-menge2 \- wa\_item\-menge3.  
        ENDIF.  
      ENDIF.  
      IF  p\_data > 120 AND p\_data < 181.  
        wa\_item\-menge5 = wa\_item\-menge5 + gs\_mseg1\-menge.  
        IF wa\_item\-menge5 + wa\_item\-menge1 + wa\_item\-menge2 + wa\_item\-menge3 + wa\_item\-menge4 > wa\_item\-lbkum.  
          wa\_item\-menge5 = wa\_item\-lbkum \- wa\_item\-menge1 \- wa\_item\-menge2 \- wa\_item\-menge3 \- wa\_item\-menge4.  
        ENDIF.  
      ENDIF.  
      IF  p\_data > 90.  
        wa\_item\-menge6 = wa\_item\-menge6 + gs\_mseg1\-menge.  
        IF wa\_item\-menge6 + wa\_item\-menge1 + wa\_item\-menge2 + wa\_item\-menge3 > wa\_item\-lbkum.  
          wa\_item\-menge6 = wa\_item\-lbkum \- wa\_item\-menge1 \- wa\_item\-menge2 \- wa\_item\-menge3.  
        ENDIF.  
      ENDIF.  
      IF  p\_data > 180.  
        wa\_item\-menge7 = wa\_item\-menge7 + gs\_mseg1\-menge.  
        IF wa\_item\-menge7 + wa\_item\-menge1 + wa\_item\-menge2 + wa\_item\-menge3 + wa\_item\-menge4 + wa\_item\-menge5 > wa\_item\-lbkum.  
          wa\_item\-menge7 = wa\_item\-lbkum \- wa\_item\-menge1 \- wa\_item\-menge2 \- wa\_item\-menge3 \- wa\_item\-menge4 \- wa\_item\-menge5.  
        ENDIF.  
      ENDIF.  
      CLEAR:gs\_mseg1.  
    ENDLOOP.