SAP取历史库存（可查询期初期末库存和指定日期之库存）

含仓位之Table：MARD / MARDH

       MARD里记载的是当前库存的数量，是实时变化的，但是期间并不一定是当月。比如：当前是2015年11月，料号A在2015年10月初至今都没有库存异动，那么现在看到MARD里料号A的期间数还是2015年09月，而非2015年11月。

       当料号A发生异动时，系统将实时更新MARD数据。在更新之前，会检查此异动的过账期间和MARD里对应记录的期间是否一致。如果不是，则会copy表MARD里的库存数量到MARDH，存成上月的期末库存数据保存起来，然后把MARD中的期间改成当前期间，并更新数量数据。如果期间是一致的，则不作copy动作，只更新MARD数量。

MARD - Storage LocationData for Material

MARDH -  Material Master Storage Location Segment: History

不含仓位之Table： MBEW / MBEWH

MBEW和MBEWH的原理和MARD/MARDH的原理是一样的，只是没有了仓位这个层级。

MBEWH - Material ValuationHistory(存储物料历史价格)

MBEW -Material Valuation (存储当前物料价格)

特殊库存之Table：

MKOL -Special stock: K (Special Stocks from Vendor)

MSLB -Special stock: O (Special Stocks with Vendor)

MSKU -Special Stocks with Customer V/W  (V:Ret. pkg w.customer,W:Consignment (cust.))

MSPR -Project Stock: Q (Project stock)

MSSQ - Project StockTotal

MSKA -Sales Order Stock E (Orders on hand)

MSSA - Total CustomerOrders on Hand

MCHA - Batches

MCHB - Batch Stocks

EBEW - Sales Order Stock Valuation

EBEWH - Valuation of Sales Order Stock: History

理解了上面的原理之后，我们就可以快速取出期初库存和期末库存，甚至指定日期的库存了。（可以参考上一篇文章《 库存管理报表（含无价厂）》）

  CLEAR: gt_mardh.

  SELECT matnr werks lgort lfgja lfmon

         labst umlme insme einme speme retme "lvorm

    INTO CORRESPONDING FIELDS OF TABLE gt_mardh

    FROM mard

    WHERE matnr IN s_matnr

      AND werks IN gr_werks

      AND lgort IN s_bptnr. "s_lgort.

  SELECT  matnr werks lgort lfgja lfmon

          labst umlme insme einme speme retme "lvorm

    APPENDING CORRESPONDING FIELDS OF TABLE gt_mardh

    FROM mardh

    WHERE matnr IN s_matnr

      AND werks IN gr_werks

      AND lgort IN s_bptnr  "s_lgort.

      AND ( lfgja > g_lfgja OR lfgja = g_lfgja AND lfmon >= g_lfmon ).

  "删除重复行，仅保留最近一条记录

  SORT gt_mardh BY matnr werks lgort lfgja lfmon.

  DELETE ADJACENT DUPLICATES FROM gt_mardh COMPARING matnr werks lgort.

      用上面这段代码就可以轻松快速读取到指定月份的期初期末库存了。如果还要具体到月中某一天，则就要涉及到MSEG和MKPF这两个大表了。不过其实也不用担心，其实我们只要抓取期初到该指定日期的异动数据就可以了，因为通过上面的代码已经读取到该月的期初库存，再减掉这段时间的异动就OK了。

        CLEAR: gt_field.

    PERFORM get_mseg_fields

        TABLES gt_field   "<--- Field names used

        USING  gw_mseg.   " ---> in structure here

    CLEAR: gt_mseg.

    SELECT (gt_field) INTO CORRESPONDING FIELDS OF TABLE gt_mseg

      FROM mkpf

      INNER JOIN mseg ON mkpf~mandt = mseg~mandt

                      AND mkpf~mblnr = mseg~mblnr

                      AND mkpf~mjahr = mseg~mjahr

      WHERE mseg~werks IN gr_werks

        AND mseg~matnr IN s_matnr

        "AND mseg~matnr <> space

        AND ( mkpf~budat >= l_sdate AND mkpf~budat <= l_edate )

        AND mseg~sobkz = space "IN s_sobkz "非特殊库存部分

        AND mseg~menge <> 0

      %_HINTS

      DB2    '&SUBSTITUTE VALUES&'

      ORACLE '&SUBSTITUTE VALUES&'.

    CLEAR: gt_mseg_sum.

    LOOP AT gt_mseg INTO gw_mseg.

      CLEAR: gw_mseg_sum.

      IF gw_mseg-shkzg = 'H'.

        gw_mseg-menge = - gw_mseg-menge.

      ENDIF.

      MOVE-CORRESPONDING gw_mseg TO gw_mseg_sum.

      COLLECT gw_mseg_sum INTO gt_mseg_sum.

    ENDLOOP.

    SORT gt_mseg_sum BY matnr werks lgort.