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.


阅读更多
文章标签: 期初期末库存
个人分类: SAP
上一篇SAP库存管理报表(含无价厂)
下一篇SAP服务器文件上传和下载
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭