原文出处:http://blog.csdn.net/lbxp521/article/details/6729266
有很多人在做库存进销存的时候,感觉期初库存和期末库存比较难搞定,感觉要去取货物移动的数据来获取期初库存和期末库存,其实不然,只要理解原理就可以快速取出期初库存和期末库存
库存表:MARDH MARD MSKUH MSKU MSLBH MSLB MSKAH MSKA
下面以MARDH MARD为例,如果一个物料在2011年9月份做了一笔货物移动,则会自动在MARDH中更
新2011年8月份的期末库存,假如在2011年9月份一直没有做货物移动,则不会更新MARDH中8月份的期末库存
假如我想获得2011年7月份的库存,则需要先在MARDH中查找7月份的库存,找不到找8月份的库存,找不到找9月份的库存,以此类推,最后都找不到,则用MARD中的库存
* 下面代码为获取8月份的期初库存和8月份的期末库存
PARAMETERS:
* 会计年度
p_gjahr LIKE bkpf-gjahr OBLIGATORY DEFAULT '2011',
* 期间
p_monat LIKE bkpf-monat OBLIGATORY DEFAULT '08'.
DATA:
v_gjahr LIKE bkpf-gjahr, " 上月期间年度
v_monat LIKE bkpf-monat. " 上月期间月份
* 获取上月度年度和月份
IF p_monat = '01'.
v_monat = '12'.
v_gjahr = p_gjahr - 1.
ELSE.
v_monat = p_monat - 1.
v_gjahr = p_gjahr.
ENDIF.
DATA: BEGIN OF typ_mardh,
p_string(6) TYPE c.
INCLUDE STRUCTURE mardh .
DATA: END OF typ_mardh.
DATA: i_mardh LIKE TABLE OF typ_mardh WITH HEADER LINE. " 期末数据
DATA: n_mardh LIKE TABLE OF typ_mardh WITH HEADER LINE. " 当前库存
DATA: m_mardh LIKE TABLE OF typ_mardh WITH HEADER LINE. " 上月期初数据
* 查找库存历史表
SELECT *
FROM mardh
INTO CORRESPONDING FIELDS OF TABLE m_mardh
WHERE ( lfgja > v_gjahr OR ( lfgja = v_gjahr AND lfmon >= v_monat ) ).
LOOP AT m_mardh .
CONCATENATE m_mardh-lfgja m_mardh-lfmon INTO m_mardh-p_string .
MODIFY m_mardh .
IF m_mardh-p_string >= p_estring .
MOVE-CORRESPONDING m_mardh TO i_mardh.
APPEND i_mardh .
ENDIF.
ENDLOOP.
SELECT *
FROM mard
INTO CORRESPONDING FIELDS OF TABLE n_mardh .
LOOP AT n_mardh .
CONCATENATE n_mardh-lfgja n_mardh-lfmon INTO n_mardh-p_string .
MODIFY n_mardh .
MOVE-CORRESPONDING n_mardh TO m_mardh.
APPEND m_mardh .
MOVE-CORRESPONDING n_mardh TO i_mardh.
APPEND i_mardh .
ENDLOOP.
* 期初库存都在表M_MARDH
SORT m_mardh BY matnr werks lgort lfgja lfmon .
DELETE ADJACENT DUPLICATES FROM m_mardh COMPARING matnr werks lgort.
* 期末库存都在表I_MARDH
SORT i_mardh BY matnr werks lgort lfgja lfmon .
DELETE ADJACENT DUPLICATES FROM i_mardh COMPARING matnr werks lgort.
下面在获取数据的时候,直接可以READ TABLE ........ BINARY SEARCH .