set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
-- 商品出货
-- 返回: -1 数据 overflow
ALTER PROCEDURE [dbo].[ap_PopPro]
@pro_id int, --产品ID
@wh_id int, --仓库号
@num int --出库数量
AS
BEGIN
declare
@pos1 int, --起始位置
@pos2 int, --可放位置
@curPos int, --当前位置
@totNum int, --总的数量
@curNum int , --当前位置的数量
@curtotNum int, --当前商品总数量
@totPrice money, --总的出货价
@curPrice money --当前批的出货价
declare
@sqlCmd nvarchar(200),
@fldNum varchar(10),
@fldPrice varchar(10)
--初始化出货总价
set @totPrice = 0
--查找对应产品的记录
select @pos1 = pos1, @pos2 = pos2, @totNum = totNum
from whproduct
where pro_id = @pro_id and wh_id = @wh_id
if @totNum < @num --产品数量不够,刚退出
begin
print 'The number of the product is not enough'
return -1
end
laber1:
set @fldNum = 'num' + Convert(varchar(2), @pos1) --得到当前num字段
set @fldPrice = 'price' + Convert(varchar(2), @pos1)
set @sqlCmd = 'select ' + '@curNum ='+ @fldNum+ ' ,@curtotNum = totNum'
+ ',@curPrice='+@fldPrice +' from whproduct where pro_id = @pro_id and wh_id = @wh_id'
exec sp_executesql @sqlCmd,N'@curNum int output ,@curtotNum int output, @curPrice money output ,@pro_id int,@wh_id int',@curNum output ,@curtotNum output,@curPrice output,@pro_id,@wh_id
set @curPos = @pos1 --一开始的初始化curPos 与@pos1相等,用于后面价格是否需要置0做准备
if @curNum >=@num --当前位置的商品数量大于或等于要求的数量时
begin
set @curNum = @curNum - @num
set @curtotNum = @curtotNum - @num
set @totPrice = @totPrice + @curPrice*@num
set @num = 0 --取出数量全总,所以设为0
if @curNum = 0
begin
set @pos1 = @pos1 +1
end
end
else --当前位置的商品数量小于要求的数量时
begin
set @num = @num - @curNum
set @totPrice = @totPrice + @curPrice*@curNum
set @curtotNum = @curtotNum - @curNum
set @curNum = 0
set @pos1 = @pos1 + 1
end
if @curPos != @pos1 --当发现当前位置的商品都被取光的时候,该位置的进货价格清0
begin
set @fldPrice = 'price' + Convert(varchar(2), @curPos)
set @sqlCmd = 'update whProduct set ' + @fldprice + ' = ' + Convert(varchar(10), 0)
+' where pro_id = @pro_id and wh_id = @wh_id'
exec sp_executesql @sqlCmd, N'@wh_id int, @pro_id int', @wh_id, @pro_id
end
if @pos1 = @pos2 --当位置1到达位置2时,也就相当于仓库里面没货了,这时应该把@pos1返回
begin
set @pos1 = 1
set @pos2 = 1
end
--当前位置被置0后,修改数据表中的值
set @sqlCmd = 'update whProduct set pos1 = ' + Convert(varchar(2), @pos1) + ',pos2 = ' + Convert(varchar(2), @pos2) +', totNum = '
+ Convert(varchar(5), @curtotNum) + ',' + @fldNum +'='+ Convert(varchar(5), @curNum)+
' where pro_id = @pro_id and wh_id = @wh_id'
exec sp_executesql @sqlCmd, N'@wh_id int, @pro_id int', @wh_id, @pro_id
if @num != 0
begin
goto laber1 --如果需要的商品数量还没有得到,则回到前面部分,进而得到循环的目的
end
print '出货成功--'
print '出货数量为:'
print @totNum - @curtotNum
print '出货总价为:'
print @totPrice
END
set QUOTED_IDENTIFIER ON
go
-- 商品出货
-- 返回: -1 数据 overflow
ALTER PROCEDURE [dbo].[ap_PopPro]
@pro_id int, --产品ID
@wh_id int, --仓库号
@num int --出库数量
AS
BEGIN
declare
@pos1 int, --起始位置
@pos2 int, --可放位置
@curPos int, --当前位置
@totNum int, --总的数量
@curNum int , --当前位置的数量
@curtotNum int, --当前商品总数量
@totPrice money, --总的出货价
@curPrice money --当前批的出货价
declare
@sqlCmd nvarchar(200),
@fldNum varchar(10),
@fldPrice varchar(10)
--初始化出货总价
set @totPrice = 0
--查找对应产品的记录
select @pos1 = pos1, @pos2 = pos2, @totNum = totNum
from whproduct
where pro_id = @pro_id and wh_id = @wh_id
if @totNum < @num --产品数量不够,刚退出
begin
print 'The number of the product is not enough'
return -1
end
laber1:
set @fldNum = 'num' + Convert(varchar(2), @pos1) --得到当前num字段
set @fldPrice = 'price' + Convert(varchar(2), @pos1)
set @sqlCmd = 'select ' + '@curNum ='+ @fldNum+ ' ,@curtotNum = totNum'
+ ',@curPrice='+@fldPrice +' from whproduct where pro_id = @pro_id and wh_id = @wh_id'
exec sp_executesql @sqlCmd,N'@curNum int output ,@curtotNum int output, @curPrice money output ,@pro_id int,@wh_id int',@curNum output ,@curtotNum output,@curPrice output,@pro_id,@wh_id
set @curPos = @pos1 --一开始的初始化curPos 与@pos1相等,用于后面价格是否需要置0做准备
if @curNum >=@num --当前位置的商品数量大于或等于要求的数量时
begin
set @curNum = @curNum - @num
set @curtotNum = @curtotNum - @num
set @totPrice = @totPrice + @curPrice*@num
set @num = 0 --取出数量全总,所以设为0
if @curNum = 0
begin
set @pos1 = @pos1 +1
end
end
else --当前位置的商品数量小于要求的数量时
begin
set @num = @num - @curNum
set @totPrice = @totPrice + @curPrice*@curNum
set @curtotNum = @curtotNum - @curNum
set @curNum = 0
set @pos1 = @pos1 + 1
end
if @curPos != @pos1 --当发现当前位置的商品都被取光的时候,该位置的进货价格清0
begin
set @fldPrice = 'price' + Convert(varchar(2), @curPos)
set @sqlCmd = 'update whProduct set ' + @fldprice + ' = ' + Convert(varchar(10), 0)
+' where pro_id = @pro_id and wh_id = @wh_id'
exec sp_executesql @sqlCmd, N'@wh_id int, @pro_id int', @wh_id, @pro_id
end
if @pos1 = @pos2 --当位置1到达位置2时,也就相当于仓库里面没货了,这时应该把@pos1返回
begin
set @pos1 = 1
set @pos2 = 1
end
--当前位置被置0后,修改数据表中的值
set @sqlCmd = 'update whProduct set pos1 = ' + Convert(varchar(2), @pos1) + ',pos2 = ' + Convert(varchar(2), @pos2) +', totNum = '
+ Convert(varchar(5), @curtotNum) + ',' + @fldNum +'='+ Convert(varchar(5), @curNum)+
' where pro_id = @pro_id and wh_id = @wh_id'
exec sp_executesql @sqlCmd, N'@wh_id int, @pro_id int', @wh_id, @pro_id
if @num != 0
begin
goto laber1 --如果需要的商品数量还没有得到,则回到前面部分,进而得到循环的目的
end
print '出货成功--'
print '出货数量为:'
print @totNum - @curtotNum
print '出货总价为:'
print @totPrice
END