提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  后端

当前栏目

SQL语句练习实例之五WMS系统中的关于LIFO或FIFO的问题分析

实例SQL系统 问题 分析 语句 关于 练习
2023-06-13 09:14:31 时间
复制代码代码如下:

---在仓储管理中经常会碰到的一个问题

一、关于LIFO与FIFO的简单说明
---FIFO:Firstin,Firstout.先进先出。
---LIFO:Lastin,Firstout.后进先出。

--如货物A：本月1日购买10件，单价10元/件，3日购买20件，单价15元/件；10日购买10件，单价8元/件。
--本月15日发货35件。

--按FIFO先进先出，就是先购入的存货先发出，所以，先发1日进货的10件，再发3日进货的20件，最后发10日进货的5件，发出成本共为：10*10+20*15+5*8=440元。
--按LIFO后进先出，就是后购入的存货先发出，所以，先发10日进货的10件，再发3日进货的20件，最后发1日进货的5件，发出成本共为：10*8+20*15+5*10=430元

二、示例
复制代码代码如下:

--------
Createtablestock
(Idintnotnullprimarykey,
articlenovarchar(20)notnull,
rcvdatedatetimenotnull,
qtyintnotnull,
unitpricemoneynotnull
)
go
----
insertstock
select1,"10561122","2011-1-1",15,10union
select2,"10561122","2011-2-2",25,12union
select3,"10561122","2011-3-3",35,15union
select4,"10561122","2011-4-4",45,20union
select5,"10561122","2011-5-5",55,10union
select6,"10561122","2011-6-6",65,30union
select7,"10561122","2011-7-7",75,17union
select8,"10561122","2011-8-8",110,8

go
----此时如果在2011-8-8卖出300件产品，那么应该如何计算库存销售的价值呢？
----1使用当前的替换成本，2011-8-8时每件产品的成本为8，就是说你这300件产品，成本价值为2400
----2使用当前的平均成本单价，一共有420，总成本为6530，平均每件的成本为15.55
----1.LIFO（后进先出）
----2011-8-8110*8
----2011-7-775*17
----2011-6-665*30
----2011-5-550*10
-----总成本为4605
-----2.FIFO(先进先出)
----"2011-1-1",15*10
---"2011-2-2",25*12
-----"2011-3-3",35*15
-----"2011-4-4",45*20
-----"2011-5-5",55*10
-----"2011-6-6",65*30
-----"2011-7-7",65*17
----总成本为5480

---成本视图
createviewcostLIFO
as
selectunitpricefromstock
wherercvdate=(selectMAX(rcvdate)fromstock)
go
createviewcostFIFO
as
selectsum(unitprice*qty)/SUM(qty)asunitpricefromstock

go
-----找出满足订单的、足够存货的最近日期。如果运气好的话，某一天的库存数量正好与订单要求的数字完全一样
-----就可以将总成本作为答案返回。如果订单止的数量比库存的多，什么也不返回。如果某一天的库存数量比订单数量多
---则看一下当前的单价，乘以多出来的数量，并减去它。
---下面这些查询和视图只是告诉我们库存商品的库存价值，注意，这些查询与视图并没有实际从库存中向外发货。
createviewLIFO
as
selects1.rcvdate,s1.unitprice,sum(s2.qty)asqty,sum(s2.qty*s2.unitprice)astotalcost
fromstocks1,stocks2
wheres2.rcvdate>=s1.rcvdate
groupbys1.rcvdate,s1.unitprice

go
select(totalcost-((qty-300)*unitprice))ascost
fromlifoasl
wherercvdate=(selectmax(rcvdate)fromlifoasl2whereqty>=300)
go

createviewFIFO
as
selects1.rcvdate,s1.unitprice,sum(s2.qty)asqty,sum(s2.qty*s2.unitprice)astotalcost
fromstocks1,stocks2
wheres2.rcvdate<=s1.rcvdate
groupbys1.rcvdate,s1.unitprice

go
select(totalcost-((qty-300)*unitprice))ascost
fromfifoasl
wherercvdate=(selectmin(rcvdate)fromlifoasl2whereqty>=300)
--------
go
-----
-----在发货之后，实时更新库存表
createviewCurrStock
as
selects1.rcvdate,SUM(casewhens2.rcvdate>s1.rcvdatethens2.qtyelse0end)asPrvQty
,SUM(casewhens2.rcvdate<=s1.rcvdatethens2.qtyelse0end)asCurrQty
fromstocks1,stocks2
wheres2.rcvdate<=s1.rcvdate
groupbys1.rcvdate,s1.unitprice
go
createprocRemoveQty
@orderqtyint
as
if(@orderqty>0)
begin
updatestocksetqty=casewhen@orderqty>=(selectcurrqtyfromCurrStockascwherec.rcvdate=stock.rcvdate)
then0
when@orderqty<(selectprvqtyfromCurrStockc2wherec2.rcvdate=stock.rcvdate)
thenstock.qty
else(selectcurrqtyfromCurrStockasc3wherec3.rcvdate=stock.rcvdate)
-@orderqtyend
end
--
deletefromstockwhereqty=0
---
go
execRemoveQty20
go
---------------

三、使用“贪婪算法”进行订单配货

复制代码代码如下:
-------还有一个问题，如何使用空间最小或最大的仓库中的货物来满足订单，假设仓库不是顺序排列，你可以按钮希望的顺序任意选择满足订单。
---使用最小的仓库可以为订单的装卸工人带来最小的工作量，使用最大的仓库，则可以在仓库中清理出更多的空间
-------例如：对于这组数据，你可以使用（1，2，3，4，5，6，7）号仓库也可以使用（5，6，7，8）号仓库中的货物来满足订单的需求。
----这个就是装箱问题，它属于NP完全系统问题。对于一般情况来说，这种问题很难解决，因为要尝试所有的组合情况，而且如果数据量大的话，
----计算机也很难很快处理。
---所以有了“贪婪算法”，这个算法算出来的常常是近乎最优的。这个算法的核心就是“咬最大的一口”直到达到或超越目标。
---
--1.第一个技巧，要在表中插入一些空的哑仓库，如果你最多需要n次挑选，则增加n-1个哑仓库
insertstock
select-1,"10561122","1900-1-1",0,0union
select-2,"10561122","1900-1-1",0,0
--select-3,"1900-1-1",0,0
----
go
createviewpickcombos
as
selectdistinct(w1.qty+w2.qty+w3.qty)astotalpick
,casewhenw1.id<0then0elsew1.idendasbin1,w1.qtyasqty1,
casewhenw2.id<0then0elsew2.idendasbin2,w2.qtyasqty2
,casewhenw3.id<0then0elsew3.idendasbin3,w3.qtyasqty3
fromstockw1,stockw2,stockw3
wherew1.idnotin(w2.id,w3.id)
andw2.idnotin(w1.id,w3.id)
andw1.qty>=w2.qty
andw2.qty>=w3.qty
----
---1.使用存储过程来找出满足或接近某一数量的挑选组合
--------
go
createprocOverPick
@pickqtyint
as
if(@pickqty>0)
begin
select@pickqty,totalpick,bin1,qty1,bin2,qty2,bin3,qty3
frompickcombos
wheretotalpick=(selectMIN(totalpick)frompickcomboswheretotalpick>=@pickqty)
end
go
execOverPick180

----------
select*fromstock
droptablestock
dropviewlifo
dropviewfifo
dropviewcostfifo
dropviewcostlifo
dropviewCurrStock
dropprocOverPick
dropprocRemoveQty
dropviewpickcombos

相关文章