欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

bom带库存算法解决思路

更新时间: 2014-01-05 02:53:31 责任编辑: Author_N1

 

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各自库存数……这样,可以通过哪种算法去实现?

--参考方法--
以下这些代码是从书上抄的,希望对大家有用

SQL code
--------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
 		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:53:31
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/15805/
本文WWW.DOC100.NET DOC100.NET版权所有。