BOM带库存算法
向你请教一种算法
现在我有一张表bom mid表示物品编码 ,Cid表示所组成的物品编码,num表示 所需要 Cid物品个数
(举例现有一支笔A,笔由笔帽,笔心,外壳组成,笔心由,油墨,笔心壳组成)这种组合会随不同物品而变化,产生不同的层级)
Mid Cid num
A A1 2
A A2 3
A A3 3
A2 A3 3
A2 A4 3
A2 A5 3
A4 A5 3
A4 A6 3
.........
表 store 仓库,mid即物品编码 SL表示数量
Mid SL
A 2
A1 5
A2 3
A4 1
A5 2
A6 3
现在要求领10个A,程序大致要这样执行,先去store看A的个数,成品有2个,接下来8个要用子原料来生产,A2=3*8 A3=3*8,然后再看A2 A3各自库存数……这样，可以通过哪种算法去实现?
[解决办法]
以下这些代码是从书上抄的,希望对大家有用
--------mrp计算存储过程
CREATE PROCEDURE sf_mrp计算 ( @考虑库存等 bit=1,
@考虑提前期 bit=1, @考虑损耗 bit=1)
AS
begin tran
--清除
delete from mrp物料需求计算
-- 更新物料清单底层码,计算时使用
update 物料清单 set 低层码 = 0 where 父项编号 = 0
-- 循环10次,根据情况,这里默认bom物料的层级不超过10级
declare @i int
select @i = 1
while (@i<=10)
begin
update 物料清单 set 低层码 = b.低层码+1 from 物料清单 as a,
(select * from 物料清单) as b
where a.父项编号 = b.物料编号
select @i = @i + 1
end
--重新生成物料需求计算表,并计算毛需求
-- 低层码代表物料的层级,使用他来循环
insert into mrp物料需求计算(物料编号,年份,计划期,毛需求)
select 物料编号,年份,计划期,sum(MPS数量)
FROM 主生产计划 group by 物料编号,年份,计划期
select @i = 1
while (@i<=10)
begin
-- 没有的先查入记录,因为一个物料可以对应多个父项
insert into mrp物料需求计算(物料编号,年份,计划期,毛需求)
select distinct b.物料编号,年份,计划期,0
FROM mrp物料需求计算 as a, 物料清单 as b
where rtrim(b.物料编号)+convert(char(4),年份)+
convert(char(2),计划期)not in(select rtrim(物料编号)+
convert(char(4),年份)+convert(char(2),计划期)
from mrp物料需求计算)
and b.父项编号=a.物料编号 and b.低层码=@i
-- 计算毛需求
-- 注意考虑损耗的情况
update mrp物料需求计算 set 毛需求 = c.毛需求 + d.需求
from mrp物料需求计算 as c,
(select b.物料编号,年份,计划期,
sum((a.毛需求*b.需要数量)/(1-(case when @考虑损耗=1 then
isnull(损耗率,0) else 0 end))) as 需求
FROM mrp物料需求计算 as a, 物料清单 as b
where b.父项编号=a.物料编号 and b.低层码=@i
group by b.物料编号,a.年份,a.计划期
) as d
where c.物料编号=d.物料编号 and c.年份=d.年份 and c.计划期=d.计划期
select @i = @i + 1
end
--------------- 不考虑提前期的毛需求计算完成
-- 考虑提前期,计算提前期
--if (@考虑提前期=1)
--begin
-- 这里不在计算,具体计算方法为将当前计划期的数量移到提前期
-- 注意跨年度计划期的
--end
if (@考虑库存等=1)
begin
-- 第一次计算,设置期初库存
-- 这里统一设置起初库存为100
-- 实际系统应该和库存库及上期情况结合
update mrp物料需求计算 set 期初库存=100
update mrp物料需求计算 set 预计入库 = isnull(预计入库,0) +
数量 from mrp物料需求计算 as a, (select sum(剩余数量) as 数量,
物料编号,年份,计划期 from 采购订单
group by 物料编号,年份,计划期) as b, 物料主文件 as c
where a.物料编号=b.物料编号 and a.年份=b.年份
and a.计划期=b.计划期 and a.物料编号 = c.物料编号
and c.计划类别='wg' -- 外购产品
update mrp物料需求计算 set 预计入库 = isnull(预计入库,0) +
数量 from mrp物料需求计算 as a, (select sum(剩余数量) as 数量,
物料编号,年份,计划期 from 生产订单
group by 物料编号,年份,计划期) as b, 物料主文件 as c
where a.物料编号=b.物料编号 and a.年份=b.年份
and a.计划期=b.计划期 and a.物料编号 = c.物料编号
and c.计划类别='bcp' -- 半成品
-- 这里计算预计出库的情况
update mrp物料需求计算 set 预计出库 = isnull(预计出库,0)
end
-- 按照计划期循环计算各个计划期的物料需求
declare @年份 int, @计划期 int
declare mycur cursor for select 年份,计划期 from mrp物料需求计算
order by 年份,计划期
open mycur
fetch next from mycur into @年份, @计划期
WHILE (@@FETCH_STATUS = 0 )
BEGIN
-- 如果不是最小的计划期, 计算期初库存
-- 注意跨年度的计算,这里先不考虑
update mrp物料需求计算 set 期初库存=b.预计库存 from
mrp物料需求计算 as a, (select * from mrp物料需求计算)
as b where a.年份=@年份 and a.计划期=@计划期
and a.年份=b.年份 and a.计划期=b.计划期+1
-- 计算净需求
update mrp物料需求计算 set 预计库存 = isnull(期初库存,0) -
isnull(毛需求,0) + isnull(预计入库,0) - isnull(预计出库,0)
where 年份=@年份 and 计划期=@计划期
update mrp物料需求计算 set 净需求=0 where 年份=@年份 and 计划期=@计划期
-- 预期(期末库存)小于0的存在净需求
update mrp物料需求计算 set 净需求=-预计库存, 预计库存=0
where 年份=@年份 and 计划期=@计划期 and 预计库存<0
fetch next from mycur into @年份, @计划期
END
close mycur
deallocate mycur
commit
GO
--------mrp计算存储过程
CREATE PROCEDURE sf_mrp计算 ( @考虑库存等 bit=1,
@考虑提前期 bit=1, @考虑损耗 bit=1)
AS
begin tran
--清除
delete from mrp物料需求计算
-- 更新物料清单底层码,计算时使用
update 物料清单 set 低层码 = 0 where 父项编号 = 0
-- 循环10次,根据情况,这里默认bom物料的层级不超过10级
declare @i int
select @i = 1
while (@i<=10)
begin
update 物料清单 set 低层码 = b.低层码+1 from 物料清单 as a,
(select * from 物料清单) as b
where a.父项编号 = b.物料编号
select @i = @i + 1
end
--重新生成物料需求计算表,并计算毛需求
-- 低层码代表物料的层级,使用他来循环
insert into mrp物料需求计算(物料编号,年份,计划期,毛需求)
select 物料编号,年份,计划期,sum(MPS数量)
FROM 主生产计划 group by 物料编号,年份,计划期
select @i = 1
while (@i<=10)
begin
-- 没有的先查入记录,因为一个物料可以对应多个父项
insert into mrp物料需求计算(物料编号,年份,计划期,毛需求)
select distinct b.物料编号,年份,计划期,0
FROM mrp物料需求计算 as a, 物料清单 as b
where rtrim(b.物料编号)+convert(char(4),年份)+
convert(char(2),计划期)not in(select rtrim(物料编号)+
convert(char(4),年份)+convert(char(2),计划期)
from mrp物料需求计算)
and b.父项编号=a.物料编号 and b.低层码=@i
-- 计算毛需求
-- 注意考虑损耗的情况
update mrp物料需求计算 set 毛需求 = c.毛需求 + d.需求
from mrp物料需求计算 as c,
(select b.物料编号,年份,计划期,
sum((a.毛需求*b.需要数量)/(1-(case when @考虑损耗=1 then
isnull(损耗率,0) else 0 end))) as 需求
FROM mrp物料需求计算 as a, 物料清单 as b
where b.父项编号=a.物料编号 and b.低层码=@i
group by b.物料编号,a.年份,a.计划期
) as d
where c.物料编号=d.物料编号 and c.年份=d.年份 and c.计划期=d.计划期
select @i = @i + 1
end
--------------- 不考虑提前期的毛需求计算完成
-- 考虑提前期,计算提前期
--if (@考虑提前期=1)
--begin
-- 这里不在计算,具体计算方法为将当前计划期的数量移到提前期
-- 注意跨年度计划期的
--end
if (@考虑库存等=1)
begin
-- 第一次计算,设置期初库存
-- 这里统一设置起初库存为100
-- 实际系统应该和库存库及上期情况结合
update mrp物料需求计算 set 期初库存=100
update mrp物料需求计算 set 预计入库 = isnull(预计入库,0) +
数量 from mrp物料需求计算 as a, (select sum(剩余数量) as 数量,
物料编号,年份,计划期 from 采购订单
group by 物料编号,年份,计划期) as b, 物料主文件 as c
where a.物料编号=b.物料编号 and a.年份=b.年份
and a.计划期=b.计划期 and a.物料编号 = c.物料编号
and c.计划类别='wg' -- 外购产品
update mrp物料需求计算 set 预计入库 = isnull(预计入库,0) +
数量 from mrp物料需求计算 as a, (select sum(剩余数量) as 数量,
物料编号,年份,计划期 from 生产订单
group by 物料编号,年份,计划期) as b, 物料主文件 as c
where a.物料编号=b.物料编号 and a.年份=b.年份
and a.计划期=b.计划期 and a.物料编号 = c.物料编号
and c.计划类别='bcp' -- 半成品
-- 这里计算预计出库的情况
update mrp物料需求计算 set 预计出库 = isnull(预计出库,0)
end
-- 按照计划期循环计算各个计划期的物料需求
declare @年份 int, @计划期 int
declare mycur cursor for select 年份,计划期 from mrp物料需求计算
order by 年份,计划期
open mycur
fetch next from mycur into @年份, @计划期
WHILE (@@FETCH_STATUS = 0 )
BEGIN
-- 如果不是最小的计划期, 计算期初库存
-- 注意跨年度的计算,这里先不考虑
update mrp物料需求计算 set 期初库存=b.预计库存 from
mrp物料需求计算 as a, (select * from mrp物料需求计算)
as b where a.年份=@年份 and a.计划期=@计划期
and a.年份=b.年份 and a.计划期=b.计划期+1
-- 计算净需求
update mrp物料需求计算 set 预计库存 = isnull(期初库存,0) -
isnull(毛需求,0) + isnull(预计入库,0) - isnull(预计出库,0)
where 年份=@年份 and 计划期=@计划期
update mrp物料需求计算 set 净需求=0 where 年份=@年份 and 计划期=@计划期
-- 预期(期末库存)小于0的存在净需求
update mrp物料需求计算 set 净需求=-预计库存, 预计库存=0
where 年份=@年份 and 计划期=@计划期 and 预计库存<0
fetch next from mycur into @年份, @计划期
END
close mycur
deallocate mycur
commit
GO
